Perl problem

[Frenetic_NEO]

Hallo!


Also ich habe vor mir ein Script zu schreiben, das mir eine belibige datei von einem FTP runterläd und mir danacheine E- mail schickt mit: "Sie haben die xx datei runtergeladen..."

Kann mir da wer helfen also mit howtos, scripts etc. ..... ?
Bzw ich hbae keine ahnung wie das mit der mail geht.


Axo klar das script ist total fürn arsch. Da ich ja weiß was ich gezogen habe und mir das nicht nochmal als mail schicken muss aber ich brauche es zu vorführzwecken.




gruss NEO

[Entfernt]

Ist zwar kein Perl:

Code: Select all

#!/bin/sh
wget -c ftp://pr0nserver.com/xxx.jpeg
mail -s "Download fertig" user@host.org <<EOT
Ihr Download ist jetzt fertig, viel Spaß damit
EOT

[user1]

Code: Select all

#!/usr/bin/perl -w
use strict;
use Net::FTP;
use Mail::Sendmail;

$ARGV[0]; =~ /(*)\/(*)/;
my ($server,$file) = ($1,$2);
my $ftp = NET::FTP->new($server)
$ftp->login("anonymous");
$ftp->get($file);

my %mail = (
To => "xxx@xxx.org",
From => "me@xxx.org"
Message => "Nachricht ...."
);

sendmail(%mail);

Keine Ahnung obs läuft hab nur schnell etwas geschrieben....

Gruss user1