#!/usr/bin/perl -w

## Program prebere iz ene datoteke in nese v drugo datoteko
print"Branje iz ene datoteke in dajajnje v drugo datoteko\n";

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,"<si0-20010531-2300-rh.srda") || die "ne morem odpreti datoteke  $!";

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


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

}

close VHODRADAR;

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