今日の小ネタ!(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を使う場合には注意するとよいでしょう。