Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Ucitavanje u fajl

[es] :: Perl :: Ucitavanje u fajl

[ Pregleda: 2752 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Dragoslav Krunić

Član broj: 225
Poruke: 1083
*.beograd-3.tehnicom.net



Profil

icon Ucitavanje u fajl13.04.2001. u 18:11 - pre 249 meseci
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?
 
Odgovor na temu

ventura

Član broj: 32
Poruke: 7781
*.brick.net



+6455 Profil

icon Re: Ucitavanje u fajl13.04.2001. u 22:25 - pre 249 meseci
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]
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+163 Profil

icon Re: Ucitavanje u fajl14.04.2001. u 01:24 - pre 249 meseci
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);

 
Odgovor na temu

Dragoslav Krunić

Član broj: 225
Poruke: 1083
*.beograd-3.tehnicom.net



Profil

icon Re: Ucitavanje u fajl14.04.2001. u 09:53 - pre 249 meseci
Hvala!
 
Odgovor na temu

[es] :: Perl :: Ucitavanje u fajl

[ Pregleda: 2752 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.