fg01.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:32 2010 from fg01.pl 2005/05/15 563.

#!/perl
# fg01.pl
# read the system.fgfs.rc, and show active config ...
$infile = 'c:/FG099/FlightGear.1/data/system.fgfsrc';
print "$0 - Hello, World... in file $infile ...\n";
# get file open for reading
open FH, "<$infile"
 or die "Can NOT open input file!!! [$infile] ...\n";
@lines = <FH>; # slurp file into array
close FH;
$cnt = @lines;
print "Got $cnt lines to process ...\n";
foreach $line (@lines) {
   if (substr ($line, 0, 1) ne '#') {
      if ($line !~ /^[ \t\r\n]*$/) {
         # skip ALL space lines
         print $line;
      }
   }
}
# EOF

index -|- top

checked by tidy  Valid HTML 4.01 Transitional