Select Code to Download

#include <unistd.h>
#include <stdio.h>
...

   return 0;
}

[~/sym1]$ gcc -Wall -Wextra -pedantic a.c -o a && ./a
Current working dir: /home/ikegami/dir1

[~/sym1]$ readlink /proc/$$/cwd
/home/ikegami/dir1

#include <unistd.h>
#include <stdio.h>
...

   return 0;
}

[~/sym1]$ gcc -Wall -Wextra -pedantic a.c -o a && ./a
Current working dir: /home/ikegami/dir1

use 5.010;
use Path::Tiny qw( path );
say path($0)->absolute($ENV{PWD});

[~/sym1]$ perl a.pl
/home/ikegami/sym1/a.pl