---
title: "Skriva till fil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/19140-skriva-till-fil"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Erik Juhlin"
published: "2000-08-19T15:27:00.000Z"
updated: "2000-08-19T16:20:00.000Z"
replies: 1
views: 368
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/perl-ruby/19140-skriva-till-fil"
---

# Skriva till fil

## #1 — Erik Juhlin, 2000-08-19T15:27Z

Jag skulle vilja ha ett Perl script som när det anropas:
Skriver allt som står i textarean "text" till filen text.inc och sen skickar vidare den som har skrivit det till default.asp.
Men den ska också ersätta \< med \<, \> med \> och radbrytningar med \<br\>.

Någon som kan hjälpa mig med ett sånt script?

Redigering: Blev lite underligt med tecknen för \< och \>

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

## #2 — Muzzafarath, 2000-08-19T16:20Z

```
use CGI;

my $query = new CGI;

print $query->header;

my $text = $query->param('text');

# Ersätt < och > tecknen.

$text =~ s/</& lt\;/;
$text =~ s/>/& gt\;/;

# Ersätt radbrytningar med <br>

$text =~ s/\n/<br>/;

# Öppna text.inc eller dö.

open(FILE, 'text.inc') or die("Couldn't open text.inc");

# Skriv $text till text.inc.

print FILE $text;

close(FILE);
```

Vad menar du med att den skall skicka vidare det den har skrivit till default.asp? Skall browsern "redirectas" till default.asp med "text" som argument eller?

Kolla in raderna:

$text =\~ s/\</& lt\\;/;
$text =\~ s/\>/& gt\\;/;

Det är ett mellanrum mellan & och lt/gt. Mellanrummet måste du ta bort själv.

\[Redigerat av Muzzafarath den 19 aug 2000\]

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

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/19140-skriva-till-fil