Re^4: Perl delete function


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re^4: Perl delete function

by annel (Novice)

on Dec 23, 2013 at 07:03 UTC ( #1068148=note: print w/replies, xml )

Need Help??

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:

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;
    }
}
[download]

But the error occurs when file 1 contains one line and file 2 contains 2 lines.

Comment on Re^4: Perl delete function Download Code

Replies are listed 'Best First'.
Re^5: Perl delete function by hdb (Monsignor) on Dec 23, 2013 at 07:19 UTC
You need to determine the size of the smaller array and restrict the loop accordingly. `my $size = @data1 < @data2 ? @data1 : @data2;` [download]	[reply] [d/l]
Re^6: Perl delete function by annel (Novice) on Dec 23, 2013 at 07:39 UTC
Thanks for the tips. It works.	[reply]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1068148]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others romping around the Monastery: (5)

As of 2023-03-31 21:47 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?