- XML::XPath, Sous windows, il faudra modifier de MakeFile.PL en ajoutant l'extension .pl au fichier de la ligne 'EXE_FILES' => [ 'examples/xpath' ], et ajouter cette extension au fichier indiqué.\\

- XML::LibXML,
- XML::XPath,
- XML::LibXML

- XML-XPath - XML::LibXML

Si vous ne disposez pas du compilateur nmake sur votre poste la page http://johnbokma.com/perl/make-for-windows.html vous apportera une aide précieuse.

(:keywords libxml2, perl, compilation:) Procécure de compilation et d'intégration du wrapper libxml2 pour Perl.

[@

0030h: 22 68 65 6c 6c 6f 20 77 6f 72 6c 64 22 2f 3e 0a "hello world"/>.

<?xml version="1.0" encoding="UTF-8"?> <foo bar="hello world"/>

@]

0000h: 3c 3f 78 6d 6c 20 76 65 72 73 69 6f 6e 3d 22 31 <?xml version="1 0010h: 2e 30 22 20 65 6e 63 6f 64 69 6e 67 3d 22 55 54 .0" encoding="UT 0020h: 46 2d 38 22 3f 3e 0a 3c 66 6f 6f 20 62 61 72 3d F-8"?>.<foo bar= 0030h: 22 63 e9 72 e9 6d 6f 6e 69 65 22 2f 3e 0a "cÚrÚmonie"/>.

0000h: 3c 3f 78 6d 6c 20 76 65 72 73 69 6f 6e 3d 22 31 <?xml version="1
0010h: 2e 30 22 20 65 6e 63 6f 64 69 6e 67 3d 22 55 54 .0" encoding="UT
0020h: 46 2d 38 22 3f 3e 0a 3c 66 6f 6f 20 62 61 72 3d F-8"?>.<foo bar=
0030h: 22 63 e9 72 e9 6d 6f 6e 69 65 22 2f 3e 0a "cÚrÚmonie"/>.

<?xml version="1.0" encoding="UTF-8"?>
<foo bar="cérémonie"/>\\

use IO::File;

my $doc = XML::LibXML::Document->createDocument("1.0","UTF-8"); my $root = $doc->createElement("foo" ); my $attr = $doc->createAttribute( "bar", "hello world" ); $root->setAttributeNodeNS( $attr );

$doc->setDocumentElement( $root );

print dumpvar($doc->toString(0));

sub dumpvar{

	my $var = shift(@_);
	#print "length:".length($var)."\r\n";
	for($i = 0; $i < length($var); ) {
		printf("%04xh: ",$i);
		$string="";
		for ($a = $i; $a < $i+16; $a++) {
			if($a < length($var)){
				$p = ord(substr($var, $a, 1));
				printf("%02x ",$p);
				if($p>31){
					$string=$string.chr($p);
				}
				else{
					$string=$string.".";
				}
			}else{
				printf("   ");
			}
		}
		print " ".$string."\r\n";
		$i=$a;
	}	
	print "\n\r";

}

0000h: 3c 3f 78 6d 6c 20 76 65 72 73 69 6f 6e 3d 22 31 <?xml version="1 0010h: 2e 30 22 20 65 6e 63 6f 64 69 6e 67 3d 22 55 54 .0" encoding="UT 0020h: 46 2d 38 22 3f 3e 0a 3c 66 6f 6f 20 62 61 72 3d F-8"?>.<foo bar= 0030h: 22 63 e9 72 e9 6d 6f 6e 69 65 22 2f 3e 0a "cÚrÚmonie"/>.

<?xml version="1.0" encoding="UTF-8"?> <foo bar="cérémonie"/>

8. Un exemple

Une fois les librairies installées, le code ci-dessous (:source lang=perl :)

1. !/usr/bin/perl -w

use XML::LibXML;

my $doc = XML::LibXML->createDocument; my $root = $doc->createElementNS( "", "foo" ); $doc->setDocumentElement( $root );

