In Perl kann ich behandeln Strings als byte-array?

Sehen perldoc -f pack und perldoc -f unpack wie zur Behandlung von strings als byte-arrays.

InformationsquelleAutor Ether

Strings sind Zeichenfolgen von "Zeichen", die größer als ein byte.Eins Sie können die store-bytes in Sie und manipulieren Sie, als ob Sie sind Zeichen, wobei substrs von Ihnen und so weiter, und so lange, wie Sie gerade die Manipulation von Entitäten im Speicher, alles ist ziemlich frisch. Die Speicherung der Daten ist seltsam, aber das ist meist nicht Ihr problem.Zwei

Wenn Sie versuchen, Lesen und schreiben von Dateien, die Tatsache, dass Ihre Zeichen möglicherweise nicht anzeigen, bytes wird wichtig und interessant. Nicht zu erwähnen, ärgerlich. Das ärgernis ist eigentlich ein bisschen schlechter von Perl zu tun versuchen, was Sie wollen in der gemeinsamen Fall: Wenn alle Zeichen in den string passen in ein byte und Sie geschehen zu sein auf einem nicht-Windows-OS, die Sie eigentlich nicht haben, etwas besonderes zu tun, um Lesen und schreiben von bytes. Perl wird sich beschweren, aber wenn Sie gespeichert haben, eine nicht-byte-sized-Charakter und versuchen, es zu schreiben, ohne ihm eine Ahnung, was mit ihm zu tun.

Dies ist immer ein wenig zu weit Weg, vor allem, weil die Codierung ist ein großes und verwirrend Thema. Lassen Sie mich lassen es sich dort mit einigen Referenzen: Blick auf Encode(3perl), open(3perl), perldoc öffnen, und perldoc binmode für die vielen lustigen und blutigen details.

So die zusammenfassende Antwort lautet "ja, Sie können behandeln, strings, als ob Sie die enthaltenen bytes, wenn Sie in der Tat enthalten die bytes, die Sie versichern kann, indem Sie nur das Lesen und schreiben von bytes.".

Eins: Oder pedantisch", die Ausdrücken können, eine größere Bandbreite von Werten als ein byte, aber Sie sind gespeichert als bytes, wenn das ist bequem". Ich denke.

Zwei: Für die Aufzeichnung, Zeichenketten in Perl kann auch intern vertreten durch eine Daten-Struktur namens ein 'PV', die neben einer Charakter-Zeiger weiß, Dinge wie die Länge der Zeichenfolge und der aktuelle Wert von pos.Drei

Drei: Gut, es wird starten Sie die Speicherung des aktuellen Wertes des pos wenn es beginnt, interessant. Siehe auch

use Devel::Peek;

my $x = "bluh bluh bluh bluh";
Dump($x);
$x =~ /bluh/mg;
Dump($x);
$x =~ /bluh/mg;
Dump($x);

InformationsquelleAutor darch

Erlauben Sie mir nur zur post ein kleines Beispiel über die Behandlung von Strings als binäres array - seit ich selbst fand es schwierig zu glauben, dass etwas namens "substr" würde behandeln von null-bytes; aber scheinbar ist es nicht - unten ist ein Ausschnitt von einem perl-debugger terminal session (mit beiden string und array/Liste-Ansätze):

$ perl -d

Loading DB routines from perl5db.pl version 1.32
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

^D
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.  

  DB<1> $str="\x00\x00\x84\x00"

  DB<2> print $str
�
  DB<3> print unpack("H*",$str) # show content of $str as hex via `unpack`
00008400
  DB<4> $str2=substr($str,2,2)

  DB<5> print unpack("H*",$str2)
8400
  DB<6> $str2=substr($str,1,3)

  DB<7> print unpack("H*",$str2)
008400

[...]

  DB<30> @stra=split('',$str); print @stra # convert string to array (by splitting at empty string)
�
  DB<31> print unpack("H*",$stra[3]) # print indiv. elems. of array as hex
00
  DB<32> print unpack("H*",$stra[2]) 
84
  DB<33> print unpack("H*",$stra[1]) 
00
  DB<34> print unpack("H*",$stra[0]) 
00
  DB<35> print unpack("H*",join('',@stra[1..3])) # print only portion of array/list via indexes (using flipflop [two dots] operator) 
008400

InformationsquelleAutor sdaau