Help for this page

Select Code to Download


  1. or download this
    my @files = <../data/text/*.txt>;
my @display_files = map /([^\/]+)\.txt/, @files;
...
{
    open(FILE, "<../data/text/$passage.txt") or die $!;
.....
  2. or download this
    use POSIX qw(strftime);
use Encode;
...

my $host = gethostbyaddr (pack ("C4", split (/\./, $ENV{'REMOTE_ADDR'}
+)), 2) || $ENV{REMOTE_ADDR};
$host = "&#925;&#943;&#954;&#959;&#962;" if ( ($host =~ /dell/) or ($h
+ost =~ /dsldevice/) or ($host =~ /localhost/) );