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