Maksudnya Ngegrep ?? Install dulu modul LWP, Ini saya kasih contoh program nge-grab : Setelah file hasil grab di simpan, maka dilakukan proses grep tahap dua , Nanti aja yaaaaa.....
#!/usr/bin/perl $sasaran = $ARGV[0]; $simpan = $ARGV[1]; $sasaran = 'http://www.tempointeraktif.com/index,uk.asp'; $simpan = "/rwxrwxrwx_direktory/tempo.dat"; use LWP::UserAgent; # Create a user agent object $ua = new LWP::UserAgent; $ua->agent("Mozilla/0.1 " . $ua->agent); my $req = new HTTP::Request GET => $sasaran; $req->content_type('application/x-www-form-urlencoded'); my $res = $ua->request($req); # Pass request to the user agent and get a response back if ($res->is_success) { # Check the outcome of the response #print "SUCCESS !\n"; open(News,">$simpan") ||die "enggak bisa buka file"; print News $res->content; close(News); exit; } elsif ($ua->credentials($netloc, $realm, $uname, $pass)) { print "SUCCESS, But It Need Password !\n"; } else { print "Bad luck this time\n"; } --boot-- On Sun, 27 Jan 2002 18:25:16 -0800 (PST) my dida <[EMAIL PROTECTED]> wrote: > salam sejahtera > Saya ingin masukan headlines kompas, atau majalah > online-lainnya ke phpnuke... biar rame info loka > selain bawaan dari phpnuke.. ada yang udah nyoba. > tolong bagi-bagi pengalamannya dong .. > > salam lagi > > ddr > -- Utk berhenti langganan, kirim email ke [EMAIL PROTECTED] Informasi arsip di http://www.linux.or.id/milis.php3
