Casi lo tienes. Te vale con poner que la 's' que acompaña a
http puede aparecer o no, por lo que tenemos que ponerla opcional.
En la clase
[a-zA-Z0-9_.] te falta indicar que serán más de un caracteres así. Le ponemos un '+' a continuación para hacer eso.
Y la última '/' no necesitamos borrarla.
En la parte de sustitución, si lo que queremos es eliminar, pues no ponemos nada.
Queda:
Using perl Syntax Highlighting
my $a = 'https://addons.mozilla.org/en-US/firefox/addon/5457';
$a =~ s/https?:\/\/[a-zA-Z0-9_.]+//;
print "$a\n"; # /en-US/firefox/addon/5457Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
aunque a veces es más cómodo y seguro usar algo ya hecho, como el módulo
URI::Split:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
#use warnings;
#use diagnostics;
use URI::Split qw(uri_split);
my $a = 'https://addons.mozilla.org/en-US/firefox/addon/5457';
my ($scheme, $auth, $path, $query, $frag) = uri_split($a);
print "[$scheme], [$auth], [$path], [$query], [$frag]\n"; # [https], [addons.mozilla.org], [/en-US/firefox/addon/5457], [], []
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
