Skriva till fil — webForum

Erik JuhlinMedlem sedan maj 200010 687 inlägg

Frågan19 aug. 2000 15:27#1

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 >

------------------
/Erik
www.juhlin.nu /sk8files/ /mp1d/

[Redigerat av Erik Juhlin den 19 aug 2000]

MuzzafarathMedlem sedan apr. 20002 487 inlägg

19 aug. 2000 16:20#2

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]