#!/usr/local/bin/perl # bu dosyanin adı ilk-perl.pl olmalı, yukarıya bakınız. # perl programlarında 1. satır hariç, başında # olan # satırlar işleme sokulmazlar # bu yorum satırları, okunurluğu arttırmak içindir. # 1. satırdaki komut, perl programının diskte nerede # durduğunu belirtir, bu satır olmadan programınız çalışmaz. # istemciye göndereceğimiz çıktı başlıyor # bu satırla istemciye bir HTML çıktısı gönderdiğimizi # belirtiyoruz, aksi takdirde istemci, HTML kodlarını da # olduğu gibi ekrana basar print "\n\n"; # CIKTI_SONU karakterlerini görene kadar bütün herşeyi gönder print <   CGI çıktısı üretiyoruz   

Verdiğiniz bilgileri kaydediyorum, lütfen bekleyin

CIKTI_SONU $depo = $ENV{'QUERY_STRING'}; @ciftler = split(/&/, $depo); # verilerin tutulacagi dosyayı açmaya çalış, hata çıkarsa bas # >> işareti dosyanın sonuna ekleme yapılacağını gösterir # $! varsa dönen hatayı basar open (VeriDosyasi, ">>/home/cu/veri.txt") or die "Dosyayı açamıyorum: $!"; # formdan gelen bilgilerin herbiri için... foreach $cift (@ciftler){   ($alan, $deger) = split(/=/, $cift);   print VeriDosyasi "$alan=$deger\n";   print "Şu anda yazılan alan: $alan, değeri:$deger
\n"; } # dosyayı kapat close (VeriDosyasi); # kullanıcıya teşekkür et print <Bilgileriniz başarıyla kaydedildi, teşekkür ederiz CIKTI_SONU # programın sonu