大家好谁会这个？

Sworder

还是不要用locate，用find比较好一点。实在想用locate的话，必须先执行updatedb，否则有一些文件会找不到。

scantime

#!/bin/sh
for i in $(find / -name "*.html");
do
echo "hello" >> $i
done
换成perl怎么写？能写个来看看吗？

无双

@lines = qx(find / -name "*.html)

for $line in @lines
echo "hello"  if $line ~= m/"html" ;
写得不对

好久没有使用了

kj501

呵呵，花了一个小时，现学了一下perl。觉得有些与shell不太相同的语法。
这个程序是我写的第一个perl程序，不一定正确。scantime兄先参考一下：

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. @lines=qx(find / -name "*.html");
   
5. for $lines  (@lines) {
   
6.         open OUTPUT, ">>".$lines;
   
7.         print OUTPUT "it show time\n";
   
8.         close OUTPUT;
   
9. }
   

复制代码

scantime

谢谢kj501帮助我这些菜鸟

提供一个不错的站点http://aerosol.ev.ncku.edu.tw/~vbird/

奖励嗯~~~~

kj501

网站不错，对于新手很有帮助。
网站介绍的基础知识绝大部分我都知道了，呵呵。。。其它的留着以后作为参考。

scantime

能不能交流一下？

偶的QQ76439392

kj501

我从不用QQ。有什么问题就发贴吧。