Array slice vs foreach and push

[chrisburel]

Hi Perl Monks,

There is a real-world application for this, but I'm going to make it simple for the sake of the example.

Let's say I have an array of characters:

 my @chars = qw( a b c ? : ! f g )

And I have a function called "getUpperCaseChars" that converts those characters to their uppercase equivalents. But for the punctuation, since it has no uppercase equivalent, it returns an undef for those indices instead:

my @upChars = getUpperCaseChars( @chars );
# @upChars is now ( 'A', 'B', 'C', undef, undef, undef, 'F', 'G' )

Now after I've called getUpperCaseChars(), I can determine which ones did not have uppercase equivalents by doing something like this:

my @charsWithNoUpperCase =
    @chars[grep { !defined @upChars[$_] } 0..$#upChars];

But readability is low on that, so I've changed it to a foreach:

my @charsWithNoUpperCase
foreach my $index ( 0..$#upChars ) { 
    push @charsWithNoUpperCase, $chars[$index]
        if !defined $upChars[$index];
}

So my question is, is using the array slice significantly more efficient?

[ww]

Not an answer to your splice question, but this seems a good deal more straightforward... if it fits your "realworld application."

#!/usr/bin/perl
use Modern::Perl;

# 937262

my @chars = qw( a b c ? : ! f g );
my @newchars = ();

for my $char(@chars) {
    if ($char =~ /[[:alpha:]]/ ) {       # posix: letters. cf alts for
+ unicode "Properties" usage
        push @newchars, uc($char);
    }else{
        push @newchars, $char;
    }
}

for my $newchar(@newchars) {
    print $newchar . " ";     # A B C ? : ! F G 
}

[chrisburel]

Unfortunately, that doesn't fit the real world application. I'll give a bit more context.

What I have is an array of objects. Each of these objects have a version property. Each object also has a few associated special versions, like one called the official version. Then there's a method that takes an array of these objects and returns an array of these special versions, called getOfficialVersions. But not all objects have an official version, so in that case the method returns an undef for that index in the array. So I'm looking for a quick way to get the list of objects from the input list that have an undef in the array returned from getOfficialVersions.

[ww]

if that case, perhaps you should be thinking about using some aspect of ...


 if (defined)

[NetWallah]

This should meet your readability and efficiency criteria :

use strict;
use warnings;

my @chars = qw( a b c ? : ! f g ) ;
my %upchars ;

@upchars{@chars} =  ( 'A', 'B', 'C', undef, undef, undef, 'F', 'G' ); 
+# getUpperCaseChars( @chars );

my @charsWithNoUpperCase = grep {! defined $upchars{$_} } @chars;

[ashish.kvarma]

You can check it yourself using Benchmark. I couldn't help right now with a working example (working on a system with no perl installed), but I am sure you will be able to benchmark your code with help of the documentation (You can always come back for help on Benchmark if you come across any issues).

If you get the answer using Benchmark, please do share it.

[vinian]

perl -w -le 'my @chars = qw( a b c ? : ! f g ); my @up_chars = map { tr/a-z/A-Z/; $_ } @chars; print "@up_chars"'

hope this would help.

[jwkrahn]

my @up_chars = map { tr/a-z/A-Z/; $_ } @chars; can be reduced to: my @up_chars = map uc, @chars;

[vinian]

nice