[rlug] a little perl help

[Marius Pana]

Salutare,

Am urmatoarea intr-un script perl:

unless ( open (OVFILE, $temp_atm_file) ) {
                print "Error: $0 $! \n";
                unlink $temp_atm_file;
                return ;
        }
        
        while( ($line = <OVFILE>) ) {
                chop $line;
                if( $line =~ /\s*(\d+)\s+\"(.*)\"/) {
                #$atm_list{$1}=$2;
                print "$2\n";
                }
        }

As vra ca in bucla while sa am un array care contine datele respective? Aveti
vreo solutie simpla? Merci,

//Marius

--- 
Detalii despre listele noastre de mail: http://www.lug.ro/