In addition to BIshop's excellent response, be sure to install
the latest version of Tie:Registry. The one that comes with
ActiveState Perl doesn't work properly.
The current version (as installed from ActiveState via PPM)
is I believe 1.24. Just reinstall it.
Jared
On Tuesday 29 October 2002 01:53, Bishop Lewis wrote:
> Here's something to read registry keys I used a while back. Obviously needs
> the win32 module installed.
>
> use Win32::Registry;
>
> $terminal = $ARGV[0];
>
> $HKEY_LOCAL_MACHINE->Connect ($terminal, $hNode) || die "Cannot connect to
> $node";
> $hNode->Open ("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon",
> $hKey) || die "Cannot open registry !";
> $hKey->GetValues (\%values);
> $hKey->Close ();
> $hNode->Close ();
>
> foreach $value (keys(%values)) {
> $RegType = $values{$value}->[1];
> $RegValue = $values{$value}->[2];
> $RegKey = $values{$value}->[0];
> if ($RegKey eq "DefaultUserName") {$username = $RegValue;
> print "$RegValue\n";
> }
> }
>
>
> exit;
>
> Modify accordingly. HTH.
>
> Lewis Bishop
> ---
> Barclays Enable - ISS - E-NTRUST/Bexleyheath NT
> Oracle Database Consultant
> Watling Street, Bexleyheath, Kent, DA6 7RR (Mail Van R)
> Phone : 020 8298 3418
> Mobile: 07950 380857
> Email : [EMAIL PROTECTED]
> "Enabling Competitive Advantage for Barclays in IT and Business Processing"
>
> -----Original Message-----
> Sent: 29 October 2002 08:43
> To: Multiple recipients of list ORACLE-L
>
> This header confirms that this email message has been swept for the
> presence of computer viruses.
>
> Corporate IT
> THE WOOLWICH
> ----------------------------------------------------------------------
> Hello All,
> I am writing an perl script. I cann't figure out and have been going
> through the docs, but cann't find exactly what I need.
> A way to access Oracle Parameters as they are set up in the Win2k
> registary. I am specifically thinking of ORACLE_HOME. I do know how to
> obtain an environmental variable/parameter with $ENV{}.
> But the ORACLE_HOME is not an environmental parameter per se.
> I have a workaround by setting it up in the enviroment, however I would
> like to write this script with the aim at it being machine unspecific.
> (Jared, hope you can answer me on this. Want to get a copy of your book,
> unfortunately with the exchange rate and import taxes etc it will cost me
> R590,00. Quiet a chunk of the ole budget, maybe early next year.)
> Regards
> Denham Eva
> Oracle DBA
> "UNIX is basically a simple operating system, but you have to be a genius
> to understand the simplicity."
> Dennis Ritchie.
> _____
>
> DISCLAIMER
> This message is for the named person's use only. It may contain
> confidential, proprietary or legally privileged information. No
> confidentiality or privilege is waived or lost by any mistransmission. If
> you receive this message in error, please immediately delete it and all
> copies of it from your system, destroy any hard copies of it and notify the
> sender. You must not, directly or indirectly, use, disclose, distribute,
> print, or copy any part of this message if you are not the intended
> recipient. TFMC, its holding company, and any of its subsidiaries each
> reserve the right to monitor and manage all e-mail communications through
> its networks.
> Any views expressed in this message are those of the individual sender,
> except where the message states otherwise and the sender is authorized to
> state them to be views of any such entity.
> _____
>
> _____
>
> This e-mail message has been scanned for Viruses and Content and cleared by
> MailMarshal - For more information please visit
> <http://www.marshalsoftware.com> www.marshalsoftware.com
> _____
>
>
> ------_=_NextPart_001_01C27F2F.5CF0F180
> Content-Type: text/html
> Content-Transfer-Encoding: quoted-printable
>
> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
> <html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
> xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
> xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
> xmlns:st1=3D"urn:schemas-microsoft-com:office:smarttags" =
> xmlns=3D"http://www.w3.org/TR/REC-html40";>
>
> <head>
> <META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
> charset=3Dus-ascii">
>
>
> <meta name=3DProgId content=3DWord.Document>
> <meta name=3DGenerator content=3D"Microsoft Word 10">
> <meta name=3DOriginator content=3D"Microsoft Word 10">
> <link rel=3DFile-List href=3D"cid:filelist.xml@;01C27F2F.66CF0930">
> <link rel=3DEdit-Time-Data href=3D"cid:editdata.mso@;01C27F2F.66CF0930">
> <!--[if !mso]>
> <style>
> v\:* {behavior:url(#default#VML);}
> o\:* {behavior:url(#default#VML);}
> w\:* {behavior:url(#default#VML);}
> .shape {behavior:url(#default#VML);}
> </style>
> <![endif]-->
> <title>Win2k Perl accessing Oracle Parameters?</title>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"date"/>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"time"/>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"place"/>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"PostalCode"/>
> <o:SmartTagType =
> namespaceuri=3D"urn:schemas-microsoft-com:office:smarttags"
> name=3D"City"/>
> <!--[if gte mso 9]><xml>
> <o:OfficeDocumentSettings>
> <o:DoNotRelyOnCSS/>
> </o:OfficeDocumentSettings>
> </xml><![endif]--><!--[if gte mso 9]><xml>
> <w:WordDocument>
> <w:SpellingState>Clean</w:SpellingState>
> <w:GrammarState>Clean</w:GrammarState>
> <w:DocumentKind>DocumentEmail</w:DocumentKind>
> <w:EnvelopeVis/>
> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
> </w:WordDocument>
> </xml><![endif]--><!--[if !mso]>
> <style>
> st1\:*{behavior:url(#default#ieooui) }
> </style>
> <![endif]-->
> <style>
> <!--
> /* Font Definitions */
> @font-face
> {font-family:Tahoma;
> panose-1:2 11 6 4 3 5 4 4 2 4;
> mso-font-charset:0;
> mso-generic-font-family:swiss;
> mso-font-pitch:variable;
> mso-font-signature:553679495 -2147483648 8 0 66047 0;}
> /* Style Definitions */
> p.MsoNormal, li.MsoNormal, div.MsoNormal
> {mso-style-parent:"";
> margin:0cm;
> margin-bottom:.0001pt;
> mso-pagination:widow-orphan;
> font-size:12.0pt;
> font-family:"Times New Roman";
> mso-fareast-font-family:"Times New Roman";}
> a:link, span.MsoHyperlink
> {color:blue;
> text-decoration:underline;
> text-underline:single;}
> a:visited, span.MsoHyperlinkFollowed
> {color:blue;
> text-decoration:underline;
> text-underline:single;}
> p
> {mso-margin-top-alt:auto;
> margin-right:0cm;
> mso-margin-bottom-alt:auto;
> margin-left:0cm;
> mso-pagination:widow-orphan;
> font-size:12.0pt;
> font-family:"Times New Roman";
> mso-fareast-font-family:"Times New Roman";}
> code
> {font-family:"Courier New";
> mso-ascii-font-family:"Courier New";
> mso-fareast-font-family:"Times New Roman";
> mso-hansi-font-family:"Courier New";
> mso-bidi-font-family:"Courier New";}
> span.EmailStyle20
> {mso-style-type:personal-reply;
> mso-style-noshow:yes;
> mso-ansi-font-size:10.0pt;
> mso-bidi-font-size:10.0pt;
> font-family:Arial;
> mso-ascii-font-family:Arial;
> mso-hansi-font-family:Arial;
> mso-bidi-font-family:Arial;
> color:navy;}
> span.SpellE
> {mso-style-name:"";
> mso-spl-e:yes;}
> span.GramE
> {mso-style-name:"";
> mso-gram-e:yes;}
> @page Section1
> {size:595.3pt 841.9pt;
> margin:72.0pt 90.0pt 72.0pt 90.0pt;
> mso-header-margin:35.4pt;
> mso-footer-margin:35.4pt;
> mso-paper-source:0;}
> div.Section1
> {page:Section1;}
> -->
> </style>
> <!--[if gte mso 10]>
> <style>
> /* Style Definitions */=20
> table.MsoNormalTable
> {mso-style-name:"Table Normal";
> mso-tstyle-rowband-size:0;
> mso-tstyle-colband-size:0;
> mso-style-noshow:yes;
> mso-style-parent:"";
> mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
> mso-para-margin:0cm;
> mso-para-margin-bottom:.0001pt;
> mso-pagination:widow-orphan;
> font-size:10.0pt;
> font-family:"Times New Roman";}
> </style>
> <![endif]-->
> </head>
>
> <body lang=3DEN-GB link=3Dblue vlink=3Dblue =
> style=3D'tab-interval:36.0pt'>
>
> <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'>Here's something to read registry
> keys I used a while back. Obviously needs the win32 module =
> installed.<o:p></o:p></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'><o:p> </o:p></span></font></p>=
>
>
> <p class=3DMsoNormal><span class=3DGramE><font size=3D2 color=3Dnavy =
> face=3DArial><span
> style=3D'font-size:10.0pt;font-family:Arial;color:navy'>use</span></font=
>
> ></span><font
>
> size=3D2 color=3Dnavy face=3DArial><span =
> style=3D'font-size:10.0pt;font-family:Arial;
> color:navy'> Win32::Registry;<o:p></o:p></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'><o:p> </o:p></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'>$terminal =3D $<span =
> class=3DGramE>ARGV[</span>0];<o:p></o:p></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'><o:p> </o:p></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'>$HKEY_LOCAL_MACHINE->Connect
> ($terminal, $<span class=3DSpellE>hNode</span>) || die "Cannot =
> connect to
> $node";<o:p></o:p></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 =
> class=3DSpellE>hNode</span>->Open
> ("SOFTWARE\\Microsoft\\Windows NT\\<span =
> class=3DSpellE>CurrentVersion\\Winlogon</span>",
> $<span class=3DSpellE>hKey</span>) || die "Cannot open <span =
> class=3DGramE>registry
> !</span>";<o:p></o:p></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 =
> class=3DSpellE>hKey</span>-><span
> class=3DSpellE>GetValues</span> =
> (\%values);<o:p></o:p></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 =
> class=3DSpellE>hKey</span>->Close
> ();<o:p></o:p></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 =
> class=3DSpellE>hNode</span>->Close
> ();<o:p></o:p></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'><o:p> </o:p></span></font></p>=
>
>
> <p class=3DMsoNormal><span class=3DSpellE><span class=3DGramE><font =
> size=3D2
> color=3Dnavy face=3DArial><span =
> style=3D'font-size:10.0pt;font-family:Arial;
> color:navy'>foreach</span></font></span></span><font size=3D2 =
> color=3Dnavy
> face=3DArial><span =
> style=3D'font-size:10.0pt;font-family:Arial;color:navy'> $value
> (keys(%values)) {<o:p></o:p></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 =
> style=3D'mso-spacerun:yes'> </span>$<span
> class=3DSpellE>RegType</span> =3D $<span =
> class=3DGramE>values{</span>$value}->[1];<o:p></o:p></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 =
> style=3D'mso-spacerun:yes'> </span>$<span
> class=3DSpellE>RegValue</span> =3D $<span =
> class=3DGramE>values{</span>$value}->[2];<o:p></o:p></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 =
> style=3D'mso-spacerun:yes'> </span>$<span
> class=3DSpellE>RegKey</span> =3D $<span class=3DGramE>values{</span>$val=
> ue}->[0];<o:p></o:p></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 =
> style=3D'mso-spacerun:yes'> </span><span
> class=3DGramE>if</span> ($<span class=3DSpellE>RegKey</span> <span =
> class=3DSpellE>eq</span>
> "<span class=3DSpellE>DefaultUserName</span>") {$username =3D =
> $<span
> class=3DSpellE>RegValue</span>;<o:p></o:p></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 =
> style=3D'mso-spacerun:yes'> </span><span
> class=3DGramE>print</span> "$<span =
> class=3DSpellE>RegValue</span>\n";<o:p></o:p></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 =
> style=3D'mso-spacerun:yes'> </span>}<o:p></o:p></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'>}<o:p></o:p></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'><o:p> </o:p></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'><o:p> </o:p></span></font></p>=
>
>
> <p class=3DMsoNormal><span class=3DGramE><font size=3D2 color=3Dnavy =
> face=3DArial><span
> style=3D'font-size:10.0pt;font-family:Arial;color:navy'>exit</span></fon=
> t></span><font
> size=3D2 color=3Dnavy face=3DArial><span =
> style=3D'font-size:10.0pt;font-family:Arial;
> color:navy'>;<o:p></o:p></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'><o:p> </o:p></span></font></p>=
>
>
> <div>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>Modify accordingly. =
> HTH.<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier =
> New";color:navy;mso-no-proof:yes'><o:p> </o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>Lewis =
> Bishop<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier =
> New";color:navy;mso-no-proof:yes'>---<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>Barclays Enable - ISS -
> E-NTRUST/Bexleyheath NT<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>Oracle Database =
> Consultant<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>Watling Street, Bexleyheath, =
> </span></font><st1:place><st1:City><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;
> font-family:"Courier =
> New";color:navy;mso-no-proof:yes'>Kent</span></font></st1:City><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>, =
> </span></font><st1:PostalCode><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;
> font-family:"Courier New";color:navy;mso-no-proof:yes'>DA6 =
> 7RR</span></font></st1:PostalCode></st1:place><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'> (Mail Van =
> R)<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>Phone : 020 8298 =
> 3418<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><st1:City><st1:=
> place><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;
> font-family:"Courier =
> New";color:navy;mso-no-proof:yes'>Mobile</span></font></st1:place></st1:=
> City><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>: 07950 =
> 380857<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>Email : =
> [EMAIL PROTECTED]<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-layout-grid-align:none;text-autospace:none'><font
> size=3D2 color=3Dnavy face=3D"Courier New"><span =
> style=3D'font-size:10.0pt;font-family:
> "Courier New";color:navy;mso-no-proof:yes'>"Enabling Competitive =
> Advantage
> for Barclays in IT and Business =
> Processing"<o:p></o:p></span></font></p>
>
> <p class=3DMsoNormal><font size=3D3 color=3Dnavy face=3D"Times New =
> Roman"><span
> style=3D'font-size:12.0pt;color:navy;mso-no-proof:yes'> </span></fo=
> nt><o:p></o:p></p>
>
> </div>
>
> <p class=3DMsoNormal style=3D'margin-left:36.0pt'><font size=3D2 =
> face=3DTahoma><span
> lang=3DEN-US =
> style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'>--=
> ---Original
> Message-----<br>
> <b><span style=3D'font-weight:bold'>From:</span></b> Denham Eva
> [mailto:EvaD@;TFMC.co.za<span class=3DGramE>] <br>
> <b><span style=3D'font-weight:bold'>Sent</span></b></span><b><span
> style=3D'font-weight:bold'>:</span></b> </span></font><st1:date =
> Month=3D"10"
> Day=3D"29" Year=3D"2002"><font size=3D2 face=3DTahoma><span =
> lang=3DEN-US
> =
> style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'>29=
> October
> 2002</span></font></st1:date><font size=3D2 face=3DTahoma><span =
> lang=3DEN-US
> style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'> =
> </span></font><st1:time
> Hour=3D"8" Minute=3D"43"><font size=3D2 face=3DTahoma><span =
> lang=3DEN-US
> =
> style=3D'font-size:10.0pt;font-family:Tahoma;mso-ansi-language:EN-US'>08=
>
> :43</span></font></st1:time><font
>
> size=3D2 face=3DTahoma><span lang=3DEN-US =
> style=3D'font-size:10.0pt;font-family:Tahoma;
> mso-ansi-language:EN-US'><br>
> <b><span style=3D'font-weight:bold'>To:</span></b> Multiple recipients =
> of list
> ORACLE-L<br>
> <b><span style=3D'font-weight:bold'>Subject:</span></b> Win2k Perl =
> accessing
> Oracle Parameters?</span></font></p>
>
> <p class=3DMsoNormal style=3D'margin-left:36.0pt'><font size=3D3
> face=3D"Times New Roman"><span =
> style=3D'font-size:12.0pt'><o:p> </o:p></span></font></p>
>
> <p class=3DMsoNormal =
> style=3D'mso-margin-top-alt:0cm;margin-right:0cm;margin-bottom:
> 12.0pt;margin-left:36.0pt'><code><font size=3D3 face=3D"Courier =
> New"><span
> style=3D'font-size:12.0pt;mso-ansi-font-size:12.0pt;mso-bidi-font-size:1=
> 2.0pt'>This
> header confirms that this email message has been swept for =
> the</span></font></code><font
> face=3D"Courier New"><span style=3D'font-family:"Courier New"'><br>
> <code><font face=3D"Courier New"><span =
> style=3D'mso-ansi-font-size:12.0pt;
> mso-bidi-font-size:12.0pt'>presence of computer viruses. =
> </span></font></code><br>
> <br>
> <code><font face=3D"Courier New"><span =
> style=3D'mso-ansi-font-size:12.0pt;
> mso-bidi-font-size:12.0pt'>Corporate IT</span></font></code><br>
> <code><font face=3D"Courier New"><span =
> style=3D'mso-ansi-font-size:12.0pt;
> mso-bidi-font-size:12.0pt'>THE WOOLWICH</span></font></code><br>
> <code><font face=3D"Courier New"><span =
> style=3D'mso-ansi-font-size:12.0pt;
> mso-bidi-font-size:12.0pt'>---------------------------------------------=
> -------------------------</span></font></code></span></font><o:p></o:p><=
> /p>
>
> <p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
> style=3D'font-size:
> 10.0pt;font-family:Arial'>Hello All,</span></font> <o:p></o:p></p>
>
> <p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
> style=3D'font-size:
> 10.0pt;font-family:Arial'>I am writing an perl script. I cann't figure =
> out and
> have been going through the docs, but cann't find exactly what I =
> need.</span></font><o:p></o:p></p>
>
> <p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
> style=3D'font-size:
> 10.0pt;font-family:Arial'>A way to access Oracle Parameters as they are =
> set up
> in the Win2k registary. I am specifically thinking of ORACLE_HOME. I do =
> know
> how to obtain an environmental variable/parameter with =
> $ENV{}.</span></font><o:p></o:p></p>
>
> <p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
> style=3D'font-size:
> 10.0pt;font-family:Arial'>But the ORACLE_HOME is not an environmental =
> parameter
> per se.</span></font> <br>
> <font size=3D2 face=3DArial><span =
> style=3D'font-size:10.0pt;font-family:Arial'>I have
> a workaround by setting it up in the enviroment, however I would like =
> to write
> this script with the aim at it being machine =
> unspecific.</span></font><o:p></o:p></p>
>
> <p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
> style=3D'font-size:
> 10.0pt;font-family:Arial'>(Jared, hope you can answer me on this. Want =
> to get a
> copy of your book, unfortunately with the exchange rate and import =
> taxes etc it
> will cost me R590,00. Quiet a chunk of the ole budget, maybe early next =
> year.)</span></font><o:p></o:p></p>
>
> <p style=3D'margin-left:36.0pt'><font size=3D2 face=3DArial><span =
> style=3D'font-size:
> 10.0pt;font-family:Arial'>Regards</span></font> <br>
> <b><i><font face=3DArial><span =
> style=3D'font-family:Arial;font-weight:bold;
> font-style:italic'>Denham Eva</span></font></i></b> <br>
> <b><i><font size=3D2 face=3DArial><span =
> style=3D'font-size:10.0pt;font-family:Arial;
> font-weight:bold;font-style:italic'>Oracle DBA</span></font></i></b> =
> <br>
> <i><font size=3D2 color=3Dblack face=3DArial><span =
> style=3D'font-size:10.0pt;
> font-family:Arial;color:black;font-style:italic'>"UNIX is =
> basically a
> simple operating system, but you have to be a genius to understand the
> simplicity."</span></font></i> <br>
> <i><font size=3D2 color=3Dblack face=3DArial><span =
> style=3D'font-size:10.0pt;
> font-family:Arial;color:black;font-style:italic'>Dennis =
> Ritchie.</span></font></i>
> <o:p></o:p></p>
>
> <div class=3DMsoNormal align=3Dcenter =
> style=3D'margin-left:36.0pt;text-align:center'><strong><b
> style=3D'mso-ansi-font-weight:normal;mso-bidi-font-weight:normal'><font =
> size=3D3
> color=3D"#0000a0" face=3DArial><span =
> style=3D'font-size:12.0pt;font-family:Arial;
> color:#0000A0;font-weight:normal'>
>
> <hr size=3D2 width=3D"100%" align=3Dcenter>
>
> </span></font></b></strong></div>
>
> <p class=3DMsoNormal style=3D'margin-left:36.0pt'><strong><b><font =
> size=3D2
> color=3D"#0000a0" face=3DArial><span =
> style=3D'font-size:10.0pt;font-family:Arial;
> color:#0000A0'>DISCLAIMER</span></font> </b></strong><o:p></o:p></p>
>
> <p style=3D'margin-left:36.0pt'><font size=3D1 face=3DArial><span =
> style=3D'font-size:
> 7.5pt;font-family:Arial'>This message is for the named person's use =
> only. It
> may contain confidential, proprietary or legally privileged =
> information. No
> confidentiality or privilege is waived or lost by any mistransmission. =
> If you
> receive this message in error, please immediately delete it and all =
> copies of
> it from your system, destroy any hard copies of it and notify the =
> sender. You
> must not, directly or indirectly, use, disclose, distribute, print, or =
> copy any
> part of this message if you are not the intended recipient. TFMC, its =
> holding
> company, and any of its subsidiaries each reserve the right to monitor =
> and
> manage all e-mail communications through its =
> networks.</span></font><font
> size=3D1><span style=3D'font-size:7.5pt'> </span></font><o:p></o:p></p>
>
> <p style=3D'margin-left:36.0pt'><font size=3D1 face=3DArial><span =
> style=3D'font-size:
> 7.5pt;font-family:Arial'>Any views expressed in this message are those =
> of the
> individual sender, except where the message states otherwise and the =
> sender is
> authorized to state them to be views of any such =
> entity.</span></font><font
> size=3D1><span style=3D'font-size:7.5pt'> </span></font><o:p></o:p></p>
>
> <div class=3DMsoNormal align=3Dcenter =
> style=3D'margin-left:36.0pt;text-align:center'><font
> size=3D3 face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>
>
> <hr size=3D2 width=3D"100%" align=3Dcenter>
>
> </span></font></div>
>
> <div class=3DMsoNormal align=3Dcenter =
> style=3D'margin-left:36.0pt;text-align:center'><font
> size=3D3 face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>
>
> <hr size=3D2 width=3D"100%" align=3Dcenter>
>
> </span></font></div>
>
> <p class=3DMsoNormal style=3D'margin-left:36.0pt'><font size=3D3
> face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>This e-mail =
> message has
> been scanned for Viruses and Content and cleared by <strong><b><font
> color=3D"#ff8000" face=3D"Times New Roman"><span =
> style=3D'color:#FF8000'>MailMarshal</span></font>
> - </b></strong>For more information please visit<strong><b><font
> face=3D"Times New Roman"> </font></b></strong><a
> href=3D"http://www.marshalsoftware.com";><strong><b><font face=3D"Times =
> New =
> Roman">www.marshalsoftware.com</font></b></strong></a><strong><b><font
> face=3D"Times New Roman"> =
> </font></b></strong><o:p></o:p></span></font></p>
>
> <div class=3DMsoNormal align=3Dcenter =
> style=3D'margin-left:36.0pt;text-align:center'><font
> size=3D3 face=3D"Times New Roman"><span style=3D'font-size:12.0pt'>
>
> <hr size=3D2 width=3D"100%" align=3Dcenter>
>
> </span></font></div>
>
> </div>
>
> </body>
>
> </html>
>
> ------_=_NextPart_001_01C27F2F.5CF0F180--
--
Please see the official ORACLE-L FAQ: http://www.orafaq.com
--
Author: Jared Still
INET: [EMAIL PROTECTED]
Fat City Network Services -- 858-538-5051 http://www.fatcity.com
San Diego, California -- Mailing list and web hosting services
---------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from). You may
also send the HELP command for other information (like subscribing).
