Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl;
    use strict;
    ...
    35 33 47 117 115 114 47 98 105 110 47 
    Character values of @bytes
    #!/usr/bin/
    
  2. or download this
    my $rsize = pack("V4", $new_riff_size); # "V4" means Vax or Intel "lit
    +tle endian"
    substr($buff,4,4) = substr($rsize,0,4);
    my $data_size = pack("V4", $new_data_size);
    substr($buff,54,4)= substr($data_size,0,4);
    print OUTBIN substr($buff,0,58);