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