- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
sub makeCleanString {
my ($self, $uncleanString) = @_;
$uncleanString = lc($uncleanString);
my @allowedChars = ("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "@", ".", " ");
my $cleanString = "";
# SPLIT THE uncleanString INTO AN ARRAY
my @usernameAR = split(//, $uncleanString);
my $usernameARcount = @usernameAR;
my $run=0;
for ($run=0;$run<$usernameARcount;$run++) {
if(grep $_ eq $usernameAR[$run], @allowedChars) {
$cleanString .= $usernameAR[$run];
}
}
return $cleanString;
}
Мистер Хэнки 09.09.2012 11:58 # +5
MAKAKA 28.08.2020 02:02 # 0
Это вся Чеховская Кибальчеховская знает.
XYPO3BO3 28.08.2020 05:25 # 0
MAKAKA 28.08.2020 15:28 # 0
bormand 28.08.2020 15:31 # 0
bormand 28.08.2020 15:42 # 0
MAKAKA 28.08.2020 15:46 # 0
В перле есть охуительные штуки для ругляркок, например \p{IsCyrillic} ;)
XYPO3BO3 28.08.2020 22:13 # 0
bormand 29.08.2020 10:53 # 0
XYPO3BO3 29.08.2020 12:13 # 0
Зачем в «PHP» оставили возможность работы с однобайтовыми символами, я не знаю. Может быть, есть реальные примеры, где нужно жёстко экономить память?
guest8 29.08.2020 15:50 # −999
Pyatachok 29.08.2020 16:00 # 0
Lure Of Chaos 09.09.2012 14:53 # +1
на люстре
Pyatachok 29.08.2020 16:02 # 0