【求助】perl编写一个可移植的检查磁盘空间的程序！

剑心

我的代码是在Win2000下写的，目的是检查空闲磁盘空间大小，考虑到将来应用到Linux下，故考虑了可移植性：
我的代码如下：

1. #!/usr/bin/perl
   
2. 
   
3. sub freespace{
   
4.     my(@dir,$free);
   
5.         if($^O eq 'MSWin32'){
   
6.         @dir=`dir`;
   
7.        
   
8.         $free=$dir[$#dir];
   
9.         print $free;
   
10.         my $pat="可用字节";
    
11.         $free=~s/(\s+)([\d,]+).*([\d,]+)(\s+)$pat/$3/;
    
12.         print $free;
    
13.         $free=~s/,//g;
    
14.         }elsif($^O eq 'linux'){
    
15.                 @dir=`df -k .`;
    
16.                 $free=(split(/\s+/,$dir[$#dir]))[3];
    
17.             $free=$free*1024;
    
18.                 }else{
    
19.                 $free=0;
    
20.                 warn "Cannot determine free space on this machine.\n";
    
21.                 }
    
22.                 return $free;
    
23. }
    
24. 
    
25. my $free=freespace();
    
26. print $free;

复制代码

但在win2000下运行只取出了空闲空间的最后一个数字
如 ：
5 个目录  1,280,499,712 可用字节

结果程序只输出2，
请问各位高手错在那里？我得正则表达式写的正确么？