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

---

300(1): 2014/06/12(木)13:15 ID:qt4Roz23(1) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
300: [sage] 2014/06/12(木) 13:15:46.45 ID:qt4Roz23 恰好をつけるなら、リングバッファでも書くところですが、回答としては、あんまりだと思ったので。 2行固定なら、別に使わなくても。 perl -ne '($_, $x, $y) = ($x, $y, $_); $y =~ /dog/ && /市民/ && print' File 何も考えなくていいなら、正規表現でバッサリ。 perl -e 'print((local $/ = <>) =~ /(^.*市民.*\n).*\n.*dog/gm)' File http://mevius.5ch.net/test/read.cgi/tech/1349538519/300
恰好をつけるならリングバッファでも書くところですが回答としてはあんまりだと思ったので 行固定なら別に使わなくても 市民 何も考えなくていいなら正規表現でバッサリ 市民

---

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

---

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

---

ぬこの手 ぬこTOP 0.021s