Discussion :

[ggnore]

Bonjour.

J'ai un test à base de =~ qui ne fonctionne pas sans que je comprenne pourquoi.

etienne@samba-eu:~$ ls -l /var/run/usbmount/
total 0
lrwxrwxrwx 1 root root 11 2006-03-08 16:05 ST316021_2A_1 -> /media/usb1
lrwxrwxrwx 1 root root 11 2006-03-08 15:33 ST316081_2A_1 -> /media/usb0

c'est ce que va contenir @listing

Code :

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

1
2
3
4
5
6
7
@listing=`/bin/ls -l $USBVAR`;
 
for ($i=0; $i <= $#listing ; $i++) {
        @ligne=split(/ /,$listing[$i]);
                print "$ligne[8] == $NEEDEDSN";
                if ( $ligne[8] =~ /"$NEEDEDSN"/ ){ print "youpi"; }
}

$NEEDEDSN contient ST316081_2A_1

Quand je lance mon script ça donne ça :

Code :

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

1
2
3
4
etienne@samba-eu:~/shelltest/usbmount$ ./getMOUNT.pl
 == ST316081_2A_1
ST316021_2A_1 == ST316081_2A_1
ST316081_2A_1 == ST316081_2A_1

Doit y avoir une feinte que j'ai pas comprise.

Merci d'avance.

[GLDavid]

Hello Ggnore

Tu m'as tellement aidé en shell script que je mériterais un gros blâme si je ne t'aidais pas !
Alors, déjà, tu pars sur un mauvais calacul. Pour lister les éléments d'un répertoire, point n'est besoi nde recourir à ls. La FAQ te dit comment lister un répertoire de manière propre : http://perl.developpez.com/faq/?page...nC1#sectionC16
Avec ça, tu peux remplir facilement ton tableau avec le nom des fichiers puis travailler dessus.


@++

[djibril]

sinon c'est

Code :

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

=~

et non

Code :

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

~=

[ggnore]

Héhé
Merci pour ton aide.

Le coup du ls est important car je liste des liens symboliques, et il faut indiquer l'option -l à ls pour que cela s'affiche vers quel fichier 'pointe' le lien.

Je vais jeter un coup d'oeil à ton lien ceci dit.

Mon problème venait d'un \n qui trainait dans une variable.
Un coup de chomp et ça repart

merci.

[ggnore]

sinon c'est

Code :

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

=~

et non

Code :

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

~=

Arf merci, je débute à mooooort sous perl.
Ceci dit l'erreur était dans l'énoncé mais pas dans le script, donc ça va

[Jedai]

Héhé
Merci pour ton aide.

Le coup du ls est important car je liste des liens symboliques, et il faut indiquer l'option -l à ls pour que cela s'affiche vers quel fichier 'pointe' le lien.

Je vais jeter un coup d'oeil à ton lien ceci dit.

Mon problème venait d'un \n qui trainait dans une variable.
Un coup de chomp et ça repart

merci.

NB : Je ne sais pas si ici ça peut t'intéresser, mais tu peux obtenir une fonctionnalité équivalente au '-l' de ls en faisant :

Code :

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

1
2
3
4
 
my $dir = "/chemin/vers/mon/repertoire";
opendir DH, $dir;
my @files = map { -l "$dir/$_" ? $_ : readlink "$dir/$_" } (readdir DH);

La clé ici est l'usage de '-l' pour tester s'il s'agit d'un lien symbolique, puis de readlink pour connaître le véritable fichier.

--
Jedaï

[ggnore]

Héhé
Merci pour ton aide.

Le coup du ls est important car je liste des liens symboliques, et il faut indiquer l'option -l à ls pour que cela s'affiche vers quel fichier 'pointe' le lien.

Je vais jeter un coup d'oeil à ton lien ceci dit.

Mon problème venait d'un \n qui trainait dans une variable.
Un coup de chomp et ça repart

merci.

NB : Je ne sais pas si ici ça peut t'intéresser, mais tu peux obtenir une fonctionnalité équivalente au '-l' de ls en faisant :

Code :

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

1
2
3
4
 
my $dir = "/chemin/vers/mon/repertoire";
opendir DH, $dir;
my @files = map { -l "$dir/$_" ? $_ : readlink "$dir/$_" } (readdir DH);

La clé ici est l'usage de '-l' pour tester s'il s'agit d'un lien symbolique, puis de readlink pour connaître le véritable fichier.

--
Jedaï

