Here's the script. Thx! :)
#!/usr/bin/perl
# Environment Variables
use LWP::Simple;
use CGI qw/:standard :netscape :html3/;
$sonuc="/home/usr254/html/sa/filmler/HeadLine.tlt";
&toplasa1;
exit;
sub toplasa1 {
$elle1= get("http://www.ntvmsnbc.com/news/FILM_front.asp");
# Oncesini sil
$elle1=~ s/^.*<!---Insert_Tertiary_Stories--->//s;
# Sonrasini sil
$elle1=~ s/<!---END Insert_Tertiary_Stories--->.*$//s;
# Gereksiz bosluklari kaldir
$elle1=~ s/\s\s//g;
# Enterlari kaldir
$elle1=~ s/\n//g;
# Returnleri tanimla
$elle1=~ s/<TD WIDTH=13 VALIGN="TOP">/\n/g;
$elle1=~ s/<!---spacing between headlines--->/\n\n/g;
$elle1=~ s/‘/'/g;
$elle1=~ s/’/'/g;
$elle1=~ s/“/"/g;
$elle1=~ s/”/"/g;
# Butun tablari kaldir
$elle1=~ s/<[^>]+>//g;
# Baaas
open(PAGE,">$sonuc") || die("Error $! opening file");
print PAGE $elle1;
close(PAGE);
}
|