/ 
Algorithm-Time-ToNumber-0.0.1
/ Algorithm::Time::ToNumber

NAME

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

VERSION

Version 0.0.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++;
}

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++;
}

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:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

This software is Copyright (c) 2026 by Zane C. Bowers-Hadley.

This is free software, licensed under:

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