On Wed, Dec 25, 2013 at 06:16:03PM +0400, Oleg Nurtdinov wrote:
> 1.  $string = readline( $self->{$fd}> );

Ещё:

    $x = $self->{$fd}; $s = <$x>;
    # или
    $self->{$fd}->getline;  # perldoc IO::Handle

>2. можно попробовать local *STDOUT = $my_fd;

Ещё:

    select $self->{$fd};    # perldoc -f select # ...который "select FILEHANDLE"
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить