Discussion :

[dubis]

Bonjour,


J'aimerai faire une condition sur un nombre à virgule :

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
20
21
22
#!/usr/bin/perl
use strict;
use warnings;
 
my $infile= 'MATLAB.log';
my @prstat= `prstat 0 1 | grep -v PID | grep -v Total`;
#print "@prstat \n";
 
foreach my $line  (@prstat) {
        my @line=split (/\s+/,$line);
        #La colonne 10 doit contenir MATLAB
        if ($line[10] =~ /MATLAB/) {
                print "Flag time :  $line[1] $line[8] $line[2] $line[10] $line[9]\n";
                my @percent=split (/%/, $line[9] );
                print "Flag pourcentage : $percent[0]\n";
                if ( $percent[0] > 1) {
                        open (WRITE, ">>$infile");
                        print WRITE "Flag time :  $line[1] $line[8] $line[2] $line[10] $line[9]\n";
                        close (WRITE);
                }
        }
}

J'ai l'erreur suivante :
Flag time : 16982 6:55:11 user1 MATLAB/66 0,1%
Flag pourcentage : 0,1
Argument "0,1" isn't numeric in numeric gt (>) at ./MATLAB_using.pl line 16.


J'ai essayé une substitution de la virgule par un point mais ma variable $percent[0] prend la valeur dans ce cas....

Merci de votre aide.

[Deneteth]

Si tu es sur que ton séparateur sera toujours une virgule, voici une version "bourrin":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
 
my $Value = "0,1";
 
my @test = split(/,/,$Value);
 
$Value = join(".",@test);
 
print "Ok\n" if ($Value < 1);
 
exit 0;

Je ne doute pas qu'une version plus élégante sera proposée...

[Philou67430]

Je ne vois pas pourquoi un

Code :

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

$percent[0] =~ s/,/./;

ne fonctionnerait pas ?

[Deneteth]

Apparemment il perd la notion de '0' quand on fait ça... J'ai récupéré 1 à la place de 0,1.

J'ai du mal à comprendre pourquoi aussi, si quelqu'un a une idée

A ben non ça passe bien, j'ai du me tromper sur la substitution... je me tais

[Philou67430]

As-tu affiché le résultat de la substitution ?

Exemple qui fonctionne :

Code bash :

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

1
2
3
$ perl -e '$a="0,1";$a =~ s/,/./;print "a=$a\n", "a*2 = ", $a * 2, "\n"'
a=0.1
a*2 = 0.2

J'ajoute donc : as-tu affiché $percent[0] avant ET après la substitution ?

[dubis]

Ce que je ne comprend pas cela fonctionne en ligne de commande ....

Code :

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

1
2
3
4
5
 perl -e 'my $value="3,1%"; my @percent=split (/%/,$value); if ( $percent[0] > 1) { print "$value\n";}'
3,1%
 
 
perl -e 'my $value="0,1%"; my @percent=split (/%/,$value); if ( $percent[0] > 1) { print "$value\n";}'

[Philou67430]

C'est pour ça que je t'ai demandé

J'ajoute donc : as-tu affiché $percent[0] avant ET après la substitution ?

L'erreur se trouve peut-être ailleurs ...

[dubis]

Philou

une fois de plus .......
J'ai du mal faire ma substitution car le script fonctionne comme ceci :

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
20
21
22
23
24
#!/usr/bin/perl
use strict;
use warnings;
 
my $infile= 'MATLAB.log';
my @prstat= `prstat 0 1 | grep -v PID | grep -v Total`;
#print "@prstat \n";
 
foreach my $line  (@prstat) {
	my @line=split (/\s+/,$line);
	#La colonne 10 doit contenir MATLAB
	if ($line[10] =~ /MATLAB/) {
		print "Flag time :  $line[1] $line[8] $line[2] $line[10] $line[9]\n";
		my @percent=split (/%/, $line[9]);
		print "Flag pourcentage : $percent[0]\n";
		$percent[0] =~ s/,/./;
		print "Flag pourcentage : $percent[0]\n";
		if ( $percent > 1) {
			open (WRITE, ">>$infile");
			print WRITE "Flag time :  $line[1] $line[8] $line[2] $line[10] $line[9]\n";
			close (WRITE);
		}
	}
}

[Philou67430]

Pour pouvoir t'aider, il faudrait que tu nous donnes un exemple de ce que retourne la commande

Code :

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

prstat 0 1 | grep -v PID | grep -v Total

sur ta console...

[dubis]

Philou,

Mon dernier poste montre le script avec la bonne correction ....
Je pense que la substition n’était pas bien faite depuis le début. De souvenir je l'avais entrée dans une variable du style :

Code :

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

1
2
 
my $var =~ (s/,/./,$percent[0]);

Ce qui avait pour effet de m'enlever le 0 avant le 1. Il est vrai que je ne l'avait pas montrée car des réponses étaient déjà arrivées entre temps...

Incroyable efficacité
Encore merci

[Philou67430]

Quand un problème semble insoluble, il faut alors se demander si l'on cherche le bon problème...