(no subject)

[orleanz]

раньше была такая фича в ЖЖ - список юзеров которых френдят твои собственные френды...

никто не помнит, как ее найти? или, она только для платных пользователей?

Comments

[nalymov.livejournal.com]

Мой список получается по такой ссылке:
http://www.livejournal.com/friends/popwithfriends.bml

[ortodoxe.livejournal.com]

Поиск пользователей, популярных среди ваших друзей, является возможностью, доступной только для владельцев платных аккаунтов. С дополнительной информацией о покупке платного аккаунта вы можете ознакомиться на странице «О платных пользователях».

[yankee2d.livejournal.com]

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

[orleanz.livejournal.com]

неплатные аккаунты не могут

но у меня есть скрипт на Перле, давно написал

он делает то же самое, для любого юзера

запускать надо локально, на компе где есть Перл

если надо скрипт, свисни

[orleanz.livejournal.com]

sub getFriends { $content = get("http://www.livejournal.com/misc/fdata.bml?user=@_"); die "Couldn't get friends list." unless defined $content; @result = (); @temp = split /\n/, $content; foreach (@temp) { push (@result, $2) if (/^>( )(.*)/); } } use LWP::Simple; $delay = 1; if ($ARGV[0] eq "") {print "\a\nProvide LJ user name as command line argument.\n"; exit;} getFriends $ARGV[0]; print "@result"; @userfriends = @result; print "\nRetrieving data - with delay $delay sec. - for users:\n\n"; $cnt = 0; foreach $friend (@userfriends) { $cnt++; print "$cnt of ".($#userfriends + 1).": $friend\n"; sleep $delay; getFriends $friend; foreach (@result) { $stat1{$_} = $stat1{$_} + 1 ; $stat2{$_} = $stat2{$_}." ".$friend; } } print "\n\nResults:\n"; foreach $k (sort { $stat1{$a} <=> $stat1{$b} } keys %stat1 ) { print "$k ($stat1{$k})," if !grep(/^$k$/, @userfriends) & $k ne $ARGV[0]; }