くだすれPerl（超初心者用）3

[0243 nobodyさん 2009/08/22(土) 12:04:28 ID:???]

>>240
では、面白い例を。結果は0432。

my $s = 0;
$s =~ /(.)/;
foreach(reverse 1..4){
print $1, "\n";
/(.)/;
}