Syswrite funkcija.Code:
#!perl
print "Just started !\n ";
open (in,"ip-to-country.csv");
@file=<in>;
close in;
open (out,"+<ip-twoletters.bin");
open (out2,">ip-country.dat");
$space=" ";
foreach $line (@file){
chop($line);
($start,$end,$twoletters,$treeletters,$country)=split(/\Q","\E/,$line);
chop($country);
$start = substr($start,1);
$zaupis = join (";",$start, $end ,$twoletters);
syswrite (out,$zaupis,30);
print out2 $twoletters ,";", $treeletters ,";", $country ,"\n";
}
print "All Finished ! \n";
close out;
close out2;
#!perl
print "Just started !\n ";
open (in,"ip-to-country.csv");
@file=<in>;
close in;
open (out,"+<ip-twoletters.bin");
open (out2,">ip-country.dat");
$space=" ";
foreach $line (@file){
chop($line);
($start,$end,$twoletters,$treeletters,$country)=split(/\Q","\E/,$line);
chop($country);
$start = substr($start,1);
$zaupis = join (";",$start, $end ,$twoletters);
syswrite (out,$zaupis,30);
print out2 $twoletters ,";", $treeletters ,";", $country ,"\n";
}
print "All Finished ! \n";
close out;
close out2;
Dakle ja hocu da mi ovaj zapis ima fiksnu duzinu od 30 karaktera/mesta sta vec.
Ali on mi u fajl upise jedan unos za drugim bez dodavanja null/empty znakova cak i ako je prvi record manji od 30 ....
Imao sam i ideju da mu sam rucno dodam onoliko puta koliko mu fali do 30 space na kraj stringa ali to je bezveze.
Kako se radi sa ovim ... syswrite ... ovako pise u knjizi a nece ...
AAAAAAaaaaaaaaaaaaaa :)
Re: Syswrite funkcija.