No need for reply....I found the diffrences...10x
On Thu, Jul 15, 2010 at 1:54 PM, Chanan Berler <bc.ot...@gmail.com> wrote:
> Hi All,
>
> following OO i have tried the following:
> but i found that there is a diffence between:
>
> #my $c1 = Number::Complex::new(2,5);
> my $c1 = new Number::Complex(2,5);
>
> Seems like I am getting a warning saying my number is not numeric ??!!
> (what tring to run the 'add' sub)
> Can any one explain it to me ?
> thanks
> Chanan
>
> This is what i tried:
> ================
> package Number::Complex;
> sub new
> {
> my ($real, $image) = @_;
> my $ref_c = { _real => $real, _image => $image };
> bless $ref_c, "Number::Complex";
> return $ref_c;
> }
>
> sub toString
> {
> my $ref_c = shift; return "$ref_c->{_real} + $ref_c->{_image}i";
> }
>
> sub add
> {
> my ($ref_c1, $ref_c2) = @_;
> my $ref_c = Number::Complex::new($ref_c1->{_real} +
> $ref_c2->{_real}, $ref_c1->{_image} + $ref_c2->{_image});
> return $ref_c;
> }
>
> #my $c1 = Number::Complex::new(2,5);
> my $c1 = new Number::Complex(2,5);
> my $c2 = Number::Complex::new(3,4);
>
> my $c3 = $c1->add($c2);
>
> --
> ===================
> ---- Chanan Berler ----
> ===================
>
--
===================
---- Chanan Berler ----
===================
_______________________________________________
Perl mailing list
Perl@perl.org.il
http://mail.perl.org.il/mailman/listinfo/perl
