开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
StringScanner.pm.svn-base
资源名称：openkore-2.0.7.zip　[点击查看]
上传用户：market2
上传日期：2018-11-18
资源大小：18786k
文件大小：2k
源码类别：

外挂编程

开发平台：

Windows_Unix

StringScanner.pm.svn-base：源码内容
  1. package Utils::StringScanner;
  3. use strict;
  4. use warnings;
  6. sub new {
  7. my ($class, $string) = @_;
  8. my %self = (str => $string);
  9. return bless %self, $class;
  10. }
  12. sub scan {
  13. my ($self, $regex) = @_;
  14. if (ref($regex) ne 'Regexp') {
  15. $regex = quotemeta $regex;
  16. }
  17. if ($self->{str} =~ /^$regex/sx) {
  18. return substr($self->{str}, 0, $+[0], '');
  19. } else {
  20. return;
  21. }
  22. }
  24. sub scanUntil {
  25. my ($self, $regex) = @_;
  26. if (ref($regex) ne 'Regexp') {
  27. $regex = quotemeta $regex;
  28. }
  29. if ($self->{str} =~ /$regex/sx) {
  30. return substr($self->{str}, 0, $-[0], '');
  31. } else {
  32. return;
  33. }
  34. }
  36. sub peek {
  37. my ($self, $regex) = @_;
  38. if (ref($regex) ne 'Regexp') {
  39. $regex = quotemeta $regex;
  40. }
  41. if ($self->{str} =~ /^$regex/sx) {
  42. return substr($self->{str}, 0, $+[0]);
  43. } else {
  44. return;
  45. }
  46. }
  48. sub peekUntil {
  49. my ($self, $regex) = @_;
  50. if (ref($regex) ne 'Regexp') {
  51. $regex = quotemeta $regex;
  52. }
  53. if ($self->{str} =~ /$regex/sx) {
  54. return substr($self->{str}, 0, $-[0]);
  55. } else {
  56. return;
  57. }
  58. }
  60. sub skip {
  61. my ($self, $regex) = @_;
  62. if (ref($regex) ne 'Regexp') {
  63. $regex = quotemeta $regex;
  64. }
  65. if ($self->{str} =~ /^$regex/sx) {
  66. substr($self->{str}, 0, $+[0], '');
  67. return $+[0];
  68. } else {
  69. return;
  70. }
  71. }
  73. sub skipUntil {
  74. my ($self, $regex) = @_;
  75. if (ref($regex) ne 'Regexp') {
  76. $regex = quotemeta $regex;
  77. }
  78. if ($self->{str} =~ /$regex/sx) {
  79. substr($self->{str}, 0, $-[0], '');
  80. return $+[0];
  81. } else {
  82. return;
  83. }
  84. }
  86. sub rest {
  87. my ($self) = @_;
  88. return $self->{str};
  89. }
  91. sub terminate {
  92. $_[0]->{str} = '';
  93. }
  95. sub eos {
  96. my ($self) = @_;
  97. return length($self->{str}) == 0;
  98. }
  100. 1;