刪除開始，在Perl

Question

從一個字符串結束標記我有一個這樣的字符串：

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

我的要求是刪除開始，並從字符串結尾的腳本標籤，如果字符串之間的一些其它標籤，那些不應該被刪除。

我該如何在Perl中做到這一點？

Answer 1

您可以嘗試下面的代碼來刪除開始和結束腳本標記。

"<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' 

通過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 2

在Perl中：

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

Answer 3

在Perl中，你可以做一個測試，以檢查它是否符合您的標籤，然後做替代。

#!/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 String may contain other JS tags in between 

最新問題

• 1.
• 2.
• 3.
• 4.
• 5.
• 6.
• 7.
• 8.
• 9.
• 10.

 相關問題

• 1.
• 2.
• 3.
• 4.
• 5.
• 6.
• 7.
• 8.
• 9.
• 10.