Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Basic Objects with Overloaded Operators

by perlmonkey (Hermit)
on Apr 20, 2000 at 00:32 UTC ( #8076=perltutorial: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    package Complex;
    use Carp;
            return $self->[$position] = $value;
  2. or download this
    use Complex;
    #create a new object
    my $x = new Complex;
    $x->Imag(-5);                #set $x's imaginary part to '-5'
    print $x->Real." ".$y->Imag; #prints '3 -3'
  3. or download this
    use overload
        "\"\"" => \&Cmp_string,
        "+"    => \&Cmp_add,
        "*"    => \&Cmp_multiply;
  4. or download this
        print $x;             #prints '3 - 5I'
        my $str = "$x";       #$str = '3 - 5I'
  5. or download this
        $x = $x + $y;
        $y = $x + 2;
        $y =  2 + $x;
  6. or download this
        $y = $x * $x;
        $y = $x * 2;
        $y =  2 * $x;
  7. or download this
    sub Cmp_string
        #get the object
        #   arithmetic    
        return new Complex($real, $imag);
  8. or download this
    package Complex;
    use Carp;
    use strict;
    #module exit status

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://8076]
[muthusathish]: i dont have source code too
[muthusathish]: it is used in VB 6 appln, while debugging is getting error
[hippo]: Somebody has. Ask the author.
[Eily]: muthusathish ok, the fact that you can't tell what perl has to do with it proves it: this is not perl

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2018-02-23 09:20 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (301 votes). Check out past polls.