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

renee
 2007-02-23 09:49
#35266 #35266
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
So etwas habe ich zwar noch nicht, aber das lässt sich relativ leicht realisieren...

Dafür ist das Modul CPAN:Tie::File ganz gut geeignet...

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

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;


ungetestet!

Man kann auch mit <!--pod_f1--><a href="//perldoc.perl.org/functions/splice.html" target="_blank"><img alt="perldoc " src="/iB_html/non-cgi/Skin/SKIN-3/images/perldoc.gif" border="0"> <!--pod_f2-->-f splice<!--pod_f3--></a><!--pod_f4--> arbeiten...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Sortierung in Flatfile DB: Textbasierte BD