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

---

40: perlだけど 02/04/25 19:39 AAS
&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;
}

---

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

---

あと 139 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.003s