Perlについての質問箱 39箱目
■ このスレッドは過去ログ倉庫に格納されています
0565デフォルトの名無しさん
2009/04/10(金) 21:19:23my @numbers = qw/
123456789012
123456789012
123456789012
123456789012
/;
my $joined_number = join "", @numbers;
print "$joined_number\n";
__END__
^D
123456789012123456789012123456789012123456789012
■ このスレッドは過去ログ倉庫に格納されています