0 Пользователей и 1 Гость просматривают эту тему.
[^0-9-]
я писал так[^0-9,-]
#!/usr/bin/perl$str = "0123456789-";print $str =~ m/[^0-9-]/;
может так:m/[^0-9-\\,]/;