perl error

[dirdmalah]

hello all

I execute this:

# perl -p -w -e 's/</book>(?:\n)<collection>(.*)</collectioninfo>//g' test1.txt

And get this:

Bareword found where operator expected at -e line 1, near "s/</book>(?:\n)<collection>(.*)</collectioninfo"
Unquoted string "collectioninfo" may clash with future reserved word at -e line 1.
syntax error at -e line 1, near "s/</book>(?:\n)<collection>(.*)</collectioninfo"
Execution of -e aborted due to compilation errors.


Any help ?

Thx !!

 

[travs69]

it's going to pick up all those /'s unless you escape them.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[dirdmalah]

so.. how can I run that

like this:

perl -p -w -e '/s</book>(?:\n)<collection>(.*)</collectioninfo>//g' test1.txt

 

[travs69]

use \/ on any /'s that are part of the s/// syntax
/s<\/book> etc

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[KevinADC]

or use a different delimiter for the regexp itself, one that is not part of the pattern:

perl -p -w -e 's#</book>(?:\n)<collection>(.*)</collectioninfo>##g' test1.txt

makes code more readable than using escapes, but either way will work.



------------------------------------------
- Kevin, perl coder unexceptional!

 

[travs69]

Should have said

use \/ on any /'s that are not part of the s/// syntax
/s<\/book> etc

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;