Perl Net::FTP und <STDIN> / Pipe

Bash, Shell, PHP, Python, Perl, CGI
alexander newald
Posts: 1117
Joined: 2002-09-27 00:54
Location: Hannover

Perl Net::FTP und <STDIN> / Pipe

Post by alexander newald »

Hi,

ich versuche ein kleines Perl Script zu erstellen, welches die Eingabe, welche an das Script gepiped wird, per FTP auf einen FTP Server überträgt.

echo OK | ./ftptest

Code: Select all

#!/usr/bin/perl
use Net::FTP;
my $ftp = Net::FTP->new("127.0.0.1");
$ftp->login("test","passwort");
$ftp->binary;
$ftp->put(<STDIN>,"TEST.tar.gz");
$ftp->quit;
Ich bekomme jedoch den Fehler:
Cannot open Local file OK
: No such file or directory
at ./test.backup line 11
alexander newald
Posts: 1117
Joined: 2002-09-27 00:54
Location: Hannover

Re: Perl Net::FTP und <STDIN> / Pipe

Post by alexander newald »

Ã?h, :oops:

muss ja auch *STDIN heissen, dann gehts...