Thread Suche nach Wort und auslesen von diesem (10 answers)
Opened by New at 2013-07-29 14:16

New
 2013-08-07 10:16
#169450 #169450
User since
2013-07-25
8 Artikel
BenutzerIn
[default_avatar]
Ok ich habe jetzt schon alles mögliche versucht...was mache ich falsch?
Der erstellt zwar meine neue Datei aber schreibt dort nicht das rein, was ich auslesen will :( eine Fehlermeldung zu dem $word in der Zeile wo ich das in die Datei ausgebe kommt auch im Konsolenfenster....

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

#!/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);

View full thread Suche nach Wort und auslesen von diesem