coding error...

[vivendi]

Hello, im not really a perl programmer, but i found a usefull script that i need. I tried to compile this, but i get an error at this line of code

$HOST =~ s/(

http://)//;

And this is the error:

Unmatched ( in regex; marked by <-- HERE in m/( <-- HERE http:/ at C:\test.pl li
ne 42.


I have no idea how to fix it, can anyone help me out with this...?

 

[TonyGroves]

( and ) and / are special characters in regular expressions. Precede each with a backslash:
[tt]
$HOST =~ s/\(http:\/\/\)//;
[/tt]

 

[vivendi]

Thanks, that did fix it. Im at the end of the code and there's still one error i cant fix.
This is the piece of code:

while ($odp = <$get1>) 
{ 
if ($odp =~ /<b>Warning</b>: main(): Unable to access ./$ARGV[2] in <b>/ ) { 
printf "\n\nFile ".$ARGV[2]." doesn't exists or something goes wrong.\r\n\r\n"; 

exit; 
} 

printf $odp;

And this is the error i get:

Bareword found where operator expected at C:\test.pl line 67, near "/<b>Warning<
/b"
(Missing operator before b?)
syntax error at C:\test.pl line 67, near "/<b>Warning</b"
syntax error at C:\test.pl line 74, near "}"
Execution of C:\test.pl aborted due to compilation errors.

Any idea how to fix this one??

 

[TonyGroves]

Same thing again. You have unescaped slashes and brackets and dots in your regex.

 

[vivendi]

I've tried to escape everything i thought that needed to be escaped, but im doing something terrible wrong cause i ended up with more errors :$

Could you please tell me where i have to escape the characters...

 

[TonyGroves]

Can you show us what you've done and what the errors say?