菜鸟问题！

changejun

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

1^# changejun 发表于 2008-04-19 16:52

菜鸟问题！

我现在有几个文件，如：01.txt ,02.txt ,03.txt ,08.txt ,15.txt
读取一个文件用　open(FP,"01.txt");
读取下一个还要手动更换文件名啊！
有没有朋友知道一个函数或者其他方法让程序自己继续读下去啊．

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-04-19 17:04

[Copy to clipboard] [ - ]

CODE:

foreach qw (01.txt  ,02.txt ,03.txt ,08.txt ,15.txt){
            open my $file,"<","$_" or die "Fail to open $_ $!";
               do your stuff
            close $file;
}

rt77789

UID: 28387
帖子: 35
积分: 80
在线时间: 1 小时

3^# rt77789 发表于 2008-04-19 17:09

我的方法看起来比较笨，呵呵
#! /usr/bin/perl -w

$num = "01";
$txt = ".txt";
for($i = 1; $i < 11; $i+=1){
open CP, $num.$txt;
print $num.$txt."\n";
$num++;
}

[[i] 本帖最后由 rt77789 于 2008-4-19 17:19 编辑 [/i]]

changejun

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

4^# changejun 发表于 2008-04-19 17:13

非常感谢两位！　呵呵　
我先去试试！

andy820303

UID: 34204
帖子: 12
积分: 27
在线时间: 10 分钟

5^# andy820303 发表于 2008-04-20 10:55

churchmice 的方法总是很不错!

khandielas

UID: 1557
帖子: 117
积分: 269
在线时间: 19 小时

6^# khandielas 发表于 2008-04-20 12:31

churchmice 写的东西是有Perl风格的Perl。

从写C或者C＋＋程序过来的好多都没有这种风格。

if you can keep all the .txt files in one directory, you can try this, so your script can work on the fly.

#!/usr/bin/perl -w
use strict;

foreach (glob"*.txt") {
open IN, "< $_" or die "Could not open file $_ for reading: $_\n";
while (<IN>) {
# Do whatever you want;
}
close IN;
}

cobrawgl

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

7^# cobrawgl 发表于 2008-04-20 12:35

while (<>)
{
do_your_work
}

----

> perl your_prog.pl 01.txt 02.txt 03.txt 08.txt 15.txt

rt77789

UID: 28387
帖子: 35
积分: 80
在线时间: 1 小时

8^# rt77789 发表于 2008-04-20 12:57

我是从c过来的。。。

andy820303

UID: 34204
帖子: 12
积分: 27
在线时间: 10 分钟

9^# andy820303 发表于 2008-04-20 22:36

QUOTE:

原帖由 cobrawgl 于 2008-4-20 12:35 发表
while ()
{
do_your_work
}

----

> perl your_prog.pl 01.txt 02.txt 03.txt 08.txt 15.txt

感觉这种方式局限性比较大!
如果文件很多呢?

smonkey0

UID: 42438
帖子: 74
积分: 170
在线时间: 7 小时

10^# smonkey0 发表于 2008-04-20 23:08

QUOTE:

原帖由 cobrawgl 于 2008-4-20 12:35 发表
while ()
{
do_your_work
}

----

> perl your_prog.pl 01.txt 02.txt 03.txt 08.txt 15.txt

QUOTE:

原帖由 andy820303 于 2008-4-20 22:36 发表

感觉这种方式局限性比较大!
如果文件很多呢?

这才是perl的风格。。。

不过也许稍微改一下可用性就更强了。。

[Copy to clipboard] [ - ]

CODE:

while(shift @ARGV){
my $file=$_;
do_your_work();
}