Right Here Waiting
tianting002
全部博文（312）
NBA火箭（0）
Oracle笔记（7）
英语学习（2）
2016年（3）
2015年（1）
2013年（1）
2012年（28）
2011年（101）
2010年（72）
2009年（13）
2008年（93）
小懒妞儿
city224
littlebo
NosicLin
bo3vi257
cui_scm
gcky300
小雅贝贝
wb123456
ehlopxp
hangzai
inanin
davidhu1
scriptsh
tigaly
consenmy
cpu0018
分类： Python/Ruby
2012-01-30 11:01:16
#!/usr/bin/perl
opendir(TMP,'c:/')||die "can not open c:/:$!";
@files=grep(!/\.[a-zA-Z]*$/,readdir TMP);
foreach $a(@files){
print $a."\n";
}
closedir TMP;
上一篇：Perl 如果用split的话，如何删除最后一列，只保留前面的列？
下一篇：Gerrit简易安装入门
登录 注册
