Integer zu Byte (gelöst) - #160822 (Allgemeines zu Perl)

topeg

2012-08-11 13:24

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Code (perl): (dl )

sub writeInt
{
  my $array=shift;
  my $pos=shift;
  my $value=shift;
  @array[$pos..$pos+3]=unpack('C*',pack('N',$val1));
}

Aufruf:

Code (perl): (dl )

my @array;
my $pos=16;
my $val=10;
writeInt(\@array,$pos,$val);