而您可以获得Perl一线服务!
perl -MList::Util -e 'print List::Util::shuffle <>'
它使用一个模块,但是该模块是Perl代码分发的一部分。如果那还不够好,您可以考虑自己动手做。
我尝试将其与
-i标志(“就地编辑”)一起使用,以使其编辑文件。该文档表明它应该可以,但是不能。它仍然将改组后的文件显示到stdout,但这一次它删除了原始文件。我建议您不要使用它。
考虑一个shell脚本:
#!/bin/shif [[ $# -eq 0 ]]then echo "Usage: [file ...]" exit 1fifor i in "$@"do perl -MList::Util -e 'print List::Util::shuffle <>' $i > $i.new if [[ `wc -c $i` -eq `wc -c $i.new` ]] then mv $i.new $i else echo "Error for file $i!" fidone
未经测试,但有望奏效。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)