¿Cómo puedo crear 1000 archivos que puedo usar para probar un script?

Question

Me gustaría crear más de 1000 archivos de texto con texto para probar una secuencia de comandos, cómo crear esto mucho si los archivos de texto de una vez usan script de shell o Perl. Por favor alguien podría ayudarme.

Answer 1

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

o si desea utilizar Python 2.6 <

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

Answer 2

no sé en shell o Perl, pero en Python sería:

#!/usr/bin/python 

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

Creo que es bastante sencillo lo que hace.

Answer 3

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

anterior creará 1.000 archivos con cada archivo que tiene un número de 1 a 1000. Los archivos se nombrarán 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

Sólo se puede utilizar sin Bash externos y aún así ser capaz de rellenar los números para los nombres de archivo tipo p roperly (si es necesario):

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 puede hacerlo de esta manera:

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

Ambas versiones producen nombres de archivo como "file0001" y "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; 
} 

¿Por qué las 2 primeras líneas? Debido a que son una buena práctica, los uso incluso en programas de una oportunidad como estos.

Saludos, Oferta

Answer 7

Para variar:

#!/usr/bin/perl 

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

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

Answer 8

Aquí es un programa Perl corto de línea de comandos.

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

Answer 9

acaba de tomar cualquier archivo grande que tiene más de 1000 bytes (para 1000 archivos con contenido). Hay muchos de ellos en su computadora. A continuación, realice (por ejemplo):

split -n 1000 /usr/bin/firefox 

Esto es instantáneamente rápido.

o un archivo más grande:

split -n 10000 /usr/bin/cat 

Esto tomó sólo 0,253 segundos para la creación de 10.000 archivos.

Para 100k archivos:

split -n 100000 /usr/bin/gcc 

Sólo 1.974 segundos de 100 mil archivos con cerca de 5 bytes cada uno.

Si solo desea archivos con el texto, mire su directorio/etc. Crear un millón de archivos de texto con casi aleatoria texto:

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

20.203 segundos para archivos 1M con cerca de 2 bytes cada uno. Si divide este archivo grande en solo 10k partes, solo toma 0.220 segundos y cada archivo tiene 256 bytes de texto.