in reply to Re^3: Perl delete function
in thread Perl delete function
Yes, I would like to compare the arrays one by one by position.
I have attempted following:
But the error occurs when file 1 contains one line and file 2 contains 2 lines.use strict; use warnings; open (FILE, "a") or die "Unable to open ref file.\n"; my @data1 =<FILE> ; close(FILE); open (FILE, "b") or die "Unable to open new file.\n"; my @data2 =<FILE> ; close(FILE); my $i; for( $i = 0; $i < 2; $i++){ if ($data1[$i] ne $data2[$i]){ print "Mismatch for $data1[$i] and $data2[$i]\n"; exit; } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: Perl delete function
by hdb (Monsignor) on Dec 23, 2013 at 07:19 UTC | |
by annel (Novice) on Dec 23, 2013 at 07:39 UTC |
In Section
Seekers of Perl Wisdom