perl 从指定行插入字符

最新推荐文章于 2022-11-13 16:45:00 发布

scan724

最新推荐文章于 2022-11-13 16:45:00 发布

阅读量2.2k

点赞数

分类专栏： zj-脚本

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/50424767

版权

zj-脚本专栏收录该内容

93 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl脚本`a27.pl`在`pp.txt`文件的第2行插入包含环境变量`$curip`的字符串。通过替换`$curip`为指定的IP地址（例如2.2.2.2），并将结果插入到文件的特定位置，实现了文本的动态插入。

摘要由CSDN通过智能技术生成

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
a
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
b
c
d
e
f
g