Re: Extraction nombre décimaux.

kurtz le pirate <kurtzlepirate@free.fr> wrote:

  @floatnum = $line =~ /[-+]?([0-9]*\.[0-9]+|[0-9]+)/g;

comme [-+]? n'est pas entre (), Perl ne va pas l'extraire et il ne va
pas finir dans le tableau.

@floatnum = $line =~ /([-+]?[0-9]*\.[0-9]+|[0-9]+)/g;

démo:

schaefer@reliand:/tmp$ ./a.pl
1.2
1.2
1.2 4.5
1.2, 4.5
-1.2
-1.2
-1.2 4.5
-1.2, 4.5

schaefer@reliand:/tmp$ cat a.pl
#! /usr/bin/perl

use strict;
use warnings;

while (my $line = <STDIN>) {
   my @f = $line =~ /([-+]?[0-9]*\.[0-9]+|[0-9]+)/g;

   print join(', ', @f), "\n";
}