Hallo zusammen,ich hab da ein kleines oder größeres Problem:
Ich habe ein Skript, welches eine Tabelle mit drei Spalten generiert. In der ersten Spalte sollen Programme und in der zweiten die dazugehörigen Erstellungsdaten angezeigt werden. Die dritte Spalte ist für das Problem nicht relevant. Diese Erstellungsdaten sind der changelog.txt zu entnehmen, welche ungefähr so aussieht:
-----------------------------------------------
CHANGELOG FÜR PROGRAMM 1
-----------------------------------------------
Version Datum Änderungen
------- ---------- ---------------
P1_Version_1 18.01.2008 - erstversion
P1_Version_2 19.01.2008 - dies und das
- so einiges
- außerdem das
Soll heißen, wenn in der ersten Spalte als Programm P1_Version_1 steht, soll als Datum der Version der 18.01.2008 ausgegeben werden. Ich habe es zuerst mit der stat-Funktion probiert, aber die gibt ja nur die Sekunden seit dem 1.1.1970 an und das ist etwas ungünstig. Die Textdatei müsste ja mit open auslesbar sein, aber die Einbindung in den Code passt wohl noch nicht so ganz...
Code:
foreach (sort(@VZ)) { if ( !($_ =~ /^\.{1,2}$/) ) {
printf("<tr>");
if ( -d $hz.$_ ) {
opendir(P_DIR, $hz.$_); # || die "$Verzeichnis: $!";
my @p_dir = readdir(P_DIR);
closedir(P_DIR);
printf("<td><b>%s</b></td>\n", $_);
printf("<td></td>\n", (stat($hz.$_))[9] );
printf("<td>");
print_file($hz,$hz.$_."/programmbeschreibung.txt");
printf("</td>");
foreach $p_dir (sort(<@p_dir>)) {
if ( !($p_dir =~ /^\.{1,2}$/) && -d $hz.$_."/".$p_dir) {
print("<tr>");
printf("<td><a href='$pfad$p_dir'>%s</a></td>\n", $p_dir);
printf("<td></td>\n"); # <- da müsste das datum ausgegeben werden!
printf("<td></td>\n");
print("</tr>");
}
}
}
printf("</tr>");
}
Kann da freundlicherweise jemand helfen? Werden noch mehr Angaben / Erklärungen gebraucht?
mfg
D.
Datum: 28.01.2008-08:23
changelog auslesen
