ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Dennis S.Davidoff 2:5020/400 06 Mar 2001 16:46:14
To : All
Subject : Можно ли использовать __END__ в модуле?
--------------------------------------------------------------------------------
Сабж. Делаю следующее:
- ---[cut]---
package ass;
require Exporter;
@ISA = (Exporter);
@EXPORT = qw(myfunc);
{
sub myfunc
{
while (<DATA>) {
chomp;
print ">> $_\n";
}
}
1;
}
__END__
some data
:)
- ---[cut]---
"Молчит". Хотя где-то читал, что все данные лежащие после __END__ могут быть
считаны через handle DATA :) Если писать таким образом:
- ---[cut]---
#!/usr/bin/perl
while (<DATA>) {
chomp;
print ">> $_\n";
}
__END__
some data
:)
- ---[cut]---
работает. Где грабли? :)
--- ifmail v.2.15dev5
* Origin: Central Telegraph Moscow Russia (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
