---
title: "Skriva html kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/webbutveckling/119128-skriva-html-kod"
topic: "Webbutveckling"
topic_url: "https://www.webforum.nu/amne/webbutveckling"
author: "stattin"
published: "2005-01-02T16:24:48.000Z"
updated: "2005-01-03T07:39:25.000Z"
replies: 6
views: 664
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/webbutveckling/119128-skriva-html-kod"
---

# Skriva html kod

## #1 — stattin, 2005-01-02T16:24Z

Först vill jag säga hej till alla och att jag nu ställer min absolut första fråga i detta forum.

Fråga:

Kan man läsa in html kod på annat sätt än:

print "\<html\>\\n";
print "\<body\>\\n";

Så man slipper skriva rad för rad.

Ungefär så som nedan:

en början
     en massa html kod.....
ett slut

Kan ju också tillägga att jag är extremt nybörjare på perl.

/stattin

Permalänk: https://www.webforum.nu/p/119128

## #2 — Jojoxx, 2005-01-02T18:20Z

Välkommen till wF :)

Jodå, det finns ett par sett. Jag brukar använda [qq](http://www.perl.com/doc/manual/html/pod/perlfunc/qqSTRING.html). Så här;

```
print qq^<p>här kommer
<strong>html</strong> på
flera rader^;
```

Fördelen är att du kan byta ut "^" mot något annat tecken som du inte använder inne i själva stycket.

Permalänk: https://www.webforum.nu/p/1517480

## #3 — Peter_B, 2005-01-02T18:27Z

Du kan även ha flera rader i en vanlig printsats, typ:

print "Hej
Hopp
Kalle
Stropp!
";

Nackdelen är att specialtecken måste ha \\ framför sig, vilket kan ställa till det lite om man ska skriva tex "-tecken utan att vilja tänka för mycket. Detta ger även automatiskt \\n efter varje ord, rättare sagt, det betyder samma sak. Sen måste man inte byta rad i html, men det blir ju lite lättare att läsa om man kollar på källkoden i brownsern..

Du kan lösa \\-problemet genom att skriva:

print 'Hej
Hopp .... 
'; 

istället, men då får du inte värdet på variablerna insatta som du får med "-tecken.

Permalänk: https://www.webforum.nu/p/1517484

## #4 — stattin, 2005-01-02T18:41Z

Tackar!

Har en fråga till, vi kan nog ta det i samma tråd:

Detta script lär vara bekant:

```
$min_fil = "min_datafil.txt";
print "Content-type:text/html\n\n";
open(INDATA,"$min_fil") || &Fatal;
@rader = <INDATA>;
foreach $rad (@rader) 
{
	print $rad;	
}
close(INDATA);

sub Fatal 
{
	print "Kan inte öppna filen $min_fil för läsning."
}
```

Nu är problemet det att jag har försökt lagt in html kod  före "print $rad;" och html kod efter men lyckas inget vidare med det.

Filen jag läser in ska höra ihop med med koden ovanför och under.

Permalänk: https://www.webforum.nu/p/1517490

## #5 — Jojoxx, 2005-01-02T20:41Z

```
foreach $rad (@rader)
{
...
}
```

Definierar en loop, så vill du lägga till html-data före och efter som inte skall upprepas lika många gånger som antaler rader i filen måste du lägga till denna html-kod utanför loopen.

```
$min_fil = "min_datafil.txt";
print "Content-type:text/html\n\n";
open(INDATA,"$min_fil") || &Fatal;
@rader = <INDATA>;
print qq^... lite html...^;
foreach $rad (@rader) 
{
	print $rad;	
}
print qq^... mer html...^;
close(INDATA);

sub Fatal 
{
	print "Kan inte öppna filen $min_fil för läsning."
}
```

Permalänk: https://www.webforum.nu/p/1517555

## #6 — stattin, 2005-01-02T20:52Z

:D Tack igen!

Nu lär jag klara mig ett tag till.

Permalänk: https://www.webforum.nu/p/1517563

## #7 — Jojoxx, 2005-01-03T07:39Z

Tanken är att du skall acceptera det svar som gav lösningen på din fråga, inte ditt eget inlägg (för framtida läsare) :)

Permalänk: https://www.webforum.nu/p/1517734

---

Tråden på webben: https://www.webforum.nu/amne/webbutveckling/119128-skriva-html-kod