James Edward Gray II <[EMAIL PROTECTED]> wrote: : : So my question is, is there a "Pure Perl" way to fetch : the terminal columns and rows?
I took a look at the source of Term::ReadKey and it seemed to be pure perl. Are you sure it's not?
Haven't got a clue, to tell the truth! <laughs>
I assumed it was not, for two reasons. One, the POD says, "Term::ReadKey is a compiled perl module..." and that ugly compiled word in there scared me. And two, I can't see where the function calls at the beginning of GetTerminalSize() are coming from (termsizeoptions(), GetTermSizeVIO(), GetTermSizeGWINSZ(), GetTermSizeGSIZE(), GetTermSizeWin32()).
I also just had the thought to go check the CPAN's listing. It said 'Rdcf?' under the DSLIP column. I'm pretty sure that middle 'c' in there means it's written in C and Perl. I know how dangerous assumptions are though, especially mine, and I won't be surprised if I'm wrong.
If it is, you could use it as a guide to write your own sub. Or, if you're allowed to install multiple files, you could include this module in your package.
I did try to look at the module, but as you can see, I can't tell what it's doing.
Finally, I can only use the include it trick if it is indeed pure Perl, right?
Thanks for all the good ideas. I did try them.
James
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
