| rjw | 6c1fd8f | 2022-11-30 14:33:01 +0800 | [diff] [blame] | 1 | |
| 2 | $afile=$ARGV[0]; | ||||
| 3 | $ifile=$ARGV[1]; | ||||
| 4 | #print "$afile\n"; | ||||
| 5 | $str = `type $ifile`; | ||||
| 6 | #print "$str\n"; | ||||
| 7 | #$str =~ s/ /\n/g; | ||||
| 8 | #print "$str\n"; | ||||
| 9 | @outstr=split(/ /,$str); | ||||
| 10 | open NEWF,">$afile"; | ||||
| 11 | foreach (@outstr) { | ||||
| 12 | next if ($_!~ m/^\-[DI]/); | ||||
| 13 | print NEWF "$_\n"; | ||||
| 14 | } | ||||
| 15 | #print NEWF $str; | ||||
| 16 | close NEWF; | ||||