You can always pinch the code out of the POSIX module to do this (it uses the Cwd module under Win32, or `pwd` under anything else). You could also do this using an evil hack:

Warning: This really is a very evil hack. And it won't work on non-POSIXish systems... 

require 'syscall.ph';

use strict;
use Carp;

sub cwd ()
  {
    my $buf = ' ' x 256;
    $! = 0;
    my $res = syscall(&SYS_getcwd, $buf, length($buf))
    croak "getcwd: $!" if ($res == -1 && $! != 0);
    $buf =~ /\0.*$//;

    return $buf;
  }

[download]
This obviously requires the syscall.ph header (and strict and Carp, but you can get rid of them easily). If you really don't want to use that either, you can find out the value returned by SYS_getcwd. This goes beyond evil, by the way, but under Linux (and probably nothing else), this will work: 
    my $res = syscall(183, $s, length($s));

[download]
But it will almost certainly have radically different results on other operating systems!

Of course, if you are using Win32, it may not have getcwd, but it may have an equivalent.

Andrew.

In reply to RE: Out of a hole? by ahunter
in thread Out of a hole? by Intrepid

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.