Re: Define regex substitution $1,$2,... from a string

in reply to Define regex substitution $1,$2,... from a string

If your parameter is always an URI, you could use the CPAN Modules URI and File::Basename.

use File::Basename;
use URI::Split qw(uri_split uri_join);

my @uri = uri_split('https://www.domain.com/aaa/bbb/file.zip');

$uri[3]    = 'file='.basename($uri[2]);
$uri[2]    = 'file_publish';

my $uri = uri_join(@uri);

print $uri."\n";
[download]

Comment on Re: Define regex substitution $1,$2,... from a string Download Code

In Section Seekers of Perl Wisdom