Perl Net::FTP und <STDIN> / Pipe

[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]

Ã?h, :oops:

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