求教：正则匹配结束符$的使用

frankhyk

想要在每行字符的结尾处都加一个分号，
我使用的命令是：perl -p -e 's/$/;/g' file
例如：
要修改的文本是：
dlfjsk
kdsjflsgsg
ioweiwrn

希望修改后的样子是：
dlfjsk；
kdsjflsgsg；
ioweiwrn；

可使用上面的命令之后的样子是：
dlfjsk;
;kdsjflsgsg;
;ioweiwrn;

不知道自己错在哪了？坐等大侠指教！

mcshell

回复 1# frankhyk

-l[octal]       enable line ending processing, specifies line terminator
     -n              assume "while (<>) { ... }" loop around program
  -p              assume loop like -n but print line also, like sed

1. perl -pe 's/^(.*)$/\1;/g;' file
   
2. or
   
3. perl -lne 's/$/;/g;print' file
   

复制代码

frankhyk

回复 2# mcshell


    谢谢，采用你的第二种方法。

yybmsrs

perl -pe 's/$/;/' file

gaoyang636

$ 默认是匹配字符串的结尾，并且不受\n 的影响。lz的做法，其实是在\n后加上了";"。
直观但是略罗唆的做法是每一行chomp，然后加上";"，再每一行添加回"\n"。 用 perl1line写，就是带上 -l 参数即可了。