3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-16 17:09:33 +01:00
pbot/modules/fnord.pl
2021-07-10 15:00:22 -07:00

16 lines
262 B
Perl
Executable File
Vendored

#!/usr/bin/env perl
# SPDX-FileCopyrightText: 2021 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
use warnings;
use strict;
open FH, "<fnord.txt" or die "Fnord?";
my @lines = <FH>;
close FH;
print "$lines[int rand($#lines + 1)]\n";