17
Як я можу прочитати весь файл у рядку в Perl?
Я намагаюся відкрити .html файл як одну велику довгу нитку. Ось що я маю: open(FILE, 'index.html') or die "Can't read file 'filename' [$!]\n"; $document = <FILE>; close (FILE); print $document; що призводить до: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN Однак я хочу, щоб результат виглядав так: <!DOCTYPE HTML PUBLIC …