Kenosis
User
Feb 26, 2013, 11:37 AM
Post #6 of 6
(205 views)
|
Building upon the wisdom of BillKSmith and Laurent_R, consider the following which uses File::Slurp (only to easily handle the file i/o) and Test::More (to do a 'deep' comparison of the two hash structures built from the two files):
use strict;
use warnings;
use File::Slurp qw/read_file/;
use Test::More tests => 1;
my ( %file1, %file2 );
do { chomp; $file1{$_}++ } for read_file 'file1.txt';
do { chomp; $file2{$_}++ } for read_file 'file2.txt';
is_deeply( \%file1, \%file2 );
Output if different:
1..1
not ok 1
# Failed test at ... line 11.
# Structures begin differing at:
# $got->{123} = '1'
# $expected->{123} = Does not exist
# Looks like you failed 1 test of 1.
(This post was edited by Kenosis on Feb 26, 2013, 11:39 AM)
|
MAIN
SEARCH
WHO'S 
LOG 