Что значит мой вариант??? Я пока никаких вариантов, по поводу E-mail не выкладывал. Вот тебе тестовый код, с твоим регулярным выражением, никакой первый символ не проверяется:

Код

#!/usr/bin/perl -w use strict; my $email = '[email protected]'; if ( $email =~ /^[a-zA-Z_\.\-\d]+\@[a-zA-Z\.\-\d]+\.[a-zA-Z]{2,4}$/ ) {      print "ПРОШЛО"; } else {      print "НЕ ПРОШЛО"; }

Если ты мел вииду это: ^ , то здесь первым символом может быль любой из перечисленных в квадратных скобках, это может быть и точка и подчёркивание и т.д.

Вот так проверяю я E-mail, но задесь только регулярка, я же как правило таким выражением очищаю переменную, если это возможно, так как всегда использую -T.

Код

#!/usr/bin/perl -w use strict; my $email = '[email protected]'; if ( $email =~ /^(?:[A-Za-z0-9]+?(?:\.|-|_)?)*(?:[A-Za-z0-9]+)?\@(?:[A-Za-z0-9]+?\.)*?[A-Za-z0-9]{2,4}$/ ) {      print "ПРОШЛО"; } else {      print "НЕ ПРОШЛО"; }

Удачи.

ЗЫ: только не думай, что я хочу выделиться, просто регулярки очень обманчивы и в них легко ошибиться. Я например тоже очень часто допускаю ошибки в них. Это не для того, что бы показать, что я умнее или наоборот. Ты очень даже не плохо знаешь Perl, я это вижу, просто в данном случае ты ошибся. Вот и всё. Не принимай на свой счёт.

Это сообщение отредактировал(а) korob2001 - 9.7.2005, 13:46

korob2001

Цитата(korob2001 @ 9.7.2005, 13:35)

Что значит мой вариант???

Это значит

Цитата

[email protected] [email protected] ----------@------------ru

Цитата(korob2001 @ 9.7.2005, 13:35)

никакой первый символ не проверяется:

смотри на первой странице мой пост с проверкой и функцией

korob2001 прочти мой предыдущий пост на странице 2 про тестирование вариантов на mail.ru и протестируй на своем примере.

Цитата(korob2001 @ 9.7.2005, 13:35)

Не принимай на свой счёт.

блин, да все окей, даже проблем быть не может. respect.

Цитата

блин, да все окей, даже проблем быть не может. respect

Спасибо за понимание, просто многие так и считают, хотя я их и понимаю, тоже в своё время был таким.

Так, ок:

Код

if ( ($nick =~ /[^A-Za-z0-9_]/) && ($nick =~ /()+/) ){          print qq(             <td align="center" width=67%>             Go fuck your login!             </td>); } else {         print qq(             <td align="center" width=67%>             Login in normal! $length_nick             </td>); }

Это проверка работает, но, если написать так:

Код

if ( ($nick =~ /^[a-zA-Z0-9_]+$/) && ($nick =~ /()+/) ){          print qq(             <td align="center" width=67%>             Go fuck your login!             </td>); } else {         print qq(             <td align="center" width=67%>             Login in normal! $length_nick             </td>); }

То всё меняется местами (то есть значение True и False). Почему так???
------
И ещё один ламерский вопрос, мне надо, чтобы логин был не менее 3-х знаков, я пишу:

Код

my $length_nick = length($nick); my $length_pass = length($password); my $min_length = 3; if ( ($nick =~ /[^A-Za-z0-9_]/) && ($nick =~ /()+/) && ($length_nick < $min_length) ){          print qq(             <td align="center" width=67%>             Go fuck your login!             </td>); } else {         print qq(             <td align="center" width=67%>             Login in normal! $length_nick             </td>); }

Однако тогда проверка не пашет вообще... Видимо дело в моих кривых руках и операторе &&, который работает только при 2-ух условиях.. помогите, плиз, разобраться...
-------
И последний маленький вопросик, какую книгу или статью вы посоветуете, чтобы разобраться в тонкостях регулярных выражений, а то я их даже из книги "Изучаем PERL" понять не могу???

Цитата

$nick =~ /()+/

А это зачем?

Цитата

И ещё один ламерский вопрос, мне надо, чтобы логин был не менее 3-х знаков, я пишу:

Код

if ( ($nick =~ /[^A-Za-z0-9_]/) && ($nick =~ /()+/) && ($length_nick < $min_length) ){

Исправь:

Код

my $min_length = 3; my $max_length = 10; if ( $nick =~ /^[A-Za-z0-9_]{$min_length,$max_length}$/  ) {      print "Проходит"; } else {      print "Не проходит"; }

Если проверка максимального значения не нужна, тогда это выражение будет выглядеть так:

Код

my $min_length = 3; if ( $nick =~ /^[A-Za-z0-9_]{$min_length,}$/  ) {      print "Проходит"; } else {      print "Не проходит"; }

Цитата

И последний маленький вопросик, какую книгу или статью вы посоветуете, чтобы разобраться в тонкостях регулярных выражений, а то я их даже из книги "Изучаем PERL" понять не могу???

"Программирование на Perl", "Perl - библиотека программиста", "Perl - специальный справочник". Последнюю посмотри, я где-то выкладывал полную версию в электронном виде. Если не найдёшь, то дай знать, выложу ещё раз.

Удачи.

а как тогда проверить на содержание в ней только а-яА-Яa-zA-Z0-9_

подскажите

Цитата(sharq @ 9.7.2005, 14:44)

korob2001 Цитата(korob2001 @ 9.7.2005, ) Что значит мой вариант??? Это значит Цитата [email protected] [email protected] ----------@------------ru Цитата(korob2001 @ 9.7.2005, 13:35) никакой первый символ не проверяется: смотри на первой странице мой пост с проверкой и функцией korob2001 прочти мой предыдущий пост на странице 2 про тестирование вариантов на mail.ru и протестируй на своем примере. Цитата(korob2001 @ 9.7.2005, 13:35) Не принимай на свой счёт. блин, да все окей, даже проблем быть не может. respect.

читайте rfc-822

PS да и вообще врядли можно написать такое регулярное выражение для проверки валидности почтового адреса
PSS а если и можно то он будет очень и очень большой длины

Это сообщение отредактировал(а) chaos - 11.7.2005, 12:41

Burdin

Код

if ( $nick =~ /[а-яА-Яa-zA-Z0-9_]/){          print qq(             <td align="center" width=67%>             Go fuck your login!             </td>); } else {         print qq(             <td align="center" width=67%>             Login in normal! $length_nick             </td>); }

Таже тема, только в профиль.
Должно быть так, код не проверял у себя на сервере.

а количество символов?????

Цитата

читайте rfc-822 PS да и вообще врядли можно написать такое регулярное выражение для проверки валидности почтового адреса PSS а если и можно то он будет очень и очень большой длины

chaos - читали уже RFC, так что ты предлагаешь? Вообще не проверять поле E-mail? Лично я тем способом, как показал выше отфильтровую все более или менее реальные адреса, которые при желании можно получить на любом, бесплатном почтовом сервере. Затем отправляю письмо им на мыло с сылкой, для подтверждения регистрации.
Что касается таких товарищей, у которых адреса такого плана: mybox.mail, то таких кренделей очень мало и это их трудности.

Цитата

а количество символов?????

Burdin - смотри выше, я уже тебе привёл примеры того, как проверить кол-во символов прямо в регулярном выражении.

Цитата

а как тогда проверить на содержание в ней только а-яА-Яa-zA-Z0-9_ подскажите

Так же, но стоит подключить прагму locale и вполне возможно модуль POSIX

Это сообщение отредактировал(а) korob2001 - 12.7.2005, 09:26

SantaXP качай доку по регекспу здесь.


chaos

Цитата(chaos @ 11.7.2005, 12:39)

PS да и вообще врядли можно написать такое регулярное выражение для проверки валидности почтового адреса PSS а если и можно то он будет очень и очень большой длины

Вот вариант Т. Кристиансена, может слышал о таком .)

Код

#!/usr/bin/perl # # addrcheck - mail address checker # by [email protected] # Copyright 1997 Tom Christiansen # version 1.001 Fri Feb 14 15:20:02 MST 1997 #################################### # this program takes an email address as its argument # and decides whether you're being spoofed or not. # it exists 0 if it likes the address, and 1 if it doesn't. #  # can be tested interactively.  if not interactive, it will # use syslog. # # should be rewritten instead of just growing via hacks. #################################### $LOGGER   = '/usr/bin/logger';  # or /usr/ucb? $NSLOOKUP = '/usr/bin/nslookup';  # or /usr/ucb? $DEBUG = -t STDIN && -t STDOUT; $address = shift || die "usage: $0 address\n"; for ($address) {     s/^-+//;     tr/A-Z/a-z/; } ($user, $host) = split /\@/, $address; # we check in this order because of speed; # this way it will fail more quickly. check_passwd($user);    # picky if ($address =~ /\@./) {      check_host($host);     ck822($address);    # inscrutable     dns_check($host);    # slow } exit 0; ####################################   sub bad {     # GLOBAL $hispass and $what     if ($DEBUG) {     print "$what `$hispass' is bad: @_\n";     } else {     system $LOGGER,             "-p", "daemon.notice",              "-t", "ftpucheck",         "BOGUS \U$what\E $hispass (@_)";     }      exit 1; }  #################################### ############# sub check_passwd {       local $what = 'user';     local $hispass = shift;     for (@rude) {     bad("rude") if index($hispass, lc $_) != -1;     }      for (@anywhere) {     bad("inside") if index($hispass, lc $_) != -1;     }      for (@full) {     bad("full") if $hispass eq lc $_;     }      for (@start) {     bad("start") if index($hispass, lc $_) == 0;     }      # single char     bad("single") if length($hispass) == 1;     study $hispass;     bad("dup letters") if $hispass =~ /(\w)\1{3,}/;     bad("white") if $hispass =~ /\s/;     bad("junk") if $hispass =~ /[;,\/#^*]/;     $V = 'aeiouy';     if ($hispass =~ /netscape/ || $hispass =~ /^m[$V]*[sz]+[$V]*l+[$V]*\W*$/) {     bad("mozilla");     }      if ($hispass =~ /xyz+y/) {     bad("xyzzy");     }      # all same letter     bad("dup letters") if $hispass =~ /^(.)\1+$/;     # want letters     bad("ugly") unless $hispass =~ /[a-z]/;     bad("backspace") if $hispass =~ /[\010\177]/;     $letters = "qwertyuiopasdfghjklzxcvbnmmnbvcxzlkjhgfrdsapoiuytrewq";     # consecutive     bad("consecutive") if          length($hispass) > 2 &&         ( index($letters, $hispass) != -1             ||           ($hispass =~ /^(\w+)\1$/ && length($1) > 2             && index($letters, $1) != -1)         );     print "$what: $hispass is good\n" if $DEBUG; } ############# sub check_host {     local $what = 'host';     local $hispass = shift;     bad("dotless") unless index($hispass, '.') >= 0;     for (@rude) {     bad("rude") if index($hispass, lc $_) != -1;     }      for (@full) {     bad("full") if $hispass eq lc $_;     }      # single char     bad("single") if length($hispass) == 1;     study $hispass;     bad("white") if $hispass =~ /\s/;     bad("junk") if $hispass =~ /[;,\/#^*]/;     # want letters, darnit;  this will cause 127.1 to fail though     bad("ugly") unless $hispass =~ /[a-z]/;     bad("backspace") if $hispass =~ /[\010\177]/;     $letters = "qwertyuiopasdfghjklzxcvbnmmnbvcxzlkjhgfrdsapoiuytrewq";     # consecutive     bad("consecutive") if          length($hispass) > 2 &&         ( index($letters, $hispass) != -1             ||           ($hispass =~ /^(\w+)\1$/ && length($1) > 2             && index($letters, $1) != -1)         );     print "$what: $hispass is good\n" if $DEBUG; } sub dns_check {     # first try an MX record, then an A rec (for badly configged hosts)     my $host = shift;     local $/ = undef;     local $what = "DNS record";     local $hispass = $host;     # the following is comment out for security reasons:     #    if ( `nslookup -query=mx $host` =~ /mail exchanger/     # otherwise there could be naughty bits in $host     # we'll bypass system() and get right at execvp()     if (open(NS, "-|")) {     if (<NS> =~ /mail exchanger/) {         print "$what MX: $hispass is good\n" if $DEBUG;         close NS;         return;     }     } else {     open(SE, ">&STDERR");     open(STDERR, ">/dev/null");     exec $NSLOOKUP, '-query=mx', $host;     open(STDERR, ">&SE");     die "can't exec nslookup: $!";     }      if (open(NS, "-|")) {     $_ = <NS>;     if (/answer:.*Address/s) {         print "$what A: $hispass is good\n" if $DEBUG;         close NS;         return;     }     if (/Name:.*$host.*Address:/si) {         print "$what A: $hispass is good\n" if $DEBUG;         close NS;         return;     }     } else {     open(SE, ">&STDERR");     open(STDERR, ">/dev/null");     exec $NSLOOKUP, '-query=a', $host;     open(STDERR, ">&SE");     die "can't exec nslookup: $!";     }      bad("No DNS"); }  sub ck822 {      # ck822 -- check whether address is valid rfc 822 address     # [email protected]     #     # pattern developed in program by jfriedl;      # see "Mastering Regular Expressions" from ORA for details     # this will error on something like "ftp.perl.com." because     # even though dns wants it, rfc822 hates it.  shucks.     local $what = 'address';     local $hispass = shift;     local $_;     $is_a_valid_rfc_822_addr = '';     while (<DATA>) {     chomp;     $is_a_valid_rfc_822_addr .= $_;     }      bad("rfc822 failure") unless $hispass =~ /^${is_a_valid_rfc_822_addr}$/o;     print "$what: $hispass is good\n" if $DEBUG; } ############################## # initializations ############################## BEGIN {     @full = qw{     admin     anon     anonymous     bar     big-liar     bin     bizarre     bla     blah     bogus     cache     collect     compuserve     cool     crud     DeleGateMaster     devnull     dialup     dork     dummy     employee     first1     foo     friendly     ftpsearch-collect     fu     god     guest     gunk     gw     harvest     here     hi     ident     ident     ie30user     info     internet     junk     liar     login     lycos     maxima     me     mirror     mosaic     nobody     none     none-known     nouser     ntcon     ok     outbound     postmaster     president     public     Put_Your_Email_Address     report_abuse     root     satan     socks     spanky     src     sticky     system     there     Unknown_Netscape_User     Unregistered     unverified     user     UserName     vice-president     vividnet     whoever     wow     xyz     xyz     };     @start = qw{     aaa     abc     account     anon     anon     asquid     daemon      delegate     ftp     gopher     gotch     oracle     otthttp     pass     satan     squid     student     test     web     xx     };     @anywhere = qw{     adresse     asdf     asfd     cache     firewall     -gw     http     mail     mirror     mother     name     nobody     proxy     sadf     system     user     www     };      @rude = qw{     asshole     crap     cunt     damn     fuck     piss     shit     suck     tits     upyour     }; } # don't touch this stuff down here or you'll break the rfc822 matcher. __END__ (?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n \015()]|\\[^\x80-\xff])*\))*\))*(?:(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\ xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"(?:[^\\\x80-\xff\n\015" ]|\\[^\x80-\xff])*")(?:(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xf f]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*\.(?:[\040\t]|\((?:[ ^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\ xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,; :".\\\[\]\000-\037\x80-\xff])|"(?:[^\\\x80-\xff\n\015"]|\\[^\x80-\xff])*")) *(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\ n\015()]|\\[^\x80-\xff])*\))*\))*@(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\ \[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\04 0)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80- \xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\])(?:(?:[\040\t]|\((? :[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80 -\xff])*\))*\))*\.(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\( (?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\] \000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\ \x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\]))*|(?:[^(\040)<>@,;:".\\\[\]\000-\0 37\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"(?:[^\\\x80-\xf f\n\015"]|\\[^\x80-\xff])*")(?:[^()<>@,;:".\\\[\]\x80-\xff\000-\010\012-\03 7]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\ \[^\x80-\xff])*\))*\)|"(?:[^\\\x80-\xff\n\015"]|\\[^\x80-\xff])*")*<(?:[\04 0\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()] |\\[^\x80-\xff])*\))*\))*(?:@(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x 80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@ ,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff] )|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\])(?:(?:[\040\t]|\((?:[^\\ \x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff ])*\))*\))*\.(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^ \\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\000- \037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80- \xff\n\015\[\]]|\\[^\x80-\xff])*\]))*(?:(?:[\040\t]|\((?:[^\\\x80-\xff\n\01 5()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*,(? :[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\0 15()]|\\[^\x80-\xff])*\))*\))*@(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^ \x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)< >@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xf f])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff])*\])(?:(?:[\040\t]|\((?:[^ \\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\x ff])*\))*\))*\.(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?: [^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\00 0-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x8 0-\xff\n\015\[\]]|\\[^\x80-\xff])*\]))*)*:(?:[\040\t]|\((?:[^\\\x80-\xff\n\ 015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*) ?(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000 -\037\x80-\xff])|"(?:[^\\\x80-\xff\n\015"]|\\[^\x80-\xff])*")(?:(?:[\040\t] |\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[ ^\x80-\xff])*\))*\))*\.(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xf f]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\ \\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|"(?: [^\\\x80-\xff\n\015"]|\\[^\x80-\xff])*"))*(?:[\040\t]|\((?:[^\\\x80-\xff\n\ 015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*@ (?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n \015()]|\\[^\x80-\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff ]+(?![^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\ ]]|\\[^\x80-\xff])*\])(?:(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\ xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*\.(?:[\040\t]|\((? :[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80 -\xff])*\))*\))*(?:[^(\040)<>@,;:".\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@ ,;:".\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\x80-\xff\n\015\[\]]|\\[^\x80-\xff ])*\]))*(?:[\040\t]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff]|\((?:[^\\\x8 0-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*>)(?:[\040\t]|\((?:[^\\\x80-\xff\n\ 015()]|\\[^\x80-\xff]|\((?:[^\\\x80-\xff\n\015()]|\\[^\x80-\xff])*\))*\))*

