Removing starting and ending tags from a string in Perl

Question

I have a string like this :

<script>This String may contain other JS tags in between </script>

My requirement is to remove starting and ending Script tag from the string , If the string has some other tags in between , those should NOT be removed.

How can I do this in Perl ?

Answer 1

尝试以下perl一种衬垫：

perl -lpe "s/<\/?script>//g" inputfile

Answer 2

在perl中：

$string =~ s!<script[^>]*>|.*</\s*script>!!g;

Answer 3

You could try the below code to remove the opening and the closing script tags.

"<script>This String may contain other JS tags in between </script>".replace(/^<script>|<\/script>$/g, "");
'This String may contain other JS tags in between '

OR

"foo <script>This String may contain other JS tags in between </script> foo".replace(/^((?:(?!<script>).)*)<script>(.*?)<\/script>((?:(?!<script>).)*)$/g, "$1$2$3");
'foo This String may contain other JS tags in between  foo'

Through perl,

$ echo 'foo <script>This String may contain other JS tags in between </script> foo' | perl -pe 's/^((?:(?!<script>).)*)<script>(.*?)<\/script>((?:(?!<script>).)*)$/\1\2\3/g'
foo This String may contain other JS tags in between  foo

Answer 4

In perl you can do a test to check if it matches your tags, and then do substitution.

#!/usr/bin/perl

use warnings; 
use strict;

my $string = '<script>This String may contain other JS tags in between </script>';

if ( $string =~ /^(<script>).*(<\/script>)$/ ) {
$string =~ s/$1|$2//g;
}
print $string, "\n";

this will print:

This String may contain other JS tags in between