Code /
Part8
Difference (previous author)
(Change, Edit, normal page display)
Changed: 1c1,15
Describe the new page here.
|
[[code]
sub DownSize {
my ($p val)=@_;
my $ret=$$p val;
$ret /= 16;
$ret += 0.5;
$ret =~ s/\..*$//;
$$p val=$ret;
}
]
AndriusKulikauskas March 3, 2009 17:48 CET I'm not able to paste something in the rest.
|
 | sub DownSize {
my ($p_val)=@_;
my $ret=$$p_val;
$ret /= 16;
$ret += 0.5;
$ret =~ s/\..*$//;
$$p_val=$ret;
} |
|
|
AndriusKulikauskas March 3, 2009 17:48 CET I'm not able to paste something in the rest.
|
