Thread Wert in ARRAY restliche um 1 verschieben (4 answers)
Opened by mr-sansibar at 2007-12-15 13:22

renee
 2007-12-29 14:47
#104247 #104247
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das ist von Performance und Speicherverbrauch her eher schlecht und dass es besser lesbar ist wage ich auch zu bezweifeln. Der Tipp von #Kein Kommentar war da schon richtig...

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @array = ('a','s','d','f','g','h','j','k');
my $i     = 3;
my $value = 'X';

print Dumper(\@array), "\n";
splice @array, $i, 0, $value;
print Dumper(\@array), "\n";


Ausgabe:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
C:\splice.pl
$VAR1 = [
          'a',
          's',
          'd',
          'f',
          'g',
          'h',
          'j',
          'k'
        ];

$VAR1 = [
          'a',
          's',
          'd',
          'X',
          'f',
          'g',
          'h',
          'j',
          'k'
        ];


Wie man sieht kann man mit einer einzigen Zeile (und gut lesbar) das Gewünschte erreichen.
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 Wert in ARRAY restliche um 1 verschieben