如何用perl創建x個文件？

Question

我想創建一個範圍從1..10000000，包含「一些文本」的指定數量的文件，你如何在Perl中做到這一點？

在此先感謝！

Answer 1

試試這個：

my $count = 3; 
for (my $i = 0; $i < $count; $i++) { 
    open(my $f, ">>file$i.txt") or die("couldn't open file$i.txt"); 
    print $f "some text"; 
    close($f); 
} 

Answer 2

您的工作方式與您在其他任何語言中使用相同。分解任務成一系列小步驟，你可以實現：

• 環路周圍：
• 打開一個文件，並寫入文本。

所以，你可能有這樣的代碼：

my $count = 0; 
while($count < 10000) 
{ 
    open(my $fh, '>', "output.$count") 
     or die "Failed to open file: $!"; 
    print $fh "sometext\n"; 
    close($fh); 

    $count += 1; 
} 

Answer 3

雖然你可以創建一個目錄千萬的文件，這是不可取的，因爲四處尋找該目錄會證明麻煩。 ls不會返回幾個小時，bash自動完成的文件名將會掛起，並且通常您需要終止終端以再次使用它。

考慮跨多個目錄分區文件。您可以使用md5，sha1，模數（s），文件名中的n位數組等來實現分區。將任何目錄中的文件總數保持在少於幾千個是可取的。

下面是一個例子使用MD5：

use File::Path qw(make_path); 
use Digest::MD5 qw(md5_hex); 

use constant DIRECTORY_ROOT => '/path/where/you/want/these/files'; 
use constant FILE_SEP  => '/'; 
use constant MAX_FILES  => 10; 

for my $count (1 .. MAX_FILES) { 
    my $subdir = substr(md5_hex($count), 0, 2); # First 2 characters 

    my $dir = join FILE_SEP, DIRECTORY_ROOT, $subdir; 
    make_path($dir); 
    my $file = join FILE_SEP, $dir, $count; 

    open(my $fh, '>', $file) 
     or die "Failed to open file $file : $!"; 
    print $fh "some text\n"; 
    close($fh); 
} 

這將創建下列文件集：

./c9 
./c9/8 
./16 
./16/6 
./ec 
./ec/3 
./c8 
./c8/2 
./e4 
./e4/5 
./a8 
./a8/4 
./d3 
./d3/10 
./8f 
./8f/7 
./45 
./45/9 
./c4 
./c4/1