http://blog.sina.com.cn/s/blog_7c60861501013cwo.HTML
@H_502_9@
#!/usr/bin/perl -wuse strict;use warnings;print "Hello,World...\n";print " input a String ";#$a =<>;#print $a; my $dirname = "C:\Perl";opendir ( DIR,$dirname ) || dIE "Error in opening dir $dirname\n";while( ( my $filename = readdir(DIR))){ print("$filename\n");}closedir(DIR);总结
以上是内存溢出为你收集整理的打印 perl 目录全部内容,希望文章能够帮你解决打印 perl 目录所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)