Entfernte Datei einlesen: Entfernte Datei einlesen (Perl/CGI)

[thread]84[/thread]

Entfernte Datei einlesen: Entfernte Datei einlesen

Gast Gast

2003-10-30 14:15

Hi Ihr,

wie kann ich Dateien (z.B. http://servername.tld/dateiname.txt) die auf einem anderen Server liegen in Perl einlesen?

Ich habs schon ganz "normal" mit open(FILE "<http://......"); versucht, leider ohne erfolg.

Wie tun?

Danke.

Tom

format_c

2003-10-30 14:18

User since
2003-08-04
1706 Artikel
HausmeisterIn

perldoc LWP

Gruß Alex

Effizente Linuxshell

Dubu

2003-10-31 00:20

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Perl ist eben nicht PHP. ;)

Relais

2003-10-31 02:56

User since
2003-08-06
2244 Artikel
ModeratorIn

LWP::Simple
bzw. perldoc LWP::Simple

Erst denken, dann posten --
26. Deutscher Perl- u. Raku -Workshop 15. bis 17.04.2024 in Frankfurt/M.

Winter is Coming

[E|B]

2003-10-31 11:36

User since
2003-08-08
2561 Artikel
HausmeisterIn

... und damit's noch einfacher ist, eben noch schnell ein Codestückelchen: ;)

Code: (dl )

use LWP::Simple;

print "Content-type: text/html\n\n";
print get("http://www.servername.tld/dateiname.txt");

Perl can be so easy! 8)\n\n

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

2003-10-31 12:57

User since
2003-08-04
12208 Artikel
Admin1

[E|B

,31.10.2003, 10:36]

Code: (dl )

use LWP::Simple;

print "Content-type: text/html\n\n";
print get("http://www.servername.tld/dateiname.txt");

irgendeinen besonderen grund, warum du nicht getprint()
anstatt print get() verwendest?

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

esskar

2003-10-31 13:05

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

wahrscheinlich weil er damit zeigen möchte, dass man an statt print get(...) auch my $get = get(...); schreiben kann...
bei getprint(...) hätte das nicht diesen effekt gehabt

View all threads created 2003-10-30 14:15.