argument avec espace passé en ligne de commande

Version imprimable

05/05/2007, 23h40
gorgonite

argument avec espace passé en ligne de commande

Salut,

J'ai un script qui gère mal les arguments dans @ARGV, car il sépare en plusieurs arguments lorsqu'il y a un espace dans un argument, alors que ce dernier est pourtant mis entre ""

quelqu'un saurait-il comment régler ce léger problème ?

:merci:
05/05/2007, 23h58
Jedai

La réponse dépend du script. C'est le shell qui se charge de mettre les bons arguments dans @ARGV, donc tu ne peux rien faire si le dysfonctionnement est du côté du shell (ou plutôt du côté de la personne qui a mal rédigé les arguments du script). Cependant tu sembles dire que le script lui-même redécoupe les arguments qui lui sont donnés ? Dans ce cas il suffit de modifier le script pour qu'il ne fasse plus cela. A moins qu'il y ait une réelle raison pour ce comportement ?

--
Jedaï
06/05/2007, 11h42
Arioch

Sinon, comment récupères-tu les données rangées dans @ARGV ?

Peut-on voir un bout de ton code ?
06/05/2007, 15h07
gorgonite
je récupère les arguments contenus dans @ARGV avec

Code:

my $var = shift @ARGV;

car le nombre d'arguments n'est pas connu à l'avance...

pour ce qui est de l'appel du script via le shell, je lance :
Code:

1 2 ./mon_script.pl "[ejfdjhgdf]courant d'air" courant_d-air
06/05/2007, 15h41
Jedai
Dans ce cas le problème n'est pas dans le parsing des arguments, mais plutôt dans leur utilisation... Un exemple courant :
Code:

1 2 my $var = shift; system "command $var";
Si tu appelles ce script avec comme paramètre "hello world", $var contiendra hello world (sans les guillemets), d'où plantage quand tu utilises system avec une commande qui n'attend qu'un seul argument...

La solution dans ce cas est :
Code:

1 2 my $var = shift; system 'command', $var;
(D'une manière générale, il vaut toujours mieux utiliser la version à plusieurs arguments de system() ou exec(), sauf si on a explicitement besoin que la ligne de commande soit interprétée par un shell)

Evidemment il y a d'autres endroits où cela peut poser problème, sans ton script, nous ne pouvons pas t'en dire plus.

--
Jedaï
06/05/2007, 21h21
gorgonite

non je n'utilise pas system ensuite... je fais juste un echo pour le moment ;)

en gros, c'est un script pour renommer des fichiers...

donc je lis le premier nom de fichier, le nouveau nom, et j'utilise rename... avec tous les tests qui vont bien.
or a cause de l'espace, ça passe pas :cry:
07/05/2007, 00h19
Jedai

Citation:

Envoyé par gorgonite

or a cause de l'espace, ça passe pas :cry:

Ce n'est pas à cause de l'espace que ça ne passe pas, rename s'en contrefout... Néanmoins il peut y avoir d'autres obstacle à rename, par exemple si tu changes de fs, ça ne marche pas. C'est pourquoi je recommanderai plutôt d'utiliser le move() de File::Copy, rename() est une fonction de bas niveau (directement un appel système en fait), File::Copy est livré en standard avec Perl depuis Perl 5.2, donc aucun problème de portabilité !

Si ça ne marche toujours pas, tu pourrais peut-être nous montrer ton code finalement ? Je sais que c'est top secret, mais de ce que tu nous dis ça n'a pas l'air si critique que ça ... :roll:

--
Jedaï

ben je lance cette commande :

Code:

1
2
3
www-data@GorgonMobile:/home/gorgonite$ ssh gorgonite@localhost \ /home/gorgonite/ensta/clubinfo/admin.pl \[eyfjghdjhg34TY\]fichier\ super\ d?air fichier-air
fichier [eyfjghdjhg34TY]fichier
Le fichier [eyfjghdjhg34TY]fichier n'existe pas

voici mon script

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#! /usr/bin/perl
# vim:set ts=4 sw=4 : 
 
use strict;
use warnings;
 
sub usage() {
        exit;
}
 
sub problem($) {
        my $msg = shift @_;
        print "$msg\n";
        exit(-1);
}
 
$ARGV[0] or usage(); 
my $tempDir = "/home/gorgonite/temp";
my $ftpDir = "/home/gorgonite/temp/temp_ftp";
chdir($tempDir);
 
 
while (my $file = shift @ARGV) {
        if ($file =~ m/\.\./) {
                problem("fichier $file incorrect");
        }
    print "fichier $file\n";
        if (my $newName = shift @ARGV) {
                if ($file =~ m/\.\./) {
                        problem("fichier $newName incorrect");
                }
                if (-e $file) {
                        chmod(0664,$file);
                        my $newFile = "$ftpDir/$newName";
                        if (-e $newFile) {
                                problem("Le fichier $newFile existe déjà");
                        } else {
                                print "$file\t->\t$newFile\n";
                                rename($file,$newFile);
                        }
                } else {
                        problem("Le fichier $file n'existe pas");
                }
        } else {
                problem("Il manque le nouveau nom de fichier pour $file");
        }
}

07/05/2007, 15h52
Jedai

Après test, j'ai confirmation de mon idée :
Ton problème n'est pas Perl, mais ssh... Si tu utilises exactement la même ligne en local, ça marchera comme une fleur. Avec ssh tu as droit à une double interprétation des arguments, tu dois donc écrire :

Code:

ssh gorgonite@localhost \ /home/gorgonite/ensta/clubinfo/admin.pl \\\[eyfjghdjhg34TY\\\]fichier\\\ super\\\ d\?air fichier-air

Ou un truc comme ça ! :aie:

--
Jedaï
07/05/2007, 23h07
gorgonite

Citation:

Envoyé par Jedai

Après test, j'ai confirmation de mon idée :
Ton problème n'est pas Perl, mais ssh... Si tu utilises exactement la même ligne en local, ça marchera comme une fleur. Avec ssh tu as droit à une double interprétation des arguments

tu as raison... je me disais bien que je l'avais déjà testé ce truc là en plus :?

:merci: ça marche :king: