Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Help to assign a 2D-Array to another while excluding specific rows.

by scorpio17 (Abbot)
on Sep 13, 2011 at 21:32 UTC ( #925775=note: print w/replies, xml ) Need Help??


in reply to Help to assign a 2D-Array to another while excluding specific rows.

use strict; use Data::Dumper; # read records my @row = <DATA>; my @data = map [split /\s*\|\s*/], @row; print Dumper(\@data), "\n\n"; my @CopyOfData; my @excluded; for my $row_index (0..$#data) { # find rows to skip if ( $data[$row_index][1] =~ /mmartin/ ) { push(@excluded, $row_index); next; } # copy everything else push(@CopyOfData, $data[$row_index]); } print Dumper(\@CopyOfData), "\n"; print Dumper(\@excluded), "\n"; # 2, 7 __DATA__ 922337219576856 |rgiles |5005444 |156 |pts/220 |9:00:44 922337219576856 |mrandall |3309650 |35 |none |9:10:44 922337219576856 |mmartin |4565899 |122 |pts/101 |9:15:44 59761456123786 |rkelly |5555555 |999 |pts/900 |9:00:00 59761456123786 |mvick |1234567 |886 |none |9:20:00 59761456123786 |jrussel |7654321 |456 |tty/101 |10:00:00 86555522211 |cklien |5151515 |000 |tty/100 |10:00:00 86555522211 |mmartin |1234567 |987 |none |11:00:00
  • Comment on Re: Help to assign a 2D-Array to another while excluding specific rows.
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://925775]
help
Chatterbox?
[marto]: 13:32, sunny Glasgow :P
[Tux]: as in, some others might appreciate a good morning or goor evening
[Tux]: Glasgow, as in TPCiG-2018 !!!! :) :)
erix would rather appreciate proof of a goodmorning
[marto]: Tux so I'm told :)
[ww]: ww seconds erix view
[ww]: or, better, erix' view

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (10)
As of 2017-09-22 12:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (263 votes). Check out past polls.

    Notices?