$title

[[oktatas:web:cgi|< CGI]] ====== CGI Perl nyelven ====== * **Szerző:** Sallai András * Copyright (c) Sallai András, 2015, 2017 * Licenc: GNU Free Documentation License 1.3 * Web: http://szit.hu ===== Helló Világ =====


#!h:\bin\xampp\perl\bin\perl.exe


print "Content-type: text/html\n\n";

print <





Teszt CGI program



EOT


#!/usr/bin/perl


print "Content-type: text/html\n\n";

print <





Teszt CGI program



EOT

===== Számláló =====


#!h:\bin\xampp\perl\bin\perl.exe


print "Content-type: text/html\n\n";

print <





Teszt CGI program
EOT

open FAJLNEV, "<", "filenev.txt" or die $!;
$sor = ;

print $sor;

open FILEID, ">", "filenev.txt" or die $!;
print FILEID ++$sor;
close(FILEID);


print <

EOT

===== Függelék ===== ==== Helló világ ==== Win32 XAMPP-al:


#!"C:\xampp\perl\bin\perl.exe"

print "Content-Type: text/html\n\n";
print "OK";

Linuxon:


#!/usr/bin/perl

print "Content-Type: text/html\n\n";
print "OK";

==== CGI használata ====


#!"C:\xampp\perl\bin\perl.exe"

use CGI qw(:standard);

print header;
print "OK";


#!"C:\xampp\perl\bin\perl.exe"

use CGI qw(:standard);

print header;
print start_html;

print "OK";

print end_html;


#!"C:\xampp\perl\bin\perl.exe"

use CGI qw(:standard);

print header(-charset=>'utf-8');

print "árvíztűrő";

==== Objektumorientáltan ====


#!"C:\xampp\perl\bin\perl.exe"

use CGI;

$q = CGI->new;

print 	$q->header,
	$q->start_html('Helló Világ'),
	$q->h1('Helló Világ'),
	$q->end_html;

UTF-8 beállítása:


#!"C:\xampp\perl\bin\perl.exe"

use CGI;

my $q = CGI->new;



print 	$q->header(-charset=>'utf-8'),
	$q->start_html('Helló Világ'),
	$q->h1('Helló Világ'),
	$q->end_html;

==== Heredoc szintaxis ====


#!/usr/bin/perl

my $title = "Teszt";
print "Content-type: text/html\n\n";
print <


	
	$title


	Teszt
	törzs


EOT

exit;