Untitled
public text v1 · immutableforeach my $host (@result_array) {
my $name = $host->name;
$name =~ s/_/-/g;
$host->name ($name);
my $aliases = $host->aliases || [];
my @fixed;
foreach my $alias (@$aliases) {
$alias =~ s/_/-/g;
push @fixed, $alias;
}
$host->aliases (\@fixed);
# now call modify for the host
}