Желательно на perl Вобщем после дубчекера выдается такая инфа Code: "77.99.211.138@fuder;1234";"Error checked";"";"";"";"";"";"";"";""; "77.108.251.244@administrator;123";"Error checked";"";"";"";"";"";"";"";""; "77.109.193.52@administrator;sdfsdf";"Error checked";"";"";"";"";"";"";"";""; "77.109.211.141@administrator;qaazedc";"Success";"Microsoft Windows Server 2003 Service Pack 2";"2047";"Intel(R) Xeon(TM) CPU 2.40GHz";"4";"2703/297";"Yes";"United States";"Huntsville"; "77.110.210.158@administrator;defsdfd";"Success";"Microsoft Windows XP Service Pack 3";"2037";"Intel(R) Pentium(R) Dual CPU E2160 @ 1.80GHz";"2";"1602/166";"Yes";"United States";"Lubbock"; "77.109.191.117@admin;ty6666";"Error checked";"";"";"";"";"";"";"";""; "77.112.143.227@administrator;454545";"Error checked";"";"";"";"";"";"";"";""; "77.111.218.92@user;899988";"Error checked";"";"";"";"";"";"";"";""; Нужно убрать все ковычки " и ";"Error checked";"";"";"";"";"";"";"";""; ";"Success";"Microsoft Windows Server 2003 Service Pack 2";"2047";"Intel(R) Xeon(TM) CPU 2.40GHz";"4";"2703/297";"Yes";"United States";"Huntsville"; Что бы осталось 77.111.218.92@user;899988 Заранее благодарю за помощь)
тебе нужны все ? или только гуды если все то так исходный файл file.txt Code: open(FILE , "<file.txt"); open(FILE2 , ">good.txt"); chomp(my @mass = <FILE>); foreach(@mass) { if ($_ =~/"(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}@.{1,20};.{1,15})";"Succes/) { print FILE2 $1."\n"; } elsif ($_ =~/"(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}@.{1,20};.{1,15})";"Error/) { print FILE2 $1."\n"; } } close FILE; close FILE2;
