Reinhard Mantey wrote:
> undef $/;
> my $input = <>;
> my $pkg_filename = "longnames.txt";
>
> open(FH, "> $pkg_filename") or die "could not create $pkg_filename";
> while ($input =~ m/.../) {
What is your actual regex? At a minimum, you'll need /g modifier. You may
need /m and/or /s as well.
> print $1;
> FH->print("$1\n") or die "could not write to $pkg_filename";
> }
> FH->close() or die "could not close $pkg_filename";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
