ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  07 Sep 2000  14:47:12
 To : Ilgiz Kalmetev
 Subject : Re: eval "tr..." не работает
 -------------------------------------------------------------------------------- 
 

 <Ilgiz_Kalmetev@p6.f36.n5011.z2.fidonet.org> wrote:
 
 IK> Hi, all!
 
 IK> All, объясни мне, пожалуйста, почему программа:
 IK> === cut ===
 IK> #!/usr/bin/perl -w
 IK> # Хочется перевести заглавные буквы в строчный регистр (для koi8-r)
 
 IK> use strict;
 IK> use integer;
 
 IK> # $s - это 66 букв - 33 строчных и 33 заглавных - в кодировке koi8-r
 IK> my
 IK> $s="\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322
 IK> \323\324\325\306\310\303\336\333\335\337\331\330\334\300\321\341\342\367\347
 IK> \344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350
 IK> \343\376\373\375\377\371\370\374\340\361"; my $lc=substr( $s, 0,
 IK> length($s)/2 ); my $uc=substr( $s, length($s)/2, length($s)/2 ); my $text = 
 IK> "ЙЦУКЕHГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ"; print STDERR "start uc to lc\n"; eval
 IK> "$text =~ tr/$uc/$lc/"; die $@ if $@;  print STDERR "stop uc to lc\n"; print
 IK> $text,"\n"; === cut === вылетает по die с сообщением:    Unrecognized
 IK> character \352 at (eval 1) line 1. на первой же заглавной букве? 
 
 IK> Hе могу понять, где грабли.
 
 $text у тебя тоже раскрывается до выполнения eval.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор