I'm ZeroEngine: Perl

Showing posts with label Perl. Show all posts

02 May 2011

HTML::Template 2

Posted by Unknown at 5/02/2011 05:21:00 AM

<tmpl_if> กำหนดเงื่อนไขใน template
if.pl

#!c:\perl\bin\perl.exe
use HTML::Template;
my $tmpl = HTML::Template->new(filename=>'tmpl/if.tmpl');
$tmpl->param(bool=>1);
print "Content-type:text/html\n\n",$tmpl->output();

if.tmpl

<html>
<head>
    <title>if</title>
</head>
<body>
<tmpl_if name="bool">
  is true
<tmpl_else>
  is false
</tmpl_if>
</body>
</html>

<tmpl_unless> ใช้งานเหมือนกับ <tmpl_if> แต่เป็นเงื่อนไขที่ตรงกันข้าม(opposit)

HTML::Template

Posted by Unknown at 5/02/2011 04:28:00 AM

ไฟล์ที่เป็น template นั้นจะใส่นามสกุลไว้ว่า .tmpl โดยต้องใช้ HTML::Template โหลดขึ้นมา

<tmpl_var> เป็นการส่งค่ามาแสดงใน template

test.tmpl

<html>
<head>
<title>Test Template</title>
</head>
<body>

My Home Directory is <tmpl_var name=home>
 
My Path is set to <tmpl_var name=path>

</body>
</html>

test.pl

#!c:\perl\bin\perl.exe
use HTML::Template;
use CGI::Carp qw(fatalsToBrowser);

#open html template
my $tmpl = HTML::Template->new(filename => 'tmpl/index.tmpl');

#fill parametors
$tmpl->param(home => $ENV{HOME});
$tmpl->param(path => $ENV{PATH});

#send
print "Content-Type:text/html\n\n",$tmpl->output();

<tmpl_loop> ทำลูปใน template

test.tmpl

<html>
<head>
 <title>Loop Template</title>
</head>
<body>
<tmpl_loop name=emp>
 <tmpl_var name=name> -- <tmpl_var name=job> 
</tmpl_loop>

<tmpl_loop name=loop2>
 <tmpl_var name=var1> -- <tmpl_var name=var2> 
</tmpl_loop>
</body>
</html>

test.pl

#!/perl/bin/perl.exe
use HTML::Template;
use CGI::Carp qw(fatalsToBrowser);

my $tmpl = HTML::Template->new(filename=>'tmpl/loop.tmpl');
$tmpl->param(emp => [{name=>'test1',job=>'unknow'},{name=>'test2',job=>'programer'}]);

my @var1 = qw(who am i);
my @var2 = qw(set to me);

my @loop_data = ();

while(@var1 and @var2){
    my %row_data;
    $row_data{var1} = shift @var1;
    $row_data{var2} = shift @var2;

    push(@loop_data,\%row_data);
}
$tmpl->param(loop2=>\@loop_data);

print "Content-Type:text/html\n\n";
print $tmpl->output();

<tmpl_include> ดึงเอา template อื่นมา
include.pl

#!/perl/bin/perl
use HTML::Template;
use CGI::Carp qw(fatalsToBrowser);

my $tmpl = HTML::Template->new(filename=>'tmpl/include1.tmpl');

print "Content-Type:text/html\n\n",$tmpl->output();

include1.tmpl

<html>
<head>
<title>include</title>
</head>
<body>
from include1.tmpl 
<tmpl_include name="include2.tmpl">

include2.tmpl

from include2.tmpl
</body>
</html>

01 May 2011

Compiler Directive Module

Posted by Unknown at 5/01/2011 06:04:00 AM

ใจการสร้าง module ขึ้นมานั้นเราสามารถเลือกเฉพาะบาง subroutine หรือตัวแปร ให้ทำงานได้โดยใช้การทำ Compiler Directive ซึ่งโครงสร้างคร่าวๆจะเป็น

##############################
package modulename;
use Exporter;

#@ISA จะทำหน้าที่เก็บโมดูลที่ inheritance ถ้าไม่เจอใน package จะทำการค้นหาจาก ตัวแปรนี้
@ISA = qw(Exporter);

#เป็น default load เมื่อเรียกใช้โมดูล subroutine ใน @EXPORT จะสามารถทำงานได้
@EXPORT = qw(function $variable @arrayVar %hashVAr);

#ถ้าต้องการใช้ต้องส่งพารามิเตอร์ ตอนโหลดโมดูล
@EXPORT_OK = qw(functionTwo $var);

