source: trunk/tools/file-case.pl @ 1704

Last change on this file since 1704 was 1704, checked in by pfusik, 14 months ago

Update script for the removed new.m3u

File size: 189 bytes
Line 
1my %f;
2while (<>) {
3        s/^.+\\asma\\// or die $_;
4        y!\\\r\n!/!d;
5        $f{$_}++;
6}
7open F, '../asma/Docs/STIL.txt' or die;
8while (<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.