home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.6.1.638-MSWin32-x86.msi / _ada7306225142fff4d14d3d4b56a2d5e < prev    next >
Encoding:
Text File  |  2004-04-13  |  418 b   |  23 lines
  1. use B::Disassembler qw(disassemble_fh);
  2. use FileHandle;
  3.  
  4. my $fh;
  5. if (@ARGV == 0) {
  6.     $fh = \*STDIN;
  7. } elsif (@ARGV == 1) {
  8.     $fh = new FileHandle "<$ARGV[0]";
  9. } else {
  10.     die "Usage: disassemble [filename]\n";
  11. }
  12.  
  13. sub print_insn {
  14.     my ($insn, $arg) = @_;
  15.     if (defined($arg)) {
  16.     printf "%s %s\n", $insn, $arg;
  17.     } else {
  18.     print $insn, "\n";
  19.     }
  20. }
  21.  
  22. disassemble_fh($fh, \&print_insn);
  23.