#เหมือน @EXPORT_OK แต่ทำเป็นกลุ่มเอาไว้
%EXPORT_TAGS = qw('name'=>[qw(function functionTwo)]);
##############################

ตัวอย่าง

package DModule;

use Exporter;

@ISA = qw(Exporter);
@EXPORT = qw(fnc1);
@EXPORT_OK = qw(fnc2);
%EXPORT_TAGS = ('all'=>[qw(fnc1 fnc2)]);

sub fnc1
{
print "fnc1 print
";
}

sub fnc2
{
print "fnc2 print
";
}

1;

วิธีการเรียกใช้

#!c:\perl\bin\perl.exe

print "content-type:text/html\n\n";
use DModule qw(:all !fnc2); #โหลดฟังก์ชั่นจาก %EXPORT_TAGS ยกเว้น fnc2

fnc1();
fnc2(); #ฟังก์ชั่นนี้จะไม่ทำงาน

การโหลดแบบอื่น
:DEFAUL เป็นค่าที่บอกว่าให้โหลดจาก @EXPORT

use DModule qw(:DEFAULT fnc2);

fnc1 และ fnc2 สามารถถูกเรียกใช้ได้

อ้างอิง
http://docstore.mik.ua/orelly/perl/prog3/ch12_05.htm
http://world.std.com/~swmcd/steven/perl/module_anatomy.html
http://perldoc.perl.org/Exporter.html

30 April 2011

GET/POST Method in Perl

Posted by Unknown at 4/30/2011 04:18:00 AM

module สำหรับ ใช้ get กับ post แยก subroutine กันนะครับ

DataParam.pm

package DataParam;

sub new
{
my $class = shift;
my $self = {};
bless($self,$class);
return $self;
}

sub GetParam
{
my $self = shift;
my $params = $ENV{'QUERY_STRING'};
my $data = {};
foreach (split(/&/,$params))
{
my ($key,$value) = split(/=/,$_);
#### บรรทัดล่างเอาไว้แปลงค่าอักษรที่เป็น % นำหน้า
$value =~ s/%(..)/chr(hex($1))/ge;
$data->{$key} = $value;
}
return $data;
}

sub PostParam
{
my $self = shift;
my $params;
read(STDIN,$params,$ENV{'CONTENT_LENGTH'});
my $data = {};
foreach (split(/&/,$params))
{
my ($key,$value) = split(/=/,$_);
#### บรรทัดล่างเอาไว้แปลงค่าอักษรที่เป็น % นำหน้า
$value =~ s/%(..)/chr(hex($1))/ge;
$data->{$key} = $value;
}
return $data;
}

1;

วิธีการใช้งาน
index.pl

#!c:\perl\bin\perl.exe

use strict;
use CGI;
use DataParam;

my $param = DataParam->new();
my $GET = $param->GetParam();
my $POST = $param->PostParam();

my $cgi = CGI->new();
print $cgi->header("text/html");

################## xxx กับ yyy คือชื่อตัวแปรที่ส่งมาครับ
print $POST->{'xxx'};
print $GET->{'yyy'};

29 April 2011

create Perl Module

Posted by Unknown at 4/29/2011 06:27:00 PM

perl module จะมีนามสกลุเป็น .pm โดยด้านบนต้องระบบ package เอาไว้

Test.pm

package Test;

sub new{
$class = shift;
$self = {};
bless($self,$class);
return $self;
}

sub TestFunction{
my $self = shift;
return "hello my module";
}

new subroutine นั้นเป็นคอนสตัคเตอ ของโมดูลต้องประกาศไว้ด้วย
ต่อจากคอนสตัคเตอร์ก็เป็นฟังก์ชันของเรา เวลาเรียกใช้งานก็ใช้ use ตามปกติ

myfile.pl

#!c:\perl\bin\perl.exe
use Test;

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

$data = Test->new();
print $data->TestFunction();

Regular expression

Posted by Unknown at 4/29/2011 11:24:00 AM

$result = "is somthing";

if($result =~ /something/){
print "result มีข้อความ something\n";
}

ดู regular expression เพิ่มเติม http://www.troubleshooters.com/codecorn/littperl/perlreg.htm

Logical Operator

Posted by Unknown at 4/29/2011 11:20:00 AM

&& ถ้าหากด้านซ้ายเป็นจริงจะทำงานด้านขวา

|| ถ้าด้านซ้ายเป็นเท็จจะทำงานด้านขวา
// ถ้าด้านซ้ายไม่ได้กำหนดค่าทำด้านขวา

ตัวอย่าง

$x = 0;
$y = $x && 5;
$y จะมีค่าเท่ากับ 0

