Topic awaiting preservation: RegEx/Perl (Page 1 of 1)

Hi there!
It's been a while...


Is it possible to make this a One-Liner?

$ENV{'SCRIPT_FILENAME'} =~ m/[^\/\\]+$/;	 # /../CGI-Executables/index.cgi

my $script_dir = $`; # /../CGI-Executables/

(Edited by u-neek on 03-04-2005 17:47)

Hi u-neek,

Long time non see.

I think what you want is

($script_dir) - ( $ENV{'SCRIPT_FILENAME'} =~ m:([^/\\]+)$:);

I'm not really familiar with the $ values built-in to perl, but I think $` is the matched string. However, your variable name script_dir indicates otherwise.

So maybe what you want is

($script_dir) - ( $ENV{'SCRIPT_FILENAME'} =~ m:^(.*)/[^/\\]+$:);

.

-- not necessarily stoned... just beautiful.

OK, I went to the documentation and looked up what $` does: It is a copy of everything in the string up to the point where the regular expression starts to match.

So the second one is the one you want.



.

-- not necessarily stoned... just beautiful.

Thank you for your quick response.

This is my final line:

my ($script_dir) = (($0 or $ENV{'SCRIPT_FILENAME'}) =~ m{^(.*/)[^/\\]+$});

And:
$´ what you said.
$` contains the copy of the string after the regular expression.
$+ contains the matched string.