Grandville.net | PERL / Perl

PERL/Perl

PERL.Perl History

Hide minor edits - Show changes to output

July 01, 2009, at 08:10 AM by 82.66.132.163 -

Changed line 26 from:

Journaliser dans un fichier les traitements ~~effectuées~~ par un programme est obligatoire...\\

to:

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

Restore

September 04, 2007, at 04:37 PM by Arnaud Grandville -

Changed lines 1-3 from:

~~Exemple~~ de ~~code utilisant la librairie~~ XML::XPath::XMLParser (http://search.cpan.org/~msergeant/XML-XPath-1.13/)\\

to:

!Utilisation de la librairie XML::XPath::XMLParser\\

http://search.cpan.org/~msergeant/XML-XPath-1.13/\\

Changed lines 5-47 from:

~~[[contact||CONTACT]]~~

to:

\\
\\

!Installer un script Perl sous forme de service windows [[http://support.microsoft.com/kb/152460/en-us|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ées par un programme est obligatoire...\\

(:source lang=perl :)
$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);
}
}
(:sourcend:)

Restore

August 08, 2007, at 09:43 PM by 82.66.132.163 -

Changed lines 2-3 from:

[[XMLParser|Fusion de données XML]]

to:

[[XMLParser|Fusion de données XML]]
[[contact||CONTACT]]

Restore

May 24, 2007, at 10:27 AM by Arnaud Grandville -

Changed lines 1-2 from:

Exemple de code utilisant la librairie XML::XPath::XMLParser\\
[[XMLParser]]

to:

Exemple de code utilisant la librairie XML::XPath::XMLParser (http://search.cpan.org/~msergeant/XML-XPath-1.13/)\\
[[XMLParser|Fusion de données XML]]

Restore

May 24, 2007, at 09:54 AM by Arnaud Grandville -

Added lines 1-2:

Exemple de code utilisant la librairie XML::XPath::XMLParser\\
[[XMLParser]]

Restore