$x = 1;
$y = $x && 5;
$y จะมีค่าเท่ากับ 5

$x = 0;
$y = $x || 5;
$y จะมีค่าเท่ากับ 5

$x = 20;
$y = $x || 5;
$y จะมีค่าเท่ากับ 20

$y = $x // 5;
$y จะมีค่าเท่ากับ 5

String Operator

Posted by Unknown at 4/29/2011 10:59:00 AM

การเชิื่อม string กับ ตัวแปร

print "string".$x."=".$y."\n";

print repeat

print "-" x 20;

ผลลัพธ์จะได้ - ต่อกัน 20 อัน

Syntax Condition Test

Posted by Unknown at 4/29/2011 10:12:00 AM

Test Condition,Excute Code

if($x >= 0){
print "x is positive number\n";
}

Defind code,Test Condition,Excute

print "x is positive number\n" if($x >= 0);

Excute code,Test Condition,Excute Code

($x >= 0) && print "x is positive number\n";

28 April 2011

hash variable

Posted by Unknown at 4/28/2011 08:42:00 AM

ตัวแปร hash ใน perl จะขึ้นต้นด้วย % ซึ่งสามารถกำหนดค่าโดย

%hash = (key1,value1,key2,value2,.....);

%hash = (key1 => value1,key2 => value2,...);

การแสดงค่าของ hash

$hash{key};

แสดงเฉพาะ key ที่อยู่ใน hash

@allKey = keys %hash;

แสดงเฉพาะ value ที่อยู่ใน hash

@allValue = values %hash;

loop hash

while(keys %hash){
print $_."=".$hash{$_};
}

for(values %hash){
print $_;
}

array in perl

Posted by Unknown at 4/28/2011 06:36:00 AM

array ใน perl จะใช้เครื่องหมาย @ นำหน้าตัวแปร

@array = (value1,value2,value3,...);

โดยสามารถแสดงค่าของแต่ละ index โดยใช้

$array[number]; # number หมายถึงตัวเลขของ index เริ่มจาก 0

function ที่ใช้กับอาเรย์

push(@array,value); #เพิ่มข้อมูลเข้าไปยังท้ายสุดของอาเรย์
pop(@array); #ลบข้อมูลท้ายสุดของอาเรย์
unshift(@array,value); #เพิ่มข้อมูลไปที่ index 0
shift(@array); #ลบข้อมูลที่ index 0
delete($array[index]);

การนับจำนวนของ array
scalar(@array);
$#array+1; #เป็นการหาค่า index ตัวสุดท้ายของ อาเรย์ ถ้านำมาบวก 1 คือจำนวนอาเรย์ทั้งหมด

foreach ของ array

foreach(@array){
print $_;
}

foreach(0..$#array){
print $array[$_];
}

แสดงค่าตำแหน่งของข้อมูลที่เก็บบน memory

Posted by Unknown at 4/28/2011 01:05:00 AM

#!c:\perl\bin\perl.exe

use strict;
use CGI;

my $cgi = CGI->new;
print $cgi->header("text/html");

my $data = "myData";
my $ref = \$data; #$ref จะเก็บค่าตำแหน่งของ $data
print $ref." "; # แสดงค่าตำแหน่ง
print $$ref." "; #ใช้ค่าของตำแหน่งแสดงข้อมูลที่ตำแหน่งนั้น
print ${$ref}; #แสดงข้อมูลที่ตำแหน่งนั้น

declare scalar variable

Posted by Unknown at 4/28/2011 12:56:00 AM

ประกาศแบบไม่กำหนดค่าเริ่มต้นให้
my $scalar;

ประกาศแบบกำหนดค่าเริ่มต้นให้
my $scalar = value;

ประกาศแบบหลายตัวแปร
my($scalar1,$scalar2,.....) = (value1,value2,....);

27 April 2011

use strict in perl

Posted by Unknown at 4/27/2011 05:46:00 PM

strict module เป็นตัวที่คอยช่วยตรวจสอบการเขียนโค๊ดของเราว่าถูกต้องตามหลักหรือไม่

#!c:\perl\bin\perl.exe

use strict;
use CGI;

my $cgi = CGI->new;
print $cgi->header("text/html");

$ref = \$foo;
print $$ref; #ถ้าใส่ use strict จะแสดง error แต่ถ้าไม่ใช่จะเป็นหน้าเปล่า

$ref = "foo";
print $$ref; #ถ้าใส่ use strict จะแสดง error แต่ถ้าไม่ใช่จะเป็นหน้าเปล่า

