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

Re: any built in function to take out null arrays elements?

by lyklev (Pilgrim)
on Sep 22, 2007 at 21:40 UTC ( #640552=note: print w/replies, xml ) Need Help??


in reply to any built in function to take out null arrays elements?

You probably mean undefined elements, NULL is a c-thing. One way to create an array with undefined elements is to use indexes and then skip a few. With grep -ing for defined elements, you can weed the undefined elements, as shown in the example below.

As mentioned, an empty array is not the same as an undefined array, and "0" is defined, so you don't want to skip it.

#!/usr/bin/perl my (@ar1, @ar2); $ar1[0] = 1; $ar1[1] = 0; # a defined element, not NULL $ar1[7] = 9; # skip, leaving 2..6 undefined # dump array 1 print("\@ar1:\n"); for my $i (0..$#ar1) { print(" $i : $ar1[$i]\n"); } # weed the undefined elements @ar2 = grep { defined $_ } @ar1; print("\@ar2:\n"); for my $i (0..$#ar2) { print(" $i : $ar2[$i]\n"); }

Replies are listed 'Best First'.
Re^2: any built in function to take out null arrays elements?
by Anonymous Monk on Nov 12, 2008 at 18:34 UTC
    @arr = grep(!/^$/, @arr);

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://640552]
help
Chatterbox?
[Corion]: "Unmatched ) in regex; marked by <-- HERE in m/(&#9583;&# 9633;)&#9583;&# 65077; &#9531;&#9473;&# 9531;) <-- HERE / at -e line 1." :)
[Corion]: Meh - my "flip the table" string doesn't render here ;)
[choroba]: It renders correctly in pm-cb-g
[erix]: heh

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2018-07-17 16:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (372 votes). Check out past polls.

    Notices?