Página 1 de 1

Modificar archivos con Perl

NotaPublicado: 2007-12-21 07:46 @365
por zozo666
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:

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.

NotaPublicado: 2007-12-21 08:23 @391
por explorer
Esta es una respuesta rápida (ahora no tengo mucho tiempo, y esto es además el foro Intermedio):

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$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';
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

NotaPublicado: 2007-12-21 09:05 @420
por zozo666
Muchísimas gracias, ya lo pruebo, disculpas.