#!/usr/bin/perl -w
###############################################################################                  
#                                                                             #
#                Opis: Program pregleduje imena in idmm-je v dveh datotekah   #
#                Avtor: Miha Demıar                                           # 
#                                                                             #
############################################################################### 
#use strict;

print "\nNamen programa je prikaz skirtih znakov v datotekah in njihov izbirs\n";

open (ISMM1,"<ismm_ime.txt") || die "ne morem odpreti datoteke mbmb1.dat"; #odprem datoteko s koordinatami
#Podatki so v datoteki
open (ISMM2,"<ismm_ime.txt") || die "ne morem odpreti datoteke mbmb1.dat"; #odprem datoteko s koordinatami

#open (PISIV,">dnevne_pad_korig.txt") || die "ne morem narediti datotelke";
open (DATOTEKA,">datoteka.txt") || die "ne morem narediti datoteke razredi.txt";

####Preberem idmm stevilke, ki so v ismmm
$i1=1;
while ( defined($ismm1=<ISMM1>)){
        chomp($ismm1);      
	$ismm1=~ s/\r//;
        $dobro[$i1]=$ismm1;
	$i1++;}
close ISMM1;

$i2=1;
while ( defined($ismm2=<ISMM2>)){
        chomp($ismm2);
        $slabo[$i2]=$ismm2;
        $i2++;}
close ISMM2;




#print DATOTEKA "$dobro[2] $slabo[2]";
#####Naredim izpis v dveh kolonah. Druga kolona ima dodan cuden znak, ki pomeni novo vrstico
print "\n\nIZPIS ISMM in st.=$i1,$i2\n";
for($i=1;$i<$i1;$i++){
	print DATOTEKA "$slabo[$i] $dobro[$i]\n";
} #konec for($i=1;$i<$i1;$i++){
close DATOTEKA;

print "Poglej datoteka.txt in videl bos razliko med obema nacinoma!!!\n";
########KONEC PROGRAMA