Opened by aspnstyle at 2008-03-20 16:04
User since
2008-03-18
23 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-03-18
23 Artikel
BenutzerIn
vielen dank für deine rasche antwort renee
hab mir den Befehl eval jetzt nochmal in google genauer betrachtet aber bin noch auf keine gute Seite gestoßen.
ja genau ich lese den ordner mit einer schleife aus und während dessen führe ich den Befehl aus
eval - Mit Hilfe der eval-Funktion können Sie jedoch den Perl-Interpreter während der Laufzeit eines Scripts aufrufen und innerhalb des Scripts beliebigen Perl-Code interpretieren lassen. Wenn Sie so wollen, kann ein Perl-Script auf diese Weise selber Perl-Scripts schreiben und deren Ausführung in die eigene Ausführung einbetten. In die Code-Erzeugung dürfen natürlich auch Variableninhalte einfließen, die das Script verwaltet....
könntest du mir das anhand dem bsp kurz erklären ... versteh das noch nicht ganz wieso man nicht einfach eine if abfrage machen kann ob das formfield vorhanden ist und wenn nicht $word->Quit; und mit dem nächsten weiter machen....
:D ich hänge in letzter zeit wirklich nur mehr 24 stunden am perl lernen ... wieso ich da nicht schon früher drauf gekommen bin *gg* das macht wirklich spaß
Auf jeden fall vielen lieben dank an alle moderatoren und mitglieder
hab mir den Befehl eval jetzt nochmal in google genauer betrachtet aber bin noch auf keine gute Seite gestoßen.
ja genau ich lese den ordner mit einer schleife aus und während dessen führe ich den Befehl aus
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
... while( my $Datei = readdir DIR ){ if ( $Datei =~ /\.doc$/i ){ my $Word = Win32::OLE->new('Word.Application', 'Quit'); 2: $Word->{'Visible'} = $debug; # if you want to see what's going on 3: $Word->Documents->Open("$plpath$tmp_mail$Datei") || die("Unable to open document ", Win32::OLE->LastError()); 4: 5: my $Versender1 = $Word->ActiveDocument->FormFields("Text1")->Result; 6: my $Versender2 = $Word->ActiveDocument->FormFields("Text18")->Result; 7: my $VersStr = $Word->ActiveDocument->FormFields("Text20")->Result; .... $Word->Quit(); } }
eval - Mit Hilfe der eval-Funktion können Sie jedoch den Perl-Interpreter während der Laufzeit eines Scripts aufrufen und innerhalb des Scripts beliebigen Perl-Code interpretieren lassen. Wenn Sie so wollen, kann ein Perl-Script auf diese Weise selber Perl-Scripts schreiben und deren Ausführung in die eigene Ausführung einbetten. In die Code-Erzeugung dürfen natürlich auch Variableninhalte einfließen, die das Script verwaltet....
könntest du mir das anhand dem bsp kurz erklären ... versteh das noch nicht ganz wieso man nicht einfach eine if abfrage machen kann ob das formfield vorhanden ist und wenn nicht $word->Quit; und mit dem nächsten weiter machen....
:D ich hänge in letzter zeit wirklich nur mehr 24 stunden am perl lernen ... wieso ich da nicht schon früher drauf gekommen bin *gg* das macht wirklich spaß
Auf jeden fall vielen lieben dank an alle moderatoren und mitglieder