|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : yurik shestakov 2:5020/400 17 Nov 2005 15:52:28
To : Andrey Chernomyrdin
Subject : Re: вопрос про STDOUT
--------------------------------------------------------------------------------
On Thu, Nov 17, 2005 at 11:47:54AM +0000, Andrey Chernomyrdin wrote:
AC> то есть STDOUT он не ref, но метод print у него присутствует:
AC> $ perl -MIO::Handle -e '$o=STDOUT; $h=IO::Handle->new; STDOUT->print(
AC> "STDOUT=", $o, " ref=", ref $o, "\n" )'
AC> STDOUT=STDOUT ref=
AC> $ _
AC> ДаБ проверка STDOUT->can("print") не срабатывает ;-(, хотя работает
можно так:
#!/usr/bin/perl
use strict;
use FileHandle;
sub foo {
my $fh = shift;
print $fh ":",@_,":\n";
}
foo(\*STDOUT,'*stdout');
foo(new FileHandle('/dev/stdout','w'),'/dev/stdout');
--
// yurik shestakov
--- ifmail v.2.15dev5.3
* Origin: Unknown (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
