Merely using Cwd and get_cwd() isn't going to cut the mustard -- mainly because you can invoke a script from directories other than your current working directory. Use abs_path() instead (or fast_abs_path()):

  #!/usr/bin/perl -w
  use Cwd qw(abs_path);
  print "I am ", abs_path($0), "\n";
[download]

Note that abs_path() will also resolve chains of soft links, so if that's not what you want you might use rel2abs($0) from File::Spec, or you will have to back up a bit and manipulate $0 directly, possibly with get_cwd() and File::Spec for generating the cannonical path.

And in any of these cases, use File::Spec for slicing and dicing pathnames.

You can also just simply use FindBin, except that certain people might fuss at you for reasons such as these.

You might also find these nodes of interest, from Q&A:

• How do I get the full path for a file?
• How do I get the full path to the script executing?

Matt

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.