博文背景

文本替換雖不難，可是如果考慮到各種轉義以及特殊字符那么難免會頭皮發麻，如何優雅地解決這個問題，Perl語言為我們提供了函數。

具體操作

#!/usr/bin/perl $str=<<'EOF'; "g\\gesr\gesg\Qt\Erd\\\\//thrdh\"grsegresgr"; EOF $find="\\"; $quoted_find=quotemeta($find); $replace="'"; print "$str\n"; # $str =~ s/$find/$replace/g; $str =~ s{$quoted_find}{$replace}g; print "$str\n"; [root@shanghai temp]# perl he.pl "g\\gesr\gesg\Qt\Erd\\\\//thrdh\"grsegresgr";"g''gesr'gesg'Qt'Erd''''//thrdh'"grsegresgr";

總結

以上是生活随笔為你收集整理的使用perl进行完美的文本替换的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。