0
У меня есть код, который получит скорость обмена:Perl разбор второго экземпляра с регулярным выражением
#!/usr/bin/perl
use warnings;
use strict;
use LWP::Simple;
use POSIX qw(strftime);
use Math::Round;
use CGI qw(header start_html end_html);
use DBI;
sub isfloat {
my $val = shift;
return $val =~ m/^\d+.\d+$/;
}
.....
my $content = get('URL PAGE');
$content =~ /\s+(\d,\d{4})/gi;
my $dolar = $1;
$dolar =~ s/\,/./g;
if (!isfloat($dolar)) {
error("Error USD!");
}
Как можно захватить второй экземпляр/\ S + (\ д, \ d {4})/г ??
Я попытался решением из Perl Cookbook так:
$content =~ /(?:\s+(\d,\d{4})) {2} \s+(\d,\d{4})/i;
, но у меня есть ошибки:
Use of uninitialized value $val in pattern match (m//)
Use of uninitialized value $dolar in substitution (s///)
Его работы. Спасибо – Hesperson