Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Blessables -- What Can You Make Into Objects?

by chromatic (Archbishop)
on Apr 20, 2000 at 23:52 UTC ( #8259=perltutorial: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    package Soldier;
    use constant NAME => 0;
    # similar methods for RANK and SERIAL
  2. or download this
    package Password;
    use Digest::MD5 qw(md5_base64);        # based on an idea by jbontje
        my $candidate = shift;
        return ($self eq md5_base64($candidate));
  3. or download this
    package WordMatch;
    sub new {
    print $wm->match("[hi] how are you?"), "\n";
    print $wm->match("hi how are you?"), "\n";
  4. or download this
    package ReadFile;
        my $line = <$self>;
        return  $line;
  5. or download this
    my $file = ReadFile->new("");
    print $file->read_record("package");
    print $file->read_record();
  6. or download this
    sub DESTROY {
        my $self = shift;
        close $self;
        print "Closed!\n";        # just to prove that it's working
  7. or download this
    package SubBrowser;
    sub new {
        my $self = shift;
        return &$self;
  8. or download this
    package Wrapper;
    use vars '$AUTOLOAD';
    # our new version
    my $wm2 = Wrapper->new(WordMatch->new("Hello"));
    print $wm2->match("[Hello] little girl"), "\n";

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://8259]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2015-10-10 11:18 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (255 votes), past polls