Perl/\347\222\260\345\242\203\345\244\211\346\225\260.md
... ...
@@ -48,9 +48,9 @@ foreach my $key ( sort( keys(%ENV) ) ) {
48 48
)
49 49
{
50 50
my $value = $ENV{$key};
51
- $key =~ s/(_)/​\1/g; # insert 'zero width space' for line break
52
- $value =~ s/(;|\/)/\1<wbr>/g;
53
- $value =~ s/(\?|&|#)/<wbr>\1/g;
51
+ $key =~ s/(_)/&#x200b;$1/g; # insert 'zero width space' for line break
52
+ $value =~ s/(;|\/)/$1<wbr>/g;
53
+ $value =~ s/(\?|&|#)/<wbr>$1/g;
54 54
$value =~ s/<wbr>/&#x200b;/g;
55 55
print $q->Tr( $q->td( [ $key, $value ] ) );
56 56
}