Discussion :

[falco-]

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.

[Jedai]

La doc de Net::SCP dit :

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ï

[Woufeil]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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) ?

[falco-]

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