Line | |
---|
1 | #!/usr/bin/perl |
---|
2 | # |
---|
3 | # Usage: read-file.pl [DATEINAME] |
---|
4 | # liest von Textdatei oder stdin Zahlen. Diese muessen am Zeilenanfang |
---|
5 | # stehen - ignoriert werden ferner Kommentare dahinter, durch |
---|
6 | # Leerzeichen getrennt, sowie generell Zeilen mit Kommentaren - diese |
---|
7 | # Zeilen sollten mit einem Kommentarzeichen wie # oder / beginnen. |
---|
8 | # |
---|
9 | |
---|
10 | my $handler = STDIN; |
---|
11 | open($handler, '<', $ARGV[0]) if(@ARGV > 0); |
---|
12 | |
---|
13 | while(<$handler>) { |
---|
14 | next unless(/^([0-9]+)/); |
---|
15 | #print STDERR "Zahl $1\n"; # gibt nix zu debuggen ;) |
---|
16 | print pack("C", $1); |
---|
17 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.