Форум АНТИЧАТ - нужен простенький скрипт)

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - нужен простенький скрипт) (https://forum.antichat.xyz/showthread.php?t=64918)

noisia

20.03.2008 22:12

нужен простенький скрипт)

умя есь список фтп в таком виде
ftp.user.com l:12345 p:1234
надо что-бы меняло на
log:pass@ftp.user.com

demonoid

20.03.2008 22:41

ftp.txt

Код:

ftp.user.com l:qwer p:11111

ftp.user.com l:qw123 p:1234

ftp.user.com l:qw123 p:4321

ftp.user.com l:q123 p:2314

Код:

perl -ne "/(.+) l:(.+) p:(.+)/&&print \"$2\:$3\@$1\n"" ftp.txt > n_ftp.txt

n_ftp.txt

Код:

qwer:11111@ftp.user.com

qw123:1234@ftp.user.com

qw123:4321@ftp.user.com

q123:2314@ftp.user.com

WVBR	20.03.2008 22:43

PHP код:


		
			
<?php

function rewrites($fn,$str)

{

if(file_exists($fn)): 

$f=fopen($fn,w);

for($i=0;$i<=sizeof($str)-1;$i++):

echo '-> '.$str[$i].'<br>';

fwrite($f,$str[$i]."\n");

endfor;

fclose($f);

else: die('not found: <b>'.$fn); endif;

}

$list=file('list.dat');

for($i=0;$i<sizeof($list);$i++)

 $massresult[]= str_replace(chr(13), "",chop(preg_replace('~([^\s]+) l:([^\s]+) p:([^\n]+)~', '\\2:\\3@\\1', $list[$i])));

rewrites('newlist.dat',$massresult);

?>

WVBR	20.03.2008 22:54

newlist.dat chmod-> соответствующий для записи
и строчка
$result=$login[1].':'.$pas[1].'@'.$tmp[0];
не нужна ... зашпарился)

noisia

20.03.2008 23:01

Спасибо, только оно один файл из листа делает, а надо что-бы весь файл.

WVBR	20.03.2008 23:22

кхм... чёт я не вразумил.. сори
как понять - "делает один файл"
а надо - "что-бы весь"

noisia

20.03.2008 23:40

тоесть одну строчку из файла.

NOmeR1

20.03.2008 23:58

WVBR, ты как-то всё усложнил
$string - содержимое файла.

Код:

preg_replace('~([^\s]+) l:([^\s]+) p:([^\n]+)~', '\\2:\\3@\\1', $string)

Думаю, получить контент файла и записать в новый ты сможешь.

WVBR	21.03.2008 00:04

NOmeR1, регулярки ещё плохо рулю ... =)
noisia, исправленно

Flame of Soul

21.03.2008 00:43

файлы list.dat создавать будет new.dat если есть права или сам создай, вопрос конкретно не поняла, но вроде то что нужно))

PHP код:


		
			
<?php

$db    = "list.dat";

$ndb    = fopen("new.dat","r+");

$fn = file($db);

echo "<table border=1>";

for ($i=0; $i<count($fn);$i++)

{

list ($aa,$bb,$cc) = explode (":",$fn[$i]);

    $cc = str_replace("\n"," ",$cc);

    $cc = str_replace("\r"," ",$cc);

list ($dd,$ff,$ee) = explode (".",$aa);

list ($gg) = explode (" ",$ee);

list ($hh) = explode (" ",$bb);

list ($cc) = explode (" ",$cc);

if(!$ndb){echo "Error file 'new.dat'";}

else

{

fputs ($ndb,$hh.':'.$cc.'@'.$dd.'.'.$ff.'.'.$gg."\n");

echo "<tr><td>".$hh."</td><td>".$cc."</td><td>@</td><td>".$dd.'.'.$ff.'.'.$gg."</td></tr>";

}

}

fclose($ndb);

echo "</table>";

?>

Время: 04:52

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице