Article View: es.comp.os.linux.programacion
Article #1427Re: Rutas de directorios dentro de expresiones regulares en perl
From: David Serrano (Hue-Bond)
Date: Fri, 16 Dec 2005 13:54
Date: Fri, 16 Dec 2005 13:54
40 lines
2138 bytes
2138 bytes
F, lun20051212@06:11:19(CET):
>
> C:\prueba\prueba\otracosa\otracosa\fichero.txt
> bien, yo quiero sustuir los primeros directorios por ejemplo quitar
> "C:\prueba\prueba\" y dejar solo "otracosa\otracosa\fichero.txt"
$ perl
my $file = 'C:\\prueba\\prueba\\otracosa\\otracosa\\fichero.txt';
my ($stripped) = $file =~ m/(?:[^\\]+\\){3}(.*)/;
print "$stripped\n";
__END__
otracosa\otracosa\fichero.txt
Si además quieres comerte cada vez un número distinto de directorios padre,
es trivialmente hacible:
$ perl
my $eat = 2;
my $file = 'C:\\prueba\\prueba\\otracosa\\otracosa\\fichero.txt';
my ($stripped) = $file =~ m/(?:[^\\]+\\){$eat}(.*)/;
print "$stripped\n";
__END__
> Nota: No vale con poner en el codigo fuente
>
> $dirquitar= "C:\\\\prueba\\\\prueba\\\\";
Yo me he visto obligado a hacer '\\' para conseguir la cadena correcta:
$ perl
print my $file = 'C:\\prueba\\', $/;
__END__
C:\prueba\
--
David Serrano
Technical Details
Message-ID:
<slrndq5hn6.h7p.responder_solo_en_el_grupo@genus.hue-bond.info>Path:
arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news2.volia.net!news.musoftware.de!news-15.escomposlinux.org!cernicalo.escomposlinux.org!escomposlinux.org!not-for-mailReferences:
<XD7nf.327685$E72.2884889@telenews.teleline.es>Show Full Headers
Complete Article Headers
X-Google-Thread: f86c8,dd0585c0c756e3c4 X-Google-Attributes: gidf86c8,public X-Google-Language: SPANISH,UTF8 Path: arc1-ca.pugleaf.net!g2news1.google.com!news4.google.com!news2.volia.net!news.musoftware.de!news-15.escomposlinux.org!cernicalo.escomposlinux.org!escomposlinux.org!not-for-mail From: "David Serrano (Hue-Bond)" <responder_solo_en_el_grupo@yahoo.es> Newsgroups: es.comp.os.linux.programacion Subject: Re: Rutas de directorios dentro de expresiones regulares en perl Date: Fri, 16 Dec 2005 13:54:19 +0000 (UTC) Organization: I work for myself Lines: 40 Message-ID: <slrndq5hn6.h7p.responder_solo_en_el_grupo@genus.hue-bond.info> References: <XD7nf.327685$E72.2884889@telenews.teleline.es> NNTP-Posting-Host: 149.red-81-40-63.staticip.rima-tde.net Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: cormoran.emeteo.local 1134741259 29000 81.40.63.149 (16 Dec 2005 13:54:19 GMT) X-Complaints-To: emeteo@escomposlinux.org NNTP-Posting-Date: Fri, 16 Dec 2005 13:54:19 +0000 (UTC) X-Message-Flag: Visit http://www.debian.org/ X-MSMail-Priority: High Mail-Copies-To: nobody User-Agent: slrn/0.9.8.1pl1 (Debian)