Hallo,
next if ($new_line !~ /.*($scantype)$/ );
(Das funktioniert nicht wenn der type-Parameter "all" ist. ".*" kann weggelassen werden.)
next if ($new_line ~ /^.ht/ );
Btw hab ich praktisch keine Ahnung von Perl.
Gruß
Hallo,
next if ($new_line !~ /.*($scantype)$/ );
(Das funktioniert nicht wenn der type-Parameter "all" ist. ".*" kann weggelassen werden.)
next if ($new_line ~ /^.ht/ );
Btw hab ich praktisch keine Ahnung von Perl.
Gruß