Thanks a lot, gentlemen. It works great.
Greg
At 11:00 AM 4/27/2000, you wrote:
>Greg Wardawy wrote:
>
> > 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
>
>Try chomping your input line before putting it in the hash. Each hash entry
>has a trailing newline; when you do your compare, $item doesn't have that
>unless it's the last item on the line.
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]