Re: Ayuda con expresiones regulares

Article View: es.comp.os.linux.programacion

Article #513

Back to es.comp.os.linux.programacion Previous Next

#513

From: Jos� Luis P�rez Diez
Date: Wed, 11 Apr 2007 15:52

40 lines
2376 bytes

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
            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/);     
}

Las dos estan sin comprobar y escritas de memoria 

--
Los programadores esta ocupados intendtado mejorar los programas a 
prueba de idiotas. Mientras tanto el universo  intenta mejorar los 
idiotas. El universo va ganando

Technical Details

Message-ID: <VA.00000b9c.0184af7a@agujero-negro.escomposlinux.org>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed.hal-mli.net!feeder1.hal-mli.net!antonio.escomposlinux.org!reboot.escomposlinux.org!hercules.escomposlinux.org!escomposlinux.org!not-for-mail

References: <fA7Rh.3556107$D7.6476545@telenews.teleline.es> <Pine.LNX.4.64.0704071129260.16935@jvz.es>

Show Full Headers

Complete Article Headers

X-Google-Thread: f86c8,dd1337191e711daf
X-Google-Attributes: gidf86c8,public
X-Google-Language: SPANISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newsfeed.hal-mli.net!feeder1.hal-mli.net!antonio.escomposlinux.org!reboot.escomposlinux.org!hercules.escomposlinux.org!escomposlinux.org!not-for-mail
From: Jos� Luis P�rez Diez <jluis@agujero-negro.escomposlinux.org>
Newsgroups: es.comp.os.linux.programacion
Subject: Re: Ayuda con expresiones regulares
Date: Wed, 11 Apr 2007 17:52:23 +0200
Organization: JPD Co
Lines: 41
Message-ID: <VA.00000b9c.0184af7a@agujero-negro.escomposlinux.org>
References: <fA7Rh.3556107$D7.6476545@telenews.teleline.es> <Pine.LNX.4.64.0704071129260.16935@jvz.es>
Reply-To: jluis@agujero-negro.escomposlinux.org
NNTP-Posting-Host: 83.247.136.72
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Trace: hercules.cohp1 1176306747 32312 83.247.136.72 (11 Apr 2007 15:52:27 GMT)
X-Complaints-To: newsmaster@news-17.escomposlinux.org
NNTP-Posting-Date: Wed, 11 Apr 2007 15:52:27 +0000 (UTC)
X-Newsreader: Virtual Access by Atlantic Coast PLC, http://www.atlantic-coast.com/va

Reply to Parent Message