$aaa = "aaa"; $bbb = "bbb"; $ccc = "ccc"; $ddd = "ddd"; $eee = "eee"; $fff = "fff"; $ggg = "ggg"; print $aaa . $bbb . $ccc . $ddd . $eee . $fff . $ggg . "\n"; # 先頭の文字がaの変数をリセット reset "a"; print $aaa . $bbb . $ccc . $ddd . $eee . $fff . $ggg . "\n"; # 先頭の文字がbとcの変数をリセット reset "bc"; print $aaa . $bbb . $ccc . $ddd . $eee . $fff . $ggg . "\n"; # 先頭の文字がdからfの変数をリセット reset "d-f"; print $aaa . $bbb . $ccc . $ddd . $eee . $fff . $ggg . "\n";

$n = 0; $a = "abcdefg"; while (($a =~ ?def?) && ($n < 5)) { print "マッチ\n"; $n++; } reset; $n = 0; while (($a =~ ?def?) && ($n < 3)) { print "マッチ(リセット有り)\n"; # ??演算子をリセット reset; $n++; }

$a_1 = "aaa"; # こちら側はmyを使用して宣言 my $a_2 = "bbb"; print $a_1 . " : " . $a_2 . "\n"; reset "a"; # myを利用した方はリセットされない print $a_1 . " : " . $a_2 . "\n";