为什么不能写文件

fufelixzh

写文件是0k
njcgpb:felixzh/temp/perl >> cat addline.pl
#!/usr/bin/perl -w

foreach my $file (glob "*.tcl") {
        print "$file\n";
        &max($file);
}
sub max {
        my $dist = 'WISEopt';
        my $line = 0;
        my $i = 0;
        my $f1 = shift @_;
        my $f2 = $f1.".bak";
        my $fd = 0;
        my $fd2 = 0;

        open $fd, "<$f1";
        open $fd2, ">$f2";
        while (<$fd>) {
                $i = $i +1;
                $line = $i;
                print $fd2 /$dist/
                ? ( "exec echo \"felixzh1 $line C(RCS\${rcs}WISEopt)=\$C(RCS\${rcs}WISEopt)>>/bld/felixzh/1\n\"", $_,"\n")
                : $_;
        close $fd;
        close $fd2;
        }
}

小perl

   while (<$fd1>) {

小perl

   while (<$fd1>)

fufelixzh

回复 2# 小perl


     while <$fd>是用于读的
我的问题是print $fd2 为什么失败