#!/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); }
In reply to Re: Re: Crontab error!
by Ozoz
in thread Crontab error!
by Ozoz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |