On Thu, 23 Sep 2004 11:07:34 -0200, Bogdan Botez wrote
> On Thu, 23 Sep 2004 15:59:50 +0300, Marius Pana
> <[EMAIL PROTECTED]> wrote:
> > 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/
> >
> >
>
> Al doilea rand sau fiecare al doilea rand?
> Sau: ai mai multe fisiere, fiecare de 2 linii si te intereseaza un
> array cu linia a doua din fiecare fisier?
>
> peace,
> _bogdan_
>
Al doilea rand dintr-un singur fisier. am incercat cu:
while( ($line = <OVFILE>) ) {
chop $line;
if( $line =~ /\s*(\d+)\s+\"(.*)\"/) {
#$atm_list{$1}=$2;
#print "$2\n";
@atm_list=$2;
}
}
}
fetch_atm_list();
print $atm_list[X];
dar imi da doar ultimul rand din fisierul respectiv.
//Marius
---
Detalii despre listele noastre de mail: http://www.lug.ro/
