Rekrsive Funktion in Perl

[Dietrich]

my @text = ("*");
       foreach (@zeilen)
         {
          @text = addtext ($_, @text);
         }

Dazu müsste man wohl wissen, was in der Funktion "addtext" drin steht. Kennst du auch die Funktion "push"? Vermutlich willst du nur sowas in der Art haben:

Hier die Routine:
(Ziel: Zeilen weiter zerlegen, wenn mind. 45 Stellen)

sub addtext
   {
    my $zeile      = shift;
    my @textneu    = shift;
    if (length($zeile) < 45)
      {
        push(@textneu,$zeile);
      }
    else
      {
#    noch nicht realisiert
      }
    return(@textneu);
   }      # Ende sub addtext