tranfert par ftp

Version imprimable

04/07/2007, 15h18
sorilazer

tranfert par ftp

Salut tt le monde.

Je suis entrain de developper une appli en perl version4 :oops: Une version qui ne veut presque rien comprendre bof :pc:
Maintenant j'ai un soucis je ne sai pas comment transferer un fichier par ftp??
Si quelqu'un pour me donner une solution. Urgent!!!!

En faite j'ai trouvé ce code sur le net, mais il me semble que perl4 ne connait pas la biblio NET::FTP.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use NET::FTP;      
$FTP_HOST= "host"; 
$FTP_USER = "user";
$FTP_PASSWORD = "pass";
$FTP_REP_DISTANT= "/path/to/";
$filename = "myFile"; 
$ftp = Net::FTP->new($FTP_HOST, Debug => 0)
   or die "Cannot connect to $FTP_HOST: $@";
$ftp->login($FTP_USER,$FTP_PASSWORD)
   or die "Cannot login ", $ftp->message;
$ftp->put($filename)
   or die "WARNING:: Erreur lors de l'envoi du fichier\n", 
$ftp->message; 
$ftp->quit;

Est ce un problem venant de perl4? ou un beug dans le code??

04/07/2007, 16h55
Woufeil

Bonjour,

Et bien, Perl 4 ne supporte pas la POO, et Net::FTP l'utilise... Donc le problème vient bien de Perl 4 (je n'ai pas regardé le code, donc il est peut être faux aussi)
04/07/2007, 17h11
sorilazer

malheurement ma kestion n'a ete abordé dans la FAQ. en plus j'ai des contraintes par rapport à perl4 que j'utilise. L'entreprise l'impose.
Je demande maintenant si on peut contourner le probleme puisque perl4 pas n'accepte la POO.

:oops: Pas tjr resolu, je suis a la recherche. j'ai :oops:
04/07/2007, 17h40
djibril

y a vraiment pas moyen de mettre à jour le perl? Car traivailler sur une version aussi vielle de Perl est un peu dangereux!
Tu perds une grande efficacité des modules de Perl en travaillant sous perl 4
05/07/2007, 00h16
sorilazer

C'est un vrai probleme. l'entreprise ne veut pas mettre a jour perl. En faite je dois mettre le script perl sur des serveurs sur lesquel perl4 est installé. Ce sont de gros server unix de production, dont leur mise a jour demande d'autres dependance, donc raison pour laquelle l'entreprise m'oblige perl4.
ET OUI C CA :oops:
05/07/2007, 00h30
Jedai

Perl5 a dans les dix ans d'âge (la 5.0 a 13 ans)... C'est ridicule d'utiliser encore Perl4 aujourd'hui ! Ca ne fait vraiment pas professionnel, explique le à ta compagnie.
Il nous sera difficile de t'aider car même si le langage est encore compatible dans le ses ascendant (du Perl4 peut tourner sur un interpréteur Perl5 sans trop de modifications), ce n'est pas le cas dans l'autre sens, beaucoup des constructions que nous utiliserions naturellement ne serait pas compatible avec ton Perl. De plus les librairies (aujourd'hui on parle plutôt de modules, leur extension a changé, et on ne les importe plus de la même façon) ont pas mal changées...

En bref, je peux peut-être t'aider à débuguer un code que tu nous présentes, mais sans doute pas te faire des suggestions valables sur la façon de faire telle ou telle chose.

--
Jedaï
05/07/2007, 10h09
sorilazer

Pour l'instant l'utilisation de la mise à jour est impossible pour la compagnie. Est ce possible d'executer un script sh dans script perl?
En faite je voudrai faire un script sh à part qui s'occupera du tranfert par ftp ensuite appeler ce script dans mon programme perl. Est ce cela possible??. Pour l'instant je n'ai pas trouver de solution :oops:
05/07/2007, 12h26
Woufeil

Je suppose (mais ce n'est qu'une supposition, je suis bien trop jeune pour avoir connu Perl 4) qu'il supporte les socket, donc il y a toujours moyen de s'en tirer avec ça, mais ça sera sans doute pas facile...
05/07/2007, 14h10
Jedai

Citation:

Envoyé par sorilazer

Pour l'instant l'utilisation de la mise à jour est impossible pour la compagnie. Est ce possible d'executer un script sh dans script perl?
En faite je voudrai faire un script sh à part qui s'occupera du tranfert par ftp ensuite appeler ce script dans mon programme perl. Est ce cela possible??. Pour l'instant je n'ai pas trouver de solution :oops:

Je pense que les backticks sont là depuis les premiers Perl, vu qu'il s'agit d'une fonctionnalité héritée des shells. `commande`

--
Jedaï
06/07/2007, 11h37
sorilazer
:yaisse2: En fin la sueur est partie :king:

Finalement j'ai fait un scrip en shell et l'appeler dans mon programme perl. Le script sh gere la connexion par ftp ainsi que l'envoi des donnees. Merci tout le mode:king:
Voici le code shell qui sera appeler dans le script perl.
Code:

1 2 3 4 5 6 7 8 9 10 #!/usr/bin/bash utilisatuer=login mdpasse=password lftp <<EOF open nom_de_hote user ${utilisatuer} ${mdpasse} put nom_fichier quit EOF
Pour l'appeler il faut juste mettre dans le script perl

Code:

system("mon_script.sh");

Merci encore. :yaisse2: