我想知道是否有一个Perl(或其他)单行代码将替换-具有相同数量的抑扬符的所有连字符^,前提是连字符从行的开头开始.
输入示例:
Title 1
-------
Title two
---------
+--------+
|asciibox|
+--------+
输出应该是:
Title 1
^^^^^^^
Title two
^^^^^^^^^
+--------+
|asciibox|
+--------+
在Perl本身我可以运行这样的东西:
s!(-+)!"^" x length($1)!e;
但有没有办法从命令行执行此操作？