- ベストアンサー
perlで複数行のデータから特定の行をカンマ区切りで出力する方法
- perlを使用して、複数行のデータから特定の行をカンマ区切りで出力したい場合、文字列のマッチングを試しても期待する結果が得られないことがあります。
- 代わりに、正規表現を使用してマッチングを行うことができます。特定のパターンに一致する行を抽出し、カンマで区切った形式に変換することで、目的の出力を得ることができます。
- 以下のようなコードを使用することで、目的の出力を実現することができます。 ``` open(my $file, '<', 'ファイル名') or die $!; while (my $line = <$file>) { if ($line =~ /特定のパターン/) { $line =~ s/特定のパターン/置換する文字列/; print $line; } } close($file); ```
- atwebhgtdre
- お礼率50% (1/2)
- Perl
- 回答数2
- ありがとう数14
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- kmee
- ベストアンサー率55% (1857/3366)
具体的にどうやってだめだったのでしょうか? 例えば。 /[2013/07/10 00:00:00]/ みたいにしようとすると。 ○[]は、「その中にある文字のうちのどれかにマッチ」という表現になるので、[という文字自体にはマッチしない ○ この場合 / は正規表現の区切りに使われているので、 / という文字列にマッチしない となります。特殊な文字(メタ文字)は、\を付けると、その特殊な意味を失います /\[2013\/07\/10 00:00:00\]/ また、区切りは、変更できます m|\[2013/07\/10 00:00:00\]| http://perldoc.jp/docs/perl/perlop.pod#Regexp32Quote-Like32Operators
補足
早速の回答ありがとうございます。 マッチについてはまさにその部分で躓いておりました。ご助言いただいたことを参考に下のようなスクリプトをかいてみました。 open(IN,"in.txt") or die "失敗"; open(OUT,">out.txt") or die "失敗"; while (<IN>){ print OUT if /---/; print OUT if /\[/ | s/[\[\].・]//g; } close(IN); close(OUT); 結果：out.txt ---あああああああああああああ---------------- 2013/07/10 00:00:00 ええええ 2013/07/10 00:00:01 おおおお しかし、この記述の仕方では当然ながらカンマ区切りで出力することはできません。[が含まれる行だけを抽出して配列に格納し、それぞれ必要な要素に分割して出力しようとしましたが、記述の仕方等問題がありエラーになってしまいました。 そのあたりの方法についても教えていただければ幸いです。
お礼
ありがとうございました。おかげさまで期待通りの結果を出力することができました。 perl自体初めてでしたので戸惑うことが多かったのですが、丁寧に解説していただきそれぞれの記号が持つ意味、正規表現の仕方の一端を理解することができました。 今後もperlを使用する場面が少なからずあると思うので、地道に勉強していきたいと思います。 今回は本当にありがとうございました。