Extract information from user input using Regex in Perl

Question

I am trying to access this only parts of user input. Eg. if user inputs a file name like /file/path/test_324_3422.jpg

I want to get only test, 324 and 3422

I have been attempting this, but it does not work:

#!/usr/bin/perl

if(@ARGV != 1){
    print "Error\n";
}
else{
    my $input = $ARGV[0];
    $input =~ /(.)_([\d]+)_([\d]+)/
    print $1, "\n";


}

$1 refers to your first capturing group, if you want to display the content of group 2 and 3, use $2 and $3. Change your first group description to ([^\/_]+) — Casimir et Hippolyte
– Casimir et Hippolyte, Commented May 20, 2014 at 4:25

hwnd · Accepted Answer · 2015-08-03 19:00:03Z

1

The dot . inside your capture group is only matching a single character.

And you are only printing $1 which is the match of the first capturing group. You need $2 and $3 also if you want to display the matches of those capturing groups as well.

my $input =~ /([a-zA-Z]+)_(\d+)_(\d+)/;
print join(', ', $1, $2, $3), "\n";

If that does not suit your needs, use a negated match for your first capturing group.

my $input =~ /([^\/_]+)_(\d+)_(\d+)/;

edited Aug 3, 2015 at 19:00

answered May 20, 2014 at 4:28

hwnd

70.9k4 gold badges100 silver badges135 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Extract information from user input using Regex in Perl

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related