zoukankan      html  css  js  c++  java
  • perl 从指定行插入字符

    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 "$!
    ";
        while (<C>) {
    chomp $_;
        if  ($. == 2 ){
         print "$str
    ";
         print "$_
    ";
        
                }
    else {print "$_
    ";}
             }
    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

  • 相关阅读:
    HDU 1874 畅通工程续
    HDU 1232 畅通工程
    HDU 1233 还是畅通工程
    HDU 1269 迷宫城堡
    洛谷 P1078 文化之旅
    POJ 3461 Oulipo
    最长链
    矩形面积求并
    有趣的数
    修复公路
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13351114.html
Copyright © 2011-2022 走看看