Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新

---

338(1): 2014/11/14(金)06:59 ID:Ul+u6aQZ(1) AA×
>>334


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
338: [sage] 2014/11/14(金) 06:59:52.41 ID:Ul+u6aQZ >>334 use 5.016; use warnings; my $boundary = qr/^#+\s+\d+\s+#+\s*$/; open(my $in, "<", "original.txt") or die; my @data; my $chunk = ''; while(<$in>){ if (/$boundary/ and (length($chunk) > 0)){ push @data, $chunk; $chunk = ''; } $chunk .= $_; } if (length($chunk) > 0){ push @data, $chunk; } $in->close; open(my $out, ">", "output.txt") or die; $out->print(reverse @data); $out->close; http://mevius.5ch.net/test/read.cgi/tech/1349538519/338

---

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

---

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

---

ぬこの手 ぬこTOP 0.025s