| #!/usr/bin/perl | |
| $lisfile = $ARGV[0]; | |
| $output = $ARGV[1]; | |
| open (FILE_HANDLE, "<$lisfile") or die "Cannot open $lisfile\n"; | |
| $backup = $/; undef $/; | |
| $reading = <FILE_HANDLE>; | |
| $/ = $backup; | |
| close FILE_HANDLE; | |
| open (W,">$output") or die "Cannot open output file $output:$!\n"; | |
| if ($reading =~ /Memory Map of the image/) { | |
| $reading = $'; | |
| if ($reading =~ /==============/) { | |
| print W $`; | |
| } else { | |
| print W $reading; | |
| } | |
| } | |
| close W; | |