Shell Programming and Scripting

my $cnt=0;
foreach my $elem (@result) 
{
 if (condition){
    splice(@result, $cnt, 1);}
 else{
 $cnt++;}
}

#!/usr/bin/perl

# @(#) p1	Demonstrate splice element tracking.

use warnings;
use strict;
use feature qw(switch say);
use 5.010;

my ($debug);
$debug = 0;
$debug = 1;

my ( $cnt, $element );
my (@a) = qw/ a b c a z /;

print "\n";

print " Array as input :@a:\n\n";

# Original code.

$cnt = 0;
foreach $element (@a) {
  if ( $element eq "a" ) {
    splice( @a, $cnt, 1 );
    print " Inside loop, a is :@a:\n";
  }
  else {
    $cnt++;
  }
}
print "\n Original, cnt = $cnt\n", " array = @a\n";
print "\n -----\n\n";

# Re-written code.

@a   = qw/ a b c a z /;
$cnt = 0;
foreach $element (@a) {
  if ( $element eq "a" ) {
    splice( @a, $cnt, 1 );
    print " Inside loop, a is :@a:\n";
  }
  $cnt++;
}
print "\n Modified, cnt = $cnt\n", " array = @a\n";

exit(0);

% ./p1

 Array as input :a b c a z:

 Inside loop, a is :b c a z:
 Inside loop, a is :b a z:

 Original, cnt = 1
 array = b a z

 -----

 Inside loop, a is :b c a z:
 Inside loop, a is :b c z:

 Modified, cnt = 3
 array = b c z