On Thu, 23 Sep 2004 16:07:05 +0300, zgrim wrote
> 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/
Multumesc asta era:) acum am @atm_list :)
//Marius
---
Detalii despre listele noastre de mail: http://www.lug.ro/
