Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
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 about the Monastery: (6)
As of 2015-07-05 20:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (68 votes), past polls