1
 Abra un documento Perl existente o crear uno nuevo 
 2 
 Crear una expresión regular para detectar los caracteres chinos : . 
 
 ( \\ P Han { } + ) 
 
 detectará uno o más caracteres chinos en un documento en contra de todo el conjunto de caracteres chinos . 
 3 
 Comparar la línea que usted ha almacenado en la variable de la expresión: 
 
 if ( $ line = ~ m /( \\ p { } Han +) /) {print " caracteres chinos detectaron \\ n . ";} 
 
 compara la línea con la expresión regular y, si se encuentra una coincidencia , el mensaje " caracteres chinos detectado" se imprimirá en la pantalla. 
 
 
          
