home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / disassemble < prev    next >
Text File  |  2003-11-07  |  396b  |  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.