ich möchte eine lokale PHP-Seite, die eine Grafik herstellt, regelmäßig
alle ca. 3 Min. laden und das entstandene JPG-Bild speichern (das sieht
jedesmal anders aus).
Jetzt bin ich so weit:
....................................
use Win32::OLE;
x-post nach de.comp.lang.perl.misc und dclp.cgi - bitte fup selbständig
setzen (je nachdem wo es eher passt)
Hi,
Ich habe ein Problem mit einem CGI-Skript (cvsweb). In diesem gibt es
folgende Funktion:
sub search_path($)
{
my ($command) = @_;
for my $d (@command_path) {
my $cmd = catfile($d, $command);
return $cmd if (-x $cmd && !-d _);
}
return '';
}
@command_path enthält eine Liste von Verzeichnissen (ähnlich PATH) und
als Argument wird der Name eines Befehls übergeben. Aus irgendwelchen mir
nicht erklärbaren Umständen schlägt der Test
Hallo,
ich versuche gerade einen Zahlenstring in 4er Gruppen in ein Array zu splitten,
leider habe bisher alle meine Versuche nicht geklappt zu letzt habe ich es mit
einem lookbehind probiert:
open "IN", $ARGV[0] or die "\nDie Datei konnte nicht geöffnet werden!$!\n\n";
@mem = split(/(?<=\d{4})/ , );
Der String in der Datei ist:
0300100400110100000800070500110400110900020300110200001000000000000000000300100
40011010000080007050011040011090002030011020000100000000000000000
Ima Array sollte dann stehten:
mem[0] = 0300
mem[1] = 1004
Die Voraussetzungen für das nachfolgend beschriebene:
- Win32,
- perl2exe V9.100C,
- ActiveState Perl v5.10.0,
- Tk Version 804.028.
Tk::Entry setzt dem angegebenen Scalar ($mw->Entry(-text => \$string)->pack();)
das utf8-Flag. Das führt bei anschließenden Operationen auf den String zum
Laden von utf8.pm.
Wenn das Ganze als Script läuft, gibt es keine Probleme, so lange man nicht
utf8.pm versteckt ;-) Das ist wiederum eine Möglichkeit, die Fehlermeldung ohne
perl2exe zu reproduzieren.
Der entstehenden exe von perl2exe fehlt utf8.pm. Das kann man zwar mit in die
exe packen. Dann kommen aber Fehlermeldungen aus utf8_heavy.pl. Beispiel:
Use of uninitialized value $list in pattern match (m//) at
PERL2EXE_STORAGE/utf8_heavy.pl line 227.
ich will ein Terminalfenster (optional Fullscreen den ganzen
Hintergrund) in eine Ampel verwandeln und die Farben entsprechend
setzen. Eine Weile experimentiere ich schon mit den Escape-sequenzen, so
richtig will es mir aber nicht gelingen.
Mein Ansatz ist (gekürtzt) so:
!/usr/bin/perl -w
my @colors = (41,43,42,);
foreach (@colors){
print "\033[2J"; # cls
print "\033[0;0H"; # goes top left
print "\033[".$_."m \n";
sleep(1);
}
ich habe ein Win32-Perl-Service geschrieben, dessen Verhalten über
Registry-Einträge gesteuert wird. Bis jetzt noch nichts Außergewöhnliches.
Nun ist es vorgesehen, dass während des Laufes solche Einträge geändert
werden, worauf das Service entsprechend reagieren soll. Nun kann ich
natürlich die Registry-Einträge in regelmäßigen Abständen abfragen, aber
abgesehen davon, dass dann nicht sofort reagiert wird, erscheint mir das
unelegant.
Eine Idee wäre, die Registry-Einträge über Policies zu bearbeiten, was
einerseits ohnehin benutzer-freundlicher ist und andererseits kann der
Policy-Editor (bzw. das MCC-Plugin gpedit.msc) Events generieren, sobald
eine Policy (und die darunterliegenden Registry-Einträge) geändert wurde.
Die .adm Datei für die Policy habe ich erstellt, das Ändern der Registry
funktioniert. Aber wie bekommt mein Service das jetzt mit? Ich vermute, es
müsste ein Perl-Modul geben, das die Möglichkeit vorsieht, einen Evenhandler
zu definieren, der dann als Perl-Funktion aufgerufen wird. Kennt jemand so
ein Modul?
ich suche einen Weg einen User im Microsoft AD zu deaktivieren.
Ich kann Werte per LDAP aus dem AD lesen, kenne aber die Option nicht die
ich verändern muß damit der Account "disabled" ist.
Kann mir jemand die Stelle nennen wo ich ansetzen kann?
