Re^2: Build your array with push


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re^2: Build your array with push

by Corion (Patriarch)

on Feb 01, 2006 at 10:25 UTC ( [id://527012]=note: print w/replies, xml )

Need Help??

in reply to Re: Build your array with push
in thread Build your array with push

That style of code is totally ugly and unusable. What if your original list of data erroneously switched two characters and you now have to swap the last and next-to-last character? This coding style is flawed in that aspect. You should use the following coding style instead:

push (@Hibbs_Daglish_Schwartz_Vroom, ""
         . chr(0b1010110)
         . chr(0b1110010)
         . chr(0b1101111)
         . chr(0b1101111)
         . chr(0b1101101)
     );
[download]

Actually I use this coding style when manipulating SQL SELECT statements:

SELECT monkey, bananas from my_table
  where 1 = 1
  and   flung_poo is null
  and   size > 800
;
[download]

Comment on Re^2: Build your array with push Select or Download Code

Replies are listed 'Best First'.

Re^3: Build your array with push
by blazar (Canon) on Feb 06, 2006 at 08:11 UTC

That style of code is totally ugly and unusable [...] You should use the following coding style instead:

No, no, no! Yours is better than the previous alternatives but one may still get confused when swapping bits. And all those calls to chr, oh my! Now pack can do all this for cheap. Thus you should use the following coding style instead:

push @Hibbs_Daglish_Schwartz_Vroom, pack qw/(B8)*
01010110
01110010
01101111
01101111
01101101
/;
[download]

Except that one would almost certainly want to write a specialized sub to do this, should he later change his mind with respect to the order in which to store bits into chars, chars into strings and strings into the array:

sub insert (\@@) {
    my $arr=shift;
    push @$arr, pack '(B8)*', @_;
}

# ...

insert @Hibbs_Daglish_Schwartz_Vroom,
qw/
  01010110
  01110010
  01101111
  01101111
  01101101
/;
[download]

[reply]
[d/l]
[select]

In Section Meditations

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://527012]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others pondering the Monastery: (4)

As of 2024-04-19 06:23 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found