Pues... con split()...
Using perl Syntax Highlighting
my @paths = split '/', $path;Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
también tiene la función splitdir(), que, en realidad es:
Using perl Syntax Highlighting
sub splitdir
{
return split m|/|, $_[1
], -1; # Preserve trailing fields
}Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Y otra cosa, el decir de usar URI::Split, si miramos el código del módulo, tenemos la siguiente expresión regular:
Using perl Syntax Highlighting
sub uri_split
{
return $_[0
] =~ m,(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?,;
}Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
lo cual justifica su uso, para una operación "aparentemente" sencilla.
