#!/usr/bin/python
###########
file='lista2'
a = open(file)
b = a.readlines()
a.close
b.sort()
c = [c[:-1] for c in b]
d=len(b)
e=0
aak=0
tot=0
###########
grupsum = open('sortirano', 'w')
while d>e:
	bbkv=c[e].split(';')
	if bbkv[0]!='':
		intbbkv=int(bbkv[1])
		if aak and bbkv[0] != aak:
			grupsum.write(aak+'='+str(tot)+'\n')
			print aak+'='+str(tot)
			tot=0
		aak=bbkv[0]
		tot+=intbbkv
	e+=1
	if d==e:
		print aak+'='+str(tot)
		grupsum.write(aak+'='+str(tot)+'\n') 

grupsum.close() 

if aak and bbkv[0] != aak:

if total==0:
	2+2

#!/usr/bin/python

fh = open("text")
lista= fh.readlines()
fh.close
lines = [lines[:-1] for lines in lista]
lines2=[int(i) for i in lines]

###############################
total=0
y=''
count=1
for x in lines2:
	if x==y:
		count+=1
		total=count*x
		
	else:
		count=1
		if total==0:
			2+2
		else:
			print total
		total=0
	y=x
if total==0:
	2+2
else:
	print total

1
2
3
4
5
6
7
8

#!/usr/bin/python

fh = open("text")
lista= fh.readlines()
fh.close
lines = [lines[:-1] for lines in lista]
lines2=[int(i) for i in lines]

###############################
total=0
y=''
for x in lines2:
	if x==y:
		print y
		total += x
	y=x
print total

awk 'BEGIN {FS=";"} {if(NR>2) t[$1]+=$3} END {for(x in t) print x "=" t[x]}' < podaci

#! /usr/bin/perl -w
use strict;
# preskoci prva dva retka
my $dummy = <STDIN>;
$dummy = <STDIN>;
my %data = ();
while (<STDIN>) {
    s{[\r\n]+$}{}g;
    my ($a, $b, $c) = split(/;/, $_);
    $data{$a} = 0 unless defined($data{$a});
    $data{$a} += $c;
}
foreach (sort(keys(%data))) {
    print STDOUT sprintf('%d=%d', $_, $data{$_})."\n";
}

A;B;C
------
1;trt;2
1;rt;2
1;rtd;2
1;ert;2
2;xd;1
2;xd;1
2;xd;1
3;45;3
3;46;3
3;tz;3