εκτέλεση shell commands μέσα σε perl script (SOLVED)

[Apollon Koutlidis]

Giorgos Keramidas wrote:
> On Fri, 17 Apr 2009 14:32:39 +0100, Apollon Koutlidis <apollon at planewalk.net> wrote:
>   
>> Γιώργος Πάλλας wrote:
>>     
>>> Michael Iatrou wrote:
>>>
>>>       
>>>> When the date was Thursday 16 April 2009, Γιώργος Πάλλας wrote:
>>>>
>>>>   ...
>>>>
>>>> @out = `top -bn1`;
>>>>         
>>> Κοίτα τι μάθαμε: το top βγάζει πέρα από το ορατό output και ένα κάρο
>>> control characters όταν ΔΕΝ τρέχει σε batch mode..
>> FYI και για άλλες περιπτώσεις που δε σου δίνουν επιλογές σαν το -b της
>> top, το ίδιο μπορείς να κάνεις και αλλάζοντας τον τύπο του τερματικού σε
>> dumb - π.χ.: TERM=dumb top -m1
>>     
>
> ... ή να φιλτράρεις το output μέσα από το col(1) utility:
>
>     % top | col -b | mystuff
>   
Χμιχμι, την col δεν την είχα ξαναματακούσει αλλά στον εργασιοσταθμό μου 
δε φαίνεται να λειτουργεί "as advertised" (i.e. δεν παράγει καθαρό 
κείμενο κατάλληλο για logging / text processing):

akoutlid at jalfrezi:~$ top -n1 | col -b
H2JmBtop - 13:34:01 up 12 days, 56 min,  3 users,  load average: 0.29, 
0.39, 0.42mB39;49mK
Tasks:mB39;49mmB 165 mB39;49mtotal,mB39;49mmB    1 
mB39;49mrunning,mB39;49mmB 164 mB39;49msleeping,mB39;49mmB   0 
mB39;49mstopped,mB39;49mmB   0 mB39;49mzombiemB39;49mK
...

Τι έκανα / κατάλαβα λάθος;

Α.