hello world
----- Original Message -----
From: McCormick, Rob E <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, April 30, 2001 11:10 PM
Subject: open file, find lines and print to a second file....
> gang,
>
> # problem: open a file
> # find lines that meet a condition, put them in an output file
>
> Could you share some patterns/sample code that you use to accomplish this
> task? What pattern do you use when the output file doesn't exist when the
> script begins?
>
> The code below errors with:
> C:\WINNT\Profiles\rem27920\Desktop\perl>remove_lines.pl
> syntax error at C:\WINNT\Profiles\rem\Desktop\perl\remove_lines.pl line 7,
> near ", >"
> Execution of C:\WINNT\Profiles\rem\Desktop\perl\remove_lines.pl aborted
due
> to compilation
> errors.
>
> #!c:/perl/bin/perl -w
> use strict;
>
> my $file = 'c:/winnt/profiles/rem/desktop/old_websites.txt';
> my $outfile = 'c:/winnt/profiles/rem/desktop/old_web2.txt';
> open(INFO, "$file") or die "$!"; # file open w/error check
> open(RESULT, >$outfile); # tried "$outfile" as well...
> my @lines = grep { ! /_vti_cnf/ } <INFO>;
> while (<INFO>) {
> print RESULT;
> }
>
> #print (@lines, $outfile ); # prints lines to STDOUT, and the filename
> # print (join "\n", @lines); # print files, one per line
>
> close INFO;
> close RESULT;
>
> thank you,
> Rob
> --
> Rob McCormick
> [EMAIL PROTECTED]
>
>
