求助，怎么添加字符？？

vTNTVV

回复 9# yestreenstars

谢谢


   

licong_jay

#!/usr/bin/perl

print "please input the alias name, one name per line:\n";
while(<STDIN>){
        chomp;
        push @hosts, $_;
}

print "\n";
while(<DATA>){
        chomp;
        $line=$_;
        for $host(@hosts){
                $line =~ s/$/, $host/ if $line=~/members/;
        }
        print "$line\n";
}

__DATA__
define hostgroup{
         hostgroup_name          mysql-servers
         alias                   mysql Servers
         members                 mysql-157
         }

$ ./2012.pl
please input the alias name, one name per line:
mysql-158
mysql-159
mysql-160

define hostgroup{
         hostgroup_name          mysql-servers
         alias                   mysql Servers
         members                 mysql-157, mysql-158, mysql-159, mysql-160
         }

顺便说一下,copy楼主的原文本要当心, 需要dos2unix转换一下格式