Läsa in fil och ersätta prylar

21 svar · 469 visningar · startad av Erik Juhlin 9 feb. 2001

Erik JuhlinMedlem sedan maj 200010 687 inlägg

Frågan9 feb. 2001 07:39#1

Jojoxx hjälpte mig med den här koden.

#!/usr/bin/perl

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$form{$name} = $value;
}
# Ersätta tecken
$form{'mintext'} =~ s/</</g;
$form{'mintext'} =~ s/>/>/g;
$form{'mintext'} =~ s/\n/<br>/g;
# Skriv till fil
open(OUTDATA,">/clients/juhlin.nu/wwwroot/mp2d/flotmunk/text.inc");
print OUTDATA $form{'mintext'};
close(OUTDATA);
# Redirect
print "Location: default.asp\n\n";

Den ersätter som ni ser alla < och > med specialtecken och radbrytningar med <br>. Det används här: http://www.juhlin.nu/mp2d/default.asp?url=flotmunk

Nu vill jag skriva:

<textarea><!--#include virtual="/mp2d/flotmunk/text.inc"--></textarea>

Men då finns ju <br> och specialtecken med.

Det jag vill göra är alltså inkludera en Perl fil som läser in filen text.inc och sen ersätter <br> med radbrytning och specialtecken med < och >.
Sen skulle det även vara bra att veta hur man skrev SSI snutten eftersom att jag inte är så bra på det.

Någon som kan hjälpa mig? Borde inte vara så krångligt..? :)

Redigering: wF ändrade på koden lite.. :)

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

[Redigerat av Erik Juhlin den 09 feb 2001]

FlashXMedlem sedan nov. 19991 033 inlägg

9 feb. 2001 08:21#2

Du kan vända på koden som omvandlade dessa första gången till

$variabel=~ s/&amplt;/</g;
$variabel =~ s/&ampgt;/>/g;

För att redigera texten så öppnar du filen och infogar texten i textfältet.
Exempel:

$filen = "/clients/juhlin.nu/wwwroot/mp2d/flotmunk/text.inc";
open(INDATA,">$filen") or die "Kan inte hitta $filen: $!\n";
@file = <INDATA>;
close(INDATA);
$file =~ s/&amplt;/</g;
$file =~ s/&ampgt;/>/g;
$file =~ s/<br>/\n/g;

Texten infogas i detta fallet m.h.a.

<textarea>$file</textarea>

[Redigerat av FlashX den 09 feb 2001]

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 12:02#3

Okej, men det är på en .shtml sida jag ska infoga det. Hur skriver jag då? :)

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

FlashXMedlem sedan nov. 19991 033 inlägg

9 feb. 2001 13:20#4

Förstår inte riktigt hur du menar men
du får välja mellan SSI eller CGI.

FlashXMedlem sedan nov. 19991 033 inlägg

9 feb. 2001 13:27#5

Gäller det att bara inkludera själva filen text.inc i textfäletet så är det bara att ange

<textarea><!--#include virtual="text.inc"--></textarea>

men då har du ingen möjlighet att ändra i texten som beskrevs ovanför.
(möjligen med JavaScript kanske)

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 13:30#6

Jag vill använda mig av SSI som jag skrev tidigare. Men jag vill "inkludera" Perl filen.
Tror det är så här:

<!--#exec cgi="/mp2d/flotmunk/fil.pl"-->

Stämmer det? Och hur skriver man i Perl filen? Bara att kopiera det du skrev i första inlägget?

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

[Redigerat av Erik Juhlin den 09 feb 2001]

stevenetMedlem sedan juni 20001 251 inlägg

9 feb. 2001 13:48#7

Stämmer. Du behöver inte redigera Perl-koden.

------------------
SteveNet - stevenet@webmarkit.net
Cogito ergo doleo.

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 13:49#8

Hmmm, får det inte att funka alls. Jag skriver så här, men då står det bara "<textarea></textarea>" i koden..

#!/usr/bin/perl
$filen = "/clients/juhlin.nu/wwwroot/mp2d/flotmunk/text.inc";
open(INDATA,">$filen") or die "Kan inte hitta $filen: $!\n";
@file = <INDATA>;
close(INDATA);
$file =~ s/</</g;
$file =~ s/>/>/g;
$file =~ s/<br>/\n/g;
print "Content-type:text/html\n\n";
print "<textarea>$file</textarea>";

