uatt — Mon, 14 Jan 2002 23:41:00 +0000

My final solution and making use slternation concept in grep
i.e. $line=~/(00|15|29|44|33)$/; will go further.......
#!usr/bin/perl
print "Content-type: text/html\n\n";

@matching_num=qw(00 15 29 44 33)
$alternate_choice=join ("|", @matching_num);
open(FILE, "$filename");
@all = ;
while (@all){
chomp ;
if(/(\D)/){print"It should input numbers";exit 0;}
else{print "$_\n" if /($alternate_choice)$/;}
}
close(FILE);

Thanks for everyone's response...

Wil — Mon, 14 Jan 2002 20:25:47 +0000

\d+ is going to be far less greedy.

But I would just omit this part altogether. We're assuming that all lines are numbers in the same format. Why just not use

if ($line =~ /\$num$/) {
..

Cheers

cmix — Mon, 14 Jan 2002 19:12:10 +0000

After more thought...

I would change this:
if ($line=~ /\d*\$num$/) {
to:
if ($line=~ /^(\d)*($num)$/) {
for better readability, and, just in case ^(\d)* is too greedy, I would change it further to:
if ( ($line=~ /^(\d)*/) && ($line=~ /($num)$/) ) {

print "$line\n";

} # end if

cmix — Mon, 14 Jan 2002 18:46:59 +0000

#!usr/bin/perl
print "Content-type: text/html\n\n";

@matching_num=qw(00 15 29 44 33)

open(FILE, "$filename");
@all = ;
close(FILE);

foreach $line (@all){
chomp $line; # not sure about this
foreach $num (@matching_num){
# I think you need an IF statement
if ($line=~ /\d*\$num$/) { print "$line\n"; }
}# end foreach
} # end foreach