Beefy Boxes and Bandwidth Generously Provided by pair Networks RobOMonk
No such thing as a small change
 
PerlMonks  

Re: Re: Re: Pure Perl tail call optimization

by abstracts (Hermit)
on Apr 26, 2002 at 06:18 UTC ( #162191=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    ...
        print "Usage: $0 tail|nontail\n";
        exit(-1);
    }
    
  2. or download this
    [334]: ./tail.pl tail
    abstract  5843  0.0  0.2  2324 1052 pts/0    S    01:00   0:00 tail
    ...
    abstract  5854 85.7  6.3 34084 32868 pts/0   S    01:00   0:06 nontail
    abstract  5854 85.7  7.1 38056 36836 pts/0   S    01:00   0:07 nontail
    abstract  5854 85.9  7.9 42024 40808 pts/0   S    01:00   0:08 nontail
    
  3. or download this
    [340]: time ./tail.pl tail > /dev/null
    real    0m6.079s
    ...
    real    0m10.423s
    user    0m9.530s
    sys    0m0.890s
    
  4. or download this
    SCM_BRANCH:
      if($br eq 'SCM_F1'){
    ...
      ...
      $br = $rp;
      goto SCM_BRANCH;
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2014-04-18 04:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (461 votes), past polls