Dotaz: Program, který vytvoří kombinaci všech řádků souboru

[komb]

Ahoj. Testuji svou aplikaci, která čte textový soubor. Potřeboval bych nějaký program či skript, který by vytvořil soubory se všemi kombinacemi (pořadími) všech řádků toho původního souboru. Je mi celkem jedno jestli takový program vytvoří spoustu malých souborů, nebo jestli přehází originál a po každém přeházení zavolá můj program. Nevíte někdo o takovém prográmku, jsem líný si ho sám psát

---

---

Odpovědi

[vlastagf]

Tak tohle bych rozhodne resil v pameti a ne pres disk.

[NN]

Pokud by ti stacila nahodna kombinace pak:

sort -R foo

NN

[wamba]

tento perl skript

vytvoří spoustu malých souborů

use warnings;
use strict;
use autodie;
use 5.010;

use Algorithm::Permute;

my $nazev_souboru = $ARGV[0];
my @soubor        = <>;
my $i             = 1;

Algorithm::Permute::permute {

    open my $fh, '>', "$nazev_souboru$i";

    my $ss = join q{}, @soubor;
    print {$fh} $ss;

    close $fh;
    $i++;
}
@soubor;

__END__

[komb]

Díky moc. Je to až neuvěřitelně rychlý.