Chinaunix首页 | 论坛 | 博客
  • 博客访问: 816631
  • 博文数量: 52
  • 博客积分: 5000
  • 博客等级: 大校
  • 技术积分: 3734
  • 用 户 组: 普通用户
  • 注册时间: 2006-02-28 22:46
文章分类

全部博文(52)

文章存档

2012年(3)

2011年(2)

2010年(14)

2009年(24)

2008年(9)

我的朋友

分类:

2012-12-05 13:34:26

opendir DIR, ".\\port_code_txt" or die $!;
my @imglist;
open FILE_HANDLE, ">dir_filename.txt";
while (my $file = readdir DIR)
{      
    print FILE_HANDLE $file;
    print FILE_HANDLE "\n";
}
closedir DIR;
close FILE_HANDLE;
阅读(305) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~