Help for this page

Select Code to Download

Select or download this

c:\@Work\Perl\monks>perl -wMstrict -le
"my $line = 'ubuntu    9377  0.0  0.1  23668  1600 pts/2    S+   18:23
+   0:00 top';
...
 print qq{captured:  (\\d*) ($1)  (\\w+) ($2)};
"
captured:  (\d*) (937)  (\w+) (7)