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;
}
}
myfinderの技術や周辺的活動のblog
登録:
コメントの投稿 (Atom)
0 件のコメント:
コメントを投稿