ASPN ActiveState Programmer Network
ActiveState
/ Home / Perl / PHP / Python / Tcl / XSLT /
/ Safari / My ASPN /
Cookbooks | Documentation | Mailing Lists | Modules | News Feeds | Products | User Groups


Recent Messages
List Archives
About the List
List Leaders
Subscription Options

View Subscriptions
Help

View by Topic
ActiveState
.NET Framework
Open Source
Perl
PHP
Python
Tcl
Web Services
XML & XSLT

View by Category
Database
General
SOAP
System Administration
Tools
User Interfaces
Web Programming
XML Programming


MyASPN >> Mail Archive >> perl-win32-users
perl-win32-users
RE: Perl OO
by Bharucha, Nikhil other posts by this author
Sep 29 2004 6:19PM messages near this date
view in the new Beta List Site
how to use fx2txt($status) | Snort Simulator
This is a multi-part message in MIME format.

------_=_NextPart_001_01C4A650.DF8BFF21
Content-Type: text/plain;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Very good point.  I have attached the OO code first and the calling code
below.  The bolded code is where it dies at.

=20

### Constructor ###

sub new

{

            my ($proto,%args) =3D @_;

            my $class =3D ref($proto) || $proto;

            my $objRef =3D=20

            {          =20

                        server  =3D>  $args{server}, =20

                        userid  =3D>  $args{userid},=20

                        password =3D>  $args{password}, =20

                        dirTransmitter =3D>  $args{dirTransmitter}, =20

                        dirInbox =3D>  $args{dirInbox}, =20

                        dirOutbox =3D>  $args{dirOutbox},

                        dirTransferred =3D>  $args{dirTransferred}, =20

                        dirLogs =3D>  $args{dirLogs}, =20

                        dirTemp =3D>  $args{dirTemp},=20

                        prefName =3D>  ""

            };

            bless $objRef, $class;

            #my @displayArray =3D $objRef;

            #print "\n@displayArray\n";

            print "\nContents of instance variables below\n$objRef";

            print "\nInstance variable for server is $objRef-> {server}";

            print "\nInstance Variable for dirTemp is
$objRef-> {dirTemp}";

            return $objRef;

           =20

}

=20

sub send

{

            my $self =3D shift;

            print "\nIn send self is $self";

            my $process;

            $process =3D $self-> writePrefs();

            $process =3D $self-> batchTransmitter("+XMIT");

}

=20

sub writePrefs=20

{

            my $self =3D shift;

            print "\nIn writePrefs self is $self";

            my $directory =3D $self-> {dirTemp};

            print "\nwritePrefs directory is $directory";

            my $prefName =3D $directory . "\\preferences." . time;

            $self-> {prefName} =3D $prefName;

            print "\n\nCreating Preference file $prefName";

            open (OUTHANDLE, "> $prefName") or

                        die "\nCannot Open Preferences file $prefName!";

            my $process =3D $self-> printPrefs();

            close OUTHANDLE or

                        die "\nCannot Close Preferences file
$prefName!";

}

=20

Some of the code that calls the PM is

=20

#!/perl/bin/perl.exe

package run;

           =20

use Win32;

use strict;

use ISO::Transmitter;

=20

my $process;

.

.

.

my @displayArray =3D %transmitterArgs;

print "\n@displayArray\n";

$process =3D Transmitter-> new(%transmitterArgs);

$process =3D Transmitter-> send();

=20

-----Original Message-----
From: Wagner, David --- Senior Programmer Analyst --- WGO
[mailto:David.Wagner@[...].com]=20
Sent: Wednesday, September 29, 2004 2:12 PM
To: Bharucha, Nikhil; perl-win32-users@[...].com
Subject: RE: Perl OO

=20

    For anyone to help, we will need to see a snippet of code to get an
idea otherwise I don't think you will get a lot of help. Give the group
something to work with.

=20

Wags ;)

-----Original Message-----
From: perl-win32-users-bounces@[...].com
[mailto:perl-win32-users-bounces@[...].com]On Behalf Of
Bharucha, Nikhil
Sent: Wednesday, September 29, 2004 10:42
To: perl-win32-users@[...].com
Subject: Perl OO

I am taking a stab at writing an OO Perl Module.  The constructor sets a
to a hash I pass to it.  Problem is when I call a method after the new
method and attempt to retrieve the contents of the hash I get nothing.
I know my spelling of the hash variable is not off so it's not simply
that it doesn't exist.  I am using the latest perl dev kit and active
perl. =20

