Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
295(2): デフォルトの名無しさん [sage] 2014/06/10(火)12:30 ID:zpbxFFHG(1/2)
http://s1.gazo.cc/up/88224.jpg
こういった10行で一組のデータの中に
---
市民の...
yerles
warrior
---
というパターンが多くあります。
マッチ検索したいのは
---
市民の...
dog
warrior
---
というパターンです。
"市民"という文字を見つけたら
2行下に
"dog"という文字があるならば
その、"市民の..."を出力して欲しいです。
ファイル読んで単純マッチするぐらいしか今はできません
open (my $in , "<" , "./cdatan_5_101.s2");
while (<in>){
if (/yerles/){print "matched\n"}
}
close $in;
}
298: デフォルトの名無しさん [sage] 2014/06/10(火)14:45 ID:zpbxFFHG(2/2)
凄い。ありがとう。
出てきたshiftとか勉強してみます
感謝
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.030s