Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

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]
[1nickt]: So decadent, I love it! "Frequently bought together ..." the biscuits *and* the spread ;-)
[virtualsue]: we had it in belgium a few years ago then realised you could buy it everywhere in the uk

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (10)
As of 2017-11-20 11:59 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (286 votes). Check out past polls.