Zeilenbreite von Zeichen herausfinden? [perl]

[Raver2]

hi,

wie kann ich in Perl die breite der Konsole (Linux) herausfinden, und zwar in Zeichen ...

Danke im Voraus

[Caveman]

#!/usr/bin/perl

use Term::ReadKey;

($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize;

print "$wchar $hchar $wpixels $hpixels\n";

Bei den beiden pixel-Variablen kommt bei mir überraschenderweise 0 raus, aber die Größe nach Zeichen funktioniert.

Edit: Wenn ich länger darüber nachdenke, ist es gar nicht so überraschend mit der 0. In der Konsole geht es nun mal nicht um Pixel, wichtiger ist dies eher bei Fenstern und dort wird es dann, denke ich, schon was anzeigen (Dafür wahrscheinlich die Breite und Höhe in Zeichen nicht mehr).

[Raver2]

DANKE
meinte ich ja, wie inner konsole mit
echo $LINES $COLUMNS