主页 / server / 问题 / 391284
Accepted
Eytan
Asked: 2012-05-22 20:35:02 +0800 CST

Perl 命令行 + 在文件中的字符串前添加 PATH

  • 772

我想通过 perl 命令行在文件中添加 PATH - /usr/local/bin/perl befpore 字符串（perl 命令行必须在我的 bash 脚本中），我有 solaris 机器

要添加的目标 - /usr/local/bin/perl在文件中的$APIDIR/scan.pl行 之前和 char - 之后

请建议如何在$APIDIR/scan.pl 之前 添加 PATH - /usr/local/bin/perl所以最后我会得到

新线的 -

      my $APIDIR="/usr/local/cp/api";           remark -  this line shouldn’t be change
      my $script="/usr/local/bin/perl   $APIDIR/scan.pl";

代替

     my $APIDIR="/usr/local/cp/api";
     my $script="$APIDIR/scan.pl";

我尝试以下但它没有改变行：

  [root@machine1a /var/tmp]#  perl -p -i -e 's/\/usr\/local\/bin\/perl \$APIDIR\/scan.pl/\$APIDIR\/scan.pl/g' file




  [root@machine1a /var/tmp]# more file
  my $APIDIR="/usr/local/cp/api";
  my $script="$APIDIR/scan.pl";
solaris perl bash

2 个回答

  1. Best Answer

    你可以用 sed 来做到这一点，例如

    sed 's|$APIDIR/scan.pl| /usr/local/bin/perl   $APIDIR/scan.pl|' file >file.new

    或者用 perl

    perl -p -i -e  's|$APIDIR/scan.pl| /usr/local/bin/perl   $APIDIR/scan.pl|' file
    • 1

  2. 所以你想用 /usr/local/bin/perl $APIDIR 替换 $APIDIR ？如果是这样，你的正则表达式是落后的。你想要这样的东西：

    s/\$APIDIR\/\/usr\/local\/bin\/perl $APIDIR/

    所以尝试：

    perl -p -i -e 's#\$APIDIR#\/usr\/local\/bin\/perl \$APIDIR#g' file

    我希望这就是你所追求的——

    • 0

相关问题