|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Bolotnov 2:5052/4.82 20 Sep 2000 23:31:28
To : All
Subject : торможу. стыдно...
--------------------------------------------------------------------------------
сорри, должен был, конечно, сам додуматься, но что-то туго.
такое дело:
for $_ (@data){
if ($_ =~/<!--/){
($num) = $_ =~ /<!-- #(.*)-->/
$num++;
}
blah;}
но он просматривает все до конца. А мне надо до первого результата.
через while, вместо for пробовал, так что-то тоже "не так" работает...
можно, конечно, сделать
for ($i=0; $i<2;$i++){
for $_ (@data){
if ($_ =~/<!--/){
($num) = $_ =~ /<!-- #(.*)-->/
$num++;
}
blah;}
}
но это тоже как-то не так...
---- я пишу я вот что, если так будет понятнее. из формы приходит мессага, после
нее прописываю "<!-- #5 -->", чтобы потом, вместо нее написать ответ. надо,
чтобы номер искался и к первому найденому (мессаги unshift'ятся) прибавилось
число... но вот что-то правильно это сделать не получается.
[NewNet] Alexander Bolotnov.
---
* Origin: Кто ж я после этого? (2:5052/4.82)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
