Thanks for this! It certainly works as shown. Is it documented anywhere? I haven’t been able to find CON: in either the Perl documentation or Programming Perl. In any case, it seems I was wrong: re-opening STDIN doesn’t solve anshulzunke’s problem:
If I add open *STDIN, '<', 'CON:' or die $!; immediately before the final call to readInput(), the script dies with:
Bad file descriptor at...
If I add it immediately before return $Password; in sub readPasswordWindows, there is no error but the script generates:
Use of uninitialized value $ip in concatenation (.) or string at...
as in the OP.
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In reply to Re^4: Problem with Windows Console input
by Athanasius
in thread Problem with Windows Console input
by anshulzunke
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |