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

---

98: 2012/11/13(火)22:28 AA×


[240|320|480|600|原寸|JPG|べ|ﾚｽ栞|ﾚｽ消]
98: [sage] 2012/11/13(火) 22:28:35.29 perl -e ' use utf8; while (<>) { if (/\d+月\d+日のお知らせ！/) { last; }; #skip the line; }; while (<>) { if (/-----/) { last; }; s/^\s+//; { no utf8; s/^(?:　)+//; } print; }' http://mevius.5ch.net/test/read.cgi/tech/1349538519/98
月日のお知らせ！

---

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

---

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

---

ぬこの手 ぬこTOP 0.022s