Var är felet? Det verkar som om varje gång jag kör det så töms text.inc

Redigering: Varje gång jag kör .pl filen..

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

[Redigerat av Erik Juhlin den 09 feb 2001]

FlashXMedlem sedan nov. 19991 033 inlägg

9 feb. 2001 14:59#9

Du bör först läsa in filen om du ska printa ut den i webbläsaren.

#!/usr/bin/perl
$filen = "/clients/juhlin.nu/wwwroot/mp2d/flotmunk/text.inc";
open(INDATA,"<$filen") or die "Kan inte hitta $filen: $!\n";
@file = <INDATA>;
$file = join("", @file);
close(INDATA);
$file =~ s/&amplt;/</g;
$file =~ s/&ampgt;/>/g;
$file =~ s/<br>/\n/g;

print ("Content-type: text/html\n\n");
print "<form method=\"post\" action=\"fil.pl\">";
print "<textarea name=\"mintext\" cols=\"35\" rows="8">\"$file\"</textarea>";
print "<input type=\"submit\" name=\"Submit\" value=\"Spara\">";
print "</form>";

Använder du exec cgi så bör du nu få texten i fältet.
För att skriva till filen så kan du använda koden från ditt första inlägg.

FlashXMedlem sedan nov. 19991 033 inlägg

9 feb. 2001 15:04#10

Redigerar inte för det blir så krångligt med &ampamp-tecknen :)

Nu skickas det till fil.pl men jag vet inte riktigt om du använder två skript (ett för exec cgi och ett för att skriva till filen) men du kan köra delen som skriver till filen som en subrutin om du vill.

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 15:10#11

Funkar bra, men.. Funkar inte  på IIS?

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

FlashXMedlem sedan nov. 19991 033 inlägg

9 feb. 2001 15:16#12

Borde det väl göra?

Ser en liten miss av mig i koden ovanför.
rows="8">\"$file\"</textarea>";

bör ändras till
rows=\"8\">$file</textarea>";
i raden där textfältet printas ut.

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 15:18#13

Alltså jag tänkte ändå skriva så här:

print $file;

Och sen lägga in SSI kraffset mellan textarea taggarna.. :)

Men det funkar inte.. :(

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

FlashXMedlem sedan nov. 19991 033 inlägg

9 feb. 2001 15:27#14

hmm... men det var ju det jag menade förut, att du måste välja mellan CGI och SSI.
Det går inte i ett CGI-skript att inkludera en fil så som man gör i en .shtml-fil m.h.a. include virtual.

Varför måste du ha det så?
Borde finnas andra lösningar...

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 15:29#15

Det borde gå. Vad är skillnaden på det här och en texträknare ( http://www.jojoxx.net/faq/ssi.html#counter )?

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

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 15:37#16

Sidan jag ska har formuläret på är en .asp fil (funkar som .shtml). Där länkar jag CGI filen med SSI (exec cgi..).

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

FlashXMedlem sedan nov. 19991 033 inlägg

9 feb. 2001 15:47#17

exec cgi fungerar. Den koden fick du ju ovanför men om jag fatt rätt så vill du i den koden ange <textarea></textarea> och det kan ju inte fungera.

Webbservern (om den är kofigurerad för det) vet hur den ska agera vid exec cgi eller include virtual men i nämnda fallet så är det ju perltolken som får den senare förfrågningen.

Om du har en .shtml-fil med , så behandlar perl denna koden och har du i den sedan angivit , så förstår inte perl hur detta ska hanteras.
Webbservern får troligen aldrig denna informationen och kan alltså inte inkludera filen.

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 16:03#18

Include virtual hade jag aldrig tänkt använda mig av. Men det var  (och det är ju SSI) som jag tänkte använda, och det funkar inte.. :(

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

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 16:07#19

Aha, det fungerar inte med .asp, trots att ASP klarar av . Då vet jag det! :)
Tack för all hjälp! Nu funkar det! Ska bara finslipas lite..

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

Erik JuhlinMedlem sedan maj 200010 687 inlägg

9 feb. 2001 16:11#20

Ännu ett litet problem. När \n ersätts med <br> så försvinner inte radbrytningen. Det gör att när det ersätts tillbaka så blir det två radbrytningar. Ska man då ta bort \n (i det här scriptet) så att det inte blir dubbla? Kan man bara låta det vara tomt där?

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