-
Notifications
You must be signed in to change notification settings - Fork 0
/
rndliff.pl
executable file
·41 lines (37 loc) · 1.5 KB
/
rndliff.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
eval 'exec perl -S $0 ${1+"$@"}'
if 0;
###############################################################################
# $Id:$
###############################################################################
#
# Related Files : liff.pm
#
# Author(s) : Thorsten Dworzak
# Email : [email protected]
#
# Creation Date : 15.02.2002
#
# Contents : Prints a random line from meaning_off_liff.txt
#
###############################################################################
#------------------------------------------------------------------------------
# Global variables
#------------------------------------------------------------------------------
our($debug, $this, $usage);
#------------------------------------------------------------------------------
# Used packages, initialisation, commandline parameters etc.
#------------------------------------------------------------------------------
use strict;
use FindBin qw($Bin);
use lib "$Bin";
use lib "$Bin/lib";
use liff;
#------------------------------------------------------------------------------
# Main part of script
#------------------------------------------------------------------------------
our($o_liff) = liff->new("filename" => "$Bin/meaning_of_liff.txt");
print "\n", join("\n", map {$_ = "\t$_"} split("\n", $o_liff->get_rnd_entry())), "\n\n";
#------------------------------------------------------------------------------
# Subroutines
#------------------------------------------------------------------------------
1;