Discussion :

[sorilazer]

Salut tt le monde.

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

[sorilazer]

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

Code :

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

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

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

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


Pas tjr resolu, je suis a la recherche. j'ai

[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

[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

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

[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

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

[Jedai]

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

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ï

[sorilazer]

En fin la sueur est partie

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
Voici le code shell qui sera appeler dans le script perl.

Code :

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

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 :

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

 system("mon_script.sh");

Merci encore.