J
Just in
If I do this:-
use strict;
use warnings;
my @Arr1 = split /\D+/, $Str1;
my @Arr2 = split /\D+/, $Str2;
foreach my $i(0..$#Arr1)
{
foreach my $j(0..$#Arr2)
{
if($Arr1[$i] eq $Arr2[$j])
{
delete $Arr2[$j];
}
}
}
In some instances @Arr2 ends up looking like this ('', '', 'Value3',
Value4', '')
How can I make @Arr2 = ('Value3', 'Value4') i.e. $#Arr2 == 1
rather than 4?
Cheers,
Just in
use strict;
use warnings;
my @Arr1 = split /\D+/, $Str1;
my @Arr2 = split /\D+/, $Str2;
foreach my $i(0..$#Arr1)
{
foreach my $j(0..$#Arr2)
{
if($Arr1[$i] eq $Arr2[$j])
{
delete $Arr2[$j];
}
}
}
In some instances @Arr2 ends up looking like this ('', '', 'Value3',
Value4', '')
How can I make @Arr2 = ('Value3', 'Value4') i.e. $#Arr2 == 1
rather than 4?
Cheers,
Just in