Доступ к оператору "<>" пустого угла в Perl из фактического дескриптора файла? - PullRequest
4 голосов
/ 29 октября 2009

Мне нравится использовать отличную функцию perl, где чтение из оператора пустого угла <> волшебным образом дает вашей программе семантику фильтра UNIX, но я бы хотел иметь возможность доступа к этой функции через фактический дескриптор файла (или IO :: Handle (или аналогичный объект), так что я могу делать такие вещи, как передавать его в подпрограммы и тому подобное. Есть ли способ сделать это?

Этот вопрос особенно сложен для гугла, потому что поиск "оператор угла" и "дескриптор файла" просто говорит мне, как читать из файловых дескрипторов, используя оператор угла.

Ответы [ 3 ]

9 голосов
/ 29 октября 2009

С perldoc perlvar:

  • ARGV

Специальный файловый дескриптор, который перебирает имена файлов командной строки в @ARGV. Обычно записывается как нулевой дескриптор файла в операторе угла <>. Обратите внимание, что в настоящее время ARGV имеет магический эффект только в операторе <>; в другом месте это просто простой дескриптор файла, соответствующий последнему файлу, открытому <>. В частности, передача \*ARGV в качестве параметра функции, которая ожидает дескриптор файла, может не привести к тому, что ваша функция автоматически прочитает содержимое всех файлов в @ARGV.

Я полагаю, что это отвечает на все аспекты вашего вопроса в том смысле, что «Ненавижу это говорить, но он не будет делать то, что вы хотите». Что вы можете сделать, это сделать функции, которые принимают список имен файлов, чтобы открыть, и сделать это:

sub takes_filenames (@) {
  local @ARGV = @_;
  // do stuff with <>
}

Но это, вероятно, лучшее, что вы сможете сделать.

6 голосов
/ 29 октября 2009

Продолжая идею Криса Латца, приведем очень элементарную реализацию:

#!/usr/bin/perl

package My::ARGV::Reader;

use strict; use warnings;
use autodie;
use IO::Handle;

use overload
    '<>' => \&reader,
    '""' => \&argv,
    '0+' => \&input_line_number,
;

sub new {
    my $class = shift;
    my $self = {
        names => [ @_ ],
        handles => [],
        current_file => 0,
    };
    bless $self => $class;
}

sub reader {
    my $self = shift;

    return scalar <STDIN> unless @{ $self->{names}};

    my $line;

    while ( 1 ) {
        my $current = $self->{current_file};
        return if $current >= @{ $self->{names} };

        my $fh = $self->{handles}->[$current];

        unless ( $fh ) {
            $self->{handles}->[$current] = $fh = $self->open_file;
        }

        if( eof $fh ) {
            close $fh;
            $self->{current_file} = $current + 1;
            next;
        }

        $line = <$fh>;
        last;
    }
    return $line;
}

sub open_file {
    my $self = shift;
    my $name = $self->{names}->[ $self->{current_file} ];
    open my $fh, '<', $name;
    return $fh;
}

sub argv {
    my $self = shift;
    my $name = @{$self->{names}}
             ? $self->{names}->[ $self->{current_file} ]
             : '-'
             ;
    return $name;
}

sub input_line_number {
    my $self = shift;
    my $fh = @{$self->{names}}
           ? $self->{handles}->[$self->{current_file}]
           : \*STDIN
           ;
    return $fh->input_line_number;
}

, который можно использовать как:

package main;

use strict; use warnings;

my $it = My::ARGV::Reader->new(@ARGV);

echo($it);

sub echo {
    my ($it) = @_;
    printf "[%s:%d]:%s", $it, +$it, $_ while <$it>;
}

Выход:

[file1:1]:bye bye
[file1:2]:hello
[file1:3]:thank you
[file1:4]:no translation
[file1:5]:
[file2:1]:chao
[file2:2]:hola
[file2:3]:gracias
[file2:4]:
1 голос
/ 26 апреля 2010

Похоже, это уже реализовано как Iterator::Diamond. Iterator :: Diamond также отключает магию открытия с двумя аргументами, которую использует perl при чтении <ARGV>. Более того, он поддерживает чтение '-' как STDIN, не задействуя всю другую магию. Фактически, я мог бы использовать это для этой цели только на отдельных файлах.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...