从文件抓任意行

perl -e '$count = 10; @line = <>; for (1..$count) { print $line[int rand @line] }'

例如：

% cat /etc/passwd | perl -e '$count = 10; @line = <>; for (1..$count) { print $line[int rand @line] }'

• 未来我们可以和性爱机器人结婚吗？
  探索
• 什么是脂肪粒？如何消除脸部脂肪粒？
  女性
• 五个症状提醒你免疫力在下降了
  健康
• 韩式辣椒酱爆伍丁(图)－西餐菜谱
  美食
• 国庆节搞笑祝福短信
  干货
• 女子体内爬出大量瓜子状活虫
  百态

• ·德彪西画传(印象派音乐画家与象征主义音乐诗人)
• ·FC4常用多媒体软件其他软件安装升级参考
• ·qmail+mysql+vpopmail+ig
• ·我生活的故事(插图本)|报价￥7.60|图书,
• ·qmail邮件系统（2）安装
• ·昨日的世界(茨威格自传)|报价￥37.20|图
• ·LinuxLookup小技巧
• ·安装Qmail+qmailadmin+sqwe
• ·清理HTML文件
• ·歌德自传(诗与真)|报价￥46.90|图书,传