without sorting

my %hash = map { $_, 1 } @array;
@array = keys %hash;

with sorting

my %hash = map { $_, 1 } @array;
@array = keys %hash;
@array = sort(@array); # sorting

with sorting (shorter)

my %hash = map { $_, 1 } @array;
@array = sort(keys %hash);

Tags: Perl Array, Perl Hash

กรณีต้องการเป็นตัวเลข 0-9

1
2
3
4
5
6

if ($var =~ /^\d+$/ ) {
	print "Is a number\n";
}
else {
	print "Is not a number\n";
}

กรณีต้องการให้มี +/- ข้างหน้าตัวเลข (หรือไม่มีก็ได้)

1
2
3
4
5
6

if ($var =~ /^[+-]?\d+$/ ) {
	print "Is a number\n";
}
else {
	print "Is not a number\n";
}

Tags: Perl Variable

ใช้ FILTER เป็นตัวจัดการ โดย FILTER จะทำการแปลง ‘<’, ‘>’ and ‘&’ ให้แสดงผลได้อย่างถูกต้อง
โดยปกติตัว engine จะ strip tag พวกนี้ไว้ก่อนแล้ว แต่บาง case อาจจำเป็นต้องใช้

{% text | html %}

หรือ

{% text FILTER html %}

text เป็นค่าที่รับจากตัว engine

สมมุติค่าของ text เป็น

HTML text may have < and > characters embedded
which you want converted to the correct HTML entities.

ผมที่ได้จะออกมาเป็น

HTML text may have < and > characters embedded
which you want converted to the correct HTML entities.

Tags: Template, Template Toolkit

syntax ในไฟล์ tt:

{% FOREACH animal IN animals %}
{% animal %}
{% END %}

animals เป็นค่า array ที่ตัว engine ส่งค่ามา

Tags: Array, Template, Template Toolkit