Одним махом...
Nov. 29th, 2006 09:21 pmМы в очередной раз расстались с очередным провайдером, в результате (как вы наверное заметили) все картинки в моем жж исчезли.
Существует ли какой-нибудь способ заменить во всем уже написанном жж определенную фразу (url) в ссылках на что-то другое?
Существует ли какой-нибудь способ заменить во всем уже написанном жж определенную фразу (url) в ссылках на что-то другое?
no subject
Date: 2006-11-29 08:31 pm (UTC)Наверное можно написать программку, которая бы открывала все посты по одному и чинила ссылки.
На будущее: купи себе доменное имя и давай ссылки на него. Или выкладывай на Flickr.
no subject
Date: 2006-11-29 08:39 pm (UTC)В прошлый раз мне кто-то подменял текст во всех документах самонаписанным скриптом, просто это было 4 года назад, я подумала, что может быть за это время что-то более простое и всем известное придумали...
no subject
Date: 2006-11-29 08:43 pm (UTC)а насчет домейна .... купите у какогонить godaddy и не мучайтесь :) хостинг у них не делайте :) вряд ли вы с ними поссоритесь просто из-за домейна :)
no subject
Date: 2006-11-29 08:50 pm (UTC)no subject
Date: 2006-11-29 08:52 pm (UTC)no subject
Date: 2006-11-29 08:55 pm (UTC)а насчет домейна .... купите у какогонить godaddy и не мучайтесь :) хостинг у них не делайте :) вряд ли вы с ними поссоритесь просто из-за домейна :)
no subject
Date: 2006-11-29 09:07 pm (UTC)На его основе можно быстро сделать решение вашей проблемы.
no subject
Date: 2006-11-29 10:24 pm (UTC)no subject
Date: 2006-11-29 10:48 pm (UTC)no subject
Date: 2006-11-29 10:51 pm (UTC)Я сам ей не пользовался, но есть комьюнити
no subject
Date: 2006-11-29 10:55 pm (UTC)no subject
Date: 2006-11-29 10:55 pm (UTC)------ cut -----------
#!/usr/bin/perl
use POSIX;
use LJ::Simple;
use Time::Local;
my $lj = new LJ::Simple ({
user => "ljuser",
pass => "ljpasswd",
site => undef,
proxy => undef,
});
(defined $lj)
|| die "$0: Failed to log into LiveJournal: $LJ::Simple::error\n";
print "logged on...\n";
my $from = timelocal(0,0,0,'15','05','03'); #converts date 15.05.2003 to UNIX timestamp
print "requesting entries...\n";
my %Entries=();
(defined $lj->GetEntries(\%Entries,undef,"sync",$from)) ||
die "$0: Failed to get entries - $LJ::Simple::error\n";
print "replacing...\n";
foreach (values %Entries) {
my $text=$lj->GetEntry($_);
$text =~ s/deep\.deu\.net/miu\-mau\.org/ig;
$lj->SetEntry($_,$text)
|| die "$0: Failed to set entry: $LJ::Simple::error\n";
$lj->EditEntry($_)
|| die "$0: Failed to edit entry - $LJ::Simple::error\n"
}
print "done.\n";
exit(0);
------ cut -----------
no subject
Date: 2006-11-29 11:15 pm (UTC)no subject
Date: 2006-11-29 11:37 pm (UTC)Возвращаясь к теме: вроде где-то есть скрипт, позволяющий скачать журнал на локальную машину, а потом закачать обратно. Так вот если скачать его себе, заменить url можно в любом текстовом редакторе.
no subject
Date: 2006-11-30 06:57 am (UTC)маленькая оптимизация: делать SetEntry только если s/// что-нибудь поменял.
no subject
Date: 2006-11-30 12:38 pm (UTC)спросите у него, думаю он не откажет :)
no subject
Date: 2006-12-01 04:43 am (UTC)