On Thu, 23 Sep 2004 10:49:53 -0200, Bogdan Botez wrote
> On Thu, 23 Sep 2004 15:41:52 +0300, Marius Pana
> <[EMAIL PROTECTED]> wrote:
> > 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/
> >
> >
>
> Nu este prea clar in ce format sunt datele. Zi si ce vrei sa faci, nu
> cum ai incercat si nu te multumeste.
>
> peace,
> _bogdan_
>
$temp_atm_file este un fisier cu 2 randuri. Ma intereseaza (momentan) doar al
doilea rand. Este un string si in loc sa ii dau ' print "$2\n"; ' as vrea sa
'mut' valoarea respectiva intr-un array (@atm_array) care sa il pot accesa mai
tarziu in script.
//Marius
---
Detalii despre listele noastre de mail: http://www.lug.ro/
