Array initialization

[Studentmadhura05]

I am trying to save the intermediate result in an array which I am accessing in every loop of a while loop.
Following is the part of the code:


my @array_mac=();
my $index1=0;
$array_mac_sz=@array_mac;
$index1=0;
#print "$array_mac_sz\n";
if ($array_mac_sz > 0){
while ($index1 < $array_mac_sz) {
if ($array_mac[$index1] eq "$hardware" ) {
$flag4=1;
}
$index1++;
}
}

if ($flag4 == 0){
$array_mac[$array_mac_sz+1]="$hardware";
} else {
$flag4=0;
}


I am getting a warning for the statement is Bold saying
"Use of uninitialized value in string eq at search_IP_05.plx line"


Is this a serious warning. What can I possibly do to get rid of it.
What I am trying to do in this code is: save the new hardware address only if it is not already present in the array. I am sure there is a better way to do the same. I was wondering if anyone could guide me on those lines.

Thanks a lot

[Studentmadhura05]

Found the mistake in my code and got rid of the warning. There is a new problem I am facing now:

@array_mac contains just one mac address.
When I type $array_size=$array_mac
I expected that
$array_size = 1
I am getting $array_size=2. Why is that happening?
Please help.

[KevinADC]

I assume you meant:

$array_size = @array_mac;

if the return value is 2 when you believe it should be 1 (one) print the array and see whats in it:

print "value='$_'\n" for @array_mac;

[docsnyder]

@Studentmadhura05

What you are trying to do is the following:

@list_1 = ( "a", "b", "c", "d" );
@list_2 = ( "b", "hardware", "c" );
 
sub addToArr {
  my($arrRef, $str) = @_;
 
  if ( ! grep(/$str/, @$arrRef) ) {
    push(@$arrRef, $str);
  }
}
 
addToArr(\@list_1, "hardware");
addToArr(\@list_2, "hardware");
 
printf("%s\n", join(", ", @list_1));
printf("%s\n", join(", ", @list_2));

Enjoy!

Greetz, Doc

[TonyV]

I have a question.

I know that I can initialize an array:
@array = ("foo","bar");

I have a variable $var that equals ("foo","bar"); and I want to turn that into an array. @array = $var doesn't do it.

regards and thanx,

Tony

[TonyV]

OK, I just found 'split'. neat!

Tony

[docsnyder]

OK, I just found 'split'. neat!

Tony

Another approach would be:

$var = '( "foo", "bar" )';
@arr = $var =~ m/"(.*?)"/g;
 
map { print $_ . "\n" } @arr;

Greetz, Doc