User since
2006-11-26
384
Artikel
BenutzerIn
Hallo,
mir peinlich das zu fragen.. eigl. sollt ich sowas einfaches echt können.
use strict;
for(my $i=0;$i<=10;$i++) {
print $i . ',';
}
Ausgabe hierbei ist:
0,1,2,3,4,5,6,7,8,9,10,
Aber das Komma am Ende MUSS weg..
Aber wie? :P
// Edit:
Das selbe Spielchen hierbei:
my @array = ('1');
for(my $i=0;$i<=10;$i++) {
print @array . ',';
}
\n\n
<!--EDIT|RPerl|1171212765-->
User since
2004-03-22
5681
Artikel
ModeratorIn + EditorIn
![[Homepage]](/battie/theme/default/homepage.gif)
use strict;
my $ausgabe;
$ausgabe .= "$_," for 0..10;
print chop $ausgabe;
\n\n
<!--EDIT|lichtkind|1171214849-->
User since
2006-11-26
384
Artikel
BenutzerIn
wow - irre... danke..
muss mal was ueber join durchlesen
schoenes WE euch beiden
r>>PERL<<
User since
2006-11-26
384
Artikel
BenutzerIn
Ah stopp.. Ich braeuchte das als array Konstruktion.. Damit ich das durchrattern kann mit @array[$i]; z.B..
User since
2006-11-29
340
Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
Wie meinst du das?
join() macht aus einem Array einen String, dabei werden die Elemente mit einem weiteren String verknüpft, in deinem Beispiel mit ",":
join(", ", @array);
edit:
for my$i (0..$#array)
{
print "$_" . ($i == $#array ? "" : ", ");
}
MfG PerlProfi\n\n
<!--EDIT|PerlProfi|1171216843-->
User since
2003-08-04
14371
Artikel
ModeratorIn
Man könnte auch mit $" arbeiten:
{
local $" = ',';
print "@array";
}
User since
2006-11-26
384
Artikel
BenutzerIn
Naja.. es muss so sein:
Ich rufe eine Datei mit Parametern auf und muss immer probieren.
1 test: 1
2 test: 1,2
3 test: 1,2,3
*ratlos*
Wie mach ich das?
User since
2003-08-04
14371
Artikel
ModeratorIn
Was für eine Datei rufst Du mit Parametern auf? Was musst Du immer probieren?
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Tutorien in der Wiki, mein zeug:
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
