[Perl] console hoogte

[muba]

Hoe kun je in Perl (ActivePerl 5.6.1 voor Windows) de hoogte van de console achterhalen (een console kan 25[standaard], 43 of 50 regels hoog zijn)?

[phreggle]

Ik doe normaal nooit wat met perl onder windows, maar na enig zoekwerk kwam ik tot het volgende:

code:

use Win32::Console;

my $console = new Win32::Console;
my ($x, $y) = $console->MaxWindow();

print($x."\n".$y."\n");

(Linux mensen kunnen gewoon gebruik maken van de environment variabelen $LINES en $COLUMNS )

Edit:

beetje bladeren door console.pm met in combinatie met het gebruik van Data::Dumper wil ook wel helpen. Er zit namelijk ook gewoon een Size() functie in.

(ik heb dit trouwens getest met versie ActiveState perl 5.8.0, ik hoop voor je dat het ook in 5.6.1 werkt )

[ Voor 37% gewijzigd door phreggle op 09-06-2003 00:12 ]

[muba]

Ik geloof dat het wel werkt ja dank je
hmm, Data::Dumper... hoe gebruik je dat het handigst?

[muba]

Nja, een RTFM vraag maar mijn boek is er niet echt duidelijk over

[phreggle]

Ik had m'n filetje van gisteren nog:

code:

C:\>type test.pl
use Win32::Console;
use strict;
use Data::Dumper;

my $console = new Win32::Console;

print Dumper \$console->Size();


C:\>test.pl
$VAR1 = \80;
$VAR2 = \25;

C:\>

Het is dus handig om te gebruiken bij het printen van hashes en arrays enzo en van dingen waarvan je de structuur niet weet (en die kan je zo dus achterhalen).

Het is wel vergelijkbaar met print_r() in php.

[ Voor 33% gewijzigd door phreggle op 09-06-2003 14:11 ]

[muba]

huuuuuuuuuuuuuuuu hoe doe je dat!
Je tikt gewoon in 'test.pl' en hij begint te lopen?!?! Zonder dat je 'perl' hoeft te tikken? Dat wil ik ook kunnen!

[phreggle]

Uhm, dit is gewoon een standaard active perl installatie. In ieder geval heb ik C:\perl\bin in m'n path staan, maar dat zal jij ook wel hebben dus.

Ik denk dat je het beste in explorer rechter muisknop op een .pl file kan doen en dan open with... en dan perl kiezen. Zo staat er bij mij nu Open with 'Perl command line interpreter'. En dan zal dan wel weer C:\perl\bin\perl.exe zijn.

[muba]

mja als ik op een .pl-etje dubbelklik dan gaat dat wel automatisch via d:\perl\bin\perl.exe maar als ik het op de command line intik niet.

[phreggle]

Tja, dat weet ik ook verder niet dan. Je zou eens kunnen proberen om ook 5.8.0 te installeren. Misschien dat de nieuwe versie dat regelt. Ik heb iig er niks speciaals voor gedaan.