Hello. I'm new to Perl and CGI and seem to have dropped in the deep end with this
particular problem!
The basic requirement is: if a string doesn't begin with a sequence of characters
then prepend that sequence to the string. Seems simple enough, but this is
complicated (it would seem from my limited knowledge of Perl) by the fact that both
strings contain '/' characters).
Here is my code, which attempts to prepend $path to $url if $url doesn't begin with
$path:
$path = q {//serv12/share_dir$/App Dir/};
$url = q {//serv12/share_dir$/App Dir/My Dir/My Name/file.htm#20010109};
$oldurl = $url;
if ($url !~ m!^$path!)
{
$url = "${path}${url}";
}
print "path=$path\n";
print "oldurl=$oldurl\n";
print "url=$url\n";
When run, the resultant $url is wrong because it originally started with $path and
$path should not have been prepended to it:
path=//serv12/share_dir$/App Dir/
oldurl=//serv12/share_dir$/App Dir/My Dir/My Name/file.htm#20010109
url=//serv12/share_dir$/App Dir///serv12/share_dir$/App Dir/My Dir/My
Name/file.htm#20010109
I've just read about Leaning Toothpick Syndrome, and I understand that m! etc. is used
instead of m/ to avoid the problem of
'/' characters in the pattern, but it hasn't worked above.
Thanks for any replies.
cheers, Alan
--
This e-mail may contain confidential and/or privileged information. If you are not the
intended recipient (or have received this e-mail in error) please notify the sender
immediately and destroy this e-mail. Any unauthorized copying, disclosure or
distribution of the material in this e-mail is strictly forbidden.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
