🚀 go-pugleaf

PERL.

Jag har b�rjat arbeta p� att ha separata r�knare p�
varje sida i mitt 'public_html' bibliotek.

D� uppst�r behov att spara r�knare f�r varje sida,
just nu �r tanken att spara de i en fil 'counter_##'.

$count_file = "../log-files/counter_" . $postfix ;

sid-numret �r argument till rutinen, extraheras och
adderas skapande filnamn f�r aktuell r�knare.

Men, jag m�ste testa om det finns en fil ( om jag l�gger
upp en ny sida vill jag inte kladda med cgi-bin-filer utan de
skall klara av det sj�lv).

D� m�ste jag testa om r�knarfilen
"../log-files/counter_xx" finns, och jag har gjort s� h�r:

/*--------------------------------------------*/

$res1 = open(CHECK_LOG, "$count_file");

if($res1 == "") { 
   open(CHECK_LOG, ">$count_file") || print "Can't Open $count_file:$!\n";
   print(CHECK_LOG, "0");
   close(CHECK_LOG);
   }
/*--------------------------------------------*/

lite os�ker p� hakar och parenteser, men det fixar sig s�kert.

instruktion efter '||' �r just nu f�r avlusning, den skippas senare.
hrhrrm, jag ligger ju knappast i shell n�r detta intr�ffar..
under drift, s� att s�ga.

Men, jag undrar om n�gon har synpunkter p� just det h�r med att
�ppna -/- kontrollera -/- skapa fil i 'perl'.

Uppskattar s�dana....d� jag �r s� os�ker p� att jag g�r 'r�tt'.


Hans

-- Amiga THOR v2.22  No:1270  26-Feb-96 20:32:24
      LUND    13.10'30''E  55.43'24''N
      http://www.algonet.se/~hansmbg
--