myfinderの技術や周辺的活動のblog

2009年6月27日土曜日

Syntax HighlightのPerlサポートテスト

perlサポートのテスト

use strict;

my $text = "Apple";

while ($text =~ /(?:(A)|(p)|(l)|(e))/g) {
if ($1) {
print $1, "\n";
}
elsif ($2) {
print $2, "\n";
}
elsif ($3) {
print $3, "\n";
}
elsif ($4) {
print $4, "\n";
}
else {
warn;
}
}

0 件のコメント: