Подскажите, какой функцией перевести строку в нижний регистр?

perldoc -f lc

для кирилици наверняка потребуется еще и use locale

можно и так
tr /A-Z/a-z/

есть переменная $var1
там большие буквы. Надо сделать маленькими.
Как?
tr? куда tr? tr($var1)???

Цитата(Sadok @ 21.9.2005, 09:59)

perldoc -f lc для кирилици наверняка потребуется еще и use locale

Цитата(californie @ 21.9.2005, 09:40)

есть переменная $var1 там большие буквы. Надо сделать маленькими. Как? tr? куда tr? tr($var1)???

Код

$var1 =~ tr/A-Z/a-z/;

Это сообщение отредактировал(а) chaos - 21.9.2005, 10:59

$var1 =~ tr/A-Z/a-z/;
НЕ работает!

Цитата(californie @ 21.9.2005, 11:33)

$var1 =~ tr/A-Z/a-z/; НЕ работает!

что не работает ???

вот тебе наглядный пример

Код

#!/usr/bin/perl -w use strict; my $var1 = "ABCDEFGHIJKLMNOP"; my $var2 = "abcdefghijklmnop"; $var1 =~ tr/A-Z/a-z/; $var1 ne $var2 ? print "ERROR!!!!!\n" : print "$var1\n";

PS не говори только что в этом примере тоже ченить не работает!!!

Это сообщение отредактировал(а) chaos - 21.9.2005, 14:27

chaos
могу спорить, там не латиница

у меня латиница.
$var1=...
потом делаю так:
$var1 =~ tr/A-Z/a-z/;
потом:
print "$var1";
и ...ничего не работает! буквы как были большие так и остались

вот код из тестовой попытки:

<html>
<form method=post action="cgi-bin/test_hid.cgi">
<input type=text value="TEST1" name=text>
<input type=hidden value="test2" name=hid>
<input type=submit>
</form>
</html>

#! /usr/local/bin/perl
print "Content-Type: text/html\n\n";
use CGI qw(param header);
$var1=param('text');
$var2 =param('hid');
print "VAR1: $var1";
print "<p>";
print "VAR2: $var2";


ПЕЧАТАЕТ БОЛЬШИМИ БУКВАМИ!!!!

Млин, ребята вы что делаете?? Не меняйте регистр транслитерацией, это не рекомедуется делать вообще, в каждом учебнике написано, этим пользовались только в первых версиях Perl, так как других средств тогда не было. Попробуй запусти такой код:

Код

#!/usr/bin/perl -w use strict; my $str = "tHiS IS A pErl prOGraMm"; # Переводим всю строку в верхний регистр $str = uc( $str ); print $str, "\n"; # Опускаем в нижний регистр первый символ предложения $str = lcfirst( $str ); print $str, "\n"; # Переводим всю строку в нижний регистр $str = lc( $str ); print $str, "\n"; # Поднимаем в верхний регист первый символ предложения $str = ucfirst( $str ); print $str, "\n"; # Напишем каждое слово с большой буквы $str =~ s/(\w+)/ucfirst( lc( $1 ) )/eg; print $str, "\n"; ######################################################### # Теперь воспользуемся escape-последовательностями      # ######################################################### print "\n\nEscape\n\n"; # Поднимаем регистр всей строки escape-последовательностями print "\UtHiS IS A pErl prOGraMm\n"; # Опустим всю строку в нижний регистр, а первый символ # переведём в верхний регистр print "\u\LtHiS IS A pErl prOGraMm\n"; # Теперь сделаем тоже самое, толко наоборот, всю строку # в верхний регистр, а первый символ в нижний print "\l\UtHiS IS A pErl prOGraMm\n"; # Переведём всю строку в нижний регистр, а первые два слова # в верхний. print "\UtHiS IS\E\L A pErl prOGraMm\n";

Не вопрос, а вот как то же самое но с кириллицей?

В начало кода добавь такую строку:

Код

use locale;

Если не поможет, тогда добавь ещё парочку строк, так же в начало:

Код

use POSIX qw(locale_h); setlocale(LC_CTYPE, "Russian_Russia.1251");

korob2001, я случайно наткнулся на это

Цитата

Не меняйте регистр транслитерацией, это не рекомедуется делать вообще...

Можешь пояснить?