anti — Tue, 17 Aug 1999 04:05:00 +0000

Hi,

change the
unless($X eq $Y){
to
unless($line =~ /stock/){

and you have what you wanted.

ciao
Anti

Fazer84 — Sat, 07 Aug 1999 03:20:00 +0000

Hi-
What do I place in the CRITERIA comment spot? Remember, I'm a newbie

----------
Casey Hansen
www.caseynet.com

Ted Sindzinski — Fri, 06 Aug 1999 20:14:00 +0000

open(USERS,"./dc/users.txt" ) ;
@users=<USERS>;
close(USERS);

open(USERS,">./dc/users.txt" ) ¦¦ &error("Unable to write to ./dc/users.txt" ) ;
foreach $line (@users) {
# PLACE CRITERIA HERE
unless ($X eq $Y) {
print USERS $line;
}
}
close(USERS);

----------
Ted Sindzinski
www.infinityinternet.com www.solutionscripts.com

<<edited by Patrick Baer, to take out the smileys>>

Fazer84 — Fri, 06 Aug 1999 03:38:00 +0000

Hi-
Could you please give me the full code to do this? (I am still kind of new to PERL) THANKS!

----------
Casey Hansen
www.caseynet.com