Pomoc s Perlom

[peter]

Zdravim,

potreboval by som prosim vas vyriesit toto:

Kód [Vybrat] Rozbalit

$ad1="1000";
$ad2="2000";
$ad3="3000";

foreach $limit ( $ad* ) {
print "$limit\n";
}

je to nejako mozne?

Vdaka

[Reklama]

[Zopper]

Místo $ad1, $ad2... použít @ad[0], @ad[1]... a pak foreach(@ad)

[peter]

Vdaka, to ma nenapadlo.

[aaa158]

Místo $ad1, $ad2... použít @ad[0], @ad[1]... a pak foreach(@ad)

Ked uz, tak

Kód [Vybrat] Rozbalit

$ad[0], $ad[1] ;-)
alebo:

Kód [Vybrat] Rozbalit

perl -e 'foreach my $ad (1..3) { $ad *= 1000; print "$a\n"; }'

[aaa158]

s/a\n"/ad\n"/

[Reklama]

[Zopper]

Ked uz, tak

Kód [Vybrat] Rozbalit

$ad[0], $ad[1] ;-)

Mea culpa... Perl jsem chvíli neviděl a takhle to dopadá...