[pavanponnapalli]

hi,

Expand|Select|Wrap|Line Numbers

1.      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)"';
2. #my $val=2;
3. #my $c = index($a,'"',$val);
4.  
5. #print "$c \n";
6. #my $b = substr($a,index($a,"\"",1)+1);
7. #print "$b";
8.  
9. if($a =~ /\"(\w*)(\s*)\/(\s*)(\S*)/g)
10. { 
11.      $a = $&; 
12.      #print ">>>>>>>$a<<<<<<";
13. }
14. while($a =~ /(\w*)\//g)
15. { 
16.     $a = $';
17.     print "<<<$a>>> \n";
18.     #print "$1\n";
19.     my $i=0;
20.     if($a=~/(\w*)(\-)(\w*)/)
21.     {
22.             push(@arr,join "$2",($1,$3));
23.             for (@arr)
24.             {
25.                 push(@arr1,$_);
26.             }
27.             $i++;
28.     } 
29.     else
30.     {
31.         push(@arr1,$1);
32.     }
33.  
34. }    
35. print "<<<@arr>>>>\n";
36. 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?