Programación Web y Scripting > Perl

 Configuracion

(1/1)

su -:
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.

su -:
: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];

explorer:
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 ---perl -nle 'if ( m{^&#092;&#092;(.*)/&#036;} ) {print &#036;1}' archivo_para_ver 

su -:
Quetal ferrero.
Que bueno tenerte aqui, en SoloCodigo!  :D

Navegación

[0] Índice de Mensajes

Ir a la versión completa