主页 / unix / 问题 / 492886
Accepted
Gustavo Reis
Asked: 2019-01-07 13:24:53 +0800 CST

如何防止破坏符号链接，使用 Perl 何时用 sed 正则表达式替换？

  • 772

基于如何防止 sed -i 破坏符号链接？，但我使用 Perl。

我尝试了所有这些问题的中间：

这是不成功的。这是一个小而简单的示例：

#!/bin/perl
use strict; use warnings;

while (<>) 
{

  ## For all lines, replace all occurrences of #5c616c with another colour
  s/#5c616c/#8bbac9/g $(readlink -e -- "<>")

  ## $(readlink -e -- "<>") is similar to --in-place --follow-symlinks

  ## Print the line
  print;
}
sed perl

1 个回答

  1. Best Answer

    该readlink -e命令不可移植，因此不应依赖。

    $ cat input
Like quills upon the fretful porpentine.
$ ln -s input alink
$ readlink -e alink
readlink: illegal option -- e
usage: readlink [-n] [file ...]

    在 Perl 代码中，使用Perl 的readlink函数将链接替换为它指向的文件名，然后像往常一样循环输入。

    $ perl -i -ple 'BEGIN{for(@ARGV){ $_=readlink if -l }} tr/A-Z/a-z/' alink

    alink仍然是符号链接，内容input已修改：

    $ perl -E 'say readlink "alink"'
input
$ cat input
LIKE QUILLS UPON THE FRETFUL PORPENTINE.

    在 Perl 脚本中，这可能看起来像

    #!/usr/bin/env perl
use strict;
use warnings;

for my $arg (@ARGV) {
    $arg = readlink $arg if -l $arg;
}

# in-place edit with backup filename, perldoc -v '$^I'
$^I = ".whoops";

while (readline) {
    s/#5c616c/#8bbac9/g;
    print;
}

    如果输入包含重复的文件名，则可能需要List::Util::uniq或类似的方法来避免两次或多次修改相同的文件名。

    • 3

相关问题