my $attr = $doc->createAttributeNS( "bar", "bar:foo", "test" ); $root->setAttributeNodeNS( $attr );

print $doc->serialize_html(); (:sourcend:)

Donnera cette sortie

\\

7. Faire la même chose avec

dans l'ordre :\\

7. Faire la même chose avec, dans l'ordre :
- XML::NamespaceSupport,
- XML::SAX,
- XML::LibXML

D:\dev\perl\XML-LibXML-Common-0.13>Makefile.PL LIBS="D:\libxml2-2.6.23\win32\bin.msvc D:\zlib123" INC="-ID:\libxml2-2.6.23\include"\\

Note (probably harmless): No library found for -lzlib
et
Common.xs(11) : fatal error C1083: Cannot open include file: 'libxml/parser.h': No such file or directory
si vous n'indiquez pas le chemin d'accès aux fichiers include.

D:\dev\perl\XML-LibXML-Common-0.13>nmake\\

D:\dev\perl\XML-LibXML-Common-0.13>nmake test

Correspond à un problème de chargement de Common.dll qui a une dépendance avec libxml2.dll.
Veillez donc à ce que cette dernière soit dans le path.

D:\dev\perl\XML-LibXML-Common-0.13>nmake install

Si vous n'indiquez pas les chemins d'accès aux librairies, vous obtiendrez ces messsages
Note (probably harmless): No library found for -llibxml2
Note (probably harmless): No library found for -lzlib

Procécure de compilation du wrapper libxml2 pour Perl.

        C:\Perl\bin\perl.exe C:\Perl\lib\ExtUtils/xsubpp  -typemap C:\Perl\lib\ExtUtils\typemap -typemap typemap 
Common.xs > Common.xsc && C:\Perl\bin\perl.exe -MExtUtils::Command -e mv Common.xsc Common.c
        cl -c  -ID:\libxml2-2.6.23\include  -nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT
-DHAVE_DES_FCRYPT -DNO_HASH_SEED -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO
-DPERL_MSVCRT_READFIX -MD -Zi -DNDEBUG -O1    -DVERSION=\"0.13\"  -DXS_VERSION=\"0.13\"  "-IC:\Perl\lib\CORE"
-DHAVE_UTF8 -DHAVE_BLANK  Common.c\\

Procécure de compilation de libxml2 pour que la librairie soit acessible sous Perl.

1. Téléchargement et décompression de XML::LibXML::Common

2. Générer le makefile spécifique à Windows

3. Initialiser les variables d'environnement MS Visual C++ (Vcvars32.bat)

4. Compiler les librairies

        C:\Perl\bin\perl.exe C:\Perl\lib\ExtUtils/xsubpp  -typemap C:\Perl\lib\ExtUtils\typemap -typemap typemap  Common.xs > Common.xsc && C:\Perl\bin\perl.exe -MExtUtils::Command -e mv Common.xsc Common.c
        cl -c  -ID:\libxml2-2.6.23\include  -nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DNO_HASH_SEED -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -Zi -DNDEBUG -O1    -DVERSION=\"0.13\"  -DXS_VERSION=\"0.13\"  "-IC:\Perl\lib\CORE"  -DHAVE_UTF8 -DHAVE_BLANK  Common.c
Common.c
Running Mkbootstrap for XML::LibXML::Common ()
        C:\Perl\bin\perl.exe -MExtUtils::Command -e chmod 644 Common.bs

5. Tester la nouvelle librairie compilée

        C:\Perl\bin\perl.exe "-Iblib\lib" "-Iblib\arch" test.pl

Problème de dépendance
Can't load 'blib\arch/auto/XML/LibXML/Common/Common.dll' for module XML::LibXML::Common:
load_file:Le module spécifié est introuvable at C:/Perl/lib/DynaLoader.pm line 230.
Correspond à un problème de chargement de Common.dll qui a une dépendance avec la DLL libxml2.dll, veuillez donc à ce que cette dernière soit dans le path.

6. Installer