Ladda upp filer med Perl i ett CGI-script - hos Levonline IT hotell, web hotel
Support
Välkommen till vår supportsektion. Bläddra ner för svaret på din fråga. Har du en teknisk fråga hittar du antagligen svaret på den nedan, eller så kan du prova att söka. Om du saknar något här eller har fått hjälp med något via vår support som du tycker borde finnas här, hör gärna av dig till oss så ordnar vi det!
Utöver supportsidorna har vi tagit fram en rad verktyg för domän och hemsida. Bland verktygen finner du guider för whois, SPF, HTTP-huvuden och mycket mer!
Om du behöver hjälp direkt av vår duktiga support är du välkommen att höra av dig per e-post (support@levonline.com) eller via telefon (08-320 360); vår kundtjänst finns tillgänglig vardagar mellan kl. 08:00 och 18:00 för att hjälpa dig med alla tänkbara problem eller önskemål.
Nedan finner du även ett kontaktformulär för supportfrågor.
KONTAKTA OSS!
Utöver supportsidorna har vi tagit fram en rad verktyg för domän och hemsida. Bland verktygen finner du guider för whois, SPF, HTTP-huvuden och mycket mer!
Om du behöver hjälp direkt av vår duktiga support är du välkommen att höra av dig per e-post (support@levonline.com) eller via telefon (08-320 360); vår kundtjänst finns tillgänglig vardagar mellan kl. 08:00 och 18:00 för att hjälpa dig med alla tänkbara problem eller önskemål.
Nedan finner du även ett kontaktformulär för supportfrågor.
|
|
| Populärast Webhotell Epost Domän Egen server Bredband |
| Hemsida PHP ASP Java Databas Unix Allmänt CGI Statistik |
Ladda upp filer med Perl i ett CGI-scriptHär är ett exempel på hur man kan använda Perl för att ladda upp filer. Det utgår från att alla filer och bibliotek skapas i dokumentrooten för din hemsida Skapa först en katalog upload som du vill lägga upp filer i. Kalla den här sidan för upload.html. <HTML> <HEAD></HEAD> <BODY> <FORM ACTION="upload.cgi" METHOD="post" ENCTYPE="multipart/form-data"> Photo to Upload: <INPUT TYPE="file" NAME="photo"> <br><br> Your Email Address: <INPUT TYPE="text" NAME="email_address"> <br><br> <INPUT TYPE="submit" NAME="Submit" VALUE="Submit Form"> </FORM> </BODY> </HTML> Kalla det här scriptet för upload.cgi. #!/usr/bin/perl -w
use CGI;
$upload_dir = "upload/";
$query = new CGI;
$filename = $query->param("photo");
$email_address = $query->param("email_address");
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $query->upload("photo");
open UPLOADFILE, ">$upload_dir/$filename";
while ( <$upload_filehandle> )
{
print UPLOADFILE;
}
close UPLOADFILE;
print $query->header ( );
print <<END_HTML;
<HTML>
<HEAD>
<TITLE>Thanks!</TITLE>
</HEAD>
<BODY>
<P>Thanks for uploading your photo!</P>
<P>Your email address: $email_address</P>
</BODY>
</HTML>
END_HTML
Glöm inte att ge filerna följande filrättigheter via ssh: $ chmod 706 upload $ chmod +x upload.cgi Fick du svar på din fråga? |
CGI 136 CGI-script |