[Обсуждение] База - [Сортировка]

[Ta6Letka]

Есть база.
goiinik:737390haha
goker13emon130395
gollla:Q508963q
goodinisljdtyrj
goodlacy:Sa928263
goodspiplsp:skrimniksore
goodstyle:s282z501
goodwin06:cfvfhf63
goodwin09:cfvfhf93
gopa:80971853898
goreckamil:Kamillek2008
gorilok:vbkrfujvbkrf94
gosha1111:Gosha1234
gospars:coolbans
Как можно отсеет строки в которых :пароль Не мене 8 символов. Должна быть хотя бы одна большая буква.
Если кто знает расскажите

[achehin]

с помощью регулярных выражений можно, надо поставить проверку после разделителя на количество символов и наличие заглавной буквы и сделать выборку, может вечером напишу как точно ) примерно так
d[8][A-Z][1]

[Ta6Letka]

Цитата: Сообщение от achehin с помощью регулярных выражений можно, надо поставить проверку после разделителя на количество символов и наличие заглавной буквы и сделать выборку, может вечером напишу как точно ) примерно так d[8][A-Z][1]

Мысля норм ток над по подробней

[achehin]

скрипт

#!perl -w
open(FIN,"in.txt") or die $!;
open(FOUT,"> out.txt") or die $!;
$i=0;
while(<FIN>){
	if($_=~/.:[A-Z]{1,}/){ #поиск хотя бы одной буквы в верхнем регистре		
	  if($_=~/.:[a-zA-z0-9]{8,}/) {   #проверка длины 
		#continue;
		print (FOUT $_);
		$i++;
	  }
	}
	else{
		#print (FOUT $_);
		#$i++;
	}
}
close(FIN);
close(FOUT);

printf ("‚лЈа㦥*® §*ЇЁбҐ© - %s \n\n", $i);

архив _http://ifolder.ru/30489406
[Ссылки могут видеть только зарегистрированные пользователи. ]
файл базы in.txt
запуск скрипта run.bat
сам скрипт для модификации если нужно split.pl
файл с полученной выборкой out.txt

если захотите модифицировать или просто разобраться в скрипте читайте [Ссылки могут видеть только зарегистрированные пользователи. ]