🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

[Perl-Novato] Encontrar un fichero index.*

#10501
From: David
Date: Mon, 25 Feb 2002 14:00
32 lines
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-mail

Show 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