ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Leonid Bondarenko                    2:5019/21.11   18 Sep 2000  23:47:26
 To : All
 Subject : oop
 -------------------------------------------------------------------------------- 
 

 Просветите плиз :)
 
 package Fido::Msg;
 require Exporter;
 @ISA = qw(Exporter);
 @EXPORT = qw(Load_Msg...);
 ...
 my ($msg...)
 ...
 sub Load_Msg()
 {
  ... здесь читается из файла @_[1] в $msg
 }
 sub new()
 {
  my $self = shift;
  my $type = ref($self) || $self;
  return bless {}, $type;
 }
 BEGIN
 {
 
 }
 #!/usr/bin/perl
 use Fido::Msg;
 
 $fmsg = Fido::Msg->new();
 $fmsg2 = Fido::Msg->new();
 
 $fmsg->Load_Msg("./1.msg");
 
 $fmsg2->Load_Msg("./313.msg");
 
 $fmsg->Print_Msg();
 
 $fmsg2->Print_Msg();
 
 Выводится два раза 313.msg, где руки править?
 
 Leonid
 
 --- GoldED/LNX 3.0.1
  * Origin: np: Pink Floyd :) (2:5019/21.11)
 
 

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

Тема:    Автор:    Дата:    oop   Leonid Bondarenko   18 Sep 2000 23:47:26   oop   Albert N. MICHEEV   19 Sep 2000 09:00:25   oop   Alexander Martynenko   19 Sep 2000 14:20:17   oop   Oleg Bakiev   19 Sep 2000 16:20:40   oop   Andy Uskov   19 Sep 2000 17:02:08