find_dupes.pl
` ############################################################ # find_dupes.pl: Welche evtl. identischen Dateien habe ich? ############################################################ use strict; use File::Find; my %CheckedSums; my @xxlFiles; my $too_large = 20000000; my $Newline = “\n”; ############################################################ # Ausgabe: Ergebnisliste ############################################################ sub print_dupes { my $trennlinie = “-” x 20 . “$Newline”; print “Dateien wurden untersucht.$Newline”; print “Möglicherweise identisch:$Newline”, $trennlinie; my $keine = “(Keine [...]
In: Blog · Schlagworte: Perl
extcnt.pl
Eine kleine Spielerei, um festzustellen, mit welchen Dateitypen man sich grad seine Festplatte vollgemüllt hat: ` ############################################################ # extcnt.pl: Welche Dateitypen verbrauchen wieviel Plattenplatz? ############################################################ use strict; use File::Find; my $Bytes; my %ExtSizes; ############################################################ # Ausgabe: Abschnittsüberschrift ############################################################ sub print_head { print "-" x 46, "\n"; print $_, "\n"; printf("%-22s %22s\n", "Dateiendung", "Bytes"); print "-" [...]
In: Blog · Schlagworte: Perl
