| Akim,
| bash-2.03$ perl -e 'print ($ENV{"PWD"} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|s);'\
| > -e 'print ", ", $ENV{"PWD"}, ", $1, $2\n"'
| /export/home/vances/home/vances/netaccess, /export/home/vances/netaccess,
|/export/home/vances, /home/vances
| bash-2.03$
|
|
| On Thu, Sep 12, 2002 at 07:04:35PM +0200, Akim Demaille wrote:
| >
| > Now, what about this:
| >
| > perl -e 'print ($ENV{"PWD"} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|s);'\
| > -e 'print ", ", $ENV{"PWD"}, ", $1, $2\n"'
Assuming you were running autoreconf in this very directory, please
try:
perl -e 'print join (", ", stat ("/export/home/vances")), "\n"'
and
perl -e 'print join (", ", stat ("/home/vances")), "\n"'
