perl 如何快速创建空文件???

lonelyair

UID: 41707
帖子: 141
积分: 324
在线时间: 1 天 3 小时

1^# lonelyair 发表于 2007-11-08 11:01

perl 如何快速创建空文件???

如题!!!

是用system?还是perl有其他办法?

ubac

UID: 8216
帖子: 71
积分: 163
在线时间: 7 小时

2^# ubac 发表于 2007-11-08 11:37

`touch test.txt`

lonelyair

UID: 41707
帖子: 141
积分: 324
在线时间: 1 天 3 小时

3^# lonelyair 发表于 2007-11-08 11:47

QUOTE:

原帖由 ubac 于 2007-11-8 11:37 发表
`touch test.txt`

还是shell的方法,

还有个问题,假如只是生成的文件只包含1,达到一定size的文件怎么做?

比如:
1K文件,内容全是1.

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

4^# perljoker 发表于 2007-11-08 12:09

你做病毒呢？

lonelyair

UID: 41707
帖子: 141
积分: 324
在线时间: 1 天 3 小时

5^# lonelyair 发表于 2007-11-08 12:47

QUOTE:

原帖由 perljoker 于 2007-11-8 12:09 发表
你做病毒呢？

也就是想在一个目录下一直创建文件,速度要快点才好,看能创建多少个文件?

FinalBSD

UID: 46729
帖子: 18
积分: 41
在线时间: 10 分钟

6^# FinalBSD 发表于 2007-11-08 12:53

QUOTE:

原帖由 lonelyair 于 2007-11-8 12:47 发表

也就是想在一个目录下一直创建文件,速度要快点才好,看能创建多少个文件?

ext3 32000个。

Lonki

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

7^# Lonki 发表于 2007-11-08 12:57

针对创建大量文件:

1. 用system或者``肯定是不快的, 每次都folk一下, 可以想象...
除非文件名已知, 将类似echo "1" > your_file这样的串成一个字符串传给system

2. open/sysopen就挺好的

lonelyair

UID: 41707
帖子: 141
积分: 324
在线时间: 1 天 3 小时

8^# lonelyair 发表于 2007-11-08 13:07

QUOTE:

原帖由 FinalBSD 于 2007-11-8 12:53 发表

ext3 32000个。

版主这个数目从何而来呀?

QUOTE:

原帖由 Lonki 于 2007-11-8 12:57 发表
针对创建大量文件:

1. 用system或者``肯定是不快的, 每次都folk一下, 可以想象...
除非文件名已知, 将类似echo "1" > your_file这样的串成一个字符串传给system

2. open/sysopen就挺好的

echo "1"> your_file 也不能达到,文件内容全是1的目的.
perl 下真的要用open来完成了?

Lonki

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

9^# Lonki 发表于 2007-11-08 13:12

1的个数从何而来? 还是随机?

FinalBSD

UID: 46729
帖子: 18
积分: 41
在线时间: 10 分钟

10^# FinalBSD 发表于 2007-11-08 17:21

QUOTE:

原帖由 lonelyair 于 2007-11-8 13:07 发表

版主这个数目从何而来呀?

echo "1"> your_file 也不能达到,文件内容全是1的目的.
perl 下真的要用open来完成了?

实践中得到的，理论上也就是这个。我们原来经常碰到目录下文件满的问题，做图片存储的。