|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 14 Mar 2003 19:41:28
To : Renat Araslanow
Subject : Re: ссылка на хэш (очень примитивный вопрос)
--------------------------------------------------------------------------------
Renat Araslanow <Renat.Araslanow@p1.f119.n5011.z2.fidonet.org> wrote:
> VP> <cut Dumper.pm>
>
> VP> @EXPORT = qw(Dumper);
> VP> @EXPORT_OK = qw(DumperX);
>
> VP> ...
>
> VP> sub Dumper {
> VP> return Data::Dumper->Dump([@_]);
> VP> }
>
> VP> # compat stub
> VP> sub DumperX {
> VP> return Data::Dumper->Dumpxs([@_], []);
> VP> }
>
> VP> </cut>
>
> VP> Чем "Dump" от "Dumpxs" отличается объяснить?
>
> а дальше посмотреть религия не позволила или просто stack overflow?
>
> sub Dump {
> return &Dumpxs
> unless $Data::Dumper::Useqq || (ref($_[0]) && $_[0]->{useqq});
^^^^^^^^^^^^^^^^^^^^
> return &Dumpperl;
> }
>
> сейчас можешь объяснять.
Тебе "$Useqq = 0 unless defined $Useqq;" не мешает в свете см. подчеркнутое?
AFAIR при $var = 0, unless $var возвращает true... Если мешает - см. Dummperl.
--
VP992-RIPE | The girl opened her heart, I opened a door to another world...
| (c) Tiamat, "Clouds" '92, "Undressed"
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
