Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^4: Any downsides to this slurp idiom?

by vr (Curate)
on Jun 22, 2018 at 23:03 UTC ( #1217263=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    >perl -wE "system(qq($^X -v));my$s=do{local(@ARGV,$/)='1GB';<>};system
    +('typeperf """\\Process(perl)\\Working Set Peak""" -sc 1')"
    
    ...
    "(PDH-CSV 4.0)","\\DESKTOP-P81QO3Q\Process(perl)\Working Set Peak"
    "06/23/2018 01:47:53.431","2192527360.000000"
    
  2. or download this
    >perl -wE "system(qq($^X -v));my$s=do{local(@ARGV,$/)='1GB';<>};system
    +('typeperf """\\Process(perl)\\Working Set Peak""" -sc 1')"
    
    ...
    "(PDH-CSV 4.0)","\\DESKTOP-P81QO3Q\Process(perl)\Working Set Peak"
    "06/23/2018 01:58:33.467","1099583488.000000"
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2021-10-24 10:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (89 votes). Check out past polls.

    Notices?