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

Comments

    Last change on this file since 1807 was 1704, checked in by pfusik, 2 years 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.