zjzc01:/root/big2# cat a27.pl 
$curip="$ARGV[0]";
$str='export CATALINA_OPTS="$CATALINA_OPTS -Djava.rmi.server.hostname=$curip -Dcom.sun.management.jmxremote -Dcom.sun.management.jmxremote.port=10053 -Dcom.sun.management.jmxremote.ssl=false -Dcom.sun.management.jmxremote.authenticate=false';
$str =~ s/\$curip/$curip/g;
open( C, "<", "pp.txt" ) || die "$!\n";
    while (<C>) {
chomp $_;
    if  ($. == 2 ){
     print "$str\n";
     print "$_\n";
else {print "$_\n";}
zjzc01:/root/big2# perl a27.pl  2.2.2.2
export CATALINA_OPTS="$CATALINA_OPTS -Djava.rmi.server.hostname=2.2.2.2 -Dcom.sun.management.jmxremote -Dcom.sun.management.jmxremote.port=10053 -Dcom.sun.management.jmxremote.ssl=false -Dcom.sun.management.jmxremote.authenticate=false
                    zjzc01:/root/big2# cat a27.pl $curip="$ARGV[0]";$str='export CATALINA_OPTS="$CATALINA_OPTS -Djava.rmi.server.hostname=$curip -Dcom.sun.management.jmxremote -Dcom.sun.management.jmxremote.port=10053 
				
因工作量太大，所以写了一个脚本完成自动化工作。工作内容是，在crontab中内容如下：
*/1****/home/nagios/nsca/nagios_check_ping.sh 192.168.1.1>/dev/null2>&1
*/1****/home/nagios/nsca/nagios_che...
				
Perl读取特定行
VCS编译会产生log文件，包含了Error、Warning和lint信息，特别是warning和lint的数量比较多，直接在Lint中查找比较麻烦，并且还存在大量我们不关系的Lint信息，此时可以通过Perl将我们关心的包含了Error、Warning和lint信息提取出来，进行查看会方便很多。DC综合都会产生很多log文件，使用Perl提取特定行也会很方便。
1.提取包...
my $input = join("", <>);  # 读取所有输入行并连接为一个字符串
$input =~ s/\s+/ /g;       # 将所有空白字符替换为单个空格
print $input;
您可以使用重定向操作符来将输入文件传递给脚本，例如：
$ perl script.pl < input.txt > output.txt
这将把名为“input.txt”的文件作为输入，并将结果写入名为“output.txt”的文件中。