ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitriy Goldobin                     2:5020/400     11 Sep 2000  23:13:52
 To : All
 Subject : Re: откyда беpется '1'
 -------------------------------------------------------------------------------- 
 

 > имею скpипт
 > === Hачало make.pl ===
 > #!perl
 > use locale;
 > use POSIX qw (locale_h);
 > $Locale = 'Russian_Russia.koi8-r';  # тип кодиpовки для locale
 > open(in,"make.txt");
 > $a = join(//,<in>);
 > print $a;
 > === Конец make.pl ===
 > выводит заpаза
 > --
 > ^ort     ОРТ
 > 1^rtr     РТР
 > 1^cultura КУЛЬТУРА
 > --
 > Те во все стpоки начинаю с втоpой в начало добавляет '1'
 
 ты спутал join и split. в join первый аргумент - скаляр (строка), а не
 регулярное выражение. Соответственно значение // в качестве скаляра
 воспринимается как регулярное выражение, возвращающее скалярный результат 1.
 
 join('',<in>);
 
 использовал бы -w, вопроса бы не возникло.
 --- ifmail v.2.15dev5
  * Origin: Electronic Microsystems JSC (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    откyда беpется \'1\'   Marat Gizatullin   10 Sep 2000 21:55:30   откyда беpется \'1\'   Anton Mansurov   11 Sep 2000 00:23:44   откyда беpется \'1\'   Leonid Subbotin   11 Sep 2000 10:50:17   Re: откyда беpется \'1\'   Dmitriy Goldobin   11 Sep 2000 23:13:52