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"'
