Bir metin belgesinde alt alta sıralı olan içeriğin sırasını rastgele değiştirerek çıktısını veren scriptim. (Geliştirilebilir)
Kullanım alanına sahip olunduğunda çok fayda sağlayacak olan, ayrıca dosya sahiplenme yönü sayesinde 100.000 satırlık bir metin belgesini dahi saniyeler içersinde rastgele yeniden derleyebilme becerisine sahip.
Kullanım: /Randomizer
Kod:
alias randomizer {
var %file = $+(",$sfile(*.txt,metin belgesi seç...,basla),")
if ($hget(randomizer)) hfree -s $v1
if ($fopen(tmp=~)) .fclose tmp=~
.fopen tmp=~ %file
if (!$ferr) {
while (!$fopen(tmp=~).eof) {
hinc -m randomizer $fread(tmp=~) 1
}
}
fclose tmp=~
echo - $hget(randomizer,0).item
var %o.file = $replace(%file,.txt",$+(-,$zaman,.txt"))
.fopen -o o.out %o.file
while ($hget(randomizer,0).item) {
var %rand = $r(1,$hget(randomizer,0).item), %item = $hget(randomizer,%rand).item
.fwrite o.out %item $+ $crlf
hdel randomizer %item
}
}
alias zaman return $+([,$replace($date,/,.),-,$gettok($replace($time,:,.),1-2,46),])