perl的 - 使用grep和提取數據的Sed則

Question

我使用這個代碼從網址的職稱http://something.txt：

#!/usr/bin/perl -w 
$output = `cat source.html | grep -o '<a .*href=.*>' | grep -E 'txt' | sed -e 's/<a /\n<a /g' | sed -e 's/<a .*title="//' | cut -f1 -d '"'`; 

print("$output"); 

，當我在Perl的運行此我得到的錯誤：

sed: -e expression #1, char 6: unterminated `s' command 

誤差與這個代碼部分有關的：

sed -e 's/<a /\n<a /g' 

Answer 1

在反引號，Perl使用相同的規則，如雙引號。因此，\n對應於換行符;您必須將反斜槓反斜槓以將文字\傳遞到外殼：

`sed -e 's/<a /\\n<a /g'`