Позавчерашний программизм
Dec. 8th, 2002 10:50 pmЛогинимся в аську с телефона. Кто-нибудь пишет. Телефон показывает только UIN.
Как было раньше:
- пытаемся вспомнить, кто ж это с таким номером пишет;
- идём к компьютеру, ибо всё равно вспомнить не можем;
- запускаем калькулятор, переводим номер в шестнадцатеричную систему счисления;
- открываем фаровской смотрелкой контактлист миранды, жмём F4, затем F7, вбиваем этот самый шестнадцатеричный номер, не забыв перевернуть его в процессе;
- как правило, находим ник.
REM uin.bat @echo %1 | c:\bin\perl\bin\perl e:\prog\perl\uin.pl
#!perl
# Ищет UIN в контактлисте Миранды
# (C) 2002 Alexander Sapozhnikov http://shoorick.da.ru/
$DB = 'C:\Program Files\Miranda\Shoorick.dat';
my $uin = <>;
chomp($uin);
die "Usage:\n uin <number>\n" if ($uin < 1);
my $packd = pack('L', $uin);
# Читаем базу всю сразу
undef $/;
open(FILE, qq|<$DB|) || die "Can't open DB: $!\n";
binmode(FILE);
$file = <FILE>;
close(FILE);
die "Not found\n"
unless ($file =~ /$packd\x00?\x4Nick\xFF.\x00([\x20-\xFF]+)/);
# Неправильно, конечно, ну да и фиг с ним!
print "UIN: $uin\tNick: $1\n\n";
И теперь нам достаточно всего лишь набрать uin нужный_номерВсё!
AK
Date: 2002-12-08 01:19 pm (UTC)чтобы смотреть, кто тебе пишет...
В порядке бреда
Date: 2002-12-08 11:38 pm (UTC)Re: В порядке бреда
Date: 2002-12-08 11:47 pm (UTC)Даже с CPANа модуль выкачал
Да всё никак руки-ноги не доходят воплотить
(AK) Re: В порядке бреда
Date: 2002-12-09 07:29 am (UTC)Все-таки почта работает гораздо лучше и чаще, чем аська )) Да и не везде аська есть, а емайл у всех..
В порядке бреда
Date: 2002-12-09 09:26 pm (UTC)Но в телефоне-то аська бесплатна!
А почта — нет