入门问题

anthony1983

1. !/usr/bin/perl
   
2. open(LOG,">>updata.txt")
   
3. or die(" Open updata.txt");
   
4. print LOG "[".localtime()."] >>>>>>>>>>>>>>>>>>>>>>>\n";
   
5. 
   
6. for(;;)
   
7. {
   
8.         print "test\n";
   
9.         sleep(1);
   
10. }

复制代码

为啥加上后面的for循环，就不写LOG文件了。。？

rainbird2

1. 
   
2. !/usr/bin/perl
   
3. open(LOG,">>updata.txt")
   
4. or die(" Open updata.txt");
   
5. select LOG;
   
6. print "[".localtime()."] >>>>>>>>>>>>>>>>>>>>>>>\n";
   
7. 
   
8. for(;;)
   
9. {
   
10.         print "test\n";
    
11.         sleep(1);
    
12. }
    

复制代码

churchmice

$| = 1
或者你让它一直运行
运行一小时肯定就有东西了
kernel buffer