Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Как в Perl причитать один символ?

Автор: Blacq 3.7.2009, 13:43

Как в Perl прочитать один символ из FILEHANDLE'а под виндой, а лучше системнонезависимо?
Гугл на эту тему выдает кучу результатов, про Posix-системы или чтение терминала, а не файла, а это не то, что я ищу.
Я собираюсь читать не файл, а пайп, и ждать конца строки никак нельзя, так что читать строку и выделять символ - не вариант.

Автор: KSURi 3.7.2009, 14:21

perldoc -f sysread, если хотите читать по байтам, и perldoc -f read, если хотите читать посивмольно

Автор: amg 3.7.2009, 14:32

Код

while (read FILEHANDLE,$char,1) {
  print chop $char;
}

Автор: Blacq 3.7.2009, 14:33

Спасибо

Автор: sir_nuf_nuf 3.7.2009, 23:56

Ну и как всегда немного перлизма

Код


$/ = \1;
my $char = <SOMETHING>;