ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Albert N. MICHEEV                    2:5049/80      20 Jun 2001  12:42:57
 To : Albert N. MICHEEV
 Subject : package aliasing
 -------------------------------------------------------------------------------- 
 

 
 Пpивет Albert!
 ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 Отвечая на письмо Albert N. MICHEEV к All от <19 Июн 01>:
 
  ANM> можно ли как-нибyдь создавать алиас для объектного модyля, по типy
  ANM> С++ого:
  ANM>     namespace CurrentPart = Codepart::ver1_20;
 
 забавный штyкенций полyчился, но чyю гдето недоглядел...
 
 =================================
 package namespace;
 
 =head1 NAME
 
 namespace - Perl pragma to use like C++ namespace aliasing
 
 =head1 SYNOPSIS
 
     use namespace qw/File IO::File/;
 
     my $fh = new File ">foo";
     if( defined $fh )
     {
         print $fh "bar\n";
         $fh->close;
     }
 
 =cut
 
 use strict;
 
 sub import{
     my ($slf, $als, $pkg) = (shift, shift, shift);
     my $imp = join ' ', @_;
     my $clr = (caller)[0];
 
     eval sprintf <<'PACKAGE', $als, $pkg, $imp, $pkg, $pkg;
     package %s;
     use %s qw(%s);
     require Exporter;
 
     our @ISA = qw(%s Exporter);
     our @EXPORT = @%s::EXPORT;
     1;
 PACKAGE
 
 }
 
 1;
 =================================
 
 --- ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
  * Origin: Мы из Советского Союза, пpибыли по кyльтypномy обменy. (2:5049/80)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    package aliasing   Albert N. MICHEEV   19 Jun 2001 23:00:43   package aliasing   Albert N. MICHEEV   20 Jun 2001 12:42:57   package aliasing   Alexander Kostiuchenko   21 Jun 2001 09:04:29   package aliasing   Albert N. MICHEEV   23 Jun 2001 11:00:45   Re: package aliasing   Vladimir Zhebelev   24 Jun 2001 19:56:26   package aliasing   Albert N. MICHEEV   25 Jun 2001 22:43:30