Perl regular expressions: the question mark is not a greedy combination

Question

$var = 'about/';
$var =~ s/^(.*)\/?$/index.php?action=$1/;

I want it to match and replace the trailing slash. But this is not so, I get this result:

index.php?action=about/

What am I doing wrong? I tried wrapping it in brackets (\/)?and including a question mark in a parenthesis (\/?). Apart from the previous slash, I'm obviously not doing any good. So how can I get him to have a slash when she is there?

Answer 1

Your problem is .*also greedy. Try to use .*?.

Regex .*, , , . , . .

Answer 2

.* ungreedy:

$var = 'about/';
$var =~ s!^(.*?)/?$!index.php?action=$1!;

Answer 3

, . , . , , .

, / . , /:

 my $path = 'about/';
 $path = s|/\z||;

 my $action = "index.php?action=$path";

( ), :

 ( my $action = "index.php?action=$path" ) =~ s|/\z||;