mail;pass

у меня есть base.txt вида mail;pass и вот мне надо все mail вытащить в отдельный *.txt
У кого есть какйнить проги иль perl скрипт ? прос по зарез нужно!!!

 

а зачем руки... это самому написать 5 мин делов. Тем более ограничений в выборе языка нет.

 

ну знаешь блин..... нектрые вообще не знают как с этим бороться...
я адын из них )))) ну покачто мне особо не надо эт знать

 

Вот на php пару строчек

PHP:

<?
    $base = fopen("base.txt", 'r');
    $result = fopen("result.txt", 'w+');
    
    while(!feof($base)) {
        $account = fgets($base, 999);
        $mail = explode(";", $account);
        fputs($result, $mail[0]."\r\n");
    }
    
    fclose($base);
    fclose($result);
?>


 

Код-то самый простецкий. Вариант на перле

Code:

#!/usr/bin/perl

use strict;
use warnings;
#use diagnostics;

die 'Usage: ', $0, ' [input-file output-file]', "\n" unless scalar @ARGV == 2;

open my $INFILE, '<', $ARGV[0] or die "open error: $!\n";
open my $OUTFILE, '>', $ARGV[1] or die "create error: $!\n";
print $OUTFILE (split /;/, $_)[0], "\n" while (<$INFILE>);
close $OUTFILE;
close $INFILE;
exit 0;

 

а если зажать Alt в Word`e то можно выделить в любом месте прямоугольник и удалить, выравнивай по какому нужно краю и удаляй пассы

 

ЧТО КАСАЕТСЯ ТАКИХ ПРОБЛЕМ, Я В Excel ИХ РЕШАЮ.

 

http://piramidalint.narod.ru/Achat.rar
екзешник набросал только, что выводит в отдельный файл то что до ";"

 

СПС всё рабит !
Так-же можна аськи от паролей отделять )