Hi,
with the script shown below I extract the four numbers from the string.
#!/usr/bin/perl
use 5.10.0;
use strict;
use warnings;
#
my $str = "760x35+10+20";
my $re = qr/(\d+)[x](\d+)[+-](\d+)[+-](\d+)/;
my @line = split(/$re/, $str);
say scalar(@line), ": ",join("=",@line);
for (@line)
{
say qq/>$_</;
}
my ($u, $w, $h, $x, $y) = split(/$re/, $str);
say qq/u= >$u< w= >$w< h= >$h< x= >$x< y= >$y</;
Result:
5: =760=35=10=20
><
>760<
>35<
>10<
>20<
u= >< w= >760< h= >35< x= >10< y= >20<
I get one undefined value plus the four numbers.
What is the reason?
Thanks for any help.
--
K.D.J.
--
To UNSUBSCRIBE, email to debian-user-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
Archive: http://lists.debian.org/4f703b92.2010...@t-online.de
