project1/data/fix.pl

   1 #!/usr/local/bin/perl
   2 use strict;
   3
   4 my @files = glob "*.wl";
   5 foreach my $file (@files) {
   6         open IN, "<$file";
   7         my @lines = <IN>;
   8         close IN;
   9
  10         my $lines = @lines;
  11         open OUT, ">$file";
  12         print OUT "$lines\n";
  13         print OUT @lines;
  14
  15         close OUT;
  16 }