1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

use strict;
use warnings;

my @text;
$text[0] = '0. Text';
$text[1] = '1. Text';
$text[2] = '2. Text';
$text[3] = '3. Text';

# alternativ und kürzer
# my @text=( '0. Text', '1. Text', '2. Text', '3. Text');

foreach my $item (1..3) {
        print "Item : $item\n";
        print "Inhalt: ".$text[$item]."\n";
        } # foreach

__END__
Item : 1
Inhalt: 1. Text
Item : 2
Inhalt: 2. Text
Item : 3
Inhalt: 3. Text

Quote

Ggf. könnte man das ganze vielleicht mit einem Hash eleganter (?) lösen, mich interessiert aber ob es für Zeile 10 eine Lösung gibt. Klammern habe leider nicht geholfen ...

Hagen+2008-12-14 13:45:57--

@LanX-:
Einen Array wollte ich nicht definieren, ansonsten wäre das aber kein Problem für mich gewesen.

Telepathy.pm

LanX-+2008-12-14 15:09:26--

Hagen+2008-12-14 13:45:57--

@LanX-:
Einen Array wollte ich nicht definieren, ansonsten wäre das aber kein Problem für mich gewesen.

Hagen dann mach doch bitte deine Beispiele weniger missverständlich, Telepathy.pm hab ich leider noch nicht installiert bekommen.

pktm+2008-12-14 15:39:03--

Wieso gibts das eigentlich noch nicht? Es gibt doch sonst alles in Acme::*

LanX-+2008-12-14 15:47:15--

pktm+2008-12-14 15:39:03--

Wieso gibts das eigentlich noch nicht? Es gibt doch sonst alles in Acme::*

Installationsprobleme!

LanX-+2008-12-14 15:09:26--

Hagen dann mach doch bitte deine Beispiele weniger missverständlich, Telepathy.pm hab ich leider noch nicht installiert bekommen.