作者WalkingIce (会走路的冰块)
看板perl
标题Re: [问题] 关於读档
时间Wed Jun 13 15:53:23 2007
※ 引述《handsomegirl (薰)》之铭言：
: 目前我是用Net::FTP去抓我所需要的档案後
: 这些档案唯一的共同点就是档案名称的中间是一样的号码
: ex: b123456a.a1
: b123456a.a2
: .
: .
: .
: 我想把中间的123456抓到一个c的程式里,当作变数执行
: 请问这样做的出来吗?
: 什麽样的方法比较适合??
: 先谢谢解答的高手~
过滤出你要的档名再丢到外面去执行，可以吗？
$
cat test.c
#include <stdlib.h>
int main(int argc, char* argv[]) {
printf("Wow, it is %s\n",argv[1]);
return 0;
}
$
ls test
b123456a.a1 b123456a.a2 b123456a.a3
$
cat test.pl
#! /usr/bin/perl
my @all = glob("test/*");
foreach $file(@all) {
my $echo = `./zzz $1` if $file =~m{test/(b.+a\d)};
print "$echo";
}
$
./test.pl
Wow, it is b123456a.a1
Wow, it is b123456a.a2
Wow, it is b123456a.a3
--
我想你会衰成这样都是我害的
---- Tizzy Mac
紧张的麦金塔？这是谁(．＿．?)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.128.98.6