#!/usr/bin/perl
require "kisrael.pl";
use List::Util qw(shuffle);
&chugCGI(*input);
print "Content-type:text/html\n\n";
$raw = $input{"text"};
if($raw eq ""){
$ignorecase = "CHECKED";
} else {
$ignorecase = $input{"ignorecase"};
$reverse = $input{"reverse"};
$nosort = $input{"nosort"};
$dedup = $input{"dedup"};
$shuffle = $input{"shuffle"};
}
if($raw ne ""){
$raw =~ s/\r//g;
if($nosort eq ""){
if($ignorecase ne ""){
@lines = sort {uc($a) cmp uc($b)} (split(/\n/,$raw));
} else {
@lines = sort(split(/\n/,$raw));
}
} else {
@lines = split(/\n/,$raw);
}
if($reverse ne ""){
@lines = reverse(@lines);
}
print "
";
if($shuffle ne ""){
@lines = shuffle(@lines);
}
foreach $line (@lines){
$line =~ s/\/\>\;/g;
if($dedup eq ""){
print "$line
\n";
} else {
if(! defined($showed{$line})){
print "$line
\n";
}
$showed{$line} = "on";
}
}
print "
";
}
print<<__EOQ__;
sortof
kisrael.com | tools |
sortof v0.4
A really simple sorting program. Current, just paste text into the box and it will return all the lines, sorted.
__EOQ__