Thanks Arun and Rob,
For example if this is the url then ,
https://localhost/Iv2/cbox/cbox-gui.pl?action=status
my ($myself) = split(/\?/,$q->self_url);
#$myself = https://localhost/Iv2/cbox-gui.pl
my @base_url = split(/\//, $myself);
# @base_url = {localhost, Iv2, cbox-gui.pl}
my $base_url = $
Raheel Hassan wrote:
Thanks Arun and Rob,
For example if this is the url then ,
https://localhost/Iv2/cbox/cbox-gui.pl?action=status
my ($myself) = split(/\?/,$q->self_url);
#$myself = https://localhost/Iv2/cbox-gui.pl
my @base_url = split(/\//, $myself);
# @base_url = {localhost, Iv2, cbox-gu
On Wed, Oct 14, 2009 at 15:38, Felix Dorner wrote:
> Hi,
>
> I did the best book purchase in years: The Perl Cookbook. They have an
> example that seems to come right from Larry Wall himself. And I don't get
> it. I can use it but I don't understand why it works with wildcards.
>
> $op = shift or