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};
> }
Well, if that's really what your code looks like, then it's not
surprising
it doesn't work.
How did the newlines get in the first printout lines? My guess is that
they're
in your hash.
What happens if you try:
while (<NOSTOCK>) {
chomp; # add this
s/,.*//;
--
Ned Konz
currently: Stanwood, WA
email: [EMAIL PROTECTED]
homepage: http://www.bike-nomad.com
---
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]
