source:
trunk/tools/file-case.pl
@
1801
Last change on this file since 1801 was 1704, checked in by , 2 years ago | |
---|---|
File size: 189 bytes |
Rev | Line | |
---|---|---|
[757] | 1 | my %f; |
2 | while (<>) { | |
3 | s/^.+\\asma\\// or die $_; | |
4 | y!\\\r\n!/!d; | |
5 | $f{$_}++; | |
6 | } | |
7 | open F, '../asma/Docs/STIL.txt' or die; | |
8 | while (<F>) { | |
9 | y/\r\n//d; | |
10 | $f{$_} or print "STIL.txt: $_\n" if s!^/!!; | |
11 | } |
Note: See TracBrowser
for help on using the repository browser.