[ Dragoslav Krunić @ 13.04.2001. 18:11 ] @
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?
[ ventura @ 13.04.2001. 22:25 ] @
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]
[ Gojko Vujovic @ 14.04.2001. 01:24 ] @
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);

[ Dragoslav Krunić @ 14.04.2001. 09:53 ] @
Hvala!