Condition sur un nombre à virgule

**dubis** · 08/04/2011, 10h14

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** · 08/04/2011, 11h57

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** · 08/04/2011, 12h02

Je ne vois pas pourquoi un

Code :

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

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

ne fonctionnerait pas ?

**Deneteth** · 08/04/2011, 12h05

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** · 08/04/2011, 12h07

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** · 08/04/2011, 12h43

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