Zeile 40
print OutFile @data if (join('', @data) =~ /das_muss_auch_drin_vorkommen/);
EDIT:
Mit neuerem Perl auch (sollt schneller sein)
print OutFile @data if (@data ~~ /das_muss_auch_drin_vorkommen/);
Last edited: 2012-08-09 11:34:48 +0200 (CEST)
1 + 1 = 10