>>755 あぁ、ごめん。741だけど > 代入型のsubstr この部分に全く目がいってなかったわ my $result = (substr($d[$i+1],rand($len),0)=$d[$i]); この$resultがどうなるかって意味だよね？それなら載ってないかも。俺が普段この書き方しないから空目した
自分で>>735を書くとしたら下のような感じかなぁ my $str =<< "STR"; abcdef\n123456\nghijklmn\n78910223 STR warn $str; my @res; my @lines = split /\n/, $str; while (@lines) { my $line1 = shift @lines; my $line2 = shift @lines;
