|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Michael Spector 2:5020/400 11 Jun 2003 20:34:51 To : Michael Spector Subject : template -------------------------------------------------------------------------------- Wed Jun 11 2003 19:52, Michael Spector wrote to Renat Araslanow: MS> From: "Michael Spector" <spektom@macs.biu.ac.il> MS> Wed Apr 30 2003 23:08, Renat Araslanow wrote to Gennadij Pastuhov: RA>> Бочку пива|колы тебе Gennadij ! RA>> Однажды 29 Apr 03 14:18, Gennadij Pastuhov писал Renat Araslanow: GP>>>>> open(FILE, "<file"); RA>>>> my $text; RA>>>> { RA>>>> undef $/; RA>>>> $text = <FILE>; RA>>>> } GP>>> За это спасибо. RA>> я опечатался local undef $/; MS> #!/usr/bin/perl -w MS> open(FILE, "/etc/passwd"); MS> my $text1; MS> { MS> local undef $/; MS> $text1 = <FILE>; MS> } MS> seek(FILE, 0, SEEK_SET); MS> my $text2 = <FILE>; MS> close(FILE); MS> print "Text1:\n$text1\n\nText2:\n$text2\n"; MS> А у меня в обоих текстах выдаёт по целому файлу ... MS> Получается, что local не помогает, а надо потом возвращать $/ = "\n" ? Вопрос сам собой разрешился ... надо было: local $/= undef; With best regards, Michael Spector --- ifmail v.2.15dev5 * Origin: FidoNet Online - http://www.fido-online.com (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/166795b410245.html, оценка из 5, голосов 10
|