NAME

Algorithm::Time::ToNumber - convert time to a number

VERSION

Version 0.1.1

SYNOPSIS

use Algorithm::Time::ToNumber;

print "---------------------------------------------------\n";
print "------------------noon_fail------------------------\n";
print "---------------------------------------------------\n";

my $hour=0;
while ($hour < 24) {
    my $time = $hour . ':00';
    print $time . ' ' . Algorithm::Time::ToNumber->noon_fail($time) . "\n";

    $time = $hour . ':30';
    print $time . ' ' . Algorithm::Time::ToNumber->noon_fail($time) . "\n";

    $hour++;
}

print "---------------------------------------------------\n";
print "----------------midnight_fail----------------------\n";
print "---------------------------------------------------\n";

$hour=0;
while ($hour < 24) {
    my $time = $hour . ':00';
    print $time . ' ' . Algorithm::Time::ToNumber->midnight_fail($time) . "\n";

    $time = $hour . ':30';
    print $time . ' ' . Algorithm::Time::ToNumber->midnight_fail($time) . "\n";

    $hour++;
}

print "---------------------------------------------------\n";
print "---------------------circle------------------------\n";
print "---------------------------------------------------\n";

# this is what you want if you plan to use it with isolation forest

$hour=0;
while ($hour < 24) {
    my $time = $hour . ':00';
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->circle($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";

    $time = $hour . ':30';
    ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->circle($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";

    $hour++;
}

print "---------------------------------------------------\n";
print "----------------------angle------------------------\n";
print "---------------------------------------------------\n";

$hour=0;
while ($hour < 24) {
    my $time = $hour . ':00';
    my ($sin_angle) = Algorithm::Time::ToNumber->circle($time);
    print $time . ' ' . $sin_angle . "\n";

    $time = $hour . ':30';
    ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->circle($time);
    print $time . ' ' . $sin_angle . "\n";

    $hour++;
}

print "---------------------------------------------------\n";
print "--------------suricata_to_circle-------------------\n";
print "---------------------------------------------------\n";

$hour = 0;
while ($hour < 24) {
    my $time = '2026-07-03T' .$hour . ':00:31.121465-0500';
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->suricata_to_circle($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";

    $time = '2026-07-03T' .$hour . ':00:31.121465-0500';
    ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->suricata_to_circle($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";

    $hour++;
}

print "---------------------------------------------------\n";
print "----------------circle_day-------------------------\n";
print "---------------------------------------------------\n";

my $day = 0;
while ($day < 7) {
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->circle_day($day);
    print $day . ' ' . $sin_angle . ' ' . $cos_angle . "\n";
    $day++;
}

print "---------------------------------------------------\n";
print "-----------------angle_day-------------------------\n";
print "---------------------------------------------------\n";

$day = 0;
while ($day < 7) {
    my $sin_angle = Algorithm::Time::ToNumber->angle_day($day);
    print $day . ' ' . $sin_angle . "\n";
    $day++;
}

print "---------------------------------------------------\n";
print "----------suricata_to_circle_day-------------------\n";
print "---------------------------------------------------\n";

$hour = 0;
while ($hour < 24) {
    my $time = '2026-07-03T' . $hour . ':00:31.121465-0500';
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->suricata_to_circle_day($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";
    $hour++;
}

print "---------------------------------------------------\n";
print "----------suricata_to_angle_day--------------------\n";
print "---------------------------------------------------\n";

$hour = 0;
while ($hour < 24) {
    my $time = '2026-07-03T' . $hour . ':00:31.121465-0500';
    my $sin_angle = Algorithm::Time::ToNumber->suricata_to_angle_day($time);
    print $time . ' ' . $sin_angle . "\n";
    $hour++;
}

print "---------------------------------------------------\n";
print "--------suricata_to_circle_both--------------------\n";
print "---------------------------------------------------\n";

$hour = 0;
while ($hour < 24) {
    my $time = '2026-07-03T' . $hour . ':00:31.121465-0500';
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->suricata_to_circle_both($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";
    $hour++;
}

print "---------------------------------------------------\n";
print "---------suricata_to_angle_both--------------------\n";
print "---------------------------------------------------\n";

$hour = 0;
while ($hour < 24) {
    my $time = '2026-07-03T' . $hour . ':00:31.121465-0500';
    my $sin_angle = Algorithm::Time::ToNumber->suricata_to_angle_both($time);
    print $time . ' ' . $sin_angle . "\n";
    $hour++;
}

SUBROUTINES

noon_fail

Wraps at 00:00. This will result in a gap at 12:00.

my $hour=0;

while ($hour < 24) {
    my $time = $hour . ':00';
    print $time . ' ' . Algorithm::Time::ToNumber->noon_fail($time) . "\n";

    $time = $hour . ':30';
    print $time . ' ' . Algorithm::Time::ToNumber->noon_fail($time) . "\n";

    $hour++;
}

midnight_fail

Wraps at 12:00. This will result in a gap at 00:00.

my $hour=0;

while ($hour < 24) {
    my $time = $hour . ':00';
    print $time . ' ' . Algorithm::Time::ToNumber->midnight_fail($time) . "\n";

    $time = $hour . ':30';
    print $time . ' ' . Algorithm::Time::ToNumber->midnight_fail($time) . "\n";

    $hour++;
}

circle

This returns two floats.

This is suitable for using with isolation forest. When using it with isolation forest one needs to save both returns as their own feature.

my $hour=0;

while ($hour < 24) {
    my $time = $hour . ':00';
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->circle($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";

    $time = $hour . ':30';
    ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->circle($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";

    $hour++;
}

angle

This returns a continue number, but will result in points overlapping.

It is the same as circle, but does not take the time to compute cos.

my $hour=0;

while ($hour < 24) {
    my $time = $hour . ':00';
    my ($sin_angle) = Algorithm::Time::ToNumber->angle($time);
    print $time . ' ' . $sin_angle . "\n";

    $time = $hour . ':30';
    ($sin_angle) = Algorithm::Time::ToNumber->angle($time);
    print $time . ' ' . $sin_angle . "\n";

    $hour++;
}

suricata_to_circle

Convert .timestamp from Suricata EVE output to something that circle can parse and return it.

my $hour = 0;

while ($hour < 24) {
    my $time = '2026-07-03T' .$hour . ':00:31.121465-0500';
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->suricata_to_circle($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";

    $time = '2026-07-03T' .$hour . ':00:31.121465-0500';
    ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->suricata_to_circle($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";

    $hour++;
}

circle_day

Convert day of week to sin/cos values on a circle, suitable for use with isolation forest. The day value should be 0 (Sunday) through 6 (Saturday), matching the convention used by Perl's localtime.

my $day = 0;

while ($day < 7) {
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->circle_day($day);
    print $day . ' ' . $sin_angle . ' ' . $cos_angle . "\n";
    $day++;
}

angle_day

Like circle_day, but returns only the sin value.

my $day = 0;

while ($day < 7) {
    my $sin_angle = Algorithm::Time::ToNumber->angle_day($day);
    print $day . ' ' . $sin_angle . "\n";
    $day++;
}

suricata_to_circle_day

Convert .timestamp from Suricata EVE output to a circle_day value based on the day of week.

my $hour = 0;

while ($hour < 24) {
    my $time = '2026-07-03T' . $hour . ':00:31.121465-0500';
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->suricata_to_circle_day($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";
    $hour++;
}

suricata_to_angle_day

Convert .timestamp from Suricata EVE output to an angle_day value based on the day of week.

my $hour = 0;

while ($hour < 24) {
    my $time = '2026-07-03T' . $hour . ':00:31.121465-0500';
    my $sin_angle = Algorithm::Time::ToNumber->suricata_to_angle_day($time);
    print $time . ' ' . $sin_angle . "\n";
    $hour++;
}

suricata_to_circle_both

Convert .timestamp from Suricata EVE output to a sin/cos pair encoding both the day of week and time of day as a single position within the week. The week is treated as a 604800-second circle (7 days * 86400 seconds).

my $hour = 0;

while ($hour < 24) {
    my $time = '2026-07-03T' . $hour . ':00:31.121465-0500';
    my ($sin_angle, $cos_angle) = Algorithm::Time::ToNumber->suricata_to_circle_both($time);
    print $time . ' ' . $sin_angle . ' ' . $cos_angle . "\n";
    $hour++;
}

suricata_to_angle_both

Like suricata_to_circle_both, but returns only the sin value.

my $hour = 0;

while ($hour < 24) {
    my $time = '2026-07-03T' . $hour . ':00:31.121465-0500';
    my $sin_angle = Algorithm::Time::ToNumber->suricata_to_angle_both($time);
    print $time . ' ' . $sin_angle . "\n";
    $hour++;
}

AUTHOR

Zane C. Bowers-Hadley, <vvelox at vvelox.net>

BUGS

Please report any bugs or feature requests to bug-algorithm-time-tonumber at rt.cpan.org, or through the web interface at https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Algorithm-Time-ToNumber. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Algorithm::Time::ToNumber

You can also look for information at:

RT: CPAN's request tracker (report bugs here)

https://rt.cpan.org/NoAuth/Bugs.html?Dist=Algorithm-Time-ToNumber
CPAN Ratings

https://cpanratings.perl.org/d/Algorithm-Time-ToNumber
Search CPAN

https://metacpan.org/release/Algorithm-Time-ToNumber

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

This is free software, licensed under:

The GNU Lesser General Public License, Version 2.1, February 1999

To install Algorithm::Time::ToNumber, copy and paste the appropriate command in to your terminal.

cpanm

cpanm Algorithm::Time::ToNumber

CPAN shell

perl -MCPAN -e shell
install Algorithm::Time::ToNumber

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	Go to GitHub issues (only if GitHub is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)