#/usr/bin/perl 

chdir "tmp";
my @csv_dateien = glob "*.csv";
$text="irgendein text";

 $zaehl = 0;
 $i=0;
 $pruef = 0;
 $x = -1;
 $a = 2;
 $kontrolle = 0;
for(@csv_dateien)
 {
  
  $zaehler = -1;
  
 if(!-e @csv_dateien[$zaehl] . ".txt")
    {
 
    if($pruef == 0)
     {
     
     &ausgabe();
     }
   
    }
    $zaehl++;
    #$pruef++;
 }
 ############################################################################
sub ausgabe {


      open DATEN, @csv_dateien[$zaehl] or die "Fehler beim Oeffnen der Datei";
      open(FILE, ">>" . @csv_dateien[$zaehl] . ".txt");
       while(<DATEN>) 
        {
          push(@zeilen,$_);
        }
    
     for(@zeilen)
      {
      $i++;
      $zaehler++;
      
      if($zaehler == 0)
        {
        
         print FILE substr(@zeilen[$i],10, 30);
          print FILE "\n";
          print FILE substr(@zeilen[$i],41, 7);
         print FILE " ";
         print FILE substr(@zeilen[$i],49, 25);
         print FILE "\n";
         print FILE substr(@zeilen[$i],75, 25);
         print FILE "\n\n\n\n\n";
         print FILE $text;
         printf FILE "%-8s", "Traeger-Nr.";
         printf FILE "%-16s", "      Name";
         printf FILE "%-36s", "        Fehlteil";
         printf FILE "%-13s", "        Ident-Nr.";
         print FILE "\n";
       }
       if(substr(@zeilen[$i],101, 6) != 0)
        {
            printf FILE "%04d",substr(@zeilen[$i],101, 6) . "  ";
           }
         printf FILE "%4s", "    ";
         print FILE " ";
          printf FILE "%21s", substr(@zeilen[$i],108, 15);
          print FILE " ";
          printf FILE "%32s", substr(@zeilen[$i],131, 30);
           print FILE " ";
          printf FILE "%13s", substr(@zeilen[$i],199, 11);
       
      }
    
     }