Schrift
[thread]11308[/thread]

Duplikate finden und entfernen (Seite 2)

Leser: 3


<< |< 1 2 3 >| >> 26 Einträge, 3 Seiten
Strat
 2008-03-03 14:41
#106575 #106575
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
Hallo

war einige Zeit wegen Umzugs ohne Internet.

Ich schau mir's an, sobald ich meinen PC wieder aufgebaut habe.
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Tom
 2008-05-04 20:02
#109184 #109184
User since
2003-09-20
470 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hallo Strat,

Hattest du mal Zeit Dir das anzuschauen?

Habe auch noch einen Vorschlag für das Script, und zwar könntest du noch einbauen dass man die doppelten Dateien auch verschieben kann?

Tom
Computerprobleme??? -> http://www.weber-computerhilfe.de

Fordere keine Anerkennung!
Zeige was und man wird Dich kennen
sid burn
 2008-05-05 23:30
#109226 #109226
User since
2006-03-29
1520 Artikel
BenutzerIn

user image
Ich habe ebenfalls schonmal ein kleines Skript geschrieben das Duplikate findet und entfernt. Das ganze ist aber rein Konsolenbasiert benötigt allerdiengs auch keine Perl Module die ausserhalb vom Perl Core liegen. Weiterhin sollte es auch einwandfrei unter Windows laufen (ich entwickle/teste ausschlißlich auf Linux).

Vorteil von dem Skript das ich geschrieben habe sehe ich darin das es deutlich schneller Duplikate findet als z.B. das Shell Skript was hier gepostet wurde. Optimieren könnte man es aber immer noch bin aber soweit erstmal zu frieden.

Das ganze hatte ich in einem anderen Forum gepostet. Du findest es hier:
http://forum.ubuntuusers.de/post/1258851/
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
Linuxer
 2008-05-06 16:04
#109271 #109271
User since
2006-01-27
3891 Artikel
HausmeisterIn

user image
"sid burn"++ für das Skript ;)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Struppi
 2008-05-06 16:44
#109272 #109272
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
Ich hab mal eine Frage zum Skript:
Code (perl): (dl )
1
2
3
4
118      MD5_64KB:
119     for my $files_aref ( values %md5_64kb ) {
120     my @files = @$files_aref;
121     next MD5_64KB if @files <= 1;


Wozu das Label?
Mir ist klar, dass man das braucht, wenn man aus einer inneren Schleife eine äußere ansprechen will, aber so ist es doch überflüssig.
Linuxer
 2008-05-06 17:13
#109278 #109278
User since
2006-01-27
3891 Artikel
HausmeisterIn

user image
Man braucht es nicht unbedingt, weil next ohne Label die nächsthöhere Schleife "anspringt".
Es macht das ganze aber übersichtlicher, wodurch ich das Label hier nicht unbedingt überflüssig bezeichnen würde.
"Überflüssig" klingt so hart, auch wenn es korrekt ist ;o)


Aber ich denke, dass sich hier sehr stark persönliche Präferenz und Stil niederschlagen.

[edit]Rechtschreibung korrigiert.[/edit]
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Struppi
 2008-05-06 17:20
#109280 #109280
User since
2006-02-17
628 Artikel
BenutzerIn
[Homepage]
user image
OK, gut zu wissen.

Labels sind für mich Dinge aus goto-Tagen, da verspür' ich immer so ein unangenehmes kribbeln.

Das ich zuerst auch bei eval {} hatte. Ich mach viel mit Javascript, dort gilt, eval ist evil, aber hier wird es ja als Exception eingesetzt und da ich meine Java oder C++ Kenntnisse nie vertieft habe, tu ich mich schwer damit, Fehler so zu behandeln.
Linuxer
 2008-05-06 17:31
#109283 #109283
User since
2006-01-27
3891 Artikel
HausmeisterIn

user image
* geistig verwirrten Beitrag gelöscht*

[edit]auf Wunsch: war irrtümlich *Antwort mit Zitat* statt *Beitrag editieren*[/edit]
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
KurtZ
 2008-05-06 17:59
#109284 #109284
User since
2007-12-13
411 Artikel
BenutzerIn
[default_avatar]
Linuxer+2008-05-06 15:31:47--
*geistig verwirrten Beitrag gelöscht*

hmm Linuxer das machst du gerne....

Aber statt angeblich "falsche" Beiträge zu löschen solltest du lieber hinschreiben was falsch war. Vielleicht finden ja andere Wahrheit in deiner Falschheit ;-)
TMTOWTDYOG (there's more than one way to dig your own grave)
Linuxer
 2008-05-06 18:02
#109285 #109285
User since
2006-01-27
3891 Artikel
HausmeisterIn

user image
KurtZ+2008-05-06 15:59:28--
Linuxer+2008-05-06 15:31:47--
*geistig verwirrten Beitrag gelöscht*

hmm Linuxer das hatten wir schon...

Aber statt angeblich "falsche" Beiträge zu löschen solltest du lieber hinschreiben was falsch war. Vielleicht finden ja andere Wahrheit in deiner Falschheit ;-)


Danke für die angebotene Hilfe; aber ich behalte mir die Löschung meiner Beiträge vor, sollte ich erkennen, dass ich aus versehen "Antworten mit Zitat" anstatt "Beitrag editieren" benutzt habe...
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
<< |< 1 2 3 >| >> 26 Einträge, 3 Seiten



View all threads created 2008-02-15 20:42.