Wie kann ich 1000 Dateien erstellen, mit denen ich ein Skript testen kann?

Question

Ich würde gerne mehr als 1000 Textdateien mit etwas Text erstellen, um ein Skript zu testen, wie man so viel erstellt, wenn Textdateien auf einmal Shellskript oder Perl verwenden. Bitte könnte mir jemand helfen.

Answer 1

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

oder wenn Sie wollen verwenden Python < 2.6

erstellen benannt werden

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

Answer 2

Ich weiß nicht, in der Schale oder Perl aber in Python wäre:

#!/usr/bin/python 

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

Ich denke, ist ziemlich einfach, was es tut.

Answer 3

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

Above wird 1000 Dateien mit jeder Datei wird file000 ... eine Zahl von 1 bis 1000. Die Dateien mit 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

Sie können ohne Äußerlichkeiten nur Bash verwenden und noch Pad Lage sein, die Zahlen, so dass die Dateinamen sortieren p roperly (falls erforderlich):

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 kann es wie folgt tun:

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

Beide Versionen produzieren Dateinamen wie "FILE0001" und "file1000".

Answer 6

In Perl:

use strict; 
use warnings; 

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

Warum die ersten zwei Zeilen? Weil sie gute Praxis sind, verwende ich sie sogar in 1-Schuss-Programmen wie diesen.

Grüße, Angebot

Answer 7

Für Vielfalt:

#!/usr/bin/perl 

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

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

Answer 8

Hier ist ein kurzer Kommandozeilen-Perl-Programm.

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

Answer 9

nehmen Sie einfach eine große Datei, die mehr als 1000 Bytes (für 1000 Dateien mit Inhalt) hat. Es gibt viele von ihnen auf Ihrem Computer. Dann (zum Beispiel):

split -n 1000 /usr/bin/firefox 

Dies ist sofort schnell.

Oder eine größere Datei:

split -n 10000 /usr/bin/cat 

Dies geschah nur 0,253 Sekunden für 10000 Dateien.

Für 100k-Dateien:

split -n 100000 /usr/bin/gcc 

Nur 1,974 Sekunden für 100k-Dateien mit etwa 5 Byte je.

Wenn Sie nur Dateien mit Text möchten, schauen Sie in Ihrem Verzeichnis/etc nach. Erstellen Sie eine Million Textdateien mit fast zufällig Text:

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

20,203 Sekunden 1M Dateien mit etwa 2 Bytes je. Wenn Sie diese große Datei in nur 10k Teile teilen, dauert es nur 0,220 Sekunden und jede Datei hat 256 Byte Text.