One problem with a routine...

Junior WebHelper Joined: 08 Feb 2002 Posts: 37

Hi there,

I've got this problem with a routine in Perl. The code goes like this:

Code:

while($line = <FILE>) {
if (length($line) < 2) {
print("<br>");
}
elsif ( ($line =~ /\#/gi) and ($line !~ /Date/gi) ) {
print $line."<br>";
}
elsif( ($line =~ /\#/gi) and ($line =~ /Date/gi) ){#this comparison
&print_header($line);
}
else {
&print_line($line);
}
}

The problem is that all the ifs work except for the one I signed. The line that it reads is in the form "# Date: Monday, 29 of November of 2004".
The comparison doesn't work...The previous one seems to work. If I put, for example, $line =~ /2004/gi intead of /Date/gi, it works!

Any ideas?

Kind regards,

Kepler