sortieren (Allgemeines zu Perl)

[thread]7737[/thread]

sortieren

Froschpopo

2006-02-24 19:20

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

my @args = ("name", 6, [[name1,alter], [name2, alter]]);
my $ref = \@args;

Jetzt möchte ich den @args über die referenz verändern.

Also nochmal langsam:
ich möchte den original-array (@args) nur über die referenz verändern.
Dabei soll folgendes geschehen:

Der Index der zweiten Referenz soll nach "name" sortiert werden. Die sortierart ist egal... es geht mir nur ums prinzip

Froschpopo

2006-02-24 19:21

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Einen Anfang hab ich schon gemacht:

Code: (dl )

my @args = ("name", 6, [[name1,alter], [name2, alter]]);
my $ref = \@args;

$ref->[2] = sort { $b->[0] cmp $a->[0] };

for (@{$ref->[2]})
   print $_->[0];
}

\n\n

2006-02-24 20:53

User since
2003-08-04
12208 Artikel
Admin1

[quote=Froschpopo,24.02.2006, 18:21]

Code: (dl )

$ref->[2] = sort { $b->[0] cmp $a->[0] };

[/quote]
$ref->[2] = [sort { $b->[0] cmp $a->[0] } @{ $ref->[2] } ];\n\n

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

View all threads created 2006-02-24 19:20.