Aprire un documento Perl esistente o crearne uno nuovo 
 2 
 Creare una espressione regolare per rilevare i caratteri cinesi : . 
 
( \\ P Han { } + ) per
 rileverà uno o più caratteri cinesi in un documento contro l'intero set di caratteri cinesi . 
 3 
 Confronta la linea che avete memorizzato in la variabile all'espressione : 
 
 if ( $ linea = ~ m /( \\ p { } Han + ) /) {print " caratteri cinesi rilevati . \\ n ";} 
 
 confronta la linea contro l'espressione regolare e se viene trovata una corrispondenza , il messaggio " caratteri cinesi rilevato " viene stampato sullo schermo . 
 
              
Programmazione © www.354353.com