Hallo Gemeinde,
ich möchte gerne alle im String der Variablen $segmente enthaltenen Zahlen in ein Array schubsen.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Useqq = 1;
my $segmente = q( "nodes": [
272447305,
272447306,
272447307,
272447308,
272447305
]);
my @zahlen;
@zahlen = $segmente =~ /"nodes": \[\s+(\d+),\n\s+(\d+)/;
print Dumper \@zahlen; # => entspricht der Erwartung, die ersten beiden Zahlen landen im Array.
@zahlen = $segmente =~ /"nodes": \[(?:\s+(\d+),?\n)+/g;
print Dumper \@zahlen; # => klappt nicht. Wieso landet nur die erste Zahl im Array, und nicht alle?
Im voraus Danke für Rat.