68user's page 掲示板

Prev< No. 2694> Next  [最新発言に戻る] [過去ログ一覧]
No. 2694 # 名無しさん 2002/05/17 (金) 14:21:57
自分で書いてみた。

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

my @result = map {
                my @tmp = split(/<>/);
                shift(@tmp) if $tmp[0] eq '';
                @tmp;
        } @target;


foreach (@result) {
        print "<>$_\n";
}
Prev< No. 2694> Next  [最新発言に戻る] [過去ログ一覧]