OpenForum RSS: �� perl

�� perl (bibi)

Tue, 13 Jan 2009 20:36:34 GMT

��, �� :

� �� %
bless $self, $class;

� �� :
my $self = shift->SUPER::new(@_);

�� perl (bibi)

Sun, 11 Jan 2009 14:15:19 GMT

>�� , �� package listadmin ��
>��

�� :
� �� , ��

�� perl (bibi)

Sat, 10 Jan 2009 22:08:28 GMT

�� , �� package listadmin ��

�� perl (bibi)

Sat, 10 Jan 2009 22:04:02 GMT

>�� , �� lama book(http://en.wikipedia.org/wiki/Learning_Perl)
>� alpaca book(http://en.wikipedia.org/wiki/Intermediate_Perl). ��
>��. �� , ��
>�� .
>
>� �� ?

��
package func;

use strict;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
#use HTML::Template;
#use POSIX qw(ceil floor);

sub new {

my ( $self, %common ) = @_;
$self = {
se => undef,
session => undef,
he => undef,
p => undef,
query => undef
};

$self->{'se'} = $common{'se'} if $common{'se'};
$self->{'session'} = $common{'session'} if $common{'session'};
$self->{'he'} = $common{'he'} if $common{'he'};
$self->{p} = $common{p} if $common{p};
$self->{query} = $common{query} if $common{query};

�� perl (angra)

Sat, 10 Jan 2009 10:45:35 GMT

�� , �� lama book(http://en.wikipedia.org/wiki/Learning_Perl) � alpaca book(http://en.wikipedia.org/wiki/Intermediate_Perl). �� . �� , �� .

� �� ?

�� perl (bibi)

Fri, 09 Jan 2009 20:50:13 GMT

��

�� perl (bibi)

Fri, 09 Jan 2009 20:49:06 GMT

>�� man perltooc?

�� , �� man perltooc �� (� �� ), �� man perltoot...

�� perl (angra)

Fri, 09 Jan 2009 11:40:57 GMT

�� man perltooc?

�� , �� :
#!/usr/bin/perl -w
use strict;
package Parent;
sub new {
print "Parent::new @_\n";
my $pkg=shift;
my $data=shift;
my $self={parent_data=>$data};
bless $self,$pkg;
}
sub echo {
my $self=shift;
print "$self->{parent_data}\n";
}
package Child;
use base 'Parent';
sub new {
print "Child::new @_\n";
my $pkg=shift;
my ($data_p, $data_c)=@_;
my $self=$pkg->SUPER::new($data_p);
$self->{child_data}=$data_c;
return $self;
}
sub echo {
my $self=shift;
print "$self->{child_data}\t";
$self->SUPER::echo;
}

package Main;
my $a=Parent->new("a_p");
my $b=Child->new("b_p","b_c");
use Data::Dumper;
print Dumper($a,$b);
$a->echo;
$b->echo;

�� , �� , � �� (��

�� perl (bibi)

Thu, 08 Jan 2009 12:00:35 GMT

>�� my $self = shift; ��
>��. �� , ��
>�� .

�� , � ��

� �� ... ��

OpenForum RSS: ��� ����������� ����������� perl

��� ����������� ����������� perl (bibi)

��� ����������� ����������� perl (bibi)

��� ����������� ����������� perl (bibi)

��� ����������� ����������� perl (bibi)

��� ����������� ����������� perl (angra)

��� ����������� ����������� perl (bibi)

��� ����������� ����������� perl (bibi)

��� ����������� ����������� perl (angra)

��� ����������� ����������� perl (bibi)

OpenForum RSS: �� perl

�� perl (bibi)

�� perl (bibi)

�� perl (bibi)

�� perl (bibi)

�� perl (angra)

�� perl (bibi)

�� perl (bibi)

�� perl (angra)

�� perl (bibi)