Кароче у меня есть емэйлы в виде aaaa bbbb ccccc dddd И пароли в виде 0000 1111 2222 3333 В разных файлах. Как сделать так, чтобы стало aaaa;0000 bbbb;1111 ccccc:2222 dddd;3333 Заранее спасибо. С меня пюс. И еще есть у кого нить чекер мыл на мэйл ру?
Code: #!/usr/bin/perl -w use strict; my $mails = 'mails.txt'; # Файл с мылами my $pass = 'pass.txt'; # Файл с паролями open(MAILS, $mails) || die("can't open $mails\n"); open (PASS, $pass) || die("can't open $pass\n"); open(OUT, ">>mp.txt"); while(my $mail = <MAILS>) { my $pwd = <PASS>; chomp($pwd); chomp($mail); print OUT my $mp = $mail.";".$pwd."\n"; } close(MAILS); close(PASS); close(OUT); Чекер мыл недавно выкладывали, поищи. В крайнем случае могу свой выложить
Предлагаю реализовать все на Delphi.....короче сначала о расстоновке компонентов.....создай новый проект и кинь на форму три компонента LabeledEdit с вкладки Additional. далее кинь на формы обчную кнопку... Первое Едит обзови "путь к файлу с мыльницами", второй - "путь к файлу с пассами", третий - "конечный файл". Ну а теперь в событии onClick кнопки пишем следующий код: Code: procedure TForm1.Button1Click(Sender: TObject); var //Объявим парочку переменных pass,mail,new_list:TStringList; //Наши переменные будут происходить из Strings schet:integer; //счетчик begin //начали pass:=TStringList.create(); //инициализируем объект mail:=TStringList.Create(); //инициализируем объект new_list:=TSTRINGLIST.create(); //инициализируем объект pass.LoadFromFile(LabeledEdit1.Text); //загружаем данные из указанного файла mail.LoadFromFile(LabeledEdit2.Text); //загружаем данные из указанного файла if pass.Count <> mail.count then showmessage('Количество строк в файле пассов и в файле мыльников не совпадает!!!') //проверяем кол-во строк else //если все ок, то.... begin for schet:=0 to pass.count-1 do //мутим цикл)))) begin new_list.add(mail.Strings[schet]+';'+pass.Strings[schet]); //составляем новый листик end; new_list.SaveToFile(LabeledEdit3.Text); //сохраняем новый лист в файл end; end; Это простейшая прога, не проверят правильность входных данных, т.е. без "защиты от дурака". Если не смог сделать, то выкладываю уже скомпиленный пример на _http://ggg123321.narod.ru/generilka.exe
