Perl - CGI - Borang Hantar Contoh

Contoh borang Perl/CGI berikut meminta pengguna untuk memasukkan dua bilangan bulat dan apabila penyerahan penambahan dilakukan pada kedua -dua bilangan bulat yang dikemukakan.

Catatan: Untuk mengendalikan kedua -dua bilangan bulat, tindakan kaedah "pos" ditetapkan kepada dirinya sendiri. Berarti bahawa kaedah pos HTML akan dibuat dalam format berikut:

Tindakan Borang = "/CGI-Bin/Perl-CGI-Form.CGI "Enctype =" Multipart/Form-Data "Method =" Post " 

Jimat bentuk perl-cgi-berikut.Kod CGI ke/usr/lib/cgi-bin/:

#!/usr/bin/perl -t menggunakan ketat; Gunakan CGI QW/: Standard/; Header Cetak, start_html ('Perl/CGI Borang Contoh'), start_form, "Integer 1:", TextField ('num1'), br, "Integer 2:", TextField ('num2'), br, hantar, end_form, HR; cetak param ('num1')+param ('num2'), p, end_html; keluar; 

Jadikannya boleh dilaksanakan:

# CHMOD 755/usr/lib/cgi-bin/perl-bentuk.CGI 

Dengan menavigasi penyemak imbas anda ke program Perl/CGI di atas, anda harus melihat halaman yang serupa dengan yang di bawah. Pada masa ini borang hanya boleh mengendalikan bilangan bulat:

Tutorial Linux Berkaitan:

• Skrip bash: pengendali
• Tutorial Asas Perintah Curl dengan contoh
• Skrip Bash: Pengendali Unary dijangka
• Cara Menggunakan Luks Dengan Pengepala Terpisah
• Cara Bekerja Dengan API Rest WooCommerce dengan Python
• Sistem Hung Linux? Cara melarikan diri ke baris arahan dan ..
• Ungkapan biasa python dengan contoh
• Skrip bash: syarat
• Buat pengalihan dan tulis semula peraturan ke dalam .Htaccess di Apache ..
• Cara keluar dari skrip bash