How to get array item directly from split result?

[Huajian Luo]

Hi there,

I'm now parse a output from a command which need use split to
split each line to array and get the fields like the following
pseudo code.

for my $line (@lines) {
if ($line =~ /mb_setno/) {
$line =~ s/\s//;
my @fields = split(/\s+/, $line);
my $100th_fld = $fields[99];
}
}

Cause the fields is too much, I wanna skip the @fields by just
my $100th_fld = split(/\s+/, $line){99}; or sth like that, but
it didn't work, does any guys tried this or still any hints on
this.

 

[Gunnar Hjalmarsson]

I'm now parse a output from a command which need use split to
split each line to array and get the fields like the following
pseudo code.

for my $line (@lines) {
if ($line =~ /mb_setno/) {
$line =~ s/\s//;
my @fields = split(/\s+/, $line);
my $100th_fld = $fields[99];
}
}

Cause the fields is too much, I wanna skip the @fields by just
my $100th_fld = split(/\s+/, $line){99}; or sth like that, but
it didn't work, does any guys tried this or still any hints on
this.

This gives you the 100th field:

( split /\s+/, $line )[99]

Is that what you mean?

 

[John W. Krahn]

Hi there,

I'm now parse a output from a command which need use split to
split each line to array and get the fields like the following
pseudo code.

for my $line (@lines) {
if ($line =~ /mb_setno/) {
$line =~ s/\s//;
my @fields = split(/\s+/, $line);
my $100th_fld = $fields[99];
}
}

Cause the fields is too much, I wanna skip the @fields by just
my $100th_fld = split(/\s+/, $line){99};

That should be:

for my $line ( @lines ) {
if ( $line =~ /mb_setno/ ) {
my $100th_fld = ( split ' ', $line )[ 99 ];
}
}


Or if you want to save some typing:

for ( @lines ) {
if ( /mb_setno/ ) {
my $100th_fld = ( split )[ 99 ];
}
}




John

 

[nobull]

This gives you the 100th field:

( split /\s+/, $line )[99]

Is that what you mean?

This still creates a temporary list with all the pieces of $line which
is really bad if you want, say, the 100th field of 500.

There are alternatives. See:

http://groups.google.com/group/comp..._frm/thread/9dd271f1a5ce9040/98049bf4559c4e7e
http://groups.google.com/group/comp...88ea525cf06/b7cd43c9628d5f04#b7cd43c9628d5f04

 

[Huajian Luo]

That should be:

for my $line ( @lines ) {
if ( $line =~ /mb_setno/ ) {
my $100th_fld = ( split ' ', $line )[ 99 ];
}
}


Or if you want to save some typing:

for ( @lines ) {
if ( /mb_setno/ ) {
my $100th_fld = ( split )[ 99 ];
}
}

Yes, that's what I'm looking for and I just wanna save typing
and machine memory, Thanks everyone for the response.