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

[Christos Ricudis]

Γιώργος Πάλλας wrote:
>
> Κοίτα τι μάθαμε: το top βγάζει πέρα από το ορατό output και ένα κάρο
> control characters όταν ΔΕΝ τρέχει σε batch mode...
>
> Thanks Michael!
>
> $ top -n1 | hexdump -c 
> ...
> \n   C   p   u   (   s   )   : 033   [   m 033   (   B 033   [

Kai pws alliws 8a eftiaxne to screen layout tou ektos apo to na 
xrhsimopoihsei ANSI/VT100 control sequences?

Dokimase na trekseis otidhpote kanei screen layout me redirect se 
arxeio, kai des meta ti exei mesa to arxeio. Ystera rikse mia matia p.x. 
edw : http://en.wikipedia.org/wiki/ANSI_escape_code

Gi ayto akribws polla programmata to prwto poy kanoyn einai oti kaloun 
thn isatty() h kapoio higher-level interface ths agaphmenhs biblio8hkhs 
tous (ncurses) pou kanei thn idia douleia. An diapistwsoun oti to 
standard output DEN einai termatiko, apla apenergopoioun to layout.

Kai gi ayto akribws, polla programmata sou dinoun epilogh tou pws 8eleis 
na treksoun - opws to batch mode tou top.