[Perl] stringzahlen konkatenieren

menace

Well-Known Member
Ich habe folgende Sache:
1 #!/usr/bin/perl -w
2
3 $blub = join("", unpack("C*", $ARGV[0])); # ARGV steht hier fuer beliebigen String
4
5 print $blub, "\n";
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)
 
Zurück
Oben