Pb regexp

Version imprimable

16/05/2006, 10h17
nkdb

Pb regexp
Slt,

Voici mon problème :
Code:

1 2 3 my $psrinfo = "/usr/sbin/psrinfo"; my @psrinfo_result = split("\n", qx(rsh $machine $psrinfo -v));
La cmd rsh $machine $psrinfo -v me donne :

Citation:

Status of processor 0 as of: 05/16/06 10:12:43
Processor has been on-line since 04/30/06 16:03:37.
The sparc processor operates at 450 MHz,
and has a sparc floating point processor.
Status of processor 2 as of: 05/16/06 10:12:43
Processor has been on-line since 04/30/06 16:03:38.
The sparc processor operates at 450 MHz,
and has a sparc floating point processor.

Mais dans ma @psrinfo_result je n'ai pas 1 ligne par "champ", mais 1 mot par "champ" !

J'ai fais ce test :
Code:

1 2 my $test = qx(rsh $machine $psrinfo -v); $test =~ s/\n/\*\*\*TOTO\*\*\*/g ;
pour me rendre compte que j'avais bien des "\n" ..!

Je ne comprend pas pourquoi mon split ne marche pas ...

Merci d'avance
16/05/2006, 15h03
Jedai
Probablement parce que qx() (ou ``) en contexte de liste renvoie une liste des lignes de sortie...
Donc ce que tu veux faire s'écrit simplement :
Code:

1 2 3 my $psrinfo = "/usr/sbin/psrinfo"; my @psrinfo_result = qx(rsh $machine $psrinfo -v);
--
Jedaï
16/05/2006, 15h11
nkdb

C'est ce quoi j'utilise habituellement en effet, tel :

Code:

my @view_store_result = qx(df $view_storePATH 2> /dev/null);

Qui fonctionne bien.

Mais ca ne marche pas avec mon :

Code:

my @psrinfo_result = qx(rsh $machine $psrinfo -v);

J'ai un mot par champs, et non 1 phrase par champ. C'est bizzard non ..?
16/05/2006, 15h19
Jedai
Très... Tu n'aurais pas fait joujou avec $/ en oubliant de le local()iser par hasard ?
Sinon une solution probablement :
Code:

1 2 3 my $psrinfo = "/usr/sbin/psrinfo"; my @psrinfo_result = split(/\n/, scalar(qx(rsh $machine $psrinfo -v)) );
Vérifie pour le $/ néanmoins, cela risque de te jouer des tours... :roll:

--
Jedaï
16/05/2006, 15h28
nkdb

Merci de tes reponses ... mais ca ne marche tjrs pas ;)

G fais un test :

Code:

print "TEST: [$/]";

Qui m'affiche :

Citation:

TEST: [
]

avec

Code:

my @psrinfo_result = split(/\n/, scalar(qx(rsh $machine $psrinfo -v)) );

j'ai toujours mon problème qu'il ne me selectionne pas les lignes, mais les mots.

Je n'ai jamais touché à $/ non plus ...

J'ai aussi fait le test de passer par un fichier, et là ca marche ...

8O
18/05/2006, 16h11
nkdb

[mod_up ON]

personne ? :?

Je ne m'en sort toujours et ne comprend vraiement pas d'où peux venir le chmil ...

merci de votre aide

[mod_up OFF]
18/05/2006, 17h38
Jedai
Tu dis que ce code marche bien :
Code:

1 2 my $test = qx(rsh $machine $psrinfo -v); $test =~ s/\n/\*\*\*TOTO\*\*\*/g ;
?
Qu'est-ce qu'il te donne comme sortie ?

--
Jedaï
19/05/2006, 08h31
nkdb

Le résultat donne ceci :

Citation:

Status of processor 0 as of: 05/16/06 10:12:43***TOTO***Processor has been on-line since 04/30/06 16:03:37.***TOTO*** The sparc processor operates at 450 MHz,***TOTO***and has a sparc floating point processor.***TOTO***Status of processor 2 as of: 05/16/06 10:12:43***TOTO***Processor has been on-line since 04/30/06 16:03:38.***TOTO***The sparc processor operates at 450 MHz,***TOTO***and has a sparc floating point processor.***TOTO***

Et que te donnes :

Code:

1
2
3
4
5
6
7
 
my $test = qx(rsh $machine $psrinfo -v); 
my @test = split m/\n/, $test;
 
foreach my $elem (@test){
  print "##$elem##";
}

?

--
Jedaï

Merci Jedai pour ta "force" déployée à m'aider ;)

J'ai fais un truc "sale" (pas très "Perlien disons") pour avancer :
Code:

1 2 3 4 5 my @psrinfo_result = qx(rsh $machine /usr/sbin/psrinfo -v | awk "/[0-9]+ MHz/" | cut -d " " -f8); my $freqProc = $psrinfo_result[0]; chomp($freqProc); my $NbProc = @psrinfo_result; print "Processor : $NbProc x $freqProc MHz\n";
soit avec toi la force que ...