Hier mein Script:
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: html/text\n\n";
my @zahlenarray = ('1','2','3','4','5');
my @buchstabenarray = ('A','B','C','a','b','c');
my @zahlenarray = sort {$a <=> $b} (@zahlenarray);
my @buchstabenarray = sort {$a cmp $b} (@buchstabenarray);
my @zahlenarray = join(',',@zahlenarray);
my @buchstabenarray = join(',',@buchstabenarray);
print "Zahlenarray: @zahlenarray\n";
print "Buchstabenarray: @buchstabenarray\n";
Funktionieren tut's wunderbar, nur \n macht keine nächste Zeile.
Ich habe es hochgeladen: http://webb22.mc2.methfessel-computers.de/cgi-bin/test/a/array_sort.pl
Wieso? Was ist an meinem Code verkehrt, sodass keine neue Zeile beginnt?
Christian