Help for this page

Select Code to Download


  1. or download this
    sub mem{ `tasklist /nh /fi "PID eq $$"` =~ m[(\S+ K)$] }
    
  2. or download this
    C:\test>\Perl22\bin\p1
    [0]{} Perl> print `tasklist /nh /fi "PID eq $$"`;;
    
     perl.exe                      2524 Console                    1      
    +9,384 K
    
  3. or download this
    [0]{} Perl> print `tasklist /fi "PID eq $$"`;;
    
     Image Name                     PID Session Name        Session#    Me
    +m Usage
     ========================= ======== ================ =========== =====
    +=======
     perl.exe                      2524 Console                    1      
    +9,428 K