|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexei Kichkine 2:5020/400 21 Sep 2000 09:11:19
To : All
Subject : Re: торможу. стыдно...
--------------------------------------------------------------------------------
On Wed, 20 Sep 2000 22:31:28 +0400,
Alexander Bolotnov <Alexander.Bolotnov@p82.f4.n5052.z2.fidonet.org> wrote:
>All,
>
>сорри, должен был, конечно, сам додуматься, но что-то туго.
>
>такое дело:
>
>for $_ (@data){
>if ($_ =~/<!--/){
> ($num) = $_ =~ /<!-- #(.*)-->/
> $num++;
> }
>blah;}
>
>
>---- я пишу я вот что, если так будет понятнее. из формы приходит мессага,
>после нее прописываю "<!-- #5 -->", чтобы потом, вместо нее написать ответ.
>надо, чтобы номер искался и к первому найденому (мессаги unshift'ятся)
>прибавилось число... но вот что-то правильно это сделать не получается.
>
>
> [NewNet] Alexander Bolotnov.
Это должно быть что то типа
foreach (@data) {
if (/<!-- #(\d+) -->/) {
$num = $1+1; last;
}
blah
}
YAnother
--- ifmail v.2.15dev5
* Origin: ROSTELECOM TCMS-14 (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
