root/paper-tape-project/trunk/perl-tools/udo-parser

#!/usr/bin/perl
#
# Usage: udo2-parser.pl [DATEINAME]
#   liest von Textdatei oder stdin eine Datei in Udos favorisiertem Format,
#   einfach hexoktetts mit leerzeichen voneinander getrennt
#
#   Geschrieben 03.04.08
#
#

print pack("C", hex $_) for(split(/\s+/, join '', <>));

#$zero_beginning = 1;
#
#my $s;
#while(<>) {
#    if($zero_beginning) {
#        next if /00?/;
#        $zero_beginning = 0;
##    }
#    $s .= $_;
#
#}
#
#print pack("C", hex $_) for (split(/\s+/, map {  }, <>));