4 svar · 521 visningar · startad av Rödalacket
Har en lite fråga, försöker att lära mig Perl och behöver lite hjälp.. :)
När jag skall hämta text från en textfil och sedan skriva ut det till en html-sida så står det bara "print 1" fast det står annat i text.txt.
#!/usr/bin/perl
open (TEXT, "text.txt");
@text=<TEXT>;
close(TEXT);
$info=@text;
print "Content-type:text/html\n\n";
print <<End_of_HTML;
<html>
<head>
<title></title>
</head>
<body bgcolor="C0C0C0">
<h2>print $info</h2>
</body>
</html>
End_of_HTML
exit;
------------------
Dart sidan
Ett litet fel bara...
#!/usr/bin/perl
open (TEXT, "text.txt");
@text=<TEXT>;
close(TEXT);
print "Content-type:text/html\n\n";
print <<End_of_HTML;
<html>
<head>
<title></title>
</head>
<body bgcolor="C0C0C0">
<h2>@text</h2>
</body>
</html>
End_of_HTML
exit;
Att så lite kan göra så mycket.. ;)
..nu har man kommit lite längre på den långa vägen...
Tack för hjälpen..
------------------
Dart sidan
En liten förklaring till beteendet kanske kan vara intressant? :)
$info=@text;
När du tilldelar en array till en skalär på detta sätt så är det inte innehållet i arrayen som hamnar i skalären, utan antalet element i arrayen (d.v.s. antalet rader i filen i ditt fall).
Vill du tilldela innehållet i en array till en skalär får du använda perls inbyggda funktion join.
------------------
Robban < robban@lipogram.com >
Ok...då förstår jag varför det stog 1 där och inte det jag ville att det skulle stå.. :)
Kanske går att lära sig det här med...
------------------
Dart sidan