Need script to take input from file, match on it in file 2 and input data

Shell Programming and Scripting
1

All,

I am trying to figure out a script to run in windows that will allow me to match on First column in file1 to 8th Column in File2 then
Insert file1 column2 to file2 column4 then create a new file.

File1:
12345 Sam
12346 Bob
12347 Bill

File2:
Modify|Samuel|Smith||US|Indianapolis|23|12345
Modify|Robert|Smiley||US|Indianapolis|23|12346
Modify|William|Butterworth||US|Indianapolis|23|12347

So once matched and inserted new file would contain:
Modify|Samuel|Smith|Sam|US|Indianapolis|23|12345|...
Modify|Robert|Smiley|Bob|US|Indianapolis|23|12346
Modify|William|Butterworth|Bill|US|Indianapolis|23|12347

Can I do this in perl or do I need to do it somewhere else?

2

This code in UNIX but if you have virtual machine on windows (Linux system) you can use it ....also instead of nawk (if not available) you can use gawk or /usr/xpg4/bin/awk...

nawk -v OFS="|" 'NR==FNR {a[$1]=$2 ; next}
($8 in a ){print $1,$2,$3,a[$8],$5,$6,$7,$8 ; next} {print $0}
' FS=" " file1 FS="|" file2

BR