Soy nueva en esto del manejo de Perl. La verdad es que jamás lo había usado... He estado buscando mucho en Internet pero no he hallado nada que me ayude...
Mi problema es que leo un archivo de texto y después me crea otro archivo de texto con todas sus líneas (eso ya lo hace). Mi problema es que al enviarlo al otro archivo tengo que eliminar algunos caracteres de algunas líneas y en otras remplazar.
Mi pregunta es si existe alguna instrucción que me permita posicionarme en donde yo le diga y remplazar o eliminar la cantidad de caracteres que yo le diga. Y ya después pasar todas sus líneas ya con el formato nuevo...
Les agradecería mucho su ayuda...
GRACIAS.
-
- Publicidad
Filtrar caracteres
5 mensajes
• Página 1 de 1
Filtrar caracteres
por kiazz » 2012-07-11 17:05 @753
- kiazz
- Perlero nuevo
- Mensajes: 1
- Registrado: 2012-07-11 16:59 @749
Publicidad
Re: Filtrar caracteres
por explorer » 2012-07-11 18:52 @828
Bienvenida a los foros de Perl en Español, kiazz.
Para eliminar caracteres dentro de una cadena de caracteres, puedes usar la función substr().
Por ejemplo:
Tienes más información en tu ordenador, escribiendo perldoc -f substr .
También puedes usar expresiones regulares, si la posición a cambiar es desconocida, y depende del "aspecto" o un "patrón" para encontrarla.
Para eliminar caracteres dentro de una cadena de caracteres, puedes usar la función substr().
Por ejemplo:
Using perl Syntax Highlighting
- use feature 'say';
- $s = "La casa de la abuela es verde.";
- substr($s, 20, 9) = ""; # borrado
- say $s; # La casa de la abuela.
- $s = "La casa de la abuela es verde.";
- substr($s, 24, 5) = "blanca"; # sustitución
- say $s; # La casa de la abuela es blanca.
- $s = "La casa de la abuela es verde.";
- substr($s, 29, 0) = " y soleada"; # inserción
- say $s; # La casa de la abuela es verde y soleada.
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Tienes más información en tu ordenador, escribiendo perldoc -f substr .
También puedes usar expresiones regulares, si la posición a cambiar es desconocida, y depende del "aspecto" o un "patrón" para encontrarla.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Filtrar caracteres
por reLlene » 2012-07-13 21:39 @944
¡¡Bienvenida, kiazz!!
Es más sencillo que lo hagas directamente desde Linux, es decir, para qué editar tu propio script si Linux te permite (o no, por eso nos tienes que mostrar lo que ya tienes hecho) hacerlo de la siguiente forma:
Imagina, por ejemplo, que tienes un fichero con campos en los que el separador es el tabulador y queremos sustituir este carácter separador por otro carácter separador, como por ejemplo el punto y coma (;). Desde la terminal, lo haremos de la siguiente manera:
Fíjate que el >> escribirá en un nuevo archivo con el nombre que tu le quieras dar.
o bien:
nos muestra todas las líneas donde aparezca la palabra 'LIKE'.
Puedes ahorrarte muchos dolores de cabeza con este tipo de comandos que nos brinda unix, para algo están, así que acostúmbrate a usarlos porque los necesitarás en más de una oportunidad. Si quieres, puedes buscar más por "sed" o "grep" en San Google, claro.
Es más sencillo que lo hagas directamente desde Linux, es decir, para qué editar tu propio script si Linux te permite (o no, por eso nos tienes que mostrar lo que ya tienes hecho) hacerlo de la siguiente forma:
Imagina, por ejemplo, que tienes un fichero con campos en los que el separador es el tabulador y queremos sustituir este carácter separador por otro carácter separador, como por ejemplo el punto y coma (;). Desde la terminal, lo haremos de la siguiente manera:
Using bash Syntax Highlighting
- perl nombreDeTuScript.pl |sed 's/\t/;/g' >>archivosalida.txt
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Fíjate que el >> escribirá en un nuevo archivo con el nombre que tu le quieras dar.
o bien:
Using bash Syntax Highlighting
- perl nombreDeTuScript.pl |grep -v 'LIKE' >>archivosalida.txt
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
nos muestra todas las líneas donde aparezca la palabra 'LIKE'.
Puedes ahorrarte muchos dolores de cabeza con este tipo de comandos que nos brinda unix, para algo están, así que acostúmbrate a usarlos porque los necesitarás en más de una oportunidad. Si quieres, puedes buscar más por "sed" o "grep" en San Google, claro.
Última edición por reLlene el 2012-07-23 08:51 @410, editado 1 vez en total
Sexo : unzip ; strip ; touch ; grep ; finger ;mount ; fsck ; more ; yes ; umount ; sleep.
-
reLlene - Perlero nuevo
- Mensajes: 97
- Registrado: 2012-06-04 07:16 @344
Re: Filtrar caracteres
por danimera » 2012-07-14 08:52 @411
Hummm, ¿y si será que está trabajando desde Linux ? Pos es posible que también lo haga desde Windows, así que la respuesta debería ser más general, ¿no lo crees...? En todo caso... no importa ¡je,je!
100% Telch - Perl Web Programming
Cali PerlMongers: http://cali.pm.org
Cali PerlMongers: http://cali.pm.org
-
danimera - Perlero frecuente
- Mensajes: 871
- Registrado: 2005-06-23 19:02 @834
- Ubicación: Colombia
Re: Filtrar caracteres
por explorer » 2012-07-14 09:15 @427
El utilizar los comandos de Unix está muy bien para ciertas aplicaciones y soluciones. Muchas veces, con la combinación de unos pocos comandos, resolvemos muchos problemas de administración o manipulación de datos.
Hay una limitación: la invocación de cada comando representa la carga y ejecución de un programa entero (pequeño, pero un programa). En ciertas situaciones, eso puede ser algo costoso, en términos de consumo de recursos de memoria y procesador. Un ejemplo son los dæmon que se ejecutan de forma periódica, para tareas administrativas (monitores, estadísticas, avisos automáticos, etc.) Si son muchos procesos y/o se ejecutan cada poco tiempo, puede ser significativo el consumo de recursos. Y no siempre estamos hablando de un PC o de un portátil. Podría ser una tableta o un móvil (celular).
Conocer estas herramientas del shell es fundamental para la gente que trabajamos en Unix, pues a veces nos encontraremos con sistemas que no tienen Perl (algo realmente extraño), así que no nos quedará más remedio que usar awk, sed, y demás familia.
Pero, teniendo Perl a mano, puede simplificar bastante el desarrollo, mantenimiento, y consumo de recursos.
Precisamente estos días me encuentro "traduciendo" muchos scripts escritos en shell, para el sistema de monitorización MRTG, con docenas de llamadas a comandos Unix, a un único programa Perl. Los tiempos de ejecución y consumo de memoria son muy apreciables.
Y lo que dice danimera también es cierto: si está en Windows, es muy posible que no disponga de esas utilerías (actualmente, solo estarán disponibles si el usuario ha instalado el paquete de herramientas Unix para Windows, o el paquete Cygwin).
En el caso de los dos ejemplos que muestra reLlene, la funcionalidad de las llamadas a sed y grep, puede ser sustituida con solo dos líneas, dentro del programa Perl.
Con esto, no estoy desmereciendo el uso del shell. Al contrario: hay que conocerlo muy bien, pues de esa manera luego se pueden entender muchas de las funcionalidades que nos da Perl.
Hay una limitación: la invocación de cada comando representa la carga y ejecución de un programa entero (pequeño, pero un programa). En ciertas situaciones, eso puede ser algo costoso, en términos de consumo de recursos de memoria y procesador. Un ejemplo son los dæmon que se ejecutan de forma periódica, para tareas administrativas (monitores, estadísticas, avisos automáticos, etc.) Si son muchos procesos y/o se ejecutan cada poco tiempo, puede ser significativo el consumo de recursos. Y no siempre estamos hablando de un PC o de un portátil. Podría ser una tableta o un móvil (celular).
Conocer estas herramientas del shell es fundamental para la gente que trabajamos en Unix, pues a veces nos encontraremos con sistemas que no tienen Perl (algo realmente extraño), así que no nos quedará más remedio que usar awk, sed, y demás familia.
Pero, teniendo Perl a mano, puede simplificar bastante el desarrollo, mantenimiento, y consumo de recursos.
Precisamente estos días me encuentro "traduciendo" muchos scripts escritos en shell, para el sistema de monitorización MRTG, con docenas de llamadas a comandos Unix, a un único programa Perl. Los tiempos de ejecución y consumo de memoria son muy apreciables.
Y lo que dice danimera también es cierto: si está en Windows, es muy posible que no disponga de esas utilerías (actualmente, solo estarán disponibles si el usuario ha instalado el paquete de herramientas Unix para Windows, o el paquete Cygwin).
En el caso de los dos ejemplos que muestra reLlene, la funcionalidad de las llamadas a sed y grep, puede ser sustituida con solo dos líneas, dentro del programa Perl.
Con esto, no estoy desmereciendo el uso del shell. Al contrario: hay que conocerlo muy bien, pues de esa manera luego se pueden entender muchas de las funcionalidades que nos da Perl.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
5 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado