[Perl] Новичкам: задаем вопросы

разделом ошибся чтоли? почему php? а так никто еще system() не отменял можно и ось и им компа с сети узнать и много чего еще

 

народ как правельно сделать подсчёт сколько компов в онлайне:
if (eregi ("1", $dati_mount[1], $out)) {$connesso="<img src=\"on.gif\">online";
global $a;
$a++;
echo " Сейчас в сети $a пользователей";}
мне выдаёт Сейчас в сети 1 пользователей Сейчас в сети 2 пользователей =)
а как написать правельно?

 

ой яж ошибся топиком =)

 

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

Code:

open(SITES,"sites.txt") ;
 @server = <SITES>;
 close(SITES);
for ($i=$#server; $i>=0; $i--){
print "forum $server[i] unvulnerable\r\n";
}

компилятор выводит 2 ошибки:

Code:

Unquoted string "i" may clash with future reserved word at poisk.pl line 6.
Argument "i" isn't numeric in array element at poisk.pl line 6.

 

Code:

#!perl
use strict;
use warnings;
open(my $SITES,"sites.txt") ;
while( <$SITES> )
{
   chomp;
   print "$_ \n";
}

sites.txt

Code:

192.168.0.1
192.168.0.2
192.168.0.3
192.168.0.4

Code:

C:\>s.pl
192.168.0.1
192.168.0.2
192.168.0.3
192.168.0.4

 

Конечно спасибо...
Но этим способом мы уже реализовывали, мне нужно указать ошибки в моем коде...

 

Code:

....
[COLOR=Red][SIZE=4][B]chomp( $server[$i] );[/B][/SIZE][/COLOR]
print "forum $server[[COLOR=Red][SIZE=4][B]$i[/B][/SIZE][/COLOR]] unvulnerable \n";
....

Code:

C:\>s.pl
forum 192.168.0.4 unvulnerable
forum 192.168.0.3 unvulnerable
forum 192.168.0.2 unvulnerable
forum 192.168.0.1 unvulnerable

 

Парни, проблема такая. Как можно в созданном файле, контента: uin;pass удалить дубликаты пар uin;pass? преобразовать массив к множеству?

 

Перл не знаю, но сделать это можно легко на пхп.

PHP:

<?
$file = 'file.txt'; // файл с уинами
$file2 = 'file2.txt'; // файл с уинами без повторений
$array = explode( "\n", file_get_contents($file) );
$array = array_unique( $array );
$handle = fopen($file2, 'a');
fwrite($handle, implode("\n", $array));
fclose($handle);
?>

 

удалить дубликаты:
open(incom, "<./in.txt");
@IN = <incom>;
@IN = grep{!$_{$_}++} @IN;
close(incom);

open(out, ">./out.txt");
print out @IN;
close(out);

 

@IN = grep{!$_{$_}++} @IN; всё дело в этом короч.. поянтно, спс..

 

Возник вопросик небольшой...как можно определить эл-т хеша с наибольшим значением, не прибегая непосредственно к перебору?
Заранее спасибо...
ЗЫЖ Перебор не устраивает тем, что эл-тов может быть больше сотни...

 

Ни как =\ Хотя хз может есть какаянить закономерность =\

 

а если заносить значение хеша в какую то переменную до занесения в сам хеш?

 

на счёт функции не знаю, но даже если функция то она имхо устраивает такой же перебор, а вообще как данные попадают в хэш?

http://opennet.ru/docs/RUS/perl_hash/

 

через оператор присваивания

Без перебора такое может быть возможно организовать через XS. И снова напишу может быть.

 

Code:

my %hash = (
	
	'1' => '1234',
	'2' => '666',
	'3' => '9900',
	'4' => '123' 
);


print @{[ sort {$a<=>$b} values %hash ]}[-1]

 

sort перебирает массив, который возвращает values, внутри себя

 

>> sort перебирает массив, который возвращает values, внутри себя

угу, а есть иные способы?

кста, у меня такое ощущение, что он вообще про мд5-хеши ( http://forum.antichat.ru/thread53979.html ) спрашивал +)

 

имхо не исключено. посмотрю на досуге