Recent Changes - Search:

Accueil

OpenSSL

SyncML

Apache Portable Runtime

Libxml2

Net-snmp

CUrl

Boost

Perl

ZLib

Samba

VPN

Serveurs de messagerie

edit

PERL/Perl

Utilisation de la librairie XML::XPath::XMLParser

http://search.cpan.org/~msergeant/XML-XPath-1.13/
Fusion de données XML

Installer un script Perl sous forme de service windows kb152460

INSTSRV "Mon service" "C:\Program Files\Windows Resource Kits\Tools\srvany.exe"

Dans la base de registre, créer la clef suivante
HKLM\SYSTEM\CurrentControlSet\Service\Mon service\Parameters

puis sous cette clef, les entrées:
Application(REG_SZ)= perl
AppParameters(REG_SZ)=C:\Tools\Scripts\Perl\MonService.pl

Votre script perl est maintenant un service.

Une fonction TRACE

Journaliser dans un fichier les traitements effectués par un programme est obligatoire...

$LogFilename="C://logs//MonService.log";
#$LogFilename="-"; # pour une redirection vers STDOUT

TRACE("STARTING SERVER\n\r");
TRACE("test %s %s","test1","test2");


sub TRACE {
        my $Msg = shift(@_);
        my @Params = @_;
        if(defined($LogFilename)>0){
                open($LOG,">>$LogFilename");
                printf $LOG localtime()." ".$Msg,@Params;
                close($LOG);
        }
}
Edit - History - Print - Recent Changes - Search
Page last modified on July 01, 2009, at 08:10 AM