Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Undoable Objects

by chromatic (Archbishop)
on Aug 26, 2000 at 21:12 UTC ( #29813=perltutorial: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    #!/usr/bin/perl -w
    use strict;
        bless($self, $class);
        return $self;
  2. or download this
        my %history;
            $self->{$attrib} = $value;
  3. or download this
    sub color {
        my $self = shift;
        if (@_) {
  4. or download this
    #!/usr/bin/perl -w
    use strict;
        print $hist2->all(), "\n\n";

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://29813]
[LanX]: Yeah option a doesn't go into history
[LanX]: probably I need to teach the app to restart after C-c Kill
[Corion]: LanX: Maybe have an infinite-loop cmd file? Much easier than trying to manage that from within Perl IMO
[Corion]: Alternatively, relaunch the application from cron (or a Windows cron) every minute
[LanX]: will try infinite loop ...
[Corion]: :START ... goto START
[LanX]: oh .bat you mean?
[LanX]: obscure cult ...
[Corion]: LanX: cmd.exe is just another way to launch Perl
[LanX]: I know its a cult... and I repent it every time

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (13)
As of 2017-03-27 15:54 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (320 votes). Check out past polls.