korob2001

Цитата(korob2001 @ 12.7.2005, 09:23)

Цитата а как тогда проверить на содержание в ней только а-яА-Яa-zA-Z0-9_ подскажите Так же, но стоит подключить прагму locale и вполне возможно модуль POSIX

у меня без прагмы locale работает, но попробовать стоит.

Цитата

у меня без прагмы locale работает, но попробовать стоит.

sharq - у меня работает только с use locale, а некоторым и она не помогает и нужно напрямую подключать POSIX. Эта тема уже была здесь, только я не помню как называется.
Вобщем я пишу всегда просто:

Код

#!/usr/bin/perl use locale;

Тут и начался спор, что нужно подключать ещё и POSIX, т.е. так:

Код

#!/usr/bin/perl use POSIX qw (locale_h); setlocale(LC_CTYPE, 'ru_RU.CP1251'); setlocale(LC_ALL, "ru_RU.CP1251"); use locale;

Может для надёжности лучше так и делать, хотя по идее locale делает это, она для того и предназначена.

2sharq
Спасибо, скачал, буду изучать!
----
2korob2001
Можно чуть-чуть поподробней о locale? Что это за зверь, что он делает и с чем едят?

SantaXP - эта прагма заставляет компилятор включить национальные установки из POSIX. Необходимо это в том случае, если тебе к примеру нужно перевести регистр или осуществить поиск с учётом языковой среды.

