Paul Lalli wrote:

On Oct 5, 9:09 am, [EMAIL PROTECTED] (Robert Hicks) wrote:

The scenario: I have a file with ship id numbers. It gets updated
several times a day (by database query) and I want to find all the
"new_ships" that have been added to it.

sub incremental_update {
     print "Doing incremental update.\n";
     open $FH, '+<', $ships_file or croak "Cannot open $ships_file!\n";

     # Get all the ships in it
     my @ships = do { local $/; <$FH> };

Are you aware each element of @ships has a newline attached?  Is that
what you want?

Not quite! That puts the entire file's contents into one element of
@ships. Try this:

 open my $fh, '<', $ships_file or croak "Cannot open $ships_file: $!";
 chomp (my @ships = <$fh>);
 close $fh;

HTH,

Rob

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to