[LUGOS-PROG] preprosta baza

[Metod Novak [e-spy]]

Hvala za primer dela super..
Sedaj imam se druga majhen problem saj stavr tece na webserverju in je 
mozen hkraten dostop do te skripte......
Pac kar rabim je kako nastaviti lock na datoteko in kako jo po izvrsitvi 
unlockam..
Ali obstaja se kaksen nacin razen da output skopiram v neko datoteko in 
pote to dateko preimenujem v datoteko kater vsebuje celotno bazo?
Ali za to bostaja kaksen bolj eleganten nacin.
lp Metod
Primoz Peterlin wrote:

>-----BEGIN PGP SIGNED MESSAGE-----
>
>On Wed, 16 Jan 2002, Metod Novak [e-spy] wrote:
>
>>    Kako bi ba bashu ali perlu naredil preprosto teksnot bazico
>>Rabil bi naslednjo funkcionalnost, naprimer da hocem v vrstici ki ima id
>>3 popravit 2 kolono.
>>id|count|date
>>1|200|1.2.2002
>>2|100|3.2.2002
>>3|400|4.2.2002
>>4|500|5.2.2002
>>sedaj bi naprimer hotel vrstici 2 coloni 2 pristet 1.
>>Nekaj casa sem probaval vendar brez supeha ima kdo kaksno idejo?
>>
>
>Recimo nekaj takega:
>
>#!/usr/bin/perl
>
>if ($#ARGV != 3) {
>    print "Usage: $0 file line col value\n";
>    exit -1;
>} else {
>    $file = $ARGV[0];
>    $line = $ARGV[1];
>    $col = $ARGV[2];
>    $value = $ARGV[3];
>}
>
>$, = '|';               # set output field separator
>$\ = "\n";              # set output record separator
>
>open(INPUT, $file);
>while (<INPUT>) {
>    chomp;
>    @field = split(/\|/);
>    if ($. == $line) {
>	$field[$col] += $value;
>    }
>    print @field;
>}
>close;
>exit 0;
>
>Sicer pa res razmisli o dbm.
>
>Lep pozdrav, Primož
>
>- --
>Primož Peterlin,   Inštitut za biofiziko, Med. fakulteta, Univerza v Ljubljani
>Lipičeva 2, SI-1000 Ljubljana, Slovenija.  primoz.peterlin at biofiz.mf.uni-lj.si
>Tel: +386-1-5437632, fax: +386-1-4315127, http://sizif.mf.uni-lj.si/~peterlin/
>F8021D69 OpenPGP fingerprint: CB 6F F1 EE D9 67 E0 2F  0B 59 AF 0D 79 56 19 0F
>-----BEGIN PGP SIGNATURE-----
>Version: GnuPG v1.0.6 (HP-UX)
>Comment: For info see http://www.gnupg.org
>
>iQB1AwUBPEVZnz3bcxr4Ah1pAQFNBwL/UMjXAX1IgX+9SFs7JMjIRyTzl3FLAwft
>PycYxGyfklMsuKDN/8KGJsbT8U+G/Q3iHrJt8KtlAqpYrcVidd1Q+imjiCwRLddg
>iNT869pGQx7hpb1l/MaAfhV/iUxGxer8
>=y/rZ
>-----END PGP SIGNATURE-----
>
>