ticker

• The real ticker is more interesting

• You can ticker several files at the same time

• It will count characters or lines

• We'll see the code in chunks:

        #!/usr/bin/perl
        # -*- perl -*-

        use FileHandle;
        $| = 1;

• What's FileHandle for here? I don't know.

        require 'getopts.pl';
        &Getopts('lpr');

• Why didn't I use Getopt::Std? I don't know.

        if (eval 'require Time::HiRes') {
          Time::HiRes->import('time');
        }

• Why not just write use Time::HiRes?

• This still succeeds if Time::HiRes is not installed.

• Does it matter?

• Probably not. (Overengineering)

Next

Menu

Copyright © 2005 M. J. Dominus