H
H_E_X_E_R
Grünschnabel
Hi Leutz,
ich bin im Skripten leider noch nicht fit. Besonders awk & sed sind noch ein rotes Tuch....
ICh habe das Problem das ich mehrere Shell & Perl Skripte laufen habe die ihrerseits Shell- & Perl- Skripte aufrufen. Ich soll nun mir einen Überblick verschaffen. Da sich diese Abläufe auch noch oftmals ändern brauche ich ein Skript welches automatisch einen "Report" erstellt ---> Beispiel :
"Report Hauptskript 31.05.2006"
-> Hauptskript.sh
-->Nebenskript.sh
-->Unternebenskript.pl
-->Wasweisich.pl
-->nocheins.sh
-->schonwiedereins.sh
-->zweitesnebenskript.pl
vielleicht kann auch das ende der skripte mit "reportet" werden:
Habe mir schon etwas einfallen lassen aber ... die Regulären Ausdrücke...
#!/usr/bin/perl
@Zeilen = ("");
open(SKRIPT, "<$ARGV[0]") || die "Fehler!";
print $ARGV[0], "--geoeffnet!-------\n";
while(<SKRIPT>)
{
push(@Zeilen,$_);
}
close(SKRIPT);
for(@Zeilen)
{
if(/.sh/)
{
print $_;
# hier müsste der Skriptname separiert werden
# und anschl. das Skript geöffnet werden und genau wie
# hier (in diesem Skript) verfahren werden (rekursiv)
#
}
}
----------------
die Zeilen im Skript sehen in etwa so aus(runRecompileInvalid.sh ->müsste separiet werden):
write_log $LOG "--- calling recompile views and procedures"
execute_package "TRUE" "$PATH_BASE/preLoad/recompileInvalid" "runRecompileInvalid.sh"
write_log $LOG "--- returning from recompile views and procedures"
Kann mir jemand weiterhelfen ?
ich bin im Skripten leider noch nicht fit. Besonders awk & sed sind noch ein rotes Tuch....
ICh habe das Problem das ich mehrere Shell & Perl Skripte laufen habe die ihrerseits Shell- & Perl- Skripte aufrufen. Ich soll nun mir einen Überblick verschaffen. Da sich diese Abläufe auch noch oftmals ändern brauche ich ein Skript welches automatisch einen "Report" erstellt ---> Beispiel :
"Report Hauptskript 31.05.2006"
-> Hauptskript.sh
-->Nebenskript.sh
-->Unternebenskript.pl
-->Wasweisich.pl
-->nocheins.sh
-->schonwiedereins.sh
-->zweitesnebenskript.pl
vielleicht kann auch das ende der skripte mit "reportet" werden:
Habe mir schon etwas einfallen lassen aber ... die Regulären Ausdrücke...
#!/usr/bin/perl
@Zeilen = ("");
open(SKRIPT, "<$ARGV[0]") || die "Fehler!";
print $ARGV[0], "--geoeffnet!-------\n";
while(<SKRIPT>)
{
push(@Zeilen,$_);
}
close(SKRIPT);
for(@Zeilen)
{
if(/.sh/)
{
print $_;
# hier müsste der Skriptname separiert werden
# und anschl. das Skript geöffnet werden und genau wie
# hier (in diesem Skript) verfahren werden (rekursiv)
#
}
}
----------------
die Zeilen im Skript sehen in etwa so aus(runRecompileInvalid.sh ->müsste separiet werden):
write_log $LOG "--- calling recompile views and procedures"
execute_package "TRUE" "$PATH_BASE/preLoad/recompileInvalid" "runRecompileInvalid.sh"
write_log $LOG "--- returning from recompile views and procedures"
Kann mir jemand weiterhelfen ?