Search Results

something along these lines.
# default 2 keys
nawk -f gp.awk file1 file2
#
# with 3 keys
nawk -v keys=3 -f gp.awk file1 file2

gp.awk:

BEGIN {
FS=OFS=","
if (!keys) keys=2
}
{...

nawk -f gp.awk file1 file2

gp.awk:

BEGIN {
FS=OFS=","
}
{ idx = $1 OFS $2 }
FNR==NR { f1[idx]=$0;next}
idx in f1 {
n=split(f1[idx],a,FS)
for(i=3;i<=NF;i++)
print idx,a[i], $i,...

Here is a simple way:


open FIRFILE "file1.txt" or die "Unable to open file: [$!]";
open SECFILE "file2.txt" or die "Unable to open file: [$!]";

# Start with empty hashes
my %firHash = ();...

About reading a configuration file, you can check this link: How to read a configuration file with Perl | devdaily.com (http://www.devdaily.com/blog/post/perl/how-read-configuration-data-file-perl)
...