• Sábado 20 de Abril de 2024, 00:47

Autor Tema:  Configuracion  (Leído 2704 veces)

su -

  • Moderador
  • ******
  • Mensajes: 2349
    • Ver Perfil
Configuracion
« en: Lunes 25 de Abril de 2005, 23:30 »
0
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.
*******PELIGRO LEE ESTO!!*******

There is no place like 127.0.0.1

Conecto luego existo, no conecto luego insisto.

su -

  • Moderador
  • ******
  • Mensajes: 2349
    • Ver Perfil
Re: Configuracion
« Respuesta #1 en: Jueves 28 de Abril de 2005, 01:32 »
0
: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];
*******PELIGRO LEE ESTO!!*******

There is no place like 127.0.0.1

Conecto luego existo, no conecto luego insisto.

explorer

  • Miembro activo
  • **
  • Mensajes: 68
    • Ver Perfil
Re: Configuracion
« Respuesta #2 en: Sábado 8 de Julio de 2006, 23:52 »
0
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.  

su -

  • Moderador
  • ******
  • Mensajes: 2349
    • Ver Perfil
Re: Configuracion
« Respuesta #3 en: Domingo 9 de Julio de 2006, 01:03 »
0
Quetal ferrero.
Que bueno tenerte aqui, en SoloCodigo!  :D
*******PELIGRO LEE ESTO!!*******

There is no place like 127.0.0.1

Conecto luego existo, no conecto luego insisto.