Re: Perl Regex

[roboticus]

in reply to Perl Regex

There are many ways to skin a cat. Another one is:

$ perl t.pl
Number is: 382411
Number is: 382412
Number is: 382413
Number is: 382414

$ cat t.pl
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

for my $string (
    "/qwjhj/sdvbb/vuvs/tryt3687fbhvh/vv1vh/382411",
    "/qwj23hj/sdx4vbb/vu6vs/tryvh/vv1sdfvh/382412",
    "/qwjhj/sdvbb/vuvs/t3687fbhvh/vv1/123v1vh/382413",
    "/qwj35hj/sd3vbb/vuf3vs/tr334tg3vh/vv1c45vh/382414"
) {
    my @temp = split /\//, $string;
    print "Number is: $temp[-1]\n";
}

...roboticus

Cats are rather flighty in this neighborhood. I wonder why?