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?