Mam plik liczby.txt, w ktorych znajduja sie liczby. Wiersze sa roznej dlugosci, dlatego tez chcialabym te krotsze wypelnic zerami.

Probowalam pokobinowac w ten sposob:

Kod:
open (W, '>>liczby.txt'); while (<W>) {
  $line=$_;
  print $line ;
 $row=$row+1;

 foreach (@col){     #@col jest to wczesniej zdefiniowana tablica z ilosciami kolumn w pliku
    if ($_<$max){     
      $diff=$max-$_;
   $line=$line." 0 " x $diff ;
    }
 }

close(W);
print "ilos linii $row \n";

 }
close(W);
Czy moglibyscie mnie naprowadzic jak to zrobic?