version 1.2, 2001/10/31 03:07:18
|
version 1.3, 2010/04/24 18:04:14
|
Line 4
|
Line 4
|
########## стандартные заклинания, которые должны быть везде.### |
########## стандартные заклинания, которые должны быть везде.### |
################################################################ |
################################################################ |
|
|
|
use POSIX; |
|
use locale; |
$rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/; |
$rl=qr/[йцукенгшщзхъфывапролджэячсмитьбюё]/; |
$RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/; |
$RL=qr/[ЙЦУКЕНГШЩЗХЪЭЖДЛОРПАВЫФЯЧСМИТЬБЮЁ]/; |
$RLrl=qr/(?:(?:${rl})|(?:${RL}))+/; |
$RLrl=qr/(?:(?:${rl})|(?:${RL}))+/; |