Yes, we didn't even think about that until after someone else on this list mentioned
it. We fixed it.
John Pitchko
Data Services
Saskatchewan Government Insurance
>>> "Shawn" <[EMAIL PROTECTED]> 07/12/02 04:07am >>>
my $title;
open (FH, HTML_HOME . $directory . $content) or die "Cannot open file : $!";
while (<FH>){
chomp;
$title=m/<title>(.*)<\/title>/i?$1:$content;
}
print $title;
But, I don't see how this will work to well if this file has more than one line
(unless the title tag is on the last line of the file...) You are iterating over
every line, and constantly replacing $title with each pass...
Maybe add this below the $title=m/...:
last if($title ne $content);
Shawn
----- Original Message -----
From: "John Pitchko" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, July 08, 2002 11:57 AM
Subject: Ternary Regex Evaluation
Hello,
I am trying to do some pattern matching in a ternary evaluation, but it does not seem
to work. If I place the regex into a structured if statement, it evaluates fine, but
not in a ternary evaluation. Here is what I have so far.
my $title;
...
...
...
open FH, HTML_HOME . $directory . $content or die "Cannot open file : $!";
while (<FH>)
{
chomp;
(m/<title>(.*)<\/title>/i) ? $title = $1 : $title = $content;
}
print $title;
Does anyone have any suggestions?
TIA
John Pitchko
Data Services
Saskatchewan Government Insurance
