Ich habe folgende Sache:
hat jemand einen schoeneren Ausdruck fuer Zeile 2? mir faellt nichts besseres ein, aber ich bin mir ziemlich sicher, dass das auch eleganter in Perl geht (sollte aber trotzdem mit strict und warnings fehler- und warnungsfrei laufen)1 #!/usr/bin/perl -w
2
3 $blub = join("", unpack("C*", $ARGV[0])); # ARGV steht hier fuer beliebigen String
4
5 print $blub, "\n";