Вот тебе простой пример:

Код

#!/usr/bin/perl use strict; # use locale; my $name = "вАсЯ"; # Пытаемся опустить регистр всех символов и поднять только первый $name = ucfirst( lc( $name ) ); print $name;

Попробуй запустить.
Скорее всего, после запуска этого кода, ничего так и не произойдёт, строка так и останется такой же "вАсЯ". А теперь попробуй раскоментировать use locale и запусти пример снова. Результат должен быть таким "Вася".

Эта прагма является с лексической областью видимости, а так же есть способ отключить её, no locale. Вот написал пример, который полностью всё это демострирует, подробности читай в коментариях:

Код

#!/usr/bin/perl use strict; my $name = "вАсЯ"; my $surname = "пУпКин"; # Посмотрим, действительно ли она с лексической областью видимости sub propString {     my $string = shift;     use locale;     $string = ucfirst( lc( $string ) );     return $string; } # Следующая подпрограмма принимает 2 аргумента ( имя, фамилия ), она # покажет нам явно, что no locale действительно отключает прагму. sub propFullName {         # Принимаем параметры         my( $name, $lastname ) = @_;         # Подключаем прагму locale         use locale;         # Пытаемся преобразовать имя         $name = ucfirst( lc( $name ) );         # Отключам прагму locale         no locale;         # Пытаемся преобразовать фамилию         $lastname = ucfirst( lc( $lastname ) );         # Возвращаем оба параметра, если их желают получить как список,         # в противном случае объединим их в строку и вернём скаляр         return wantarray ? ($name, $lastname) : join(" ", $name, $lastname); } ###################### Попытка 1 ############################################### # Пытаемся поднять регистр первого символа, остальные опускаем вниз ( не верно ) print "Пытаемся обработать строку глобально\n"; $name = ucfirst( lc( $name ) ); # Пытаемся сделать тоже самое и с фамилией ( не верно ) $surname = ucfirst( lc( $surname ) ); print "$name $surname\n\n"; ###################### Попытка 2 ############################################### # Теперь попробуем сделать это с помощью нашей подпрограммы print "Пытаемся обработать строку через подпрограмму propString(\$)\n"; $name = propString( $name ); $surname = propString( $surname ); print "$name $surname\n\n"; # Приведём строки к первоначальному виду $name = "вАсЯ"; $surname = "пУпКин"; ###################### Попытка 3 ############################################### # Теперь попробуем сделать это с помощью подпрограммы propFullName($$) print "Пытаемся обработать строки через подпрограмму propFullName(\$\$)\n"; my $fullname = propFullName( $name, $surname ); print $fullname, "\n";

После первой попытки должен быть такой результат:

Цитата

Пытаемся обработать строку глобально вАсЯ пУпКин

После второй попытки:

Цитата

Пытаемся обработать строку через подпрограмму propString($) Вася Пупкин

После третьей попытки:

Цитата

Пытаемся обработать строки через подпрограмму propFullName($$) Вася пУпКин

Думаю подробно описал. Если, что-то не поймёшь, пиши.

Это сообщение отредактировал(а) korob2001 - 24.8.2005, 06:20