Code: Select all
if ( $count le 3 ) { # Finds streams from a series of files
for ($i = 0; $i <= $#filnvn; $i++) { #traverses streamfiles
open(FD, "<$filnvn[$i]") || die ("$0: $!"); #opens files
while(<FD>) { #while loop
if ($_ !~ m/-1/) { #checks viewer number, if -1 its offline.
$view=$_; #sets viewer number
if ($urls[$i] =~ m/streamname/) { #if it matches this stream, output link to stream
print "<<Streamname>> www.justin.tv/streamname ($view Viewers) "; $count=1; #found valid stream, exits
}
}
}
}
}