Help for this page

Select Code to Download

Select or download this

print join(',',Substed(split(/\//,cwd)));

Select or download this

C:\>perl -MCwd -MWin32::FileOp -e "..."
,HarddiskVolume1
...

O:\>perl -MCwd -MWin32::FileOp -e "..."
,LanmanRedirector\;O:000000000002ef75\SOME-MACHINE\Network\Share