Такая проблемка: есть тхт файл, там список слов, необходимо сортировать по алфавиту (русский алфавит), а то смотрю в чужой код вижу большую фигу, а у меня чего-то слишком большой код получается, наверняка можно гораздо проще.
Комментариев побольше плиз, мне надо ОБЯЗАТЕЛЬНО понять весь код, т.к. скрипт у меня гораздо сложнее, и я код буду встраивать в мой скрипт!
Я нашёл вроде скрипт, который делает по-моему тоже самое:).
ПОМОГИТЕ РАЗОБРАТЬ, т.е. снабдите комментариями плиз, каждую строчку:
open(F1,$outfile);
open(F2,">$final");
$oldf1 = "junk"; #Это что такое? Что за junk, откуда?
$oldf2 = "junks";
while ($line = ) {
($f1,$f2,$dummy) = split(/\\s*\\,\\s*/,$line,3);#ЭТО особенно #подробно,как ребёнку!!!ПЛИИИИИИИЗ!
if (($f1 eq $oldf1) && ($f2 eq $oldf2)) {#Это по-моему #проверяет на повторения...
print "Found duplicate : $f1, $f2\\n";
} else {
print F2 "$line";
$oldf1 = $f1;
$oldf2 = $f2;
}
}
close(F1);
close(F2);