2010-01-18T16:31:27 Taulmarill

Er iteriert nicht über @new_data sondern über eine Liste von 0 bis $#new_data. Die wird beim ersten erreichen des Schleifenkopfes erzeugt und ändert sich danach nicht mehr.

Code (perl): (dl )

1
2
3
4
5
6

my @list = qw/eins zwei drei vier/;

for my $foo ( 0 .. $#list ) {
    print "\$foo = $foo und \$#list = $#list\n";
    push @list, $foo;
}

1
2
3
4
5
6
7
8

	for (0 .. $#new_data) {
		! defined $new_data[$_] && last;
		
			foreach my $old_data (@old_data) {							
				$new_data[$_] ne $old_data && next;
				splice @new_data, $_, 1;
			}
	}