(PHP) ähnliche Übung ;)

[hotti]

Pack mal ein Array von Zahlen ein ;)

  
#!/usr/bin/perl  
  
use strict;  
use warnings;  
use IO::File;  
  
my $handle = IO::File->new_tmpfile;  
binmode $handle;  
  
print $handle pack("N*", (0..99));  
$handle->seek(0,0);  
  
while( read($handle, my $buffer, 4) ){  
	printf "%u\n", unpack "N", $buffer; # Zahlen von 0..99  
}