68user's page 掲示板

Prev< No. 2691> Next  [最新発言に戻る] [過去ログ一覧]
No. 2691 # aaa 2002/05/16 (木) 13:00:16
以下はどうでしょうか？

#!/usr/local/bin/perl

my(@array) = ( "<>aa<>bb<>cc<>dd<>", "ee<>ff<>gg" );

foreach $aref ( @array ) {
        $str .= $aref;
}

$str =~ s/\</\n\</g;
$str =~ s[ ^\n ]{}gsx;
print "$str\n";
Prev< No. 2691> Next  [最新発言に戻る] [過去ログ一覧]