2011-08-11から1日間の記事一覧
my $ref = qr/A/i;これで正規表現をリファレンスとして渡せるらしい。 my $a = qr/a/i; my $b = "aaaab"; my $c = "AAAaab";$b =~ s/$a/b/g; $c =~ s/$a/b/g; print "$b\n $c";出力--- bbbb bbbbbb こんな感じになります。普通、正規表現の式自体を渡したい…
my $ref = qr/A/i;これで正規表現をリファレンスとして渡せるらしい。 my $a = qr/a/i; my $b = "aaaab"; my $c = "AAAaab";$b =~ s/$a/b/g; $c =~ s/$a/b/g; print "$b\n $c";出力--- bbbb bbbbbb こんな感じになります。普通、正規表現の式自体を渡したい…