I have a Win32 script that prompts the user for configuration information the 1st time it's invoked. Once the user enters this information, a config.ini file is created to perpetually store the data. I'm writing it with this: 
open (INI, '>config.ini');
print INI "data:user_input";
close INI

[download]
Nothing special, right? Well, the INI file is created in the directory that the user was in at the time, not necessarily the same directory as the script. i.e. if the script is located at c:\scripts\script.pl and I make the following call from the D:\> prompt

D:\> c:\scripts\script.pl

the INI file is created in D:\ not c:\scripts

I know I could fix it by changing the OPEN command to 
open (INI, ">".$scriptPath."\\config.ini");
print INI "data:user_input";
close INI

[download]
if I could get the path of the script into $scriptPath. However, I don't know how to do this. Doing a $dir = `cd`; returns the directory the script was called from. Any ideas?

In reply to Script Directory vs. Directory Script was Called From by seigniory

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.