~ s/((?=(\w+|\d+))[?|&])/<=>/g ; # Substitute value with of word
starting with ? and ending with a & or space chomp has taken care of the
newlin
$domain =~ s/\//<=>/g;
running this 3 rule does not do the matching I am confused on how to go
about these .
Thanks for your wisdom
--
Akinleye Adedamola
y FLOSS.
>
> "Make something worthwhile." -- Dear Hunter
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
--
Akinleye Adedamola
hough
#!/usr/bin/perl
use strict;
use warnings;
my @arr=qw(fry ring apple law);
print "Enter the string you are searching for:";
chomp(my $search=); # you may have to check, if input is not string
my (index) = grep { arr[$_] eq $search }0..$#arr ;
if( defined (index))
{
print " found" ;
}
--
Akinleye Adedamola
ode will not compile. It should read
my ($index) = grep { $arr[$_] eq $search } 0..$#arr ;
if (defined ($index)) {
print " found at $index" ;
}
--
Akinleye Adedamola
ace_all_val_strings {
> my ($k, $v, $key_list) = @_;
> printf "k = %-8s v = %-4s key_list = [%s]\n", $k, $$v, "@$key_list";
> $$v =~ s/oldstr/newstr/;
> printf "k = %-8s v = %-4s key_list = [%s]\n", $k, $$v, "@$key_list";
> }
> ===
> Could anyone please help me out.
>
> Thanks in Advance
> Anand
>
--
Akinleye Adedamola
