a question of perl - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Programming - 葵花宝典

a question of perl

a question of perl# Programming - 葵花宝典

z*y2008-04-27 07:04

1 楼

I want to declare an array of file pointers. For example in C, it will look
like: FILE *fp[n].
However, I don't know how to do it in perl. Here is what I tried but failed.
my @in = ();
$n = $#ARGV + 1;
for ($i=0; $i < $n; $i++)
{
open($in[$i], "}
Thank you for your help.

r*t2008-04-27 07:04

2 楼

perl不知道，python一行就行：
fps = [open(fn) for fn in sys.argv[1:]]

look
failed.

【在 z*y 的大作中提到】

: I want to declare an array of file pointers. For example in C, it will look
: like: FILE *fp[n].
: However, I don't know how to do it in perl. Here is what I tried but failed.
: my @in = ();
: $n = $#ARGV + 1;
: for ($i=0; $i < $n; $i++)
: {
: open($in[$i], ": }
: Thank you for your help.

t*t2008-04-27 07:04

3 楼

how does it fail? this piece of code runs well on my system.
one thing you may want to know, if you put (the reference of) a filehandle
in an element of array, you may not use <...> to read a line from it. in
other word, or works, but anything other than bareword or simple
scalar variable is interpreted as fileglob. if you have to use an array of (
the references of) filehandles, use readline(...) instead of <...>.

look
failed.

【在 z*y 的大作中提到】