这是哪个函数出错了

jimhou

为什么下面的程序建立的目录结尾都有一个不可识别字符。

1. #!/usr/bin/env perl
   
2. #Open a file with a filehandle
   
3. #use IPC::System::Simple qw(system);
   
4. open(FILE, "datebook")||die "Can't open datebook: $!\n";
   
5. my @arr1;
   
6. while($line = <FILE>) {
   
7.         push(@arr1,$line) if $line !~ /^#/;
   
8.         }
   
9. 
   
10. for ($i=0;$i<=$#arr1;$i++) {
    
11.         #system 'mkdir','$arr1[$i]' or die "system @args failed: $?";
    
12.         system 'mkdir','$arr1[$i]';
    
13.         if ($? == -1) {
    
14.             print "failed to execute: $!\n";
    
15.             }
    
16.         elsif ($? & 127) {
    
17.             printf "child died with signal %d, %s coredump\n",
    
18.             ($? & 127),  ($? & 128) ? 'with' : 'without';
    
19.             }
    
20.        else {
    
21.             printf "child exited with value %d\n", $? >> 8;
    
22.             }
    
23. }
    
24. close(FILE);
    

复制代码

datebook文件

1. #create directory
   
2. check
   
3. output
   
4. conf
   

复制代码

kangwenyi

while($line = <FILE>) {
        chomp;
        push(@arr1,$line) if $line !~ /^#/;
        
改成这样试试

rubyish

1. my @D = grep chomp, <DATA>;
   
2. system 'mkdir', @D[ 1 .. $#D ];
   
3. 
   
4. __DATA__
   
5. #create directory
   
6. check
   
7. output
   
8. conf

复制代码

jimhou

kangwenyi 发表于 2013-06-12 16:04
while($line = ) {
        chomp;
        push(@arr1,$line) if $line !~ /^#/;

结尾处还有乱码

rubyish

:

system 'mkdir','$arr1[$i]';