PRUEBA
public text v1 · immutablesub isWindowsFriendly {
my ($arg1) = @_;
$result = 0;
#Eliminacion de caracteres prohibidos
if ($arg1 =~ s/[\/\\:?"<>|*]//g) { $result = 1; }
return ($result);
}sub isWindowsFriendly {
my ($arg1) = @_;
$result = 0;
#Eliminacion de caracteres prohibidos
if ($arg1 =~ s/[\/\\:?"<>|*]//g) { $result = 1; }
return ($result);
}