Perl

Sungguh aneh. Perl yang dikenal sebagai text-processing gak punya fungsi trim, fungsi yang menghilangkan spasi atau keluarganya di awal atau akhir string.

Setelah mencari dan mencoba ... ini adalah fungsi trim terefisien yang sata temukan.

sub trim{
$_[0]=~s/^\s+//;
$_[0]=~s/\s+$//;
return;
}

Perl
Using "while loop"

1 $count = 0;
2 while (<>) {