#!/usr/bin/perl -w

## Program bere datoteko, v novo datoteko pa nese dol¾ine vrstic
print"Branje iz ene datoteke in dajajnje v drugo datoteko\n";

# spodaj odprem datoteko izhod1.txt kamor pisem podatke iz kkd za tabele,ukaz pri open >> dopise, > prepise
open (PISIV,">izhod1.txt") || die "ne morem narediti datotelke";




# spodaj odprem ze obstojeci fajl za branje <
# open (PPD,"<$ime") || die "ne morem odpreti datoteke $ime $!";
open (VHODRADAR,"<a.a") || die "ne morem odpreti datoteke  $!";

#open (VHODRADAR,"<si0-20010531-2300-rh.srda") || die "ne morem odpreti datoteke  $!";

#berem iz fajla
while ( defined($instr=<VHODRADAR>) ) {
          chomp($instr);
          $dolzina=length($instr);
         print "$dolzina\n";


#se pise v datoteko s simbolnim imenom PISIVC
 print PISIV "$dolzina\n";

}

close VHODRADAR;
close PISIV;
#se pise v datoteko s simbolnim imenom PISIVC
print "Podatki se tudi zapisejo v datoteko izhod1.txt, ki se dopolnjuje zaradi ukza >>\n";



#$ime=""; $kon="";
#$dolzina=length($i);
#           print "___ dolzina= $dolzina \n";
#if ($dolzina ge 13)
#$ime=substr($i,0,13);
#kon=substr($ime,10,12);
#            print "___ ___ ___ dolzina= $dolzina \n";
#st_pos=substr($ime,3,3);