I dalje necce, i mislim da to nema veze sa navodnicima.
Ne razumem shta se deshava sa
this, kao da gubim njegovu vrednost po izlasku iz konstruktora. Naime, ako u
Person.pm imam
Code:
#! /usr/bin/perl
package Person;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(myprint);
sub new
{
my $type = shift;
my $this = {};
$this->{'Name'} = $_[0];
$this->{'Surname'} = $_[1];
bless $this, $type;
print ("Name = ", $this->{'Name'}, "\n"); # (1)
print ("Surname = ", $this->{'Surname'}, "\n\n");# (2)
return $this;
}
sub myprint
{
}
1;
a u
test.pl
Code:
#!/usr/bin/perl
push (@INC, 'pwd');
use Person;
$p1 = new Person("Pera", "Peric");
$p2 = new Person("Laza", "Lazic");
$p1->myprint;
$p2->myprint;
onda je sve u redu. Ali ako linije (1) i (2) prebacim iz
new u
myprint onda se ne ispisuju vrednosti za Peru i Lazu.
Zashto?
[Ovu poruku je menjao karas dana 21.09.2005. u 10:45 GMT+1]
[Ovu poruku je menjao karas dana 21.09.2005. u 10:57 GMT+1]
Sveti Avgustin: "Dobar hrišćanin treba da se kloni matematičara i svih onih koji daju lažna proročanstva. Postoji opasnost da su matematičari već sklopili pakt sa Đavolom, da pomrače čovekov um i da ga okuju okovima pakla."