Thread Sortierung in Flatfile DB: Textbasierte BD (9 answers)
Opened by vaan at 2007-02-23 00:15

vaan
 2007-02-23 13:36
#35267 #35267
User since
2006-11-21
17 Artikel
BenutzerIn
[default_avatar]
Hi,
danke für die schnelle Antwort.
Ich hab das jetzt mal versucht in die Tat umzusetzten

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use Tie::File;

my $id_from_form=3;
my $move="up";
my $flat_file = 'path/to/flat.file';

tie my @array, 'Tie::File',$flat_file or die $!;
my $index = grep{$_->[0] =~ /^$id_from_form\*\*/}@array;
if($move eq 'up'){
   my $elem = $array[$index];
   $array[$index] = $array[$index-1];
   $array[$index-1] = $elem;
}
else{
   my $elem = $array[$index];
   $array[$index] = $array[$index+1];
   $array[$index-1] = $elem;
}
untie @array;


so, nun hab ich der Variable $id_from_form den Wert 3 mitgegeben, und wenn ich den Code ausführe, dann geschieht nicht etwas mit dem Eintrag der die ID "3" hat sondern mit dem dritten Eintrag im Flatfile, ich würde aber gern den Eintrag mit der ID "3" gern verschieben.
Des weitweren wird der Datensatz nicht um eine Position im File nach oben oder untengeschoben, sondern irgendwie an den Anfang oder an das Ende und wenn ich für die Variable $move irgendwas anderes als "up" eintrage, dann wird wie gesagt, der Datensatz ans Ende geschoben und der zweite Datensatz im File wird irgend dupliziert und über den ersten geschrieben, sodass ich 2 mal den selben Eintrag im File habe.

Oder hab ich den Code vorher falsch verstanden?

Danke und Gruß

View full thread Sortierung in Flatfile DB: Textbasierte BD