Hallo,

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?

Danke & Gruß aus Wien,

Hallo

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?

Danke!

hi!

ich möchte eine textdatei laden, und die darin enthaltenen variablen durch
die im script hinterlegten werter ersetzen.

etwa so:
$foo = "footext";

nun lade ich die textdatei mit dem inhalt:

"... text text text $foo text text $foo ..."

und möchte die darin angeführten $foo durch den zuvor definierten
variablenwert ersetzen und ausgeben.

wie lässt sich das veranstalten?

greets

(The same post was also send to perl.module-authors)

Dear all,
Because I do not have time and also other interests to maintain my
modules I am looking for somebody who want to take over the maintain of
my modules.

The modules are:
Mail::Convert::Mbox::ToEml: Convert Mbox to OE single eml files
Win32::File::Summary: Shows Win32 File summary informations
Win32::Fonts::Info: List of installed fonts (families) in window
Win32::Net::Session: List the Session which connected to a Win32
Win32::Process::Perf: Shows performance counters for a process
Win32::Process::User: get user + domain for a given PID or name
(http://search.cpan.org/~rpagitsch/)

The modules are using XS code, except Mail::Convert::Mbox::ToEml which
is a pure Perl module.

You can contact me at rpirpag@gmx.at, or better at RPAGITSCH@cpan.org

Thank you,
Reinhard

Hi,

ich betreibe eine kleine OpenSource Software für Hebammen mit
Perl,Apache,...

Die Entwicklung läuft unter Linux, es gibt aber einige Windows Nutzer und
eine entsprechende Windows Version. Die Windows Nutzer benutzen alle
ActiveState Perl in unterschiedlichsten Versionen.

Nun zum Problem:
In einem setup Skript für Windows wird die httpd.conf von Stelle a nach b
kopiert:
copy("httpd.conf","$apachepfad"."/conf/httpd.conf") or error("konnte
httpd.conf fuer Apache2 nicht kopieren $!\n");

Die Veriable $apachepfad hat z.B. den Wert:
/Program Files/Apache Software Foundation/Apache2.2/

Das funktioniert unter WinXP auch problemlos. Unter Vista wird die Datei
aber nicht kopiert und es kommt auch zu keiner Fehlermeldung.

Hat einer von Euch eine Erklärung für das Verhalten oder ist in der Copy
Anweisung sonst irgendetwas falsch?
Muss ich die Datei "$apachepfad"."/conf/httpd.conf" vorher dem Kopieren ggf.
löschen, da Vista ein überschreiben nicht zulässt?

Hallo,

ich hab so meine liebe Not mit Regex und den Metazeichen. Es gibt ja
jede Menge Tutorials, aber ich hab nichts gefunden über den
Geltungsbereich von Metazeichen. Folgender Ausduck soll alle Strings
die mit einen oder zwei Punkten beginnen auszufiltern.

$path =~ /^\.\.?$/

Was ich nicht verstanden habe, ist, wie weit gilt ^ auf das Suchmuster.
Wirkt ^ nur auf das erste Zeichen oder auch auf das zweite? Warum steht
da noch ein $ für das Ende des Strings, wo doch das Suchmuster nur am
Anfang vorkommen kann? Gilt $ nur auf das erste oder auch auf das zweite
Zeichen davor?

Ich möchte Den Ausdruck erweitern, das er mir auch Dateien mit einen
Punkt ausfiltert.

Hat jemand eine Tipp, wo der Geltungsbereich für Metazeichen einem
plausibel erklärt wird?

mfg
Thomas

hallo

ich hab da ein sub gesehen (nicht von mir geschrieben), welches mit

sub kfm_runden($;$) { ... }

beginnt.

welche bedeutung haben die $;$?

greets
alex
-/--\-

Na Hola!

Mit DBI greife ich auf MySQL zu. Alles funzt soweit. Mit
fetchrow_hashref() lese ich Zeile für Zeile auf meine Daten zu.

Mein Problem:
Nachdem ich eine Tabelle mit fetchrow_hashref() ganz oder teilweise
ausgelesen habe, möchte ich den Datenbankzeiger zurücksetzen, um das
gleiche nochmals zu durchlaufen. Bei PHP gibbet dafür mysql_data_seek.

Habe schon das halbe Internet danach abgesucht und nix gefunden. Weiss
da jemand von Euch was?

Liebe Grüsse

Gerd Wagner

Hallo,

folgender Code funktioniert wie gewünscht:

local (*READ, *WRITE, *ERROR);
my $pid = open3( \*WRITE, \*READ, \*ERROR, "/tmp/test.pl");

folgender dagegen bleibt umgehend hängen:

local (*READ, *WRITE, *ERROR);
my $pid = open3( \*WRITE, \*READ, \*ERROR,
"/usr/bin/perl", ("/tmp/test.pl") );

Warum funktioniert "open3" nicht, wenn ich explizit perl mit den Script
als Parameter aufrufe? Oder liegt der Fehler woanders?

Danke im Voraus

CU

Manuel

Hallo,

wie kann ich feststellen, ob ein Modul X::Y ein Core-Modul
der aktuell laufenden Perl-Version ist?
Unter Perl 5.10 lässt sich das mit Module::CoreList ermitteln (*),
was aber eine recht große Datenstruktur mitbringt und mir
unter älteren Perl-Versionen nichts nützt.

Hat jemand eine Idee?

(*) Module::CoreList scheint ein Problem zu haben. Der Aufruf

$Module::CoreList::version{$]}{'strict'}

schlägt unter Perl-Versionen fehl, bei denen die numerische
Versionsnummer ($]) mit Nullen endet (z.B. 5.010000 für
Perl 5.10), obwohl die Hash-Definition den Key
5.010000 enthält. Es wurde wohl versäumt, den Key in
der Hash-Definition zu quoten. Für mich sieht das nach
einem Bug aus. Wie seht ihr das?