关于循环

拖拉机商人

我做了一个函数
sub delfile { }；
这个delfile的功能是执行一次，会删除指定文件（a文件）的第一行
我怎么调用delfile这个函数，才能做到把a文件删除完，直到a为空的时候停止。

while (1) {
if ( -z "a") {
print STDERR ("File new_file empty.\n");
exit;
} else{
&delfile;
}
}

上面的做法无法达到我的预期，貌似循环不生效。

xiejiazhen

1. #!/usr/bin/perl
   
2. my $file = shift;
   
3. while (1) {
   
4.     if ( -z "$file") {
   
5.         print STDERR ("File new_file empty.\n");
   
6.         exit;
   
7.     } else{
   
8.         &delfile($file);
   
9.     }
   
10. }
    
11. 
    
12. sub delfile
    
13. {
    
14.     `sed '1d' $file>$file.tmp`;
    
15.     `rm -r $file`;
    
16.     `mv $file.tmp $file`;
    
17. }
    

复制代码

按你的代码尝试了一下，运行完全没问题啊

拖拉机商人

谢谢。
我尝试下。
不过应该不是这个。这个无法正常循环，我的平台是windows。

cocoa1227

#!/usr/bin/perl -w
use strict;
my $file = shift;
while (1)
{
    if ( -z $file) {
        print STDERR ("File new_file empty.\n");
        exit;
    } else{
        &delfile($file);
    }
}

sub delfile {
        open FD,'+<',$_[0] or die $!;
        truncate(FD,tell(FD));
        close FD;
}

这个试下

ludio333

sub delfile
{
        local $^I = "";
        local @ARGV = shift;
        while(<>){next if $. eq 1;print;};
}