However, this works:
use strict;
use warnings;
my $windoze;
BEGIN {
$windoze = 1 if $^O eq 'MWin32';
if ($windoze) {
print "Looks like its Windoze\n";
eval "use Win32::Console";
} else {
print "Looks like its not Windoze\n";
eval "use Term::ANSIScreen";
}
}
# ...
my $console;
if ($windoze) {
no strict;
print "Win32::Console \n";
$console = Win32::Console->new(STD_OUTPUT_HANDLE);
} else {
print "Term::ANSIScreen \n";
$console = Term::ANSIScreen->new();
}
Don't really like have the 'no strict' in there but it's a work around
unless we can come up with something more elegant.
Cheers,
John
> -----Original Message-----
> From: John Serink
> Sent: Thursday, October 06, 2005 10:13 PM
> To: '$Bill Luebkert'
> Cc: [email protected]
> Subject: RE: Cross platform issues
>
>
> Hi Bill:
>
> Ok, tried your example, here it is on windows:
> use strict;
> use warnings;
>
> my $windoze;
>
> BEGIN {
> $windoze = 1 if $^O eq 'MSWin32';
> if ($windoze) {
> print "Looks like its Windoze\n";
> eval "use Win32::Console";
> } else {
> print "Looks like its not Windoze\n";
> eval "use Term::ANSIScreen";
> }
> }
>
> # ...
>
> my $console;
> if ($windoze) {
> print "Win32::Console \n";
> $console = Win32::Console->new(STD_OUTPUT_HANDLE);
> } else {
> print "Term::ANSIScreen \n";
> $console = Term::ANSIScreen->new();
> }
> Here is the output:
> D:\linux>perl eval1.pl
> Looks like its Windoze
> Win32::Console
>
> Now, I'm a lazy person and don't want to reboot and go into
> Linux so I change the MSWin32 to MWin32 so that the test
> fails like this: use strict; use warnings;
>
> my $windoze;
>
> BEGIN {
> $windoze = 1 if $^O eq 'MWin32';
> if ($windoze) {
> print "Looks like its Windoze\n";
> eval "use Win32::Console";
> } else {
> print "Looks like its not Windoze\n";
> eval "use Term::ANSIScreen";
> }
> }
>
> # ...
>
> my $console;
> if ($windoze) {
> print "Win32::Console \n";
> $console = Win32::Console->new(STD_OUTPUT_HANDLE);
> } else {
> print "Term::ANSIScreen \n";
> $console = Term::ANSIScreen->new();
> }
> Now when I run it:
> D:\linux>perl eval1.pl
> Looks like its not Windoze
> Bareword "STD_OUTPUT_HANDLE" not allowed while "strict subs"
> in use at eval1.pl line 22. Execution of eval1.pl aborted due
> to compilation errors.
>
> Same problem. See what I mean?
> Any thoughts?
>
> > -----Original Message-----
> > From: $Bill Luebkert [mailto:[EMAIL PROTECTED]
> > Sent: Thursday, October 06, 2005 6:42 PM
> > To: John Serink
> > Cc: [email protected]
> > Subject: Re: Cross platform issues
> >
> >
> > John Serink wrote:
> > > Hi All:
> > >
> > > Ok, I need to use either Win32::Console or Term::ANSIScreen
> > depending
> > > whether I'm on a Linux platform or Windoze box, so I do
> > this: if($^O
> > > eq "MSWin32"){ # Check which OS
> > > print("Looks like its $^O\n");
> > > require Win32::Console;
> > > } else {
> > > require Term::ANSIScreen;
> > > }
> > > Works fine, however, later on the code I need to create a
> > console object
> > > like this:
> > > if($^O eq "MSWin32"){
> > > # Check which OS
> > > $console = Win32::Console->new(STD_OUTPUT_HANDLE);
> > > } else {
> > > $console = Term::ANSIScreen->new();
> > > }
> > >
> > > And that is the fly in the ointment. I get an error about
> > > STD_OUTPUT_HANDLE as it's a constant in the Win32::Console
> > module but
> > > its not loaded yet on Windows and never loads on Linux, so
> > the error
> > > makes the script abort.
> > >
> > > D:\linux>perl init25g.pl 192.168.1.27 4002 client 10 13 Bareword
> > > "STD_OUTPUT_HANDLE" not allowed while "strict subs" in use at
> > > init25g.pl line 73.
> > >
> > > Execution of init25g.pl aborted due to compilation errors.
> > >
> > > How do I get around this?
> >
> > You could do something like:
> >
> > my $windoze;
> >
> > BEGIN {
> > $windoze = 1 if $^O eq 'MSWin32';
> > if ($windoze) {
> > print "Looks like its Windoze\n";
> > eval "use Win32::Console";
> > } else {
> > print "Looks like its not Windoze\n";
> > eval "use Term::ANSIScreen";
> > }
> > }
> >
> > # ...
> >
> > my $console;
> > if ($windoze) {
> > print "Win32::Console \n";
> > $console = Win32::Console->new(STD_OUTPUT_HANDLE);
> > } else {
> > print "Term::ANSIScreen \n";
> > $console = Term::ANSIScreen->new();
> > }
> >
> >
> > --
> > ,-/- __ _ _ $Bill Luebkert
> > Mailto:[EMAIL PROTECTED]
> > (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
> > / ) /--< o // // Castle of Medieval Myth & Magic
> > http://www.todbe.com/
> > -/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My
> > Perl/Lakers stuff)
> >
>
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
