RE: [Perl-unix-users] Multiline substitution

[Matthew Musgrove]

>       while (<FILE>) {
>       $_ =~ s|(<item name="MetaData"><value>)|$1<item name="prod"/><item
> name="features"/></value><value><item name="prod"/><item
> name="features"/>|smg;
>       print $_;
>       }

Try it with backslashes in front of the slashes.

while (<FILE>) {
        $_ =~ s|(<item name="MetaData"><value>)|$1<item name="prod"\/><item
name="features"\/><\/value><value><item name="prod"\/><item
name="features"\/>|smg;
        print $_;
        }

Matthew Musgrove


_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs