Início / unix / Perguntas / 781540
Accepted
Uwe
Asked: 2024-08-07 20:26:56 +0800 CST

perl: Use "-" para entrada padrão com 3 argumentos abertos

  • 772

A versão antiga de 2 argumentos de open(ou seja, open FILEHANDLE,EXPR) para abrir um arquivo em perl está obsoleta. Por motivos de segurança, deve ser substituído pela versão de 3 argumentos open FILEHANDLE,MODE,EXPR. Porém, há um caso em que a versão com 3 argumentos se comporta de maneira diferente da versão com 2 argumentos:

2-arg openinterpreta o nome do arquivo especial -como entrada padrão. Por exemplo, ambos

echo foo | perl -e 'open my $fh, "-"; $_ = <$fh>; print $_;'

e

echo foo | perl -e 'open my $fh, "<-"; $_ = <$fh>; print $_;'

produzir a saída foo. Na versão de 3 argumentos, a interpretação especial de -desapareceu, entretanto:

echo foo | perl -e 'open my $fh, "<", "-"; $_ = <$fh>; print $_;'

não imprime nada.

Qual é a maneira padrão ou recomendada de emular esse recurso de 2-arg openusando 3-arg open? (Na aplicação concreta, o nome do arquivo é um argumento do programa que pode ou não ser -.)

perl

1 respostas

  1. Best Answer

    Para obter o formato de 3 argumentos equivalente a esses atalhos de 2 argumentos, consulte a seção sobre duplicação de identificadores de arquivo em perldoc -f open:

    Duplicando identificadores de arquivos

    Você também pode, na tradição do Bourne Shell, especificar um EXPR começando com ">&", caso em que o restante da string é interpretado como o nome de um identificador de arquivo (ou descritor de arquivo, se numérico) a ser enganado (como em dup(2)) e aberto. Você pode usar "&" depois de ">", ">>", "<", "+>", "+>>" e "+<". O modo especificado deve corresponder ao modo do identificador de arquivo original. (Duplicar um filehandle não leva em consideração nenhum conteúdo existente de buffers IO.) Se você usar o formato de três argumentos, poderá passar um número, o nome de um filehandle ou a "referência a um glob" normal.

    $ echo test | perl -e '
  open my $fi, "<&", \*STDIN or die;
  open my $fo, ">&", \*STDOUT or die;
  $line = <$fi>; print $fo $line'
test

    Observe que esse -é um nome de arquivo tão válido quanto qualquer outro, um dos motivos para evitar a forma de 2 argumentos de open.

    Se você deseja que seu programa seja tratado -como stdin quando aberto para leitura (e uname|para significar o arquivo chamado uname|, não a saída de unamee os outros casos especiais perigosos suportados pela forma de 2 argumentos de open), você deseja fazer isso por mão:

    # for input:
if ($filename eq '-') {
  $fh = *STDIN;
} else {
  open $fh, '<', $filename or die;
}

    # for output
if ($filename eq '-') {
  $fh = *STDOUT;
} else {
  open $fh, '>', $filename or die;
}
    • 1

relate perguntas