|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Pavel Ammosov 2:5020/400 11 Nov 2001 15:50:44 To : Ilya Pogrebenko Subject : Re: вопросы -------------------------------------------------------------------------------- Ilya Pogrebenko wrote: IP>Как логичнее копировать файл: read/print или запускать 'cp'? use File::Copy; copy("file1","file2"); IP>Можно ли читать из файла по строчке, а не n-ое кол-во символов? <FILEHANDLE> IP>Если нет, то как можно определить конец строки? IP>Если делать вот так --+ то '\n' за конец почему-то не считается. '' тоже. в perl для сравнивания строк используется операции eq, ne, gt,lt вместо ==, !=, >, < соответсвенно. IP> | IP> V IP>=== IP>if (!open(PF,$pf_)) { print "Вот ФАК\n" ; exit (1) } IP>for (;!eof PF;) IP> { read PF, $c, 1; IP> if (!($c="\n")) {$f1=$f1.$c}; }; IP>close PF; open PF, $pf_ or die "Вот ФАК: $!"; while ($f1 = <PF>) { ... } close PF; Разживись где-нибудь lama book - очень хороший учебник по perl http://www.simtel.ru/~cheat/lern/perl/2/ Лучше, конечно, бумажную. -- Павел Аммосов, email: apavel@aha.ru, icq uin: 19210183 www: http://isabase.philol.msu.ru/~apavel/ --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6577f1259519.html, оценка из 5, голосов 10
|