[perl] scp d'un fichier

Bonjour,
je voudrais faire une copie d'un fichier entre deux machines.
seul protocole autorisé ssh.
Faut-il utiliser system ou le module scp de perl.
Avez-vous des exemples de copie d'un fichier ?
Il faudrait que la copie se fasse sans mot de passe.
Faut-il que je créé un jeu de clés ?
En scp (via use Net::SCP qw(scp iscp)) comment faire ?
Merci.

La doc de Net::SCP dit :

Citation:

---

Q: How do you supply a password to connect with ssh within a perl script using the Net::SSH module?

A: You don't. Use RSA or DSA keys. See the ssh-keygen(1) manpage.

---

--
Jedaï

Utilise le module plutôt qu'un appel à système, cela vaut toujours mieux ;)

Comme exemple de transfert de fichier, en voilà un :

Code:

---

1 2 3 4 5 6 7

use Net::SCP qw(scp iscp);   my $source = '/rep/sousrep/'; my $destination = '/rep/sousrep/'; my $scp = Net::SCP->new( "hostname", "username" ); $scp->scp($source, $destination); $scp->quit;

---

Pour tes autres questions, elles sont propres à SSH... Comment se présente la situation ? Tu dois tout faire (installer le serveur etc) ?

Bonjour,
j'ai bien lancé le keygen et renseigné la clé publique sur le poste distant.

Quand je lance :
scp titi marcel@adresseip:toto -> la copie du fichier est ok.

En perl :

system ("scp titi marcel\@adresseip:toto"); -> ok

et
my $source = '$path/titi';
my $destination = 'testscp';
my $scp = Net::SCP->new( "adresseip", "marcel" );
$scp->scp($source, $destination);

rien !

ok avec :
#Net::FTP-style
$doublons="$path/titi";

$scp = Net::SCP->new("adresseip");
$scp->login("marcel");
$scp->cwd("/home/marcel");
$scp->size("$doublons");
$scp->put("$doublons");

Merci