[LUGOS-PROG] preprosta baza

[Primoz Peterlin]

-----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-----