On Thu, 27 Sep 2001, Johannes Gamperl wrote:
Since your other problem is solved, I'll only tell you about this.
> #!/usr/bin/perl
It's a good idea to always use the -w flag:
#!/usr/bin/perl -w
> if ($0=~m#^(.*)\\#){ $cgidir = "$1"; }
> elsif ($0=~m#^(.*)/# ){ $cgidir = "$1"; }
> else {`pwd` =~ /(.*)/; $cgidir = "$1"; }
It would be better to use File::Basename for this, see perldoc
File::Basename.
Philip
--
The final delusion is the belief that one has lost all delusions.
-- Maurice Chapelain, "Main courante"
Visit my webpage at http://www.ncst.ernet.in/~philip/
Read my writings at http://www.ncst.ernet.in/~philip/writings/
MSN philiptellis Yahoo! philiptellis
AIM philiptellis ICQ 129711328
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
