String To Bytes eleganter?

[amenomade]

Hallo Perl Experten

Ich habe es so gelöst, aber es gibt bestimmt eine bessere Art (z.B. mit unpack oder split?) :

Code Auswählen Erweitern

sub
stringToBytes
{
   my ($input) = @_;
   my @output;
   for (my $i = 0; $i < length($input); $i++) {
      push @output, ord(substr($input, $i, 1));
   }
   return @output;
}
(ja, ich weiss, @_ => shift... )

[Sidey]

Sicher, geht das auch ohne Schleife:

https://docstore.mik.ua/orelly/perl4/cook/ch01_05.htm

Aus der Bezeichnung string2byte geht für mich aber nicht hervor um was für eine String es sich handelt.

Grüße Sidey

Gesendet von meinem Moto Z (2) mit Tapatalk

[amenomade]

Die String ist das Ergebnis von einer AES-Entzifferung und enthält möglicherweise nicht-druckbare Zeichen

Dies sieht interessant aus:

Code Auswählen Erweitern

@ascii_character_numbers = unpack("C*", "sample"); print "@ascii_character_numbers\n";
Ich werde testen.

Ob unpack C und ord das gleiche machen, ist die Frage.

Vielen Dank!

[amenomade]

Jepp! Funktioniert!

Code Auswählen Erweitern

output = 35 39 58 39 44 60 58 95 37 37 0 0 0 33 45 21 93 15 26 26 43 0 9 0 0 127 121 127 121 33 1 1 1 1 5 20 70 6 66 16 0 0 10 0 0 1 33 184
Unpack = 35 39 58 39 44 60 58 95 37 37 0 0 0 33 45 21 93 15 26 26 43 0 9 0 0 127 121 127 121 33 1 1 1 1 5 20 70 6 66 16 0 0 10 0 0 1 33 184

Vielen Dank nochmal

[herrmannj]

https://catonmat.net/ftp/perl.pack.unpack.printf.cheat.sheet.pdf