|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : dimka kuvshinov 2:5020/400 21 Sep 2000 18:30:20
To : Alexander Bolotnov
Subject : Re: торможу. стыдно...
--------------------------------------------------------------------------------
foreach $qqq (@main){
if ($qqq =~ m/<!-- comment -->/i){#добавляем в начало файла
последнюю мессагу
print OUT "<!-- comment -->\n";
foreach $aaa (@main){
if ($aaa =~ m/<!--(\d+)-->/i){#читаем цифирь
$var=$1;
print OUT "<!--",++$var,"-->"; #прибавляем 1 к
текущему
last;# выходим после прибавления
}
}
#дальше пишем текст юзеровской мессаги...
получается нечто вроде
<!-- comment -->
<!--1--> blah blah blah
<!--0-->
т.е. новая строчка все время будет добавлятся перед <!-- comment --> и выше
любого значения <!--n-->...
и админить такую гостевую удобно, из юзеровского поста убираешь всевозможные
символы перевода на новую строку:
$wer =~ s!\cM!!ig;
$wer =~ s!\n!!ig;
$wer =~ s!\cJ!!ig;
$wer =~ s!\cM\cJ!!ig;
получается длинная строчка сообщения, которую потом можно легко загнать в
массив в админской тулзе гестбука тем-же foreach $line(@massiv){ что-то тут
сделать с $line по номеру в комментарии }
Hавигации!!!!
Дима
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: торможу. стыдно...