Вообще говоря, она (программа) внутри - просто текстовый файл, и открыв ее вашим любимым редактором, можно просто все про нее прочитать :) там в начале, если я не ошибаюсь, исчерпывающие комментарии.
Но вообще идея правильная - опять же если я правильно помню (пардон за мнгочисленные дисклэймеры - я под виндами работаю редко и только если уж совсем вынужден), то правильно установленный перл под виндами проассоциируется с нужными расширениями файлов и поэтому при кликании на них они будут корректно запускаться. Так что останется только указать правильные ключики и все.
Вообще, я бы на вашем месте не стал морочиться, а нашел бы человека, у которого есть доступ к машине с юниксом и интернетом, которому вы можете доверить свой пароль от ЖЖ, и попросил бы его выкачать дневничок и отдать в виде, скажем, зип-архива. Но, с другой стороны, самостоятельно может быть интереснее :)
Ой, что Вы, пароль от ЖЖ - это самый драгоценный пароль, который у меня есть, вряд ли я смогу его кому-то доверить ;-) Да и потом, что ж, каждый раз, когда мне понадобиться сохраниться (правда, я уже больше года собираюсь, да), кого-то просить... Спасибо Вам большое за советы, попробую самостоятельно завтра с работы установить Перл. Надеюсь, у меня ничего не обрушится.
Только... только... а что Вы имели в виду под "правильными ключиками"? Может быть, я и знаю, о чем Вы говорите, но я не поняла, к сож. Простите еще раз за глупство.
ключики - они и есть ключики :) ну то есть не просто запустить ljsm.pl, а ljsm.pl -a например На всякий случай под лыжекатом (не знаю, работает ли он в комментах, простите, читатели данного треда,если что) привожу как раз то, что написано в самом скрипте в самом начале - там сначала комментарии, а потом набор констант, которые надо указать для своего случая.
perl ljsm.pl [-p -m] user1 user2 ... retrive messages for the given users and save them to the local directory -r = resume processing if there is already local file for the given post -m = retrieve memories, not posts -a = get memories AND posts -O = overwrite existing files (NOT recommended) -I = ignore network errors and continue fetching posts
=head1 SETUP I've tested this script with Windows Me, ActiveState perl v. 5.6.0 with the following ppm modules installed: HTML-Parser 2.33, HTML-SimpleLinkExtor 0.71, libwww-perl 5.48 If you want to use UTF-8 conversion to local charset you'll also need to setup Unicode-MapUTF8.
-------- How to setup Unicode-MapUTF8 for Windows ------------ 1. ppm install Unicode-Map 2. download, untar and ungzip Unicode-MapUTF8 3. install Unicode-MapUTF8 ignoring messages about missing modules 4. go to %PERL%\site\lib\Unicode and edit MapUTF8.pm: 4.1 comment out 'use Unicode::Map8' and 'use Jcode' 4.2. insert 'use Unicode::Map' line if it is not already there --------------------------------------------------------------
вот дальше там будут константы в виде (кусочек) -
use constant LOGIN => 'mbravo'; # leave it empty if you don't want to login use constant PASSWORD => 'xxxxxx'; use constant START_YEAR => 2001; # fetch data back to this year use constant CLEANUP_HTML => 1; # 0 - leave html as it is, 1 - remove sidebars etc
и так далее - вписываете то, что вам нужно, и вперед
О Боже. У меня все равно остались вопросы. Слушайте, мне ужасно неловко, что мы тут авве сыпем все это в почту, можем мы с Вами перейти к какому-нибудь более уединенному месту для беседы, типа через почту или через аську, как Вам удобней (и если у Вас есть возможность тратить на меня свое время).
![[identity profile]](https://www.dreamwidth.org/img/silk/identity/openid.png){kind=small}
![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png)
timeasmymeasure
no subject
Date: 2002-09-29 12:53 am (UTC)Но вообще идея правильная - опять же если я правильно помню (пардон за мнгочисленные дисклэймеры - я под виндами работаю редко и только если уж совсем вынужден), то правильно установленный перл под виндами проассоциируется с нужными расширениями файлов и поэтому при кликании на них они будут корректно запускаться. Так что останется только указать правильные ключики и все.
Вообще, я бы на вашем месте не стал морочиться, а нашел бы человека, у которого есть доступ к машине с юниксом и интернетом, которому вы можете доверить свой пароль от ЖЖ, и попросил бы его выкачать дневничок и отдать в виде, скажем, зип-архива. Но, с другой стороны, самостоятельно может быть интереснее :)
no subject
Date: 2002-09-29 01:25 am (UTC)Только... только... а что Вы имели в виду под "правильными ключиками"? Может быть, я и знаю, о чем Вы говорите, но я не поняла, к сож. Простите еще раз за глупство.
no subject
Date: 2002-09-29 02:11 am (UTC)На всякий случай под лыжекатом (не знаю, работает ли он в комментах, простите, читатели данного треда,если что)
привожу как раз то, что написано в самом скрипте в самом начале - там сначала комментарии, а потом набор констант, которые надо указать для своего случая.
perl ljsm.pl [-p -m] user1 user2 ...
retrive messages for the given users and save them to the local directory
-r = resume processing if there is already local file for the given post
-m = retrieve memories, not posts
-a = get memories AND posts
-O = overwrite existing files (NOT recommended)
-I = ignore network errors and continue fetching posts
=head1 SETUP
I've tested this script with Windows Me, ActiveState perl v. 5.6.0
with the following ppm modules installed:
HTML-Parser 2.33, HTML-SimpleLinkExtor 0.71, libwww-perl 5.48
If you want to use UTF-8 conversion to local charset you'll also
need to setup Unicode-MapUTF8.
-------- How to setup Unicode-MapUTF8 for Windows ------------
1. ppm install Unicode-Map
2. download, untar and ungzip Unicode-MapUTF8
3. install Unicode-MapUTF8 ignoring messages about missing modules
4. go to %PERL%\site\lib\Unicode and edit MapUTF8.pm:
4.1 comment out 'use Unicode::Map8' and 'use Jcode'
4.2. insert 'use Unicode::Map' line if it is not already there
--------------------------------------------------------------
вот дальше там будут константы в виде (кусочек) -
use constant LOGIN => 'mbravo'; # leave it empty if you don't want to login
use constant PASSWORD => 'xxxxxx';
use constant START_YEAR => 2001; # fetch data back to this year
use constant CLEANUP_HTML => 1; # 0 - leave html as it is, 1 - remove sidebars etc
и так далее - вписываете то, что вам нужно, и вперед
Надеюсь, все это чем-то помогло.
no subject
Date: 2002-09-29 03:17 am (UTC)У меня все равно остались вопросы.
Слушайте, мне ужасно неловко, что мы тут авве сыпем все это в почту, можем мы с Вами перейти к какому-нибудь более уединенному месту для беседы, типа через почту или через аську, как Вам удобней (и если у Вас есть возможность тратить на меня свое время).
no subject
Date: 2002-09-29 02:47 pm (UTC)