programming-examples/perl/SystemFunction/pack and unpack.pl
2019-11-15 12:59:38 +01:00

7 lines
187 B
Perl

#!/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");