ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 21.03.2008, 00:58
demonoid
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601

Репутация: 495
По умолчанию

Код:
perl -pne "s;(.+) l:(.+) p:(.+);$2:$3\@$1;" ftp.txt > n_ftp.txt
кто меньше ?
 
Ответить с цитированием

  #12  
Старый 21.03.2008, 10:24
NNNS
Познающий
Регистрация: 26.05.2007
Сообщений: 63
Провел на форуме:
550386

Репутация: 86
Отправить сообщение для NNNS с помощью ICQ
По умолчанию

Вот мой вариант
PHP код:
<?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); # вызываем функцию

?>
 
Ответить с цитированием

  #13  
Старый 21.03.2008, 11:12
NOmeR1
Познавший АНТИЧАТ
Регистрация: 02.06.2006
Сообщений: 1,188
Провел на форуме:
6023777

Репутация: 2642


Отправить сообщение для NOmeR1 с помощью ICQ
По умолчанию

Ну тогда и мой. Там цикл не обязательно делать, а регулярки - это чудо)
PHP код:
<?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);
?>
 
Ответить с цитированием

  #14  
Старый 21.03.2008, 19:46
WVBR
Познающий
Регистрация: 14.02.2008
Сообщений: 46
Провел на форуме:
189430

Репутация: 12
По умолчанию

NOmeR1, супер. только забыл удалитЬ непотребные аски символы (пробел возврат перевод каретки)
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужен Php скрипт 5 $ Ridikh О Работе 5 18.11.2008 19:20
нужен скрипт викторины для чата KVN PHP, PERL, MySQL, JavaScript 2 29.01.2008 01:11
НУжен Хелп Хацкеров anakin Болталка 18 21.09.2006 19:21
Нужен скрипт.! w4rd3n PHP, PERL, MySQL, JavaScript 7 29.10.2005 02:00
Нужен простенький скрипт на Perl SladerNon PHP, PERL, MySQL, JavaScript 6 16.06.2005 18:17



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