Help for this page

Select Code to Download


  1. or download this
    my $format = Unpack::Format->new( spec =>[
       status => 'n',   #   0
    ...
    
    # pure OO style
    @test-vals{$format->fieldnames) = unpack $format->templatestr, $rec;
    
  2. or download this
    #!/usr/bin/perl
    
    ...
    foreach (@$format) {
       printf " %6s => %s\n",$_, $test_vals{$_};
    }