Liebes Forum,ich bin auf der Suche nach der zweiten Dimension... ;)
Im Ernst: irgendwo auf dem Weg der Übergabe zwischen Hauptteil und zwei Subroutinen verschwindet die zweite Dimension eines Arrays.
Funktionierendes Beispiel unten angehängt.
Was kann das sein und wie bekomme ich die zweite Dimension wieder?
Tausend Dank!
Hans
use strict;
no strict "refs";
use warnings;sub GetImages($);
sub SaveImages(@);
# main
my @liste;
@liste = &GetImages(my $htmlquelltext);
print "Main: noch da: $liste[0][0], $liste[1][1]\n";
&SaveImages(@liste);
# subs
# GetImages
sub GetImages($) {
my @images;
my @links;
#...
# @links und @images befüllen
# hier nur ein Beispiel:
@images = ('image', 'nocheinimage', 'nocheinweiteresimage', 'letztesimage');
@links = ('link', 'nocheinlink', 'nocheinweitererlink', 'letzterlink');
my @liste = ([@images],[@links]);
print "GetImages: noch da: $liste[0][0], $liste[1][1]\n";
return @liste;
}
# SaveImages
sub SaveImages(@) {
my @liste = shift;
my $ersetzen;
print "SaveImages: WEG!!! $liste[0][0], $liste[1][1]\n";
for (my $i=0; $i<=3; $i++) {
$ersetzen .= "$liste[0][$i] -- $liste[1][$i]\n";
}
print $ersetzen;
}
Datum: 05.09.2005-23:46
Zweite Dimension geht verloren
