|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Arkhipov Dmitriy 2:5020/400 20 Oct 2001 23:05:42
To : All
Subject : Открытие и закрытие файла в отдельных функциях
--------------------------------------------------------------------------------
День добрый!
Есть следующее:
1.
open_file(TEMPLATE,'<'.'html/template.dat');
while($newtext=<TEMPLATE>){$template.=$newtext;}
close_file(TEMPLATE);
И вот захотелось мне вынести open() и close() в отдельные функции:
2.
sub open_file($$)
{
my $file_handle=shift @_;
my $file_name=shift @_;
unless(open($file_handle,$file_name))
{exit;}
return 1;
}
sub close_file($)
{
my $file_handle=shift @_;
unless(close($file_handle))
{exit;}
return 1;
}
Hо это не работает! Как сделать правильно? Используя ссылки? Если да, то
как их используя?
С уважением,
Архипов Дмитрий.
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: SMTU (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
