Steven Massey wrote:
> Hi all
>
> perl script below works, and does what I hoped it would, but I don't seem
> to understand how to get it to print out the result to a new file as
> opposed to stdout.
>
> Thanks for any help
>
> #!/usr/bin/perl -w
> use strict;
> use HTML::Parser;
>
> open(OUT,
On Fri, 7 Mar 2003 16:42:39 +, [EMAIL PROTECTED] wrote:
> Hi all
>
> perl script below works, and does what I hoped it would, but I don't seem
> to understand how to get it to print out the result to a new file as
> opposed to stdout.
>
> Tha
> Hi all
>
> perl script below works, and does what I hoped it would, but
> I don't seem to understand how to get it to print out the
> result to a new file as opposed to stdout.
>
> Thanks for any help
>
> #!/usr/bin/perl -w
> use strict;
> use HTML::Parser;
>
> open(OUT, ">/share/file1")
You need to specify the filehandle when you print, the default is STDOUT.
text_h => [sub{ print OUT shift;}, 'dtext'],
start_h => [sub{ print OUT shift;}, 'text'],
end_h=> [sub{ print OUT shift;}, 'text']);
...At least I think that should work.
Rob
-Original Message-
From: [EMAIL
