🚀 go-pugleaf

Hola José Luis Pérez Diez <jluis@agujero-negro.escomposlinux.org>
el Wed, 11 Apr 2007 17:52:23 +0200 escribiste:

> In article <Pine.LNX.4.64.0704071129260.16935@jvz.es>, Gamo wrote:
> > sub validar {
> 
> #Bien vamos a comentar perl 
> 
> #>     my $string = $_[1];
>         my $string = shift; #Best practice
>        
> #>     return -1 if length($string)!=7;
> #>     my @s = split "", $string;
> #>     my $iant="";
> #>     for my $i (@s){
> #>         if ($iant eq " " && $i ne " ") { return -1; }
> #>         $iant=$i;
> #>     }   
> #>     return 1;
>         if (length($string) = 7) {
>             $string ~= /(\S*)(\s*)/;#todo en blanco ok
>             #$string ~= /(\S+)(\s*)/;#almenos un no blanco

mejor /^(\S*)(\s*)$/

>             return length($1.$2) = 7;
>         }else return undef;
> 
> 
> > }
> 
> 
> Hay muchismas formas de hacerlo y no creo que una regex sea la mejor 
> para mi la mejor es algo parecdo a lo que Gamo escribio despues en hilo
> 
> sub validar {
>     my $string = shift;
>     return (length($string) =7) - ($string =~ /\s\S/);     

yo haría: length($string) == 7 and $string =~ m/^\S*\s*$/;

> }
> 
> Las dos estan sin comprobar y escritas de memoria 


-- 
Gonzalo Pérez de Olaguer Córdoba <gpoc@iies.es>
PGP key 2861C704 --- F206 5671 6789 425D 111C  1302 214F 1934 2861 C704