perl: leerzeilen entfernen - #68673 (Allgemeines zu Perl)

renee

2006-08-11 17:31

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

sub find_longest{
   my $longest = 0;
   for(@_){
       my $length = length($_);
       $longest = $length if($length > $longest);
   }

    return $longest;
}

Hier wird berechnet, wie lang der längste Inhalt eines Feldes ist.

Code: (dl )

for my $i(0..scalar(@{$data[0]})-1){
    my $max = find_longest(map{$_->[$i]}@data);
    $format .= '%-'.$max.'s ';
}

Hier wird das Format festgelegt. Ich lasse von der oben genannten Subroutine berechnen, wie lang der längste Feldinhalt ist und baue mir ein Format für sprintf zusammen. Wenn man sich das hinterher mal ausgeben lassen würde, dann würde z.B.

%-20s %-14s

drinstehen. Nämlich dann wenn in der ersten Spalte der längste Inhalt 20 Zeichen lang wäre und in der zweiten Spalte 14 Zeichen.

Das - sagt aus, dass es linksbündig sein soll.

Mehr zu den Formaten findest Du bei perldoc -f sprintf (einfach in der Konsole bzw. DOS-Box eingeben oder bei http://perldoc.perl.org nachschauen).

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/