Beefy Boxes and Bandwidth Generously Provided by pair Networks
RobOMonk Do you know where your variables are?  Comment on  With
lots of assumptions... use warnings; use strict; use
File::Basename qw(fileparse); use File::Slurp qw(slurp); for my
$fin (glob '*.in') { my $fout = (fileparse($fin, qr/\.in/))[0] .
'.out'; my @ins = slurp($fin); my @outs = slurp($fout); my
$id_in = (split /\s+/, $ins [3])[5]; my $id_out = (split /\s+/,
$outs[1])[4] . '0'; if ($id_in eq $id_out) { print "match\n"; }
else { print "no match\n"; } }  In reply to Re: Find a file with
same name but different extension by toolic in thread Find a
file with same name but different extension by Jalcock501  and: 
<code> code here </code>    • Please read these before you post!
—             For:     Use:     & &amp;     < &lt;     > &gt;
[ &#91;     ] &#93;   • Log In?      What's my password?
Create A New User     and the web crawler heard nothing...
How do I use this? | Other CB clients     Other Users?
Others musing on the