perl -pne "s;(.+) l:(.+) p:(.+);$2:$3\@$1;" ftp.txt > n_ftp.txt
<?php set_time_limit(0); $in = "in.txt"; # Входной файл $out = "out.txt";# Выходной файл function transFtp($in,$out) { $ftp = file($in); # Помещаем содержимое файла в массив $fd = fopen($out, "w"); # открываем файл для записи for($i=0;$i<count($ftp);$i++) { # Запускаем цикл if($ftp[$i] != "") { list($url,$login,$pass) = explode(" ", $ftp[$i]); # разбиваем элемент массива $login = str_replace("l:","",$login); $pass = str_replace("p:","",$pass); $pass = str_replace("\r\n","",$pass); $newFtp= $login.":".$pass."@".$url."\r\n"; # Составляем шаблон fwrite($fd, $newFtp); # записываем очередной аккаунт в файл } } fclose($fd); # закрываем файл } transFtp($in,$out); # вызываем функцию ?>
<?php // { $in = 'file.txt'; $out = 'new_file.txt'; // } $content = file_get_contents($in); $content = preg_replace('~([^\s]+) l:([^\s]+) p:([^\n]+)~', '\\2:\\3@\\1', $content); $file = fopen($out, 'w'); fwrite($file, $content); fclose($file); ?>