hola
Jorge Severino
jorge en netsecure.cl
Lun Sep 1 12:08:57 CLT 2003
Mira:
Te puede servir algo asi:
#!/usr/bin/perl
$string1 = "esta es una cadena de ejemplo";
print "CADENA : $string1 \n";
while ($string1 = ~ s/es/sera/gi) {
print "encontre patron en cadena \n";
print " La cadena ahora es : $string1 \n";
}
esop por ahora...
despues es cosa de que el string1 sea la linea de tus archivos...
Jorge
>>Ok, muchas gracias, aunque soy programador el PERL no es mi fuerte ni
>>menos programa BATCH se le agradece.
>mira en las expresiones regulares de perl, existe el modificar y
>reemplazar " /s/string_original/string_nuevo "
>es super util y facil de usar...