Help for this page
#!/usr/bin/perl ... print STDOUT pack("N",$index{$word}); } }
#!/usr/bin/perl binmode STDIN; ... %index=unpack "(N(N/a))*",$ind; @con=unpack "N*",$con; print join(' ',@index{@con});