Tweet
Hallo,
hab ein kleines Perl-Script mit dem ich einen Datenbankabgleich aufrufe.
Wollte das nun ein wenig verfeinern, indem ich evt. ein paar Textausgaben mit einbinde
Hier das Script:
So, der Abgleich funktioniert zwar, aber danach wird nichts mehr ausgegeben...
Bitte um Hilfe, da ich selb null plan von Perl habe
Danke
hab ein kleines Perl-Script mit dem ich einen Datenbankabgleich aufrufe.
Wollte das nun ein wenig verfeinern, indem ich evt. ein paar Textausgaben mit einbinde
Hier das Script:
PHP-Code:
#! /usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>Datenbankabgleich!</title><head>\n";
print "<body>";
print "<h1>Datenbankabgleich laeuft...</h1>";
if((system exec "/etc/scripte/afs-copy"))
{
print "Abgleich Ok";
}
else
{
print "Abgleich fehlerhaft";
}
print "</body></html>\n";
Bitte um Hilfe, da ich selb null plan von Perl habe
Danke
Kommentar