Sujet : Re: Extraction nombre décimaux.
De : schaefer (at) *nospam* alphanet.ch (Marc SCHAEFER)
Groupes : fr.comp.lang.regexpDate : 23. Oct 2022, 15:25:44
Autres entêtes
Organisation : Posted through news.alphanet.ch
Message-ID : <tj3fco$b2h$1@shakotay.alphanet.ch>
References : 1
User-Agent : tin/2.4.3-20181224 ("Glen Mhor") (UNIX) (Linux/4.19.0-22-amd64 (x86_64))
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";
}