今日の小ネタ!(1) 特殊変数$nはスコープの影響を受ける
今日の小ネタ!
コーディングしてて気がついたトリビア的な(知ってる人にはトリビアでもなんでもないけど)内容を唐突に書き殴って終わって行こうと思います!
#!/usr/local/bin/perl use strict; my $val; my $matched1; my $matched2; $val = "hoge12345"; $val =~ /(\d+)$/; if ($val) { $val =~ /^(hoge)/; $matched1 = $1; print "matched1 [$matched1]\n"; } $matched2 = $1; print "matched2 [$matched2]\n"; exit 0;
↓実行結果↓
#perl test.pl matched1 [hoge] matched2 [12345]
以上です!$nを使う場合には注意するとよいでしょう。