Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

post bits of code you like

Name: Anonymous 2005-08-02 1:52

i shall start:

open(F,"find -type f|");
while (<F>) {
 $_ = substr($_,2,-1);
 print "$_\n" if $v;
 push @{$dups{substr(`md5sum -b "$_"`,0,31)}}, $_;
}
close(F);

for every file in a directory it checksums the file, then adds the checksum as a key to a hash, the value being an array reference. the filename is then added to the array.

so basically the arrays have a list of files with the same checksum. i use this to find duplicates files.

Name: Anonymous 2006-04-25 10:57

>>168
PHP's syntax is certainly more sane than Perl's. My main gripe with PHP is more related to things like magic quotes, DB interfaces, and related security issues. You can also do some crazy thing in Perl that aren't possible in PHP.

However, my experience with PHP is limited, so I'll defer to your judgement.

Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List