用perl打开一个文件夹里面的全部XXX.SGM

bdwangchen

UID: 26388
帖子: 1
积分: 2
在线时间: 10 分钟

1^# bdwangchen 发表于 2008-04-20 12:30

用perl打开一个文件夹里面的全部XXX.SGM

用perl打开一个文件夹里面的全部XXX.SGM
用perl打开一个文件夹里面的全部XXX.SGM
希望高手帮做个程序!

wormhole

UID: 28887
帖子: 183
积分: 420
在线时间: 1 天 21 小时

2^# wormhole 发表于 2008-04-30 08:00

chdir(...);--my @files.
chdir(...);
my @files = glob("*.SGM");
foreach my $file (@files) {
open FH $file or die;
# do whatever <FH>;
close FH;
}

coldfishc

UID: 35781
帖子: 119
积分: 273
在线时间: 19 小时

3^# coldfishc 发表于 2008-04-30 12:02

while (<*.SGM>) {<.
while (<*.SGM>) {
open FH $_;
#
#do something
#
close;
}