I've modified Douglas' code as following:
my %nostock;
while (<NOSTOCK>) {
s/,.*//;
$nostock{$_}= 1;
print;
}
while (<ORD>) {
my ($item) = (split(/,/))[4];
print unless $nostock{$item};
}
but the output I got is:
PENFUZZY # it's in the hash
FNWDISPLAY
HAVCASTLE
HAVCONSTRUCTION
HAVEASYFAMILY
HAVMASTERCKDLX
MERNEWBAKING
MORHORSD
STRSMALL
TLCELMOART
TLCLITTLEBEAR
TLCMADELINE
WARLITTLEMEALS
3,1000000005,R496055,348,PENFUZZY,11.99,1,04,25,00 # it shouldn't be
printed
3,1000000005,R496055,348,RDPILOT,7.99,1,04,25,00
3,1000000005,R496055,351,HOUWHERE,4.95,1,04,25,00
3,1000000005,R496055,351,PENDINNER,6.95,1,04,25,00
3,1000000005,R496055,351,RANONEFISH,8.95,1,04,25,00
3,1000000005,R496055,351,SIMCHEERIOS,5.99,1,04,25,00
What am I doing wrong? Can somebody explain it me? TIA.
Greg
---
You are currently subscribed to perl-win32-users as: [[email protected]]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
