Re: splitting the scalar variables in an array

[Athanasius]

split expects its second argument to be a string (i.e., a scalar), so using the array @TotalHosts here puts the array into scalar context, and split gets the number of elements in the array. You need to change this line:

my @dd = split "\n", @TotalHosts;

to something like this:

my   @dd;
push @dd, split "\n", $_ for @TotalHosts;

which calls split on each element of the array in turn. This works provided that each of the array elements is a string.

Hope that helps,

[afoken]

my   @dd;
push @dd, split "\n", $_ for @TotalHosts;

No need for push and for:

my @dd=map { split "\n" } @TotalHosts;

Alexander

[sunil9009]

Thanks for the help, I modified the code but that didnt helped either. The scalar value for @dd returned by the code is as follows 1 1 4 Thats because Hostclass-A has 1 host, Hostclass B has 1 and C has 4 hosts. I want scalar(@dd) to be just 6 ( each host should be a separate element in an array )

sub gethosts {

foreach $class(@hostclass) {
chomp (@hosts_per_hostclass = `/opt/systems/bin/expand-hostclass --hos
+ts -r $class`) ;
my @dd;
push @dd, split "\n", $_ for @hosts_per_hostclass;
print scalar(@dd) , "\n";

}
}

[sunil9009]

Consider this resolved, foreach was printing it 3 times. Final working code is as follows. Thanks to all of you guys fo the pointers.

sub gethosts {

foreach $class(@hostclass) {

chomp (@hosts_per_hostclass = `/opt/systems/bin/expand-hostclass --hos
+ts -r $class`) ;
#print "@hosts_per_hostclass \n";
push @dd, split "\n", $_ for @hosts_per_hostclass;
}
return @dd;
}