**Voir :** proton, solution hydrogénée//.//

##</code><code>##

**Voir :** proton, solution hydrogénée.

##</code><code>##

**Voir :** [[glossaire:entrees:p:proton|proton]], [[glossaire:entrees:s:solution_hydrogenee|solution hydrogénée]].

##</code><code>##

**Voir :** proton, solution hydrogénée

##</code><code>##

**Voir :** [[glossaire:entrees:p:proton|proton]], [[glossaire:entrees:s:solution_hydrogenee
|solution hydrogénée
]].

##</code><code>##

**Voir :** [[glossaire:entrees:p:proton|proton]], [[glossaire:entrees:s:solution_hydrogenee|solution hydrogénée]].

##</code><code>##

 1 #!/usr/bin/env perl
 2 
 3 use 5.36.1;
 4 use warnings;	 
 5 use strict;		 
 6 use utf8;
 7 use autodie;
 8 
 9 use warnings    qw< FATAL  utf8     >;
10 use open        qw< :std  :utf8     >;
11 use charnames   qw< :full >;
12 use feature     qw< unicode_strings >;
13 
14 binmode(STDIN, ":utf8");
15 binmode(STDOUT, ":utf8");
16 binmode(STDERR, ":utf8");
17 
18 use Text::Undiacritic qw(undiacritic);
19 
20 $^I = ".bak";
21 
22 while (<>){				
23 	
24 	my $voir = $_;		
25 	
26 	$voir =~	s/										
27 				(?:^\*\*Voir\s:\*\*						
28 				|										
29 				\G(?!^)									
30 				(?!\[))									
31 				\K										
32 				(\s?)									
33 				((\w[\/*]*)								
34 				(?:[^\.,;\n\r]\s?)+)					
35 				[\/*]*([\.,;])?[\/*]*					
36 				/
37 				"$1\[\[glossaire:entrees:"				
38 				.lc(undiacritic($3))					
39 				.":"									
40 				.lc(undiacritic($2 =~ tr[ \/*][_]dr))	
41 				."|"									
42 				.$2 =~ tr[\/*][]dr						
43 				."\]\]"									
44 				.(defined($4) ? $4 =~ tr[\/*][]dr : '.')
45 				/gemx;	
46 								
47 	print $voir;
48 }