代码之家 › 专栏 › 技术社区 › american-ninja-warrior

Perl-pi-e不能用星号代替行-也许我没有正确地转义

escaping perl bash

american-ninja-warrior · 技术社区 · 6 年前

SO 没有成功。我做错了什么:

 * It is generally better to create a new file per style scope.
 *
 *= require_tree .
 *= require_self

我希望在执行perl pie之后,文件最终看起来像这样

 * It is generally better to create a new file per style scope.
 *
 *= require iziToast
 *= require_tree .
 *= require_self

  828  perl -pi -e 's/  *= require_tree ./  *= Require_tree ./' app/assets/stylesheets/application.css.scss
  832  perl -pi -e 's/require_tree \./Require_tree \./' app/assets/stylesheets/application.css.scss
  837  perl -pi -e 's/  \*\= require_tree \./  \*\= Require_tree \./' app/assets/stylesheets/application.css.scss
  839  perl -pi -e 's/= require_tree \./= Require_tree \./'       864  perl -pi -e 's/\*/\Q*/' app/assets/stylesheets/application.css.scss
  868  perl -pi -e 's/\*/\Q*/' app/assets/stylesheets/application.css.scss
  874  perl -pi -e 's/\*/*/' app/assets/stylesheets/application.css.scss
  876  perl -pi -e 's/\*/\*/' app/assets/stylesheets/application.css.scss
  878  perl -pi -e 's/\*/s/' app/assets/stylesheets/application.css.scss
  898  git checkout app/; perl -pi -e 's/\(\*\)/$1/' app/assets/stylesheets/application.css.scss; git diff
  900  git checkout app/; perl -pi -e 's/(*)/$1/' app/assets/stylesheets/application.css.scss; git diff
  901  git checkout app/; perl -pi -e 's/(\*)/$1/' app/assets/stylesheets/application.css.scss; git diff
  903  git checkout app/; perl -pi -e 's/(\\*)/$1/' app/assets/stylesheets/application.css.scss; git diff
  905  git checkout app/; perl -pi -e 's/\(\*\)/$1/' app/assets/stylesheets/application.css.scss; git diff
  907  git checkout app/; perl -pi -e 's/^(.*)/foo/' app/assets/stylesheets/application.css.scss; git diff
  908  git checkout app/; perl -pi -e 's/^  (.*)/foo/' app/assets/stylesheets/application.css.scss; git diff
  924  git checkout app/; perl -pi -e 's/^(.*)/\1/' app/assets/stylesheets/application.css.scss; git diff
  925  git checkout app/; perl -pi -e 's/^(.*)/\\1/' app/assets/stylesheets/application.css.scss; git diff

系统:Mac10.13.5、Bash3.2、Perl5.18

因为问题标题提到perl,所以需要一个perl答案。

2 回复 | 直到 6 年前

ikegami Gilles Quénot 6 年前

* 和 . 在正则表达式模式中是特殊的。你必须使用 \* 和 \. * .

perl -i -pe'print " *= require iziToast\n" if /^ \*= require_tree \.$/' file

或

perl -i -pe's/^(?= \*= require_tree \.$)/ *= require iziToast\n/' file

chepner 6 年前

sed .

$ sed '3i\
> \ *= require iziToast
> ' tmp.txt
 * It is generally better to create a new file per style scope.
 *
 *= require iziToast
 *= require_tree .
 *= require_self

推荐文章

Jerome · 用于检查成功响应的脚本,而不仅仅是200[已关闭]

4 月前

NullVoxPopuli · 重命名文件夹的最快方法是什么?[关闭]

5 月前

Super_Programmer · Linux中带括号的环境变量?[副本]

5 月前

D S · 试图弄清楚为什么带有awk/read的bash代码在另一台设备上不起作用

5 月前

Fravadona · 如何检测“while read-t TIMEOUT”循环因超时而退出?

6 月前

njamescouk · 使用sed或tr和bash将制表符转换为单位分隔符

6 月前

Folkert Meeuw · lsusb|awk'{print$6}'|xargs-null lsusb-s有什么问题

6 月前

YorSubs · Linux中遍历目录的时间不同方法[关闭]

6 月前

Plankt0n · Shell,执行一个需要逐一遍历多个值的命令

6 月前

Andres Mora · 如何根据文件名条件删除文件夹中的图像?

6 月前