Article View: es.comp.os.linux.programacion
Article #10501[Perl-Novato] Encontrar un fichero index.*
From: David
Date: Mon, 25 Feb 2002 14:00
Date: Mon, 25 Feb 2002 14:00
32 lines
1886 bytes
1886 bytes
Hola a todos/as.
Estoy desarrollando un script en Perl que, entre otras cosas, debe
meterse en un directorio y ver si encuentra un fichero que se llame
index.* (es decir, index.html o index.php, etc).
Se me ocurren dos formas de hacerlo, pero no tengo muy claro c�mo
pulirlo.
Una:
$comando = system("ls /mi/directorio/index.*");
y tratar de capturar lo que me sacar�a por la consola esta llamada. Se
que en $comando lo que me aparecer�a ser�a un 0 si se ejecuta la
llamada, pero no se si se podr�a capturar la salida.
Dos:
Tratar de hacer un open del fichero y ver si consigue abrir el
fichero:
open( FICHERO_INDEX , $fichero_index )) || die( "Cachis la mar...");
pero poniendo en $fichero_index una expresi�n regular del tipo
/index\.*/, pero lo dicho, no tengo muy claro c�mo hacerlo.
�Alguna sugerencia o enlace interesante?
Por ahora he buscado en el "PERL Quick Reference" de M�che�l � Foghl�
y en el "Teach Yourself Perl 5 in 21 days" de David Till, pero no me
ha sido de gran ayuda.
Gracias a todos/as.
Saludos.
David.
Technical Details
Message-ID:
<1759581e.0202250600.7020a360@posting.google.com>Path:
arc1-ca.pugleaf.net!archiver1.google.com!postnews1.google.com!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: SPANISH,ASCII X-Google-Thread: f86c8,91055ca77b044ab2,start X-Google-Attributes: gidf86c8,public X-Google-ArrivalTime: 2002-02-25 06:00:16 PST Path: arc1-ca.pugleaf.net!archiver1.google.com!postnews1.google.com!not-for-mail From: forodejazz@yahoo.es (David) Newsgroups: es.comp.os.linux.programacion Subject: [Perl-Novato] Encontrar un fichero index.* Date: 25 Feb 2002 06:00:15 -0800 Organization: http://groups.google.com/ Lines: 32 Message-ID: <1759581e.0202250600.7020a360@posting.google.com> NNTP-Posting-Host: 195.235.255.227 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit X-Trace: posting.google.com 1014645616 24081 127.0.0.1 (25 Feb 2002 14:00:16 GMT) X-Complaints-To: groups-abuse@google.com NNTP-Posting-Date: 25 Feb 2002 14:00:16 GMT