Sehr Komplizierte Sortierung eines Arrays (Perl/CGI)

[thread]14131[/thread]

Sehr Komplizierte Sortierung eines Arrays

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
cbxk1xg

2009-10-12 16:07
User since
2003-10-20
496 Artikel
BenutzerIn
Hallo Freunde der Sonne,

ich habe ein sehr spezielles Problem mit einem Array. Ich habe einen Berg an Dateien die nach folgendem Schema aufgebaut sind.
Code: (dl )

1 2

Ein bisschen Text. Bla Bla bla. {datestamp=200910091506}
Die Zeile mit datestamp= enthält das Datum der Datei nach dem Muster: YYYYMMDDHHMM

Der Dateiname ist "irgenwasxz". Nun will ich die Dateien auflisten und dabei den Dateinamen anzeigen. Sortiert werden soll aber nach dem jeweiligen datestamp der in der Datei steht. Leider kann/darf ich die Dateinamen nicht verändern.

Mein gedanklicher Ansatz war nun, ein alle Dateien in Array einzulesen @unsortedlist und jede Datei zu öffnen, zu parsen und den Datestamp in ein zweites Array zu schreiben @datelist. Soweit ist das kein Problem. Aber wie sortiere ich dann die @unsortedlist nach der numerischen Vorgabe aus @datelist, also chronologisch???

Ich bin für jede Idee dankbar!
- Taulmarill
  
  2009-10-12 16:14
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Meine erste Idee wäre, dass du einen Hash baust, dessen Keys die Dateinamen und dessen Werte die geparsten Zeitstempel sind. Dann kannst du die Keys folgendermaßen sortieren (ungetestet):
  
  Code (perl): (dl )
  
  my @sorted_keys = sort{ $hash{$a} cmp $hash{$b} } keys %hash;
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- bianca
  
  2009-10-12 16:17
  User since
  2009-09-13
  6978 Artikel
  BenutzerIn
  Falls die Dateien im Directory als LastModified das gleiche Datum und Uhrzeit wie der Wert in datestamp haben (was ja nahe liegt aber wirklich zuverlässig immer so sein muss, sonst klappt der Ansatz nicht) könntest Du es über die Eigenschaft der Datei machen:
  
  Code (perl): (dl )
  
  my $lastmod = (stat ("/verz/datei"))[9];
  
  Hätte den Vorteil, dass nicht jede Datei geöffnet werden muss.
  
  EDIT: Das Sortieren würde ich genau so machen wie Taulmarill vorschlug aber mit <=> statt cmp da nummerisch.
  Last edited: 2009-10-12 16:22:07 +0200 (CEST)
  10 print "Hallo"
  20 goto 10
- +3 replies
- topeg
  
  2009-10-12 16:36
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  So würde ich es angehen:
  (ungetestet)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
  
  #!/usr/bin/perl use strict; use warnings; my $basedir='/path/to/files/'; my @filelist=qw(irgenwas12 irgenwas34 irgenwas56 irgenwas78 irgenwas90); for my $file (@filelist) { my $date=''; my $name=$file; open(my $fh, '<', $basedir.$file) or die("ERROR open $basedir$file ($!)\n"); while(my $line=<$fh>) { ($date)=$line=~/^\{datestamp=(\d{12})\}/); last if($date); } close($fh); $file={name=>$name,date=>$date}; } @filelist=sort{$a->{date} cmp $b->{date}}@filelist; for my $file (@filelist) { print $file->{name}; print $file->{date}?' ('.$file->{date}.')':' (NO DATE FOUND)'; print "\n"; }
  
  Last edited: 2009-10-12 16:42:43 +0200 (CEST)
  - +2 replies
  - cbxk1xg
    
    2009-10-12 16:41
    
    User since
    2003-10-20
    496 Artikel
    BenutzerIn
    
    DANKE DANKE! Das mit dem Hash war genau das, was ich suchte. Danke auch an topeq, aber den Teil mit dem datestamp suchen hatte ich schon. Ist aber ein guter Ansatz.
    
    DANKE!
    - topeg
      
      2009-10-12 16:49
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Mir ging es eher um das "Array of Hashes" (der erst war kostenlose Dreingabe ;) ). Das lässt sich recht einfach sortieren und die Daten, die zusammen gehören bleiben zusammen. Man kann sowohl nach "name" als auch nach "date" sortieren, wenn benötigt lassen sich einfach weitere Werte hinzufügen.
      
      Ein Hash zu nutzen ist zwar maginal schneller beim auslesen, hat aber den Nachteil, dass es schwer wird weitere Daten hinzu zu fügen oder die Sortierung zu ändern.

View all threads created 2009-10-12 16:07.