Condition sur un nombre à virgule

Version imprimable

Bonjour,

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

Code:

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.

08/04/2011, 11h57
Deneteth
Si tu es sur que ton séparateur sera toujours une virgule, voici une version "bourrin":
Code:

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...
08/04/2011, 12h02
Philou67430

Je ne vois pas pourquoi un

Code:

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

ne fonctionnerait pas ?
08/04/2011, 12h05
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
08/04/2011, 12h07
Philou67430
As-tu affiché le résultat de la substitution ?

Exemple qui fonctionne :
Code:

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 ?

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

Code:

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";}'

08/04/2011, 12h45
Philou67430

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

Citation:

Envoyé par Philou67430

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

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

Philou

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

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
#!/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);
		}
	}
}

09/04/2011, 21h38
Philou67430

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

Code:

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

sur ta console...
11/04/2011, 10h55
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:

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
11/04/2011, 11h42
Philou67430

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