Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 222
  • Last Modified:

pass binary array to subroutine

&myFunc($str, (qw(1 0 1 1 0)))


myFunc()
{

my $str = @_[0];
@myArr = @_[1];

    if(myArr->0)
    {}
   
    if(myArr->1)
    {}

    if(myArr->2)
    {}

    if(myArr->3)
    {}

    if(myArr->4)
    {}

    if(myArr->5)
    {}

}


Is this correct and can you suggest a more elegant way to do this?
0
NewtonianB
Asked:
NewtonianB
  • 2
1 Solution
 
ozoCommented:
my $str = $_[0];
@myArr = @_[1..$#_];
 if($myArr[0])
 {}

for( @myArr ){

}
0
 
ozoCommented:
sub myFunc{
  my $str = shift;
  my @myArr = @_;
  for( @myArr ){
    if( $_ ){
      print $_
    }
  }
}
myFunc($str, qw(1 0 1 1 0));
0
 
NewtonianBAuthor Commented:
Awesome, thanks!
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now