| /filefind/perl/filefind.pl |
|---|
| 67,7 → 67,7 |
| } |
| } |
| } |
| close(FW); |
| close(FH); |
| chdir($curdir) |
| } |
| /filefind/perl/Makefile |
|---|
| 1,8 → 1,9 |
| DIR = /home/arikkert |
| PROG = filefind.pl |
| test: filefind.pl |
| ./filefind.pl $(DIR) > result |
| test: $(PROG) |
| ./$(PROG) $(DIR) > result |
| sort result > result.sort |
| find $(DIR) > result2 |
| sort result2 > result2.sort |
| 10,6 → 11,5 |
| diff *.sort |
| clean: |
| rm -f filefind |
| rm -rf result result.sort |
| rm -rf result2 result2.sort |
| rm -f result result.sort |
| rm -f result2 result2.sort |