68user's page 掲示板

Prev< No. 2691〜2692> 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";
No. 2692 # moto 2002/05/17 (金) 06:37:10
ふくしさん、aaaさん、
お二人のコードを参考にして解決できました。
ありがとうございました。
Prev< No. 2691〜2692> Next  [最新発言に戻る] [過去ログ一覧]