- 738 名前：デフォルトの名無しさん [2009/10/07(水) 07:46:29 ]
- >>736
chomp(@d=<>);
for ($i=0;$i<@d-1;$i+=2){
$len=length $d[$i+1];
substr($d[$i+1],rand($len),0)=$d[$i];
print $d[$i+1]."\n";
}
代入型のsubstrって戻り値は代入後の文字列だっけ？
ググっても見つからなかった。
↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました |
Perlについての質問箱 41箱目
| |
read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef