Vie Dic 21, 2007 6:46 am
|
 |
zozo666
Perlero Frecuente

|
Registrado: 26 May 2007
Mensajes: 137
|
|
| Modificar archivos con Perl |
|
|
Buenas gente, necesitaría saber si hay alguna forma de modificar un archivo en Perl, por ejemplo cambiar unas palabras o unos caracteres y/o borrar caracteres.
Lo que necesitaría es solamente cambiar 2 valores de esta cadena de texto:
| Cita: | | a:4:{i:0;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:1:"1";s:4:"blog";s:1:"1";}i:1;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:1:"6";s:4:"blog";s:1:"3";}i:2;a:3:{s:8:"cat_name";s:8:"General";s:2:"id";s:1:"8";s:4:"blog";s:1:"5";}i:3;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:2:"10";s:4:"blog";s:1:"7";}} |
Necesito cambiar el 3º carácter (en este caso es 4), borrar el último carácter y luego agregarle información.
¿Hay alguno manera de trabajar con el archivos que contiene esto para modificar lo que necesito?.
Muchas gracias, perleros. |
|
|
|

Vie Dic 21, 2007 7:23 am
|
 |
explorer
Moderador

|
Registrado: 24 Jul 2005
Mensajes: 4082
Ubicación: Valladolid, España
|
|
|
|
|
Esta es una respuesta rápida (ahora no tengo mucho tiempo, y esto es además el foro Intermedio):
| Perl: | $linea = 'a:4:{i:0;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:1:"1";s:4:"blog";s:1:"1";}i:1;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:1:"6";s:4:"blog";s:1:"3";}i:2;a:3:{s:8:"cat_name";s:8:"General";s:2:"id";s:1:"8";s:4:"blog";s:1:"5";}i:3;a:3:{s:8:"cat_name";s:7:"General";s:2:"id";s:2:"10";s:4:"blog";s:1:"7";}}';
# Necesito cambiar el 3º carácter (en este caso es 4),
substr($linea, 2, 1) = 'X';
# borrar el último carácter
chop $linea;
# y luego agregarle información.
$linea .= 'Otra cosa'; |
|
|
Vie Dic 21, 2007 8:05 am
|
 |
zozo666
Perlero Frecuente

|
Registrado: 26 May 2007
Mensajes: 137
|
|
|
|
|
| Muchísimas gracias, ya lo pruebo, disculpas. |
|
Powered by phpBB © 2001, 2005 phpBB Group
|