=20

Nick

=20

=20



*******************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
*******************************************************


------_=_NextPart_001_01C4A650.DF8BFF21
Content-Type: text/html;
	charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 
<html> 

<head> 
<meta http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii"> 
<meta name=3DGenerator content=3D"Microsoft Word 10 (filtered)"> 

<style> 
<!--
 /* Font Definitions */
 @font-face
	{font-family:Tahoma;
	panose-1:2 11 6 4 3 5 4 4 2 4;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{margin:0in;
	margin-bottom:.0001pt;
	font-size:12.0pt;
	font-family:"Times New Roman";}
a:link, span.MsoHyperlink
	{color:blue;
	text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
	{color:purple;
	text-decoration:underline;}
span.emailstyle17
	{font-family:Arial;
	color:windowtext;}
span.EmailStyle18
	{font-family:Arial;
	color:navy;}
@page Section1
	{size:8.5in 11.0in;
	margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
	{page:Section1;}
--> 
</style> 

</head> 

<body lang=3DEN-US link=3Dblue vlink=3Dpurple> 

<div class=3DSection1> 

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> Very good point.&nbsp; I have =
attached the
OO code first and the calling code below.&nbsp; The bolded code is where =
it
dies at.</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> ### Constructor =
###</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> sub new</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> {</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my
($proto,%args) =3D @_;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my
$class =3D ref($proto) || $proto;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my
$objRef =3D </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
{&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; server&nbsp;
=3D&gt; $args{server},&nbsp; </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; userid&nbsp;
=3D&gt; $args{userid}, </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; password
=3D&gt; $args{password},&nbsp; </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dirTransmitter
=3D&gt; $args{dirTransmitter},&nbsp; </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dirInbox
=3D&gt; $args{dirInbox},&nbsp; </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dirOutbox
=3D&gt; $args{dirOutbox},</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dirTransferred
=3D&gt; $args{dirTransferred},&nbsp; </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dirLogs
=3D&gt; $args{dirLogs},&nbsp; </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dirTemp
=3D&gt; $args{dirTemp}, </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; prefName
=3D&gt; &quot;&quot;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; };</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; bless
$objRef, $class;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #my
@displayArray =3D $objRef;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #print
&quot;\n@displayArray\n&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print
&quot;\nContents of instance variables =
below\n$objRef&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print
&quot;\nInstance variable for server is =
$objRef-&gt;{server}&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print
&quot;\nInstance Variable for dirTemp is =
$objRef-&gt;{dirTemp}&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return
$objRef;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> }</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> sub send</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> {</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my
$self =3D shift;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print
&quot;\nIn send self is $self&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my
$process;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $process
=3D $self-&gt;writePrefs();</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $process
=3D $self-&gt;batchTransmitter(&quot;+XMIT&quot;);</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> }</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> sub writePrefs </span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> {</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my
$self =3D shift;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print
&quot;\nIn writePrefs self is $self&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <b> <span
style=3D'font-weight:bold'> my $directory =3D =
$self-&gt;{dirTemp};</span> </b></span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print
&quot;\nwritePrefs directory is $directory&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my
$prefName =3D $directory . &quot;\\preferences.&quot; . =
time;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $self-&gt;{prefName}
=3D $prefName;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print
&quot;\n\nCreating Preference file $prefName&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; open
(OUTHANDLE, &quot;&gt;$prefName&quot;) or</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; die
&quot;\nCannot Open Preferences file $prefName!&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my
$process =3D $self-&gt;printPrefs();</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; close
OUTHANDLE or</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&=
nbsp;&nbsp;&nbsp;&nbsp;&nbsp; die
&quot;\nCannot Close Preferences file =
$prefName!&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> }</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> Some of the code that calls the PM =
is</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> #!/perl/bin/perl.exe</span></font></=
p> 

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> package run;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> use Win32;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> use strict;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> use =
ISO::Transmitter;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> my $process;</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> .</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> .</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> .</span></font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> my @displayArray =3D =
%transmitterArgs;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> print =
&quot;\n@displayArray\n&quot;;</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> $process =3D =
Transmitter-&gt;new(%transmitterArgs);</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> $process =3D =
Transmitter-&gt;send();</span> </font></p>

<p class=3DMsoNormal> <font size=3D2 color=3Dnavy face=3DArial><span =
style=3D'font-size:
10.0pt;font-family:Arial;color:navy'> &nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D2 =
face=3DTahoma> <span
style=3D'font-size:10.0pt;font-family:Tahoma'> -----Original =
Message-----<br> 
<b> <span style=3D'font-weight:bold'>From:</span></b> Wagner, David --- =
Senior
Programmer Analyst --- WGO [mailto:David.Wagner@[...].com] <br> 
<b> <span style=3D'font-weight:bold'>Sent:</span></b> Wednesday, =
September 29,
2004 2:12 PM<br> 
<b> <span style=3D'font-weight:bold'>To:</span></b> Bharucha, Nikhil;
perl-win32-users@[...].com<br> 
<b> <span style=3D'font-weight:bold'>Subject:</span></b> RE: Perl =
OO</span> </font></p>

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D3 =
face=3D"Times New Roman"> <span
style=3D'font-size:12.0pt'> &nbsp;</span></font></p>

<div> 

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D2 =
color=3Dblue
face=3D"Courier New"> <span =
style=3D'font-size:10.0pt;font-family:"Courier New";
color:blue'> &nbsp;&nbsp;&nbsp; For anyone to help, we will need to see a
snippet of code to get an idea otherwise I don't think you will get a =
lot of
help. Give the group something to work with.</span> </font></p>

</div> 

<div> 

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D3 =
face=3D"Times New Roman"> <span
style=3D'font-size:12.0pt'> &nbsp;</span></font></p>

</div> 

<div> 

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D2 =
color=3Dblue
face=3D"Courier New"> <span =
style=3D'font-size:10.0pt;font-family:"Courier New";
color:blue'> Wags ;)</span></font></p>

</div> 

<p class=3DMsoNormal =
style=3D'margin-right:0in;margin-bottom:12.0pt;margin-left:
.5in'> <font size=3D2 face=3DTahoma><span =
style=3D'font-size:10.0pt;font-family:Tahoma'> -----Original
Message-----<br> 
<b> <span style=3D'font-weight:bold'>From:</span></b>
perl-win32-users-bounces@[...].com
[mailto:perl-win32-users-bounces@[...].com]<b> <span
style=3D'font-weight:bold'> On Behalf Of </span></b>Bharucha, Nikhil<br>
<b> <span style=3D'font-weight:bold'>Sent:</span></b> Wednesday, =
September 29,
2004 10:42<br> 
<b> <span style=3D'font-weight:bold'>To:</span></b>
perl-win32-users@[...].com<br> 
<b> <span style=3D'font-weight:bold'>Subject:</span></b> Perl =
OO</span> </font></p>

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D2 =
face=3DArial> <span
style=3D'font-size:10.0pt;font-family:Arial'> I am taking a stab at =
writing an OO
Perl Module.&nbsp; The constructor sets a to a hash I pass to it.&nbsp; =
Problem
is when I call a method after the new method and attempt to retrieve the
contents of the hash I get nothing.&nbsp; I know my spelling of the hash =
variable
is not off so it&#8217;s not simply that it doesn&#8217;t exist.&nbsp; I =
am
using the latest perl dev kit and active perl.&nbsp; </span> </font></p>

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D3 =
face=3D"Times New Roman"> <span
style=3D'font-size:12.0pt'> &nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D2 =
face=3DArial> <span
style=3D'font-size:10.0pt;font-family:Arial'> Nick</span></font></p>

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D3 =
face=3D"Times New Roman"> <span
style=3D'font-size:12.0pt'> &nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D3 =
face=3D"Times New Roman"> <span
style=3D'font-size:12.0pt'> &nbsp;</span></font></p>

<p class=3DMsoNormal style=3D'margin-left:.5in'> <font size=3D3 =
face=3D"Times New Roman"> <span
style=3D'font-size:12.0pt'> <br>
<br> 
*******************************************************<br> 
This message contains information that is confidential<br> 
and proprietary to FedEx Freight or its affiliates.<br> 
It is intended only for the recipient named and for<br> 
the express purpose(s) described therein.<br> 
Any other use is prohibited.<br> 
*******************************************************</span> </font></p>=


</div> 

</body> 

</html> 

------_=_NextPart_001_01C4A650.DF8BFF21--
Attachments:
unknown1

Thread:
Bharucha, Nikhil
Kamal Ahmed
Charles K. Clarkson

Privacy Policy | Email Opt-out | Feedback | Syndication
© ActiveState Software Inc. All rights reserved