Выкладываю проги может кому пригодятся: Universal DUMP'er Думаю не раз возникала ситуация когда надо из дамба БД выдрать например 2 поля (например: login;pass). Вот собственно прога для этого и предназначена. Выбираем дамб базы обязательно, что бы первая строчка была началом вставки данных. Кнопка "Test" показывает значения далее выбираем нужные и нажимаем dump. FileSorter Простая прога для сортировки файлов. Указываем файл нажимаем Sort. Также прога может удалять повторяющиеся элементы. Hex2Ascii&Ascii2Hex Как понятно из названия прога может преобразовывать из hex->Ascii и наоборот. Обе проги писал давно и только для себя по этому на интерфейс просьба внимания не обращать... Исходники прилагаются... Бинарники: Universal DUMP'er - 162.4 Кб FileSorter - 160.8 Кб Hex2Ascii&Ascii2Hex - 158.3 Кб Исходники: FileSorter - 8.8 Кб Universal DUMP'er - 10.4 Кб Hex2Ascii&Ascii2Hex - 8.2 Кб
flipper если сделаеш Universal DUMP'er чтобы мог не 2 а хотябы 5-6 полей выдерать, то цены ему небудет! А так + от меня.
Обновил до следующей версии, что нового: Неограниченное количество столбцов для дампа в файл (номера указываются через ":"). Можно выбирать разделитель при чтении и записи дама.
Совет если нужно записать столбцы в определенном порядке, нужно выбрать в качестве разделителя при записи не ":", а ";" и расширение сменить на "csv" после чего можно будет отрыть в Exel'e и там уже делать все что угодно.
Теперь увлекся перлом. Все делается намного проще: Dump'er: Code: #!/usr/bin/perl -w if ($ARGV[0] eq "") {print "Example: perl dump.pl Clients.sql"; exit;} open (f1,$ARGV[0]) || die $!; open (f2,">log") ||die $!; if ($ARGV[1] eq "") { $s=<f1>; $s=~s/\'//g; @temp=split(",",$s); for ($i=0;$i<$#temp;$i++){ print "$i-$temp[$i]\n"; } #for print "\nExample: perl dump.pl Clients.sql 4-6-15-20"; exit; } #if @temp = split("-",$ARGV[1]); while (<f1>) {s/\'//g; #s/\s\'//g; (@temp2)=(split(",",$_))[@temp]; print f2 join(":",@temp2). "\n"; } #while close(f1); close(f2); Запускаем: "perl dump.pl Clients.sql 4-6-15-20" Clients.sql - имя сортируемого файла, 4-6-15-20 номера колонок через "-" (узнать можно запустив только "perl dump.pl Clients.sql "). Сортировка файла с удалением повторяющихся элементов: Code: #!/usr/bin/perl -w if ($ARGV[0] eq "") {print 'sort.pl filename'; exit;} open (f1,$ARGV[0]) || die $!; open (f3,">sorted") ||die $!; %seen=(); @uniq=grep {! $seen{$_} ++ } <f1>; print f3 sort @uniq; close(f1); close(f3); Запускаем: "sort.pl filename"
