怎样知道一个文件中有多少个逗号?

infernor

原帖由 waker 于 2009-5-5 09:03 发表


有点小限制

>file
perl -n0e 'print s/,//g' file
echo -e '1,1,1\000
2,2
,'  >file
perl -n0e 'print s/,//g' file

的确。
能解释下\000么？

woodie

原帖由 waker 于 2009-5-5 09:03 发表


有点小限制

>file
perl -n0e 'print s/,//g' file
echo -e '1,1,1\000
2,2
,'  >file
perl -n0e 'print s/,//g' file

呵呵，谢谢回贴讨论！
幸运的是：对一般的文本文件，字符\0不会造成什么问题。如果要回避字符\0，可以换一个记录分割符，比如：
perl -0\777 -ne 'print s/,//g'
如果要求更高，可以这样：
perl -ne '$s += s/,//g;END{print $s,"\n"}'

woodie

原帖由 infernor 于 2009-5-5 09:56 发表

的确。
能解释下\000么？

perl -h看看。

waker

原帖由 woodie 于 2009-5-5 10:18 发表

呵呵，谢谢回贴讨论！
幸运的是：对一般的文本文件，字符\0不会造成什么问题。如果要回避字符\0，可以换一个记录分割符，比如：
perl -0\777 -ne 'print s/,//g'
如果要求更高，可以这样：
perl -ne '$s  ...

所以print s/,//g就是打印每"行“中被替换的,数量嘛，想打印文件中的就要把文件变成1"行"嘛，而且要考虑没有被替换时返回什么。考虑多了就变成了第二种形式

woodie

原帖由 waker 于 2009-5-5 10:31 发表

所以print s/,//g就是打印每"行“中被替换的,数量嘛，想打印文件中的就要把文件变成1"行"嘛，而且要考虑没有被替换时返回什么。考虑多了就变成了第二种形式

说的不错，不过把“行”换成“记录”更准确些。perl中的上下文概念很有意思，在标量上下文下，s/re//g返回替换成功的次数，这个 1-liner就是利用了这一点。至于没有替换的情况也好解决：
print s/re//g + 0
照样很简洁。

infernor

原帖由 woodie 于 2009-5-5 10:20 发表

perl -h看看。

\0NNN  the character whose ASCII code is NNN (octal)
刚没仔细看

infernor

perl -ne 'BEGIN{$/=undef;} print s/,//g'

这样也可以的