Estoy tratando de hacer un subprograma que pasándole como parámetro una línea que puede o no tener tabulaciones al principio me devuelva esa línea pero sin tabulaciones, por ejemplo:
input => \t \t hola
output=>hola
El subprograma que he hecho es este:
Using perl Syntax Highlighting
sub quitar_tabulacion{
#$_[0]=> viene la linea del titulo
if ($_[0]=~ /^\t/){ ### aquí es donde me debería de entrar y no entra.
@titulo=split("\t", $_[0]);
foreach $parte (@titulo){
if ($parte =~ m/\S/){
return($parte);
}
}
}
else {
return($_[0]);
}
}
#$_[0]=> viene la linea del titulo
if ($_[0]=~ /^\t/){ ### aquí es donde me debería de entrar y no entra.
@titulo=split("\t", $_[0]);
foreach $parte (@titulo){
if ($parte =~ m/\S/){
return($parte);
}
}
}
else {
return($_[0]);
}
}
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4
Si alguien sabe contestarme lo agradecería.
