Comment puis-je créer 1000 fichiers que je peux utiliser pour tester un script?

Question

Je voudrais créer plus de 1000 fichiers texte avec du texte pour tester un script, comment créer autant de fichiers texte à la volée en utilisant shell script ou Perl. S'il vous plaît quelqu'un pourrait-il m'aider.

Answer 1

for i in {0001..1000} 
do 
    echo "some text" > "file_${i}.txt" 
done 

ou si vous voulez utiliser Python 2.6 <

for x in range(1000): 
    open("file%03d.txt" % x,"w").write("some text") 

Answer 2

Je ne sais pas décortiqués perl mais en python serait:

#!/usr/bin/python 

for i in xrange(1000): 
    with open('file%0.3d' %i,'w') as fd: 
     fd.write('some text') 

Je pense est assez simple ce qu'il fait.

Answer 3

#!/bin/bash 
seq 1 1000 | split -l 1 -a 3 -d - file 

Au-dessus va créer 1000 fichiers avec chaque fichier ayant un nombre de 1 à 1000. Les fichiers seront nommés file000 ... file999

Answer 4

#!/bin/bash 

for suf in $(seq -w 1000) 
do 
     cat <<EOF> myfile.$suf 
     this is my text file 
     there are many like it 
     but this one is mine. 
EOF 
done 

Answer 5

Vous ne pouvez utiliser que Bash et sans externals être encore capable de rembourrer les nombres de sorte que le p sorte les noms de fichiers roperly (si nécessaire):

read -r -d '' text << 'EOF' 
Some text for 
my files 
EOF 

for i in {1..1000} 
do 
    printf -v filename "file%04d" "$i" 
    echo "$text" > "$filename" 
done 

Bash 4 peut le faire comme ceci:

for filename in file{0001..1000}; do echo $text > $filename; done 

Les deux versions produisent des noms comme "file0001" et "file1000".

Answer 6

En Perl:

use strict; 
use warnings; 

for my $i (1..1000) { 
    open(my $out,">",sprintf("file%04d",$i)); 
    print $out "some text\n"; 
    close $out; 
} 

Pourquoi les 2 premières lignes? Parce qu'ils sont de bonnes pratiques, je les utilise même dans des programmes à 1 tir comme ceux-ci.

Cordialement, offre

Answer 7

Pour la variété:

#!/usr/bin/perl 

use strict; use warnings; 
use File::Slurp; 

write_file $_, "$_\n" for map sprintf('file%04d.txt', $_), 1 .. 1000; 

Answer 8

Voici un programme Perl court de ligne de commande.

perl -E'say $_ $_ for grep {open $_, ">f$_"} 1..1000' 

Answer 9

Il suffit de prendre tout grand dossier qui a plus de 1000 octets (pour 1000 fichiers avec le contenu). Il y en a beaucoup sur votre ordinateur. Ensuite, faites (par exemple):

split -n 1000 /usr/bin/firefox 

Ceci est instantanément rapide.

Ou un fichier plus grand:

split -n 10000 /usr/bin/cat 

Cela a pris seulement 0,253 secondes pour créer 10000 fichiers.

Pour 100k fichiers:

split -n 100000 /usr/bin/gcc 

seulement 1,974 secondes pour 100k fichiers avec environ 5 octets chacun.

Si vous voulez uniquement des fichiers avec le texte, regardez dans votre répertoire/etc. Créer un million de fichiers texte avec presque aléatoire texte:

split -n 1000000 /etc/gconf/schemas/gnome-terminal.schemas 

20.203 secondes pour les fichiers 1M avec environ 2 octets chacun. Si vous divisez ce gros fichier en seulement 10k parties, cela ne prend que 0.220 secondes et chaque fichier a 256 octets de texte.