Batch mit mehrfachem Aufruf eines Perlscripts für jede Datei in einem Verzeichnis

Hallo Biber,
vielen Dank für die schnelle Antwort, ich habe deinen Vorschlag direkt umgesetzt und muss zugeben dass mir das mit den cd.. Zeilen auch nicht gefallen hat.
Auch hat allein dein Vorschlag dazu geführt, dass ich ungefähr nur noch etwas mehr als die hälfte an code habe wie vorher ^^
Hatte natürlich für die Option "alle Logfiles scannen" eine eigene fast identische Funktion schreiben wollen *stirnklatscher*

Wichtig war mir jedenfalls, dass ich den Ordner "Logauswertung mit all seinem Inhalt überall hinkopieren kann, bzw auch auf andere Rechner und das Script läuft, vorausgesetzt man hat Activeperl vorher installiert.
Deswegen habe ich mit set "myRoot=%~dp0" gearbeitet. Und mit Hilfe einiger Anführungszeichen funktioniert "dir" jetzt auch mit Pfaden deren Ordnernamen Leerzeichen enthalten.

Nur leider funktioniert das mit /leer für alle Dateien nicht:
Er nimmt dann das Logfile der letzten Runde, scannt das auch wobei die Meldung
"Der Befehl Pushdir ist entweder falsch geschrieben oder konnte nicht gefunden werden" erscheint.
Vielleicht könntest du die Zeile mit Pushdir und
for /f "tokens=2 delims=_" %%i in ("%~n1") do Set lognr=%%i
auch noch ein bisschen näher erläutern ?

Wobei eigentlich der Ordner "Gescannte Logfiles" nur im Perlscript verwendet wird um halt da die Ausgabedateien abzulegen.


Hier nochmal Version 1.3 der Batch:

[code]
@echo off
setlocal
rem ======================================================================
::
:: ScanLOG V1.3
::
rem ----------------------------------------------------------------------
:: History
:: V1.0 - 2007-11-01 menü erstellt, scannt ausgewählte logfiles
:: V1.3 - 2007-11-02 fragt settings ab, scannt komplettes logverzeichnis
rem ======================================================================

rem ----------------------------------------------------------------------
:: CONFIG
rem ----------------------------------------------------------------------
cls
set sTitle=ScanLOG V1.3
set LINE=-------------------------------------------------------------------

set "myRoot=%~dp0"
set "LogDir=%myRoot%Logfiles"
set "sumdir=%myRoot%Gescannte Logfiles"

rem ----------------------------------------------------------------------
:: MAIN
rem ----------------------------------------------------------------------
:menue
echo %LINE%
echo.
echo %sTitle%
echo.
echo %LINE%
echo.
echo.
echo 1 - Liste vorhandener Logfiles anzeigen
echo 2 - Logfile(s) scannen
echo 3 - Gescannte Logfile(s) plotten [beta]
echo 0 - Raus hier
echo.
echo.
set %AuswahlEingabe%=
set /p AuswahlEingabe=Eingabe:
if %AuswahlEingabe% equ 1 goto prg1
if %AuswahlEingabe% equ 2 goto prg2
if %AuswahlEingabe% equ 3 goto prg3
if %AuswahlEingabe% equ 0 goto exit
goto menue
rem ----------------------------------------------------------------------
:prg1
cls
dir "%LogDir%" /b /o
pause
cls
goto menue
rem ----------------------------------------------------------------------
:prg2
:menue2
cls
echo.
echo %LINE%
dir "%LogDir%" /b /o
echo %LINE%
echo 1 - Logfile(s) scannen
echo 2 - ???
echo 0 - zurueck
echo.
echo.
set /p AuswahlEingabe=Eingabe:
if %AuswahlEingabe% equ 1 goto prg21
if %AuswahlEingabe% equ 2 goto prg22
if %AuswahlEingabe% equ 0 goto menue
goto menue2
rem ----------------------------------------------------------------------
:prg21
set /p lognr="Bitte vierstellige Logfilenummer eingeben oder /leer fuer alle: "
if exist "%LogDir%\*%lognr%.log" goto worklog
echo.
echo Logfile %lognr% nicht gefunden!
pause
goto prg2

:worklog
echo.
echo Logfile %lognr% vorhanden
for /f %%i in ('dir /b /A:-d /o:n "%LogDir%\*%lognr%.log"') do Call :ProcWpl "%%~i"
goto prg2

:ProcWpl
for /f "tokens=2 delims=_" %%i in ("%~n1") do Set lognr=%%i
echo Aufruf von scanlog.pl mit der Datei %1
echo %LINE%
PushDir "%SumDir%
perl scanlog.pl %~1 %lognr%
PopD
echo %LINE%
pause
cls
goto menue
REM ?? set lognr=NUL1
REM ?? set logf=NUL2
rem ----------------------------------------------------------------------
:prg3
echo.

:setup
echo Bitte auswaehlen:
set /p sys="Censored Konfig [1], Censored Konfig [2]: "
if %sys% equ 1 goto sys1
if %sys% equ 2 goto sys2
echo Eingabe ungültig
pause
goto prg3

:sys1
echo k1 > settings.txt
goto tol

:sys2
echo k2 > settings.txt

:tol
set /p tol="Anzahl tolerierter "40"-errors? "
echo t%tol% >>settings.txt
echo %LINE%
echo Scilab wird gestartet
echo Im aktiven Codefenster von plot.sce STRG+L druecken um zu plotten
pause
plot.sce
echo %LINE%
pause
cls
goto menue

:exit
goto END
endlocal

rem ----------------------------------------------------------------------
:: the end of all
rem ----------------------------------------------------------------------
:END
echo %LINE%
rem echo %0 was terminated.
echo press any key...
pause >nul

rem ======================================================================
:: EOF
rem ======================================================================
[/code]