SoloCodigo

Programación Web y Scripting => Perl => Mensaje iniciado por: su - en Lunes 25 de Abril de 2005, 23:30

Título: Configuracion
Publicado por: su - en Lunes 25 de Abril de 2005, 23:30
Hola solocodiger@s :hola: .
Les agradeseria mucho si me dijeran como hago un programa que  lea X informacino para crear un archivo de configuracion, es decir, como hago un programa que lea un codigo sabiendo que toda linea que enpiese por el signo \ y termine con el signo / es algo, un objeto para leer.
Gracias.
Título: Re: Configuracion
Publicado por: su - en Jueves 28 de Abril de 2005, 01:32
:D Ya se Como!!

#!/usr/bin/perl -w
my $langfile = "archivo_para_ver";
my @LANG;
open(FICHIER, $langfile);
my $comp = 0;
my $ligne;
while ($ligne = <FICHIER>) {
   $LANG[$comp] = $ligne;
   chomp($LANG[$comp]);
   $comp += 1;
}
close FICHIER;
print $LANG[2];
Título: Re: Configuracion
Publicado por: explorer en Sábado 8 de Julio de 2006, 23:52
Si... pero no se dicé qué es lo que hay que hacer con ese objeto...

Si sólo queremos quedarnos con esos objetos entonces los podemos extraer con este una-línea:
Código: Text
  1. perl -nle 'if ( m{^&#092;&#092;(.*)/&#036;} ) {print &#036;1}' archivo_para_ver
  2.  
Título: Re: Configuracion
Publicado por: su - en Domingo 9 de Julio de 2006, 01:03
Quetal ferrero.
Que bueno tenerte aqui, en SoloCodigo!  :D