RE: why doesn't this work?
by Peter Eisengrein other posts by this author
Sep 28 2004 9:37AM messages near this date
view in the new Beta List Site
Module to retrieve Windows open Shared files
|
AW: HTML Form data into Word Document
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C4A579.7E824930
Content-Type: text/plain
Content-Length: 2012
Lines: 98
One other way would be:
sub callme
{
if ($ENV{Oracle})
{
print "Version 1\n";
}
else
{
print "Version 2\n";
}
}
I realize this is not quite the same thing, but why not do it this way?
> -----Original Message-----
> From: Eric Amick [mailto:eric-amick@[...].net]
> Sent: Monday, September 27, 2004 7:41 PM
> To: perl-win32-users@[...].com
> Subject: Re: why doesn't this work?
>
>
> On Mon, 27 Sep 2004 12:05:10 -0700, you wrote:
>
> >================
> >test script:
> >================
> >use strict;
> >use testlib;
> >
> >print("Env Var 'Oracle' is set to '$ENV{Oracle}'\n");
> >callme();
> >
> >================
> >test library (testlib.pm):
> >================
> >use strict;
> >
> >if ($ENV{Oracle}) {
> > sub callme {print("Version 1\n");}
> > }
> >else {
> > sub callme {print("Version 2\n");}
> > }
>
> Normal subroutine definitions occur at compile time, so the second
> definition overrides the first before the code even executes.
> You can do
> this instead:
>
> if ($ENV{Oracle}) {
> eval 'sub callme {print("Version 1\n");}'
> }
> else {
> eval 'sub callme {print("Version 2\n");}'
> }
>
> or this:
>
> if ($ENV{Oracle}) {
> $callme = sub {print("Version 1\n");}
> }
> else {
> $callme = sub {print("Version 2\n");}
> }
>
> or even this:
>
> if ($ENV{Oracle}) {
> *callme = sub {print("Version 1\n");}
> }
> else {
> *callme = sub {print("Version 2\n");}
> }
>
> In any case, you will need either an argument list or an
> ampersand when
> calling callme(), since Perl won't know the type at compile time. (The
> second case would need $callme->() or &$callme.)
>
> --
> Eric Amick
> Columbia, MD
>
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@[...].com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
>
> __________________________________________________________
> This message was scanned by GatewayDefender
> 7:43:44 PM ET - 9/27/2004
>
------_=_NextPart_001_01C4A579.7E824930
Content-Type: text/html
Content-Length: 5964
Lines: 152
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=US-ASCII">
<META NAME="Generator" CONTENT="MS Exchange Server version 5.5.2653.12">
<TITLE> RE: why doesn't this work?</TITLE>
</HEAD>
<BODY>
<P> <FONT SIZE=2>One other way would be:</FONT>
</P>
<P> <FONT SIZE=2>sub callme</FONT>
<BR> <FONT SIZE=2>{</FONT>
<BR> <FONT SIZE=2>if ($ENV{Oracle}) </FONT>
<BR> <FONT SIZE=2>{</FONT>
<BR> <F
ONT SIZE=2> print "Version 1\n";</FONT>
<BR> <FONT SIZE=2>}</FONT>
<BR> <FONT SIZE=2>else</FONT>
<BR> <FONT SIZE=2>{</FONT>
<BR> <F
ONT SIZE=2> print "Version 2\n";</FONT>
<BR> <FONT SIZE=2> }</FONT>
<BR> <FONT SIZE=2>}</FONT>
</P>
<P> <FONT SIZE=2>I realize this is not quite the same thing, but why not do it this way?</FON
T>
</P>
<BR>
<BR>
<P> <FONT SIZE=2>> -----Original Message-----</FONT>
<BR> <FONT SIZE=2>> From: Eric Amick [<A HREF="mailto:eric-amick@comcast.net">mailto:eric-
amick@[...].net</A> ]</FONT>
<BR> <FONT SIZE=2>> Sent: Monday, September 27, 2004 7:41 PM</FONT>
<BR> <FONT SIZE=2>> To: perl-win32-users@[...].com</FONT>
<BR> <FONT SIZE=2>> Subject: Re: why doesn't this work?</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> On Mon, 27 Sep 2004 12:05:10 -0700, you wrote:</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> >================</FONT>
<BR> <FONT SIZE=2>> >test script:</FONT>
<BR> <FONT SIZE=2>> >================</FONT>
<BR> <FONT SIZE=2>> >use strict;</FONT>
<BR> <FONT SIZE=2>> >use testlib;</FONT>
<BR> <FONT SIZE=2>> ></FONT>
<BR> <FONT SIZE=2>> >print("Env Var 'Oracle' is set to '$ENV{Oracle}'\n");</F
ONT>
<BR> <FONT SIZE=2>> >callme();</FONT>
<BR> <FONT SIZE=2>> ></FONT>
<BR> <FONT SIZE=2>> >================</FONT>
<BR> <FONT SIZE=2>> >test library (testlib.pm):</FONT>
<BR> <FONT SIZE=2>> >================</FONT>
<BR> <FONT SIZE=2>> >use strict;</FONT>
<BR> <FONT SIZE=2>> ></FONT>
<BR> <FONT SIZE=2>> >if ($ENV{Oracle}) {</FONT>
<BR> <FONT SIZE=2>> > sub callme {print("Version 1\n"
);}</FONT>
<BR> <FONT SIZE=2>> > }</FONT>
<BR> <FONT SIZE=2>> >else {</FONT>
<BR> <FONT SIZE=2>> > sub callme {print("Version 2\n"
);}</FONT>
<BR> <FONT SIZE=2>> > }</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> Normal subroutine definitions occur at compile time, so the second</FO
NT>
<BR> <FONT SIZE=2>> definition overrides the first before the code even executes. </FONT>
<BR> <FONT SIZE=2>> You can do</FONT>
<BR> <FONT SIZE=2>> this instead:</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> if ($ENV{Oracle}) {</FONT>
<BR> <FONT SIZE=2>> eval 'sub callme {print("Version 1
\n");}'</FONT>
<BR> <FONT SIZE=2>> }</FONT>
<BR> <FONT SIZE=2>> else {</FONT>
<BR> <FONT SIZE=2>> eval 'sub callme {print("Version 2
\n");}'</FONT>
<BR> <FONT SIZE=2>> }</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> or this:</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> if ($ENV{Oracle}) {</FONT>
<BR> <FONT SIZE=2>> $callme = sub {print("Version 1\n&
quot;);}</FONT>
<BR> <FONT SIZE=2>> }</FONT>
<BR> <FONT SIZE=2>> else {</FONT>
<BR> <FONT SIZE=2>> $callme = sub {print("Version 2\n&
quot;);}</FONT>
<BR> <FONT SIZE=2>> }</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> or even this:</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> if ($ENV{Oracle}) {</FONT>
<BR> <FONT SIZE=2>> *callme = sub {print("Version 1\n&
quot;);}</FONT>
<BR> <FONT SIZE=2>> }</FONT>
<BR> <FONT SIZE=2>> else {</FONT>
<BR> <FONT SIZE=2>> *callme = sub {print("Version 2\n&
quot;);}</FONT>
<BR> <FONT SIZE=2>> }</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> In any case, you will need either an argument list or an </FONT>
<BR> <FONT SIZE=2>> ampersand when</FONT>
<BR> <FONT SIZE=2>> calling callme(), since Perl won't know the type at compile time. (The
</FONT>
<BR> <FONT SIZE=2>> second case would need $callme->() or &$callme.)</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> -- </FONT>
<BR> <FONT SIZE=2>> Eric Amick</FONT>
<BR> <FONT SIZE=2>> Columbia, MD</FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> _______________________________________________</FONT>
<BR> <FONT SIZE=2>> Perl-Win32-Users mailing list</FONT>
<BR> <FONT SIZE=2>> Perl-Win32-Users@[...].com</FONT>
<BR> <FONT SIZE=2>> To unsubscribe: <A HREF="http://listserv.ActiveState.com/mailman/mysub
s" TARGET="_blank"> http://listserv.ActiveState.com/mailman/mysubs</A></FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> </FONT>
<BR> <FONT SIZE=2>> __________________________________________________________</FONT>
<BR> <FONT SIZE=2>> This message was scanned by GatewayDefender</FONT>
<BR> <FONT SIZE=2>> 7:43:44 PM ET - 9/27/2004</FONT>
<BR> <FONT SIZE=2>> </FONT>
</P>
</BODY>
</HTML>
------_=_NextPart_001_01C4A579.7E824930--
Attachments:
unknown1
unknown2
unknown3
unknown4
|
