#!/usr/bin/perl

use warnings;
use strict;

#Variablen:
my $modelFh;
my $file;
my $content;
my $fh;
my $word;

#Arrays:
my @txt;

# ********************************************************************************************************************************

open($modelFh, '>', 'MODEL_DIODE.TXT' ) or die $!;

@txt = glob( "Bauteil.txt" );                                   # Alle *.txt-Dateinamen im aktuellen Verzeichnis

for $file ( sort @txt )                                         # Iteriere durch die Dateinamen (in sortierter Folge)
{
    open( $fh, '<', $file ) or next; 
                                                                       
    local $/;
    $content = <$fh>;                                           # ganze Datei in Skalar einlesen
    close $fh;
             
        if ($content =~ m/^\.model ([a-z0-9]+)/i)                 # if ( $content =~ m{ ^\s* \.model\s* ([a-z0-9])\s*}ix )   
        {
            $word = $1;
        }                                                       

print $modelFh "*.SUBCKT erstellt:\n\n.SUBCKT $word 1 2\nD1 1 2 $word\n\n$content\n.ends\n";        
}

close $modelFh;

sleep(10);