чем очистить mail;pass От мусора?

Подскажите чем отсортировать mail;pass
есть база вида
11mail.ru;pass
1mail.ru;
12mail.ru;pass
;pass
13mail.ru;pass

нужно получить
11mail.ru;pass
12mail.ru;pass
13mail.ru;pass


спасибо)

 

PHP:

<?php
    $goods = array();
    foreach (file('./emails.txt') as $line)
    {
        list($email, $password) = explode(';', trim($line));
        if ((trim($email) != '') && (trim($password) != ''))
        {
            $goods[] = trim($line);
        }
    }
    $w = fopen('./goods.txt', 'w+');
    fputs($w, implode("\r\n", $goods));
    fclose($w);
?>

 

спасибо большое..только вот бы на перле или .exe )

 

http://zalil.ru/32014337 держи екзе

 

|qbz|,
чему ты салаг научаешь? ))

open mm.txt
for (i=10, i<100, i++)
mail = (i+mail.ru)
write mail > mm.txt
endof
close mm.txt

 

Спасибо за МегаСуперпрогу.ехе ))

но наверное я идиот..создал файл file.txt
запустил ехе ..и что то не работает(

altblitz
я пхп совсем не умею пользоватся(

 

file.txt кинь на значок супер проги

 

кинул..говрит DONE!
но ничего не изменилось


вот соурс

Code:

[email protected];3302239
[email protected];lisova
[email protected];
[email protected];11223
[email protected];89045471
[email protected];
[email protected];Pprommet
[email protected];1410zmgb
[email protected];manitex
[email protected];345543
[email protected];24922492
[email protected];270483
[email protected];220383s
[email protected];a6717575
[email protected];VIPVIP
[email protected];ofice511
[email protected];labutis
[email protected];
;3302239

 

перл

Code:

open(MAILS , "<mails.txt");
chomp(@lines =<MAILS>);
open(GOOD, ">good_mails.txt");

foreach(@lines)
{
	if ($_=~/^.{2,100}@.*;.{1,100}$/)
	{
		print GOOD $_."\n";
	}
}

 

ищи рядом файл result.txt

 

потому в код занёс три ошибки.
незначительные и видные сразу.

на работу компа твоего не повлияют.
сумеешь их разыскать - слава тебе!

 

dpe_x

спасибо на перл работает)
на нем работает

я его даже создал..ничего не получилось(

 

та я его вообще не трогал..ибо запускать даже не умею)