Quisiera saber si pueden ayudarme con el tema de hash.
Es que aun no logro entenderlas muy bien.
Esto es mi código. explorer me dio una solución y así la aplique pero lo que pasa es que me hacen falta llaves.
Using perl Syntax Highlighting
#!/usr/bin/env perl
#######################
#Definicion de variables
#######################
my $f_Archivo_de_Entrada = "/export/home/sistemas/nolvera/perl/expresiones/lic.dat";
my $f_Archivo_de_Entrada2 = " /export/home/sistemas/nolvera/perl/expresiones/licencias.cfg";
my $f_Archivo_de_Salida = "/export/home/sistemas/nolvera/perl/expresiones/salida/SHCP";
my $f_Archivo_de_salida2 = "/export/home/sistemas/nolvera/perl/expresiones/salida/BANXICO";
my @a_Nodo = qw (1 2);
my $b_Bandera = 0;
%s_cliente1;
%s_cliente2;
$s_Nodo;
######################
#Abrir archivo
######################
open IN, "$f_Archivo_de_Entrada2";
while (<IN>){
my $s_Linea1 = $_;
chomp $s_Linea1;
my @a_Lineas1 = split ',', $s_Linea1;
$s_Nodo = $a_Lineas1[0];
$s_cliente1{$a_Lineas1[0]}=$s_Linea1[1];
$s_cliente1{$a_Lineas1[1]}=$s_Linea1[2];
$s_cliente1{$a_Lineas1[2]}=$s_Linea1[3];
#######################
#Definicion de variables
#######################
my $f_Archivo_de_Entrada = "/export/home/sistemas/nolvera/perl/expresiones/lic.dat";
my $f_Archivo_de_Entrada2 = " /export/home/sistemas/nolvera/perl/expresiones/licencias.cfg";
my $f_Archivo_de_Salida = "/export/home/sistemas/nolvera/perl/expresiones/salida/SHCP";
my $f_Archivo_de_salida2 = "/export/home/sistemas/nolvera/perl/expresiones/salida/BANXICO";
my @a_Nodo = qw (1 2);
my $b_Bandera = 0;
%s_cliente1;
%s_cliente2;
$s_Nodo;
######################
#Abrir archivo
######################
open IN, "$f_Archivo_de_Entrada2";
while (<IN>){
my $s_Linea1 = $_;
chomp $s_Linea1;
my @a_Lineas1 = split ',', $s_Linea1;
$s_Nodo = $a_Lineas1[0];
$s_cliente1{$a_Lineas1[0]}=$s_Linea1[1];
$s_cliente1{$a_Lineas1[1]}=$s_Linea1[2];
$s_cliente1{$a_Lineas1[2]}=$s_Linea1[3];
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4