Dotaz: Perl a rozdeleni souboru

[Lefeant]

Dobry den,
Potreboval bych radu jak v perlu otevrit binarny soubor ze stdin a rozkouskovat to na 1MB soubory. Soubor co ma 50MB bude pak bude 50x1MB. Dekuji za kazdou radu.

Odpovědi

[Hynek (Pichi) Vychodil]

perl -ne 'BEGIN{$/=\1048576} $file = $ARGV ne "-" ? $ARGV : "out"; open FILE, ">", $file . sprintf "%03d", ++$$file; print FILE; close FILE'

Použitelné jako roura, pak je výstup do souborů out<číslo>, nebo s parametry, pak je výstup do <parametr><číslo>

P.S.: Pokud se ti to zdá napsané prasáky, tak to je schválně, aby jsi se musel podívat do dokumentace, jak je to uděláno.