Re: matching twof files and print the output

[jwkrahn]

#!/usr/bin/perl
use warnings;
use strict;


( my ( $file_1, $file_2 ) = @ARGV ) == 2 or die "usage: $0 file_1 file
+_2\n";


my $data = do {
    local $/;
    open my $FH, '<', $file_2 or die "Cannot open '$file_2' $!";
    <$FH>;
    };

open my $FH, '<', $file_1 or die "Cannot open '$file_1' $!";
open my $WRITE, '>', 'output.txt' or die "Cannot open 'output.txt' $!"
+;

$\ = $/;
while ( <$FH> ) {
    chomp;
    next unless /\S/;
    print $WRITE $data =~ /($_)\s+\d+(\s+\S+)/;
    }

__END__