print "Ourname = $ourname"; ($ourshortname = $0) =~ s!/!\\!g; $ourshortname = `dir /b $ourname`; $ourshortname =~ s/[^\.\w-]//g; $ourname =~ m!(.*)\\([^\\]*)$!; $ourname = "cgi-bin/$ourshortname"; print "ourname is now $ourname<BR>";
Added code tags - dvergin 2002-03-27
In reply to backtick problems with perl 5.6.1.631 by ruffing
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |