http://www.miweb.com/testing/
http://web2.com/testing/test/archive
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Tengo el siguiente script:
Using perl Syntax Highlighting
- if ( @ARGV != 1 ) {
- die "\nUse: $0 <urls.txt>\n\n" . " <file> Archivo que contiene las urls [ej -> urls.txt]\n";
- }
- $file = $ARGV[0];
- chomp $archivo;
- open $FILE, '<', $file or die $!;
- @archivos = <$FILE>;
- close $FILE;
- for $archivo (@archivos) {
- chomp $archivo;
- if ( $archivo =~ s/:|\//_/g ) {
- print "$archivo\n";
- system("archivo.exe --direccion=$archivo --salida=$archivo");
- }
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Mi intención es que éste tome un archivo externo con el siguiente contenido:
Using text Syntax Highlighting
http://www.google.com
http://www.miweb.com/testing/
http://web2.com/testing/test/archive
http://www.miweb.com/testing/
http://web2.com/testing/test/archive
Y lo convierta de la siguiente forma:
Using text Syntax Highlighting
http_www.google.com
http_www.miweb.com_testing
http_web2.com_testing_test_archive
http_www.miweb.com_testing
http_web2.com_testing_test_archive
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
¿Alguien me puede ayudar? La regex que tengo convierte el "://" a "_" pero las demás barras no las toca.
Por otro lado ahora, que me doy cuenta, en realidad necesito dos acciones:
1.- Conservar en un array las URL del archivo
2.- Convertir con la regex y guardar el resultado en otro array
Necesito esto porque tengo dos argumentos en mi archivo.exe, uno para las URL y otro para las salidas.
Espero que se entienda.
Saludos.
