Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

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("obself.pl");
    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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2014-09-24 05:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (246 votes), past polls