| Как передать файловый дескриптор в качестве параметра функции |
[исправить] |
sub test{
my $handle = shift;
while (<$handle>){
.....
};
print {$handle} "test\n";
}
open (FH, "<file");
flock(FH, 1);
test(*FH);
|
| |
|
|
27.08.2001
|
| Раздел: Корень / Программисту и web-разработчику / Perl / Функции и модули в Perl |