regular expression

[pavanponnapalli]

hi,

     my $a = '66.249.65.76 - - [01/Jun/2008:04:07:52 -0400] "GET /cgi-bin/asp/philo/dkbl/search3t?OUTPUT=DF&OUTPUT=TF&POLESPAN=1&createmonth=December&dbname=barth&word=europ%C3%A4ischen HTTP/1.1" 200 12788 "-" "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)"';
#my $val=2;
#my $c = index($a,'"',$val);
 
#print "$c \n";
#my $b = substr($a,index($a,"\"",1)+1);
#print "$b";
 
if($a =~ /\"(\w*)(\s*)\/(\s*)(\S*)/g)
{ 
     $a = $&; 
     #print ">>>>>>>$a<<<<<<";
}
while($a =~ /(\w*)\//g)
{ 
    $a = $';
    print "<<<$a>>> \n";
    #print "$1\n";
    my $i=0;
    if($a=~/(\w*)(\-)(\w*)/)
    {
            push(@arr,join "$2",($1,$3));
            for (@arr)
            {
                push(@arr1,$_);
            }
            $i++;
    } 
    else
    {
        push(@arr1,$1);
    }
 
}    
print "<<<@arr>>>>\n";
print "@arr1 \n";

output : cgi-bin bin asp philo dkbl
I need to reemove bin but not bin in cgi-bin? how can i do that?

regards,
pavan

[eWish]

pavanponnapalli ,

When posting samples of code you are expected to use the [code][/code] tags. There are instructions on how to use this to the right when making a post/reply.

--Kevin

[nithinpes]

I am not very clear on your requirement. What is the input and what is the desired output?