programming-examples/perl/SystemFunction/pack and unpack.pl

7 lines
187 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
#!/usr/local/bin/perl
@list_of_integers = (11, 26, 43);
$mystring = pack("i*", @list_of_integers);
@list_of_integers = unpack("i*", $mystring);
print ("@list_of_integers\n");