Variable in String (gelöst) (Allgemeines zu Perl)

[thread]17467[/thread]

Variable in String [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+7 replies
ottto

2012-06-06 14:26
User since
2008-09-11
21 Artikel
BenutzerIn
Hallo,
ich lese den Inhalt einer Datei "Muster.txt" zeilenweise aus.
Dateiinhalt:
1.Meine Variable hat den Inhalt: $var1
"2.Meine Variable hat den Inhalt:". $var1
"3.Meine Variable hat den Inhalt: $var1 \n";

In den Zeilen ist ein Variablenname "$var1" enthalten.
Gibt es eine Möglichkeit die $var1 beim Auslesen/Ausgeben mit Inhalt zu füllen?
Code: (dl )

1 2 3 4 5 6 7 8 9

#!c:\perl\bin\perl.exe -w $var1="0815"; print "Meine Variable hat den Inhalt: $var1 \n"; open(dat1,"<c:/Muster.txt") or die "Datei wird nicht gefunden"; while(<dat1>) { print "$_"; } close dat1;
Danke.
Gruß.
ottto
- +5 replies
- pq
  
  2012-06-06 14:32
  User since
  2003-08-04
  12208 Artikel
  Admin1
  wenn es nur bestimmte variablen sind, lässt sich das am einfachsten und sichersten mit einem hash lösen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my %map = ( var1 => "0815", ... ); my $re = join '|', sort { length($b) <=> length($a) } keys %map; # var1|var2|... $line =~ s/($re)/$map{ $1 }/g;
  
  ein weiterer tipp:
  benutze strict und warnings: use strict und lexikalische filehandles: WasIsteinLexikalischerFileHandle
  
  lerne modernes perl: http://perl-tutorial.org/
  Last edited: 2012-06-06 14:33:26 +0200 (CEST)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - gelöscht 2012-06-06 15:59
  - +3 replies
  - ottto
    
    2012-06-06 16:01
    User since
    2008-09-11
    21 Artikel
    BenutzerIn
    
    Hallo pq,
    ich glaube ich hab mich falsch ausgedrückt bzw, verstehe Deinen Lösungsansatz nicht. sorry.
    Problem: Wenn ich in meinem Script schreibe,
    
    Code: (dl )
    
    1 2
    
    $var1="0815"; print "Meine Variable hat den Inhalt: $var1 \n";
    
    bekomme ich, wie erwartet, als Ergebnis: "Meine Variable hat den Inhalt: 0815".
    Wenn ich jetzt aber eine Zeile (1.Meine Variable hat den Inhalt: $var1)
    aus meiner Datei Muster.txt hole und per print ausgebe, bekomme ich die $var1 als Text"$var1" angezeigt und nicht den Inhalt "0815".
    Ich suche eine Möglichkeit, mit der ich die $var1 in meinem String wieder mit Inhalt füllen kann.
    Vielen Dank, für Deine Geduld.
    Gruß.
    ottto
    - pq
      
      2012-06-06 16:11
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wie gesagt, man sollte das nicht über direkte variablen lösen, sondern über einen hash.
      statt $var1 benutze $map{var1}. dann kannst du es im skript benutzen und automatisiert im text ersetzen.
      alles andere erfordert bei globalen package-variablen fummelei mit der symboltabelle oder bei lexikalischen variablen sogar eval.
      
      also nochmal: wenn es nur ein paar von vorneherein feststehende variablen sind, die zu erstzen sind, schreibe sie stattdessen in einen hash und du kannst den lösungsansatz von mir verwenden.
      
      wenn es nur die eine variable ist, kannst du auch folgendes verwenden:
      $line =~ s/\$var1\b/$var1/g;
      
      aber erfahrungsgemäss kommen da irgendwann weitere variablen hinzu, und die willst du dann nicht alle manuell so ersetzen.
      
      die lösung sieht dann so aus (strict muss hierfür abgeschaltet werden):
      $text =~ s/\$(\w+)/${ $1 }/g;
      
      an der stelle fängt dein programm an, schlecht wartbar zu werden.
      
      setze bitte so früh wie möglich auf einen hash.
      ich spreche da wirklich aus erfahrung.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - FIFO
      
      2012-06-06 16:19
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      Hi, wenn ich es richtig verstehe, willst Du in dem String, den Du als Zeile aus der Datei liest, die Zeichenfolge '$var1' durch den Inhalt der Variable $var1 ersetzen (Template-artig?).
      Prinzipiell geht das z.B. so:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12
      
      use warnings; use strict; my $var1 = "0815"; print "Meine Variable hat den Inhalt: $var1\n"; open(my $dat1,'<', "c:/Muster.txt") or die "Datei wird nicht gefunden"; while (my $line = <$dat1>) { $line =~ s{\$var1\b}{$var1}g; print "$line"; } close $dat1;
      
      edit: pq hat (während ich das hier schrieb) ja schon ausgeführt, warum so eine Lösung Nachteile hat und Du besser einen allgemeineren Ansatz mit einem Hash wählst ...
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- ottto
  
  2012-06-08 11:22
  
  User since
  2008-09-11
  21 Artikel
  BenutzerIn
  
  Hallo zusammen,
  beide Varianten funktionieren.
  Vielen Dank.
  ottto

View all threads created 2012-06-06 14:26.