|
|
|
google unix.com
|
|||||||
| Foros | Registro | Reglas de los Foros | Enlaces | Álbumes | Preguntas más frecuentes | Lista de miembros | Calendario | Búsqueda | Puestos de hoy | Marcar Foros Como Leídos |
| Programación de scripts de shell y Plantear preguntas sobre KSH, CSH, SH, BASH, PERL, PHP, SED, AWK y otros scripts de shell y lenguajes de script de shell aquí. |
Más UNIX y Linux Foro Temas usted puede encontrar útiles
|
||||
| Hilo | Hilo para principiantes | Foro | Respuestas | Último mensaje |
| regex cuestión | xiamin | Programación de scripts de shell y | 3 | 03-05-2009 02:53 AM |
| Perl regex ayuda - correspondens paréntesis | CVP | Programación de scripts de shell y | 7 | 02-27-2009 05:38 PM |
| ¿Cómo se tira de esta línea de perl usando regex. | ramky79 | Programación de scripts de shell y | 1 | 03-18-2008 12:10 PM |
| regex cuestión | arushunter | Programación de scripts de shell y | 8 | 01-04-2007 05:49 PM |
| regex cuestión | rocketkids | UNIX for Dummies Preguntas y Respuestas | 6 | 02-12-2004 05:49 AM |
Powered by 
|
|
|
Linkback vínculo | Herramientas de hilo | Buscar en este Hilo | Tasa de Hilo | Modos de visualización |
07-16-2008
|
||||
|
||||
|
Perl regex cuestión
Tengo el siguiente código: Código:
#!/usr/bin/perl -w
@files = <*.csv>;
foreach $file (@files) {
open(FH, $file) || die("Error: Cannot open file $file for reading.");
my @dt = ($file =~ /^(\w+).(\d{6})\.csv$/);
while (<FH>) {
print "@dt[0] $_\n";
}
close(FH);
}
No hay redundancia en este código, ya que comprueba en primer lugar para todos los archivos que terminan en ". Csv" (línea 3) y posteriormente se analiza el nombre del fichero (línea 6) en busca de los caracteres y dígitos. ¿Cómo puedo cambiar la línea 3 en una expresión regular, de manera que la línea 6 se puede quitar la matriz y se determinará @ dt allí? |
| Marcadores |
| Etiquetas |
| perl, perl regex, regex |
| Herramientas de hilo | Buscar en este Hilo |
| Modos de visualización | Vota a este hilo |
|
|
Modo de rosca
