Help for this page

Select Code to Download


  1. or download this
    package Celcius;

...

     return bless \$data, $class;
}
  2. or download this
    sub STORE{
    my $self=shift;
    my $data=shift;
    $$self = ($data*(9/5)+32);
    }
  3. or download this
    sub FETCH{
    my $self=shift;
...
    }

1;
  4. or download this
    #!/usr/bin/perl -w

...
    $temp = $_;
    print "Temp is $_ (F) ($temp (C))\n";
}