|
Last change
on this file since 1317 was 757, checked in by pfusik, 13 years ago |
|
STIL: fix filename casing, a verifier for Windows.
|
|
File size:
285 bytes
|
| Line | |
|---|
| 1 | my %f;
|
|---|
| 2 | while (<>) {
|
|---|
| 3 | s/^.+\\asma\\// or die $_;
|
|---|
| 4 | y!\\\r\n!/!d;
|
|---|
| 5 | $f{$_}++;
|
|---|
| 6 | }
|
|---|
| 7 | open F, '../asma/new.m3u' or die;
|
|---|
| 8 | while (<F>) {
|
|---|
| 9 | y/\r\n//d;
|
|---|
| 10 | $f{$_} or print "new.m3u: $_\n";
|
|---|
| 11 | }
|
|---|
| 12 | open F, '../asma/Docs/STIL.txt' or die;
|
|---|
| 13 | while (<F>) {
|
|---|
| 14 | y/\r\n//d;
|
|---|
| 15 | $f{$_} or print "STIL.txt: $_\n" if s!^/!!;
|
|---|
| 16 | }
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
