?? code.t.svn-base
字號(hào):
# code.tuse strict;use warnings;use Test::More tests => 6;use Test::Differences;BEGIN { use_ok('re::DFA::Perl'); }my $code = re::DFA::Perl->as_code('', 'match_empty');eq_or_diff $code, <<'_EOC_';sub match_empty { my $s = shift; return undef if !defined $s; my $pos = 0; my $state = 1; my $done; while (1) { my $char = substr($s, $pos, 1); if ($state == 1) { $done = $pos; last; } die "error: Unknown state: $state"; } continue { $pos++; } if (!defined $done) { return undef; } substr($s, 0, $done);}_EOC_$code = re::DFA::Perl->as_code('a', 'match');eq_or_diff $code, <<'_EOC_';sub match { my $s = shift; return undef if !defined $s; my $pos = 0; my $state = 1; my $done; while (1) { my $char = substr($s, $pos, 1); if ($state == 1) { last if !defined $char; if ($char eq 'a') { $state = 2; next; } last; } if ($state == 2) { $done = $pos; last; } die "error: Unknown state: $state"; } continue { $pos++; } if (!defined $done) { return undef; } substr($s, 0, $done);}_EOC_$code = re::DFA::Perl->as_code('a|b', 'match');eq_or_diff $code, <<'_EOC_';sub match { my $s = shift; return undef if !defined $s; my $pos = 0; my $state = 1; my $done; while (1) { my $char = substr($s, $pos, 1); if ($state == 1) { last if !defined $char; if ($char eq 'a') { $state = 2; next; } if ($char eq 'b') { $state = 2; next; } last; } if ($state == 2) { $done = $pos; last; } die "error: Unknown state: $state"; } continue { $pos++; } if (!defined $done) { return undef; } substr($s, 0, $done);}_EOC_$code = re::DFA::Perl->as_code('(a|)b*', 'match');eq_or_diff $code, <<'_EOC_';sub match { my $s = shift; return undef if !defined $s; my $pos = 0; my $state = 1; my $done; while (1) { my $char = substr($s, $pos, 1); if ($state == 1) { $done = $pos; last if !defined $char; if ($char eq 'a') { $state = 2; next; } if ($char eq 'b') { $state = 2; next; } last; } if ($state == 2) { $done = $pos; last if !defined $char; if ($char eq 'b') { $state = 2; next; } last; } die "error: Unknown state: $state"; } continue { $pos++; } if (!defined $done) { return undef; } substr($s, 0, $done);}_EOC_$code = re::DFA::Perl->as_code('(a|ba)*', 'match');eq_or_diff $code, <<'_EOC_';sub match { my $s = shift; return undef if !defined $s; my $pos = 0; my $state = 1; my $done; while (1) { my $char = substr($s, $pos, 1); if ($state == 1) { $done = $pos; last if !defined $char; if ($char eq 'a') { $state = 1; next; } if ($char eq 'b') { $state = 2; next; } last; } if ($state == 2) { last if !defined $char; if ($char eq 'a') { $state = 1; next; } last; } die "error: Unknown state: $state"; } continue { $pos++; } if (!defined $done) { return undef; } substr($s, 0, $done);}_EOC_
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -