for-Schleife: Laufvariable als Referenz (Allgemeines zu Perl)

bloonix

2006-07-17 15:10

User since
2005-12-17
1615 Artikel
HausmeisterIn

Hallo Leute,

ist es möglich eine Referenz als Laufvariable zu nutzen?

Code: (dl )

for $ref->{val} (@array) {}

gibt einen Fehler aus.

syntax error at ./testscript line 47, near "for {"

Greez,
opi\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

lichtkind

2006-07-17 15:15

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

klar kannst du es aber nicht so was du versuchst ginge erst mit pointy syntax von perl6 vorher musst noch umständlicher machen

Code: (dl )

1
2
3

for my $ref (@array) {
     $ref->{val}...
}

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

bloonix

2006-07-17 15:18

User since
2005-12-17
1615 Artikel
HausmeisterIn

Schade, danke aber für die schnelle Antwort!

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

esskar

2006-07-17 15:52

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

wieso braucht man sowas?
macht - zumindest für mich - keinen sinn!

Crian

2006-07-17 15:52

User since
2003-08-04
5873 Artikel
ModeratorIn

Wo ist da der Unterschied zwischen . und -> ?

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

bloonix

2006-07-17 16:10

User since
2005-12-17
1615 Artikel
HausmeisterIn

statt

Code: (dl )

while (my $row = $sth->fetchrow_hashref) {
  for my $db (@{$where{NEW_DB}}) {
     $row->{Db} = $db;
     for my $user (@{$where{NEW_USER}}) {
        $row->{User} = $user;
        print "INSERT INTO DB ";
        print join(",", map { "$_:'$row->{$_}'" } keys %{$row});
        print ";\n";
     }
  }
}

hätte ich gerne das geschrieben

Code: (dl )

while (my $row = $sth->fetchrow_hashref) {
  for $row->{Db} (@{$where{NEW_DB}}) {
     for $row->{User} (@{$where{NEW_USER}}) {
        print "INSERT INTO DB ";
        print join(",", map { "$_:'$row->{$_}'" } keys %{$row});
        print ";\n";
     }
  }
}

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

Crian

2006-07-17 16:37

User since
2003-08-04
5873 Artikel
ModeratorIn

Das fände ich aber verwirrend wenn das ginge.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

lichtkind

2006-07-17 16:52

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

crian: versteh deine frage nicht

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

Crian

2006-07-17 17:09

User since
2003-08-04
5873 Artikel
ModeratorIn

Du meintest, das würde mit Perl6 und . statt -> gehen. Ich hoffe mal, dass es nicht geht *g

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

bloonix

2006-07-17 18:14

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=Crian,17.07.2006, 14:37]...fände ich aber verwirrend...[/quote]
Ich glaube nicht, dass dich das verwirren würde ;)

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.