Da li neko moze da mi kaze kako da neku web stranicu (npr. pocetnu stranicu yahoo-a) uz pomoc perl-a ucitam u jedan fajl?
Ucitavanje u fajl
Zaključano
Zakačeno
Uz pomoc modula LWP::UserAgent. imas info na search.cpan.org.
#!/usr/bin/perl
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("Ventura browser");
$adresa = "http://www.yahoo.com/";
$req = new HTTP::Request 'GET' => $adresa;
$req->header('Accept' => 'text/html');
$res = $ua->request($req);
if ($res->is_success) {
$file = $res->content;
} else {
print "Error: " . $res->code . " " . $res->message;
}
print "$file\n";
[Ovu poruku je menjao ventura dana 04-13-2001 u 03:27 PM GMT]
#!/usr/bin/perl
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("Ventura browser");
$adresa = "http://www.yahoo.com/";
$req = new HTTP::Request 'GET' => $adresa;
$req->header('Accept' => 'text/html');
$res = $ua->request($req);
if ($res->is_success) {
$file = $res->content;
} else {
print "Error: " . $res->code . " " . $res->message;
}
print "$file\n";
[Ovu poruku je menjao ventura dana 04-13-2001 u 03:27 PM GMT]
Jos lakse, sa LWP::Simple :
Code:
#!/bin/perl
use LWP::Simple;
$url = 'http://www.yahoo.com';
$localfile = 'test.txt';
$document = get($url) or do
{
print "Nista od get-a.." ;
exit (0) ;
} ;
@document = split /\n/, $document;
open(LOCALFILE,">$localfile") || die;
flock(LOCALFILE,2);
print $line;
foreach $line (@document)
{
print LOCALFILE "$line\n";
}
flock(LOCALFILE,8);
close(LOCALFILE);
#!/bin/perl
use LWP::Simple;
$url = 'http://www.yahoo.com';
$localfile = 'test.txt';
$document = get($url) or do
{
print "Nista od get-a.." ;
exit (0) ;
} ;
@document = split /\n/, $document;
open(LOCALFILE,">$localfile") || die;
flock(LOCALFILE,2);
print $line;
foreach $line (@document)
{
print LOCALFILE "$line\n";
}
flock(LOCALFILE,8);
close(LOCALFILE);
Hvala!