П0М0ГИТЕ ПРИВЕСТИ etc/passwd в вид типа root:root
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
П0М0ГИТЕ ПРИВЕСТИ etc/passwd в вид типа root:root - 2005-11-04 02:37:23
|
|
|
fi.addmal
Сообщений: 10
Оценки: 0
Присоединился: 2005-11-04 02:13:20
|
П0М0ГИТЕ ПРИВЕСТИ etc/passwd в вид типа root:root Дайте пожайлуста ссылку на perl скрипт который мне поможет!! Заранее спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
П0М0ГИТЕ ПРИВЕСТИ etc/passwd в вид типа root:root - 2005-11-04 13:01:59
|
|
|
jEnizix
Сообщений: 1797
Оценки: 0
Присоединился: 2004-12-30 11:03:50
|
Можно так: <BR><?<BR>$outfile = "login_login.txt";<BR>$infile = "/etc/passwd";<BR><BR>$file = fopen($infile,"r");<BR>$file2 = fopen($outfile,"w");<BR><BR>while(!feof($file)) {<BR> $line = explode(":",fgets($file));<BR> fputs($file2,$line[0].":".$line[0]."\r\n");<BR>}<BR><BR>fclose($file);<BR>fclose($file2);<BR>?><BR>
это на PHP если что )))
|
|
|
П0М0ГИТЕ ПРИВЕСТИ etc/passwd в вид типа root:root - 2005-11-15 16:24:25
|
|
|
lolik
Сообщений: 152
Оценки: 0
Присоединился: 2005-03-19 19:25:42
|
вау,дженикс пхп знает =) кулъ мэн…хех
|
|
|
П0М0ГИТЕ ПРИВЕСТИ etc/passwd в вид типа root:root - 2005-11-15 19:46:35
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
это делается в одну команду без промежуточных файлов:
awk 'BEGIN{FS=":"} {printf "%s:%s\n", $1, $1}' </etc/passwd >outfile
при желании можно и без awk обойтись, и использовать bash'евский builtin read, но тогда явно цикл придётся организовывать.
|
|
|
П0М0ГИТЕ ПРИВЕСТИ etc/passwd в вид типа root:root - 2005-11-29 14:34:36
|
|
|
000000
Сообщений: 1
Оценки: 0
Присоединился: 2005-05-29 03:18:13
|
Уже есть маленький экзешник htpasswd.exe (поищи в инете) Ему просто передаешь параметры: htpasswd.exe -c .htpasswd admin потом у тебя запросят пароль и все. Все само будет сделано.
|
|
|
П0М0ГИТЕ ПРИВЕСТИ etc/passwd в вид типа root:root - 2005-12-06 01:30:57
|
|
|
ximera
Сообщений: 39
Оценки: 0
Присоединился: 2005-01-10 23:16:36
|
ну хотя бы так: #!/usr/bin/perl
exit print "Usage $0 <infile> <outfile>\n" unless $ARGV[1];
$goodshell='sh'; open(IN,"$ARGV[0]"); open(OUT,">$ARGV[1]"); while(<IN>) { chomp; ($u,@undef)=split ':'; if (defined($goodshell)) { if ($undef[(scalar $undef)-1]=~/$goodshell/) { print OUT "$u:$u\n"; } } else { print OUT "$u:$u\n"; } } close(IN); close(OUT); 3.14жено из ][ статья Forb'а "Жизнь по сценарию"
|
|
|
|
|