|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Dennis S.Davidoff 2:5020/400 06 Mar 2001 16:54:24 To : All Subject : Re: Можно ли использовать __END__ в модуле? -------------------------------------------------------------------------------- Проблему уже сам решил. Сорри за постинг :) "Dennis S.Davidoff" <null@magelan.ru> сообщил/сообщила в новостях следующее: news:982m38$n8u$1@news247.cnt.ru... > Сабж. Делаю следующее: > > ---[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) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/81335989eec5.html, оценка из 5, голосов 10
|