[rlug] Re: a little perl help

[zgrim]

On [23-09-2004] 15:41 +0300, Marius Pana wrote:
-> Salutare,
-> Am urmatoarea intr-un script perl:
-> unless ( open (OVFILE, $temp_atm_file) ) {
->              print "Error: $0 $! \n";
->              unlink $temp_atm_file;
->              return ;
->      }

open (OVFILE, "$temp_atm_file") or die $!;

->      while( ($line = <OVFILE>) ) {
->              chop $line;
->                      if( $line =~ /\s*(\d+)\s+\"(.*)\"/) {
->              #$atm_list{$1}=$2;
->              print "$2\n";
->                      }
->      }

my @list;
while (<OVFILE>) {
  if($_ =~ /\s*\d+\s+\"(.*)\"/) {
    push @list,$1;
    print "$1\n";
  }
}

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

  Solutia e pe masura intrebarii... Nu ai fost deloc explicit.

-- 
perl -MLWP::Simple -e'print$_[rand(split(q|%%\n|,
get(q=http://cpan.org/misc/japh=)))]'

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