Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^2: Outer Join on 2 files

by FreeBeerReekingMonk (Deacon)
on Apr 18, 2015 at 08:40 UTC ( [id://1123860]=note: print w/replies, xml ) Need Help??


in reply to Re: Outer Join on 2 files
in thread Outer Join on 2 files

...or not... here is the way to fetch it on index

use strict; use warnings; my $File_Deal = $ARGV[0]; my $File_ATT = $ARGV[1]; open(F1, "<", $File_Deal) or die $!; my $header_line; my @header_array; # File_Deal header, throw away chomp( $header_line = <F1> ); my %hash = (); while( <F1> ) { chomp; my @values = split(/\|/, $_); # 0=parent_cusp|1=cusp|2=isin|3=deal|4=tranche|5=det_date|6=col_type my $key = $values[1-1] . $values[4-1] . $values[5-1]; print "key=$key is ( @values )\n"; }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1123860]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2024-03-29 05:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found