【コマンド】2chコマンド作ってよ【/usr/bin/2ch】 (179ﾚｽ)
上下前次1-新

---

40: perlだけど 02/04/25 19:39 AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
40: perlだけど [sage] 02/04/25 19:39 &aaa($niget); sub aaa { local($frames) = @_; @lines = split /\n/, $frames; $linenum = @lines; $fnum = 0; $lnum = 0; for ($i = 0; $i < $linenum; $i++) { $_ = $lines[$i]; if (/^[0-9]/) { $bline = &bs($lnum); $aaf[$fnum][$lnum-1] .= $bline; $fnum++; $lnum = 0; } elsif ($lines[$i] eq "E") { $bline = &bs($lnum); $aaf[$fnum][$lnum-1] .= $bline; $fnum++; } else { $aaf[$fnum][$lnum] = $lines[$i] . "\n"; $lnum++; } } for ($i=0;$i<$fnum;$i++) { for($j=0;$j<300;$j++) { for ($k=0;$k<$lnum;$k++) { print $aaf[$i][$k]; } } } } sub bs { local($num) = @_; local($bs) = ""; local($i); for ($i = 0; $i < $num; $i++) { $bs = $bs . "A\r"; } return $bs; } http://mevius.5ch.net/test/read.cgi/unix/1019380983/40

---

上下前次1-新書関写板覧索設栞歴

---

あと 139 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.043s