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 "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> ด้วยวิธีนี้ฉันสามารถค้นหาทั้งเอกสารได้ง่ายขึ้น