面试题目

huabo_linux

1 #!/usr/bin/perl
  2
  3 use strict;
  4 use warnings;
  5
  6 my $count = $ARGV[0] || 100;
  7
  8 my $i   = 0;
  9 my $sum = 0;
10 for($i=5; $i<$count; $i=$i*5)
11 {
12     $sum = $sum + int($count/$i);
13 }
14
15 print $sum."\n";