Mam plik liczby.txt, w ktorych znajduja sie liczby. Wiersze sa roznej dlugosci, dlatego tez chcialabym te krotsze uzupelnic na koncu zerami.
1. Na poczatku zliczylam ile jest wyrazow w kazdym wierszu i zapisalam do tablicy @col,
2. Wyznaczylam najwieksza liczbe z tej tablicy $max,
3. Teraz probuje wypelnic wiersze zerami:
open (W, '>>liczby.txt'); while () {
$line=$_;
print $line ;
$row=$row+1;
foreach (@col){
if ($_<$max){
$diff=$max-$_;
$line=$line." 0 " x $diff ;
}
}
close(W);
print "ilos linii $row \\n";
}
close(W);
Czy moglabym liczyc na Wasze wskazowki jak to zrobic?