Foro - Perl en Español

por **tlmejia** » 2008-09-15 12:38 @568

Hola, buenas tardes. Pues tengo una duda en cómo hacer lo siguiente: tengo un programa que devuelve los archivos que coincidan con una búsqueda dada. Los archivos que siempre regresa o comienzan con 'T' mayúscula o con 'S' mayúscula, no hay otra. Lo que quiero hacer es decirle que si los archivos que regresa comienzan con 'S' despliegue un letrero que diga "hojas de seguridad" y posteriormente ponga los archivos que tienen 'S', de lo contrario desplegar la leyenda "hojas técnicas" y despliegue los archivos que comienzan con 'T'. Estoy haciendo algo así pero no me está funcionando:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@matches= fgrep {/$query/}glob('C:\AppServ\www\pdf\txt\*.txt');
if(@matches=~/^T/){
printqq(<a class="style1">HOJAS TÉCNICAS</a><br/>\n);
}
else{
printqq(<a class="style1" align="center">HOJAS DE SEGURIDAD</a><br/>\n);
}

formy$f(@matches){

if($f->{count}){
.......Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¡¡Agradezco de antemano su ayuda!!
¡¡Buen día!!

my@matches= fgrep {/$query/}glob('C:\AppServ\www\pdf\*.txt');
formy$f(@matches){
if($f->{count}){

my$busfinal=$f->{filename};
$busfinal=~/([^\/\/]+)\.txt/;
#print $busfinal;
$busfinal='$1.pdf';

#print "<img src='/mexico/imagenes/pdf_conv.gif'>\n";  
printqq(<a href="$busfinal" class="style2">$busfinal</a><br/>\n);
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2008-09-15 17:19 @763

Se podría hacer una expresión regular como esta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

m{pdf/(.).+?.txt}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

para capturar la primera letra del nombre del fichero... excepto si los ficheros no están dentro de una carpeta pdf/.

por **tlmejia** » 2008-09-17 10:09 @464

Ok, perfecto, haré una prueba para ver eso, sólo una duda, ¿cómo puedo escapar este signo "/"? porque al momento de imprimir mi resultado me aparece toda la ruta como en esto:

C:\AppServ\www\pdf\TA9.Lm0504Busan85.pdf

Pero el link al momento de pasar el mouse por éste, es el siguiente:

file:///C:/AppServ/www/pdf/TA9.Lm0504Busan85.pdf

y la expresión donde estoy "escapando" eso es la siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$busfinal=~/([^\/\/]+)\.txt/;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero no lo hace. :?:

, ¡¡Gracias de antemano!!

por **explorer** » 2008-09-17 14:07 @630

Esa expresión regular no está "escapando" nada. Solo está buscando una concordancia: el nombre del fichero menos la extensión '.txt'. Si lo encuentra, lo guarda en '$1'.

Creo que ya te respondí a esto antes. En ese código se busca el nombre del fichero de la manera que comentas, y luego creo el enlace del destinatario, poniéndole la nueva extensión.

De todas formas, para escapar caracteres extraños, siempre se suele poner un '\' delante de ellos.

por **explorer** » 2008-09-17 14:27 @643

humm...

Yo te propuse

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

/([^\\]+)\.txt/Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

porque el camino al fichero contiene '\'. Por eso ponemos '\\', para escaparlo dentro de la expresión regular.

Ahora bien, tu pones

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

/([^\/\/]+)\.txt/Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

que lo que quiere decir es que buscas algo que no sea '/'. Y lo repites dos veces.
Eso no me concuerda con nada del camino del fichero.

A ver... si $busfinal contiene 'C:\AppServ\www\pdf\TA9.Lm0504Busan85.txt', entonces,

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$busfinal='C:\AppServ\www\pdf\TA9.Lm0504Busan85.txt';
$busfinal=~/([^\\]+)\.txt/;
print"$1";# $1 contiene TA9.Lm0504Busan85Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Creo que eso es lo que te pasa...

Foro - Perl en Español

Desplegar texto

Desplegar texto

Publicidad

¿Quién está conectado?