Help for this page

Select Code to Download


  1. or download this
    # default exported
our @EXPORT_OK = qw(
...

# default format scope as $SECANA::TimeString::FORMAT
our $FORMAT   = '%Y%m%d%H%M%S' if(! defined $FORMAT);
  2. or download this
    use lib $ENV{'SECANAROOT'}."/lib";
use SECANA::TimeString qw($FORMAT);
...
print SECANA::TimeString::now().'\n';

Wed 2008-09-10 10:20:10 +0200
  3. or download this
    use lib $ENV{'SECANAROOT'}."/lib";
use SECANA::TimeString;
...
print SECANA::TimeString::now().'\n';

20080910102010
  4. or download this
    This comes independently of using the exporter
Name "SECANA::TimeString::FORMAT" used only once: \
possible typo at ./test-timestring.pl line 17.