Como o UserA pode substituir programaticamente uma string de texto em um arquivo de sua propriedade localizado em/etc?

Use edem vez de sed. Normalmente este é um editor interativo, mas você pode alimentar comandos para sua entrada padrão usando um documento aqui.

ed /etc/filename <<EOF
1,$s/old/new/g
w
EOF

O problema com perl -ie sed -ié que eles tentam criar um arquivo de backup/temporário em /etce $USERnão têm wpermissão de rito em /etc. Você poderia:

cp /etc/myfile  $HOME/myfile
sed -i ... $HOME/myfile
cp $HOME/myfile /etc/myfile

Isso deixará o arquivo de backup no formato $HOME. Os arquivos de backup (configurações antigas) não pertencem ao /etc.

Esta não é a maneira mais segura, pois um erro no sedscript resultará no truncamento do arquivo /etc/targetfile.

Para contornar a incapacidade de gravar arquivos temporários em /etc, é claro que a maneira ingênua seria tentar e sed [...] /etc/targetfile >/etc/targetfile, que seria truncado /etc/targetfileantes de /etc/targetfileter a chance de ser lido por sed; uma maneira de contornar isso seria usar sponge, que não substituirá o arquivo de destino até que o STDIN tenha sido totalmente lido, evitando efetivamente o truncamento do arquivo de origem antes de ele ter sido totalmente processado, ao mesmo tempo permitindo contornar o limitação imposta pelas permissões em /etc.

Por sua manpágina :

esponja lê a entrada padrão e a grava no arquivo especificado. Ao contrário de um redirecionamento de shell, o Sponge absorve toda a sua entrada antes de abrir o arquivo de saída. Isso permite restringir pipelines que leem e gravam no mesmo arquivo.

sed [...] /etc/targetfile | sponge /etc/targetfile

Eu apenas usaria o awk e armazenaria tudo na memória e depois escreveria no final (depois que o awk fechasse o arquivo de entrada), por exemplo, usando qualquer awk:

awk '
    { sub("^f4442:/dir1/dir2/59.35:N", "f4442:/dir1/dir2/59.77:N"); rec=rec $0 ORS }
    END { printf "%s", rec > FILENAME }
' file

Com a entrada de amostra postada, observe a mudança na terceira linha a partir do topo:

$ cat file
f1112:/dir1/dir2/59.35:N            # Comment
f3332:/dir1/dir2/59.35:N            # Comment
f4442:/dir1/dir2/59.35:N            # Comment
f555:/dir1/dir2/59.35:N             # Comment
f666s2:/dir1/dir2/59.35:N           # Comment
f777s2:/dir1/dir2/59.35:N           # Comment

$ awk '
    { sub("^f4442:/dir1/dir2/59.35:N", "f4442:/dir1/dir2/59.77:N"); rec=rec $0 ORS }
    END { printf "%s", rec > FILENAME }
' file

$ cat file
f1112:/dir1/dir2/59.35:N            # Comment
f3332:/dir1/dir2/59.35:N            # Comment
f4442:/dir1/dir2/59.77:N            # Comment
f555:/dir1/dir2/59.35:N             # Comment
f666s2:/dir1/dir2/59.35:N           # Comment
f777s2:/dir1/dir2/59.35:N           # Comment

Se o arquivo for grande, sugiro usar um arquivo temporário como:

tmp=$(mktemp) &&
awk '{sub("^f4442:/dir1/dir2/59.35:N", "f4442:/dir1/dir2/59.77:N")} 1' file > "$tmp" &&
cat "$tmp" > file
rm -f "$tmp"

Dessa forma, você está novamente alterando apenas o conteúdo de file, não substituindo-o.

PS Pessoalmente, eu não usaria uma pesquisa regexp e substituiria isso, pois apresenta muitas dicas sobre o que poderia estar presente na entrada e/ou na string de pesquisa. Em vez disso, usaria strings literais, por exemplo:

awk -v old='f4442:/dir1/dir2/59.35:N' -v new='f4442:/dir1/dir2/59.77:N' '
    index($0,old) == 1 { $0 = new substr($0,length(old)+1) }
    { rec = rec $0 ORS }
    END { printf "%s", rec > FILENAME }
' file

Isso ainda teria que ser ajustado se o caminho do diretório pudesse conter barras invertidas, mas isso é fácil de lidar, se necessário, por exemplo, veja ENVIRON[]em how-do-i-use-shell-variables-in-an-awk-script .

Eu não mencionei esse caso no Perl Cookbook porque é muito raro, mas como sua string de substituição tem exatamente o mesmo comprimento da string original, na verdade é possível atualizar o arquivo do disco no lugar - simplesmente redefinindo o ponteiro de busca de volta para onde estava quando aquela linha foi lida.

O código a seguir funciona no seu arquivo, conforme testado em um sistema Ubuntu:

#!/usr/bin/env perl

use strict;
use warnings;

###my $filename   = "$ENV{HOME}/tmp/targetfile"; # for testing
my $filename   = "/etc/targetfile";
my $old_string = "f4442:/dir1/dir2/59.35:N";
my $new_string = "f4442:/dir1/dir2/59.77:N";

length($old_string) == length($new_string)
    || die "old and new string must be the same length";

open(my $fh, "+<", $filename) || die "can't open $filename for update: $!";
$fh->autoflush(1);

my $filepos = 0;

while (<$fh>) {
    next unless s/\Q$old_string\E/$new_string/g;
    warn "updating line of $filename at position $filepos"; # or comment out if you're confident :)
    seek($fh, $filepos, 0) || die "can't seek to pos $filepos in $filename: $!";
    print($fh $_)          || die "can't write new line to $filename as pos $filepos: $!";
}
continue {
    $filepos = tell($fh);
}

close($fh) || die "can't close $filename: $!";

A moral da história é que, surpreendentemente, você realmente pode usar o mesmo identificador para leitura e escrita, se for muito, muito , muito cuidadoso - e somente se houver um seekidentificador de arquivo no stdio entre a alteração de E/ S "instruções" (da leitura para a escrita ou vice-versa), como existe aqui. Isso é necessário para manter o buffer stdio em ordem e, embora o perl use seu próprio sistema de buffer de E/S , as mesmas regras POSIX herdadas se aplicam.

Essa abordagem é especialmente atraente porque não ocupa mais memória proporcional ao tamanho do arquivo, como faz a desagradável abordagem "leia tudo na memória primeiro". Isso significa que você pode executar isso em um arquivo com cem milhões de linhas, se desejar, e não consumirá mais memória do que consumiria para um arquivo minúsculo.

É extremamente corajoso, dada a falta de apoio.