Merhaba Dünya Perl CGI Script

Bir CGI betiği, ihtiyacınız olduğu kadar basit veya karmaşık olabilir. Perl'de olabilir, Java, Python veya herhangi bir Programlama dili. Özünde, bir CGI uygulaması HTTP (genellikle bir web tarayıcısı) aracılığıyla bir istek alır ve HTML döndürür. Basit bir Perl'e bakalım Selam Dünya CGI betiği ve en basit biçimlerine ayırın.

'Merhaba Dünya' CGI Perl Script

 #! / Usr / bin / perl
print "İçerik türü: metin / html \ n \ n";
yazdır <

Basit Bir Perl CGI


Basit Bir Perl CGI


Selam Dünya



HTML
çıkış;

Programı komut satırında çalıştırırsanız, tam olarak beklediğiniz şeyi yaptığını görürsünüz. İlk olarak, İçerik türü satır sonra ham HTML yazdırır. Bir web tarayıcısında çalışırken görmek için, komut dosyasını web sunucunuza kopyalamanız veya yüklemeniz ve izinlerin doğru ayarlandığından emin olmanız gerekir (* nix sistemlerinde chmod 755). Doğru şekilde ayarladıktan sonra, ona göz atabilir ve sunucunuzda görüntülenen sayfayı canlı olarak görebilirsiniz.

Anahtar satır ilk baskı deyimidir:

 print "İçerik türü: metin / html \ n \ n"; 

Bu tarayıcıya belgenin ikiden sonra geldiğini söyler yeni satırların HTML olacak. Sen zorunlu tarayıcının daha sonra ne tür bir belgenin geleceğini bilmesi için bir başlık gönderin ve başlık ile asıl belge arasında boş bir satır eklemeniz gerekir.

Başlık gönderildikten sonra, bu yalnızca HTML belgesinin kendisini gönderme meselesidir. Yukarıdaki örnekte, büyük bir düz metin yığınını yazdırmayı basitleştirmek için burada bir doküman kullanıyoruz. Tabii ki, bu gerçekten sunucunuzda düz bir HTML belgesine sahip olmaktan farklı değil. HTML'nizi oluşturmak için Perl gibi bir programlama dili kullanmanın gerçek gücü, bazı süslü Perl programlarına eklediğinizde gelir.

Temel Betiğe Ekleme

Bir sonraki örnekte, bunun bir parçası olalım zaman ve tarih senaryosu ve web sayfanıza ekleyin.

 #! / Usr / bin / perl
@months = qw (Ocak Şub Mart Nis Mayıs Haziran Temmuz Ağustos Eylül Ekim Kasım Aralık);
@weekDays = qw (Paz Pzt Sal Çar Per Cum Cmt Paz);
($ saniye, $ dakika, $ saat, $ dayOfMonth, $ ay, $ yearOffset, $ dayOfWeek, $ dayOfYear, $ daylightSavings) = localtime ();
$ yıl = 1900 + $ yılOfset;
$ theTime = "$ weekDays [$ dayOfWeek] $ ay [$ ay] $ dayOfMonth, $ yıl";
print "İçerik türü: metin / html \ n \ n";
yazdır <

Basit Bir Perl CGI


Basit Bir Perl CGI


$ thetime



HTML
çıkış;

Bu yeni CGI betiği, betiğin her çağrılışında geçerli tarihi sayfaya ekler. Başka bir deyişle, dinamik tarih değiştikçe değişen belge statik belgesi.

TikTokni.com