$file = "STDOUT";
print $file "Hi!"; #ถ้าใส่ use strict จะแสดง error แต่ถ้าไม่ใช่จะแสดงคำว่า Hi! อย่างเดียว (ผิดเนื่องจากไม่ใส่ . เชื่อม)

perl auto-flush

Posted by Unknown at 4/27/2011 04:38:00 PM

การทำ auto-flush ใน perl ทำได้โดยการเซ็ตค่า $| เป็นหนึ่งซึ่งโดยปกติแล้วค่านี้จะมีค่าเป็น 0

#!c:\perl\bin\perl.exe

use CGI;

my $cgi = CGI->new;
print $cgi->header('text/html');

$|=1;

for ( 1..5 ) {
print "Value is $_";
sleep 1;
}

เมื่อทำการรัน จะเห็นข้อความขึ้นมาหนึ่งบรรทัดแล้วหยุดไปหนึ่งวิแล้วก็ค่อยมีบรรทัดใหม่ขึ้นมา

printf VS sprintf

Posted by Unknown at 4/27/2011 02:52:00 PM

ความแตกต่างของ printf กับ sprintf คือ sprintf มี null character (\0) ต่อท้าย

print ใน perl

Posted by Unknown at 4/27/2011 02:27:00 PM

#!c:\perl\bin\perl.exe

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

#print ค่าของตัวแปร
print "Server $ENV{'SERVER_NAME'}\n\n";

#print ตัวอักษรด้วย (')
print 'We are running Perl version:';
print $^V."\n\n";

#print multiline
print < The perl binary : $^X
The perl script : $0
EOF

passing parametor to subroutines

Posted by Unknown at 4/27/2011 06:25:00 AM

การส่งค่า parametor ใน perl

รับเข้ามาเป็น array ใช้ @_
รับค่าแต่ละตัวตามลำดับ $_[1],$_[2],.....

การใช้ quote ใน perl

Posted by Unknown at 4/27/2011 06:21:00 AM

double qoute (") ค่าที่อยู่ใน doble qoute ถ้าเป็นตัวแปรจะแสดงค่าของตัวแปรนั้นออกมา ถ้าเป็นตัวอักษรพิเศษก็จะแสดงตัวอักษรพิเศษออกมา

single qoute (') ค่าที่อยู่ใน single qoute จะแสดงตามที่อยู่ข้างในทั้งหมด

black qoute (`) ค่าที่อยู่ในนี้คือคำสั่ง shell หรือ dos โดยจะ return ค่าผลลัพธ์ที่ได้ สามารถใช้ตัวแปรมารับค่าได้

#!c:\perl\bin\perl
print "content-type:text/html \n\n";
print "Hello World\n"; #จะได้ Hello World
print 'Hello World\n'; #จะได้ Hello World\n
print `date`; #จะได้ The current date is: Wed 04/27/2011 Enter the new date: (mm-dd-yy)

ผลลัพธ์ใน browser
Hello World Hello World\nThe current date is: Wed 04/27/2011 Enter the new date: (mm-dd-yy)

ผลลัพธ์ใน view->source
Hello World
Hello World\nThe current date is: Wed 04/27/2011
Enter the new date: (mm-dd-yy)

my function ในภาษา perl

Posted by Unknown at 4/27/2011 06:12:00 AM

การใช้ my function กับตัวแปรใน perl คือการกำหนด variable scope ถ้าเราสร้างตัวแปรที่มีชื่อเหมือนกับ global variable ในฟังก์ชั่นโดยใช้ my ด้วย global variable จะไม่ถูกแก้ไข

#!c:\perl\bin\perl
print "content-type:text/html \n\n";
$myString = "haha";
sub test
{
my $myString = "test";
}
print $myString."->01";
&test();
print $myString."->02";

ผลลัพธ์
haha->01
haha->02

###############################################

#!c:\perl\bin\perl
print "content-type:text/html \n\n";
$myString = "haha";
sub test
{
$myString = "test";
}
print $myString."->01";
&test();
print $myString."->02";

ผลลัพธ์
haha->01
test->02

###############################################

#!c:\perl\bin\perl
print "content-type:text/html \n\n";
my $myString = "haha";
sub test {
$myString = "test";
}
print $myString. "->01";
&test();
print $myString. "->02";

ผลลัพธ์
haha->01
test->02

###############################################

#!c:\perl\bin\perl
print "content-type:text/html \n\n";
my $myString = "haha";
sub test {
my $myString = "test";
}
print $myString. "->01";
&test();
print $myString. "->02";

ผลลัพธ์
haha->01
haha->02

I'm ZeroEngine