Greetings to all,
I am new in this list. My problem is slighty off
topic but I think you are perl gurus. I have the
following code fragment. I want to check if @rec
contains the string "Unknown" but when I do so the
program is very very slow (this process 6M file into
@rec array). Is there any other away to rewrite this
code?
TIA
Ben
.
.
.
for ($i = 0; $i < scalar(@rec); $i++)
{
$rec[$i] = '"'.$rec[$i].'"';
}
if($rec[16] eq '"Unknown"')
{
Alert_Unknown_ChannelID($rec[0]);
}
else
{
my $out = join(',', @rec) . "\n";
print (G $out);
}
}
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
