root/paper-tape-project/trunk/perl-tools/read-file

#!/usr/bin/perl
#
# Usage: read-file.pl [DATEINAME]
#   liest von Textdatei oder stdin Zahlen. Diese muessen am Zeilenanfang
#   stehen - ignoriert werden ferner Kommentare dahinter, durch
#   Leerzeichen getrennt, sowie generell Zeilen mit Kommentaren - diese
#   Zeilen sollten mit einem Kommentarzeichen wie # oder / beginnen.
#

my $handler = STDIN;
open($handler, '<', $ARGV[0]) if(@ARGV > 0);

while(<$handler>) {
    next unless(/^([0-9]+)/);
    #print STDERR "Zahl $1\n"; # gibt nix zu debuggen ;)
    print pack("C", $1);
}