Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: Tie: Creating Special Objects

by blueflashlight (Pilgrim)
on Jul 07, 2001 at 07:42 UTC ( #94682=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    #!/usr/bin/perl -w
    printf("%20s%-20s\n", "load(5):\t",  $uptime->load('five'));
    printf("%20s%-20s\n", "load(15):\t", $uptime->load('fifteen'));
    printf("%20s%-20s\n", "string:\t",   $uptime->as_string);
  2. or download this
                uptime:     21 days,   8:02     
               load(5):     0.04                
              load(15):     0.03                
                string:      20:39pm  up 21 days,   8:02,  1 users,  load 
    +average:  0.04, 0.03, 0.04

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://94682]
[Corion]: dazz: BTW, the following should work (no Image::Magick installed, so untested): open(my $fh, '<', \$jpegbuffer); $image->Read(file= > $fh);
[choroba]: Hm, it seems my humble contributions to CPAN pass their test suites with the PERL5OPT set
[Corion]: choroba: I think most of my distributions still do, but some use Module::Install from inc and some use a modulino-style Makefile.PL to provide information to the author tests, so I certainly need/want to retest mine

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (12)
As of 2017-03-27 08:15 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (317 votes). Check out past polls.