Opened by sabrina at 2006-08-07 10:33
User since
2006-08-03
264 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-08-03
264 Artikel
BenutzerIn
@renee
fuer was steht :
und den code brauch ich wenn ich es jetzt kapiert hab, hoffendlich, dafuer das der laengste string gesucht wird dann gemerkt und ausgegeben?oder gemerkt? zum platzt (laenge) reservieren vom array?
fuer was steht :
Code: (dl
)
ose $fh;
und den code brauch ich wenn ich es jetzt kapiert hab, hoffendlich, dafuer das der laengste string gesucht wird dann gemerkt und ausgegeben?oder gemerkt? zum platzt (laenge) reservieren vom array?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
$format = '';
for my $i(0..scalar(@{$data[0]})-1){
my $max = find_longest(map{$_->[$i]}@data);
$format .= '%-'.$max.'s ';
}
for my $entry(@data){
print sprintf($format . "<<\n",@$entry);
}
sub find_longest{
my $longest = 0;
for(@_){
my $length = length($_);
$longest = $length if($length > $longest);
}
return $longest;