Help for this page

Select Code to Download


  1. or download this
    open FILE, "<$file" or die $!;
binmode FILE;
...
my @header = unpack( "s50c150", $line );
$string = join '', map{ chr($_) } @header[50..149];
# etc, etc...
  2. or download this
    read FILE, $line, sizeof("s50c150");
unpack( "s50c150", $line );