17
Perl'de bir dosyanın tamamını bir dizeye nasıl okuyabilirim?
Bir .html dosyasını büyük, uzun bir dize olarak açmaya çalışıyorum. Elimde olan bu: open(FILE, 'index.html') or die "Can't read file 'filename' [$!]\n"; $document = <FILE>; close (FILE); print $document; sonuç: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN Ancak sonucun şöyle görünmesini istiyorum: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> …