Batchdatei integrieren und Variablen für die aktuelle Session einbinden (Allgemeines zu Perl)

[thread]17987[/thread]

Batchdatei integrieren und Variablen für die aktuelle Session einbinden

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+4 replies

muchamadin

2012-12-12 16:42

User since
2012-12-12
2 Artikel
BenutzerIn
[default_avatar]

Hallo,
ich lese eine Batch Datei ein und will alle Variablen für die aktuelle Session benutzen können.
In meinem Code müsste ich jetzt bsp. %Variable1% mit dem Bestehenden Inhalt $ENV{'Variable1'} ersetzen.
Ich hoffe mir kann da jemand weiterhelfen.
Ich danke schon mal im voraus.

bsp: Batch Datei

Code: (dl )

set Variable1=c:/ursprungspfad/site1
set Variable2=%Variable1%/info
set Variable3=verzeichnis
set Variable4=%Variable1%/%Variable3

Code: (dl )

if ($_ =~ /^set/)
	 {	  
	  $_ =~ s/^set //g;		  
	  ($var, $wert) = split(/=/, $_);
	 
	  if($wert =~ /\%*\%/) 
	    {		 
		 $wert =~ s/\%.*\%/$1/; 
		
                 #?????
		 $ENV{'var'}=
	         #?????

		 }
		 else
		 {
	
		 $ENV{'$var'}=$wert;
		 }
	
	 }
	}

Last edited: 2012-12-12 16:51:18 +0100 (CET)

+3 replies
Linuxer

2012-12-12 17:17
User since
2006-01-27
3890 Artikel
HausmeisterIn
Hi,

hier mal ein Ansatz:

Anstatt %ENV verwende ich hier %foo, um die Ausgabe übersichtlicher zu haben.

Es wird nicht geprüft, ob eine zu ersetzende Variable wirklich gesetzt ist.
Variable3 ist nicht ausreichend benannt (fehlendes % am Ende)...
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

#! /usr/bin/perl use strict; use warnings; # use Getopt::Long; # use CGI; my %foo; while ( my $line = <DATA> ) { if ( my ( $var, $wert ) = $line =~ m{set\s+([^=]+)=(.+)$} ) { if ( $wert =~ m/%/ ) { $wert =~ s/%([^%]+)%/$foo{$1}/g; } $foo{$var} = $wert; } } use Data::Dumper; print Data::Dumper->new( [ \%foo ], [ '*foo' ])->Sortkeys(1)->Dump; __DATA__ set Variable1=c:/ursprungspfad/site1 set Variable2=%Variable1%/info set Variable3=verzeichnis set Variable4=%Variable1%/%Variable3
Ausgabe:
Code: (dl )

1 2 3 4 5 6

%foo = ( 'Variable1' => 'c:/ursprungspfad/site1', 'Variable2' => 'c:/ursprungspfad/site1/info', 'Variable3' => 'verzeichnis' 'Variable4' => 'c:/ursprungspfad/site1/%Variable3', );
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- muchamadin
  
  2012-12-13 13:03
  
  User since
  2012-12-12
  2 Artikel
  BenutzerIn
  
  Hallo,
  
  Variable4 ist nicht vollständig aufgelöst worden.
  - Linuxer
    
    2012-12-13 13:06
    
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Jap, ist korrekt. "Works as designed".
    
    Die Definition für Variable4 enthält den String %Variable3, welcher aber nicht korrekt spezifiziert ist; Korrekt wäre %Variable3% (beachte das % am Ende); so hast Du es selber definiert.
    meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
    Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View all threads created 2012-12-12 16:42.