Shell Programming and Scripting

perl regexp error , I cant understand what is wrong
Hello all
I have simple perl regexp that is searching for pattern in string and replace it with the same string + addition string
here is what I have :

Code:

my $rec =  q| new Array("Attributes Management"  ,"/ResourceManagement/Attribute/attributeFrameset.jsp","/Images/icons/attributes.gif",null,"AttributesManagement"),|;

Code:

rec =~ s/[^+\s*](\"\/.*?[jsp|gif|css|bmp|js]\")/handle_path($1,1)/gse;

and the handle_path function lookes like this :

Code:

sub handle_path {

	my $s = $_[0];
	my $type = $_[1];
	 
	if($type == 0){
		return "Env.getPath()+".$s;
	}elsif($type == 1){
		my $tmpStr = "\<\%= Env.getPath() \%\>\+".$s;
		return $tmpStr;
		
	}

}

but the result im getting is almost fine .. there is missing comma in there , and i have no idea why
the comma is missing after the switching . for example between the "Attributes Management" and <%= Env.getPath() %>
Here is the result:
new Array("Attributes Management" <%= Env.getPath() %>+"/ResourceManagement/Attribute/attributeFrameset.jsp"<%= Env.getPath() %>+"/Images/icons/attributes.gif",null,"AttributesManagement"),
can someone please tell me what im doing wrong here?

What about this?

hello
and thanks for the fast reply
but it still give me the same results
what is wrong here?

The presence of [^+\s*] is the cause.

Remove it.

The reason its there because sometimes I have :

Code:

my $rec =  q| new Array("Attributes Management"  , "<%=  myFunc2 %>   +   "/ResourceManagement/Attribute/attributeFrameset.jsp",<%=  myFunc1 %>    + "/Images/icons/attributes.gif",null,"AttributesManagement"),|;

and then I don't what that the regexp handle it
this is why i have [^+\s*]