C'est mal comme ça d'utiliser ls ?
parce que ce script ne sera utilisé que sous linux, je n'ai aucune vue sur l'international. Ce script n'est que pour une machine.

[Jedai]

Non, ce n'est pas vraiment 'mal', c'est pour ça que j'ai mis 'je ne sais pas si ça peut t'intéresser ici'. Néanmoins, tu ne peux nier que ton emploi de 'ls' alourdit le script pour pas grand chose (avec la solution pure perl, tu n'as plus besoin de faire du parsing et tu peux en profiter pour donner des noms plus clairs que le 9ème ou le 11ème champ d'une ligne renvoyée par ls -l).
De plus les performances sont bien sûr incomparable entre un appel système et une création de processus, bien que ce n'ait ici pas la moindre importance.

C'est vraiment ton choix, mais pour ma part j'essaie de limiter l'usage d'applications externes tant qu'il y a une solution Perl aussi simple (et surtout lorsqu'elle est plus simple et élégante comme ici).

--
Jedaï

[ggnore]

Non, ce n'est pas vraiment 'mal', c'est pour ça que j'ai mis 'je ne sais pas si ça peut t'intéresser ici'. Néanmoins, tu ne peux nier que ton emploi de 'ls' alourdit le script pour pas grand chose (avec la solution pure perl, tu n'as plus besoin de faire du parsing et tu peux en profiter pour donner des noms plus clairs que le 9ème ou le 11ème champ d'une ligne renvoyée par ls -l).
De plus les performances sont bien sûr incomparable entre un appel système et une création de processus, bien que ce n'ait ici pas la moindre importance.

C'est vraiment ton choix, mais pour ma part j'essaie de limiter l'usage d'applications externes tant qu'il y a une solution Perl aussi simple (et surtout lorsqu'elle est plus simple et élégante comme ici).

--
Jedaï

Ok ta justification m'a l'air tout à fait fondée, je vais me pencher sur ta solution. Merci d'avoir cherché à me convaincre

[ggnore]

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
#!/usr/bin/perl
$SNUSBHDFILE="/home/etienne/shelltest/usbmount/SN.txt";
$USBVAR="/var/run/usbmount/";
 
$NEEDEDSN=`./getSN.pl`;
chomp($NEEDEDSN);
 
my $dir = "$USBVAR";
opendir DH, $dir;
my @files = map { -l "$dir/$_" ? $_ : readlink "$dir/$_" } (readdir DH);
 
for ($i=0; $i <= $#files ; $i++) {
        ($hd,$mount,$plus)=split(/ /,$files[$i]);
        print ">$hd-$mount-$plus";
}

et le résultat :

>-->-->ST316081_2A_1-->ST316021_2A_1--

alors qu'autre chose que ST316081_2A_1 devrait apparaître !

Code :

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

1
2
3
4
 ls -l /var/run/usbmount/
total 0
lrwxrwxrwx  1 root root 11 2006-03-08 16:05 ST316021_2A_1 -> /media/usb1
lrwxrwxrwx  1 root root 11 2006-03-08 15:33 ST316081_2A_1 -> /media/usb0

Je n'accède pas au lien, mais seulement au nom du fichier

[ggnore]

Code :

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

1
2
3
4
5
6
etienne@samba-eu:~/shelltest/usbmount$ readlink /var/run/usbmount/ST316081_2A_1
/media/usb0
etienne@samba-eu:~/shelltest/usbmount$ cat test.pl
#!/usr/bin/perl
readlink ("/var/run/usbmount/ST316081_2A_1");
etienne@samba-eu:~/shelltest/usbmount$ ./test.pl

[ggnore]

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
16
17
18
19
#!/usr/bin/perl
$SNUSBHDFILE="/home/etienne/shelltest/usbmount/SN.txt";
 
$NEEDEDSN=`./getSN.pl`;
chomp($NEEDEDSN);
 
my $USBVARDIR = "/var/run/usbmount/";
opendir DH, $USBVARDIR or die "impossible d'ouvrir le repertoire $USBVARDIR";
 
@liste=readdir(DH);
foreach $f (@liste) {
        next if $f eq "." or $f eq "..";
        if (-l "$USBVARDIR/$f") {
                if ( $f =~ /$NEEDEDSN/ ) {
                        my $result=readlink "$USBVARDIR/$f";
                        print $result;
                }
        }
}

Ok j'étais un peu allé vite en besogne.
Merci pour tout.