Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fixed code

  • Loading branch information...
commit 39f0309b538b281dc79fbbad393016778d03d04a 1 parent 5d50e92
@yusukebe authored
View
17 cgi-bin/uranai.cgi
@@ -3,10 +3,9 @@ use strict;
use warnings;
use CGI;
use HTML::Template;
-use File::Slurp;
my $q = CGI->new();
-my $template = HTML::Template->new( filename => 'uranai.html' );
+my $template = HTML::Template->new( filename => '../etc/uranai.html' );
my $name = $q->param('name');
if( $name ) {
my $result = uranau( $name );
@@ -15,13 +14,12 @@ if( $name ) {
$template->param( RESULT => '' );
}
-
print $q->header( { -type => 'text/html', -charset => 'utf8' } );
print $template->output;
sub uranau {
my $name = shift;
- my @lists = @{ get_lists() };
+ my @lists = get_lists();
my $number = get_number( $name, $#lists + 1 );
return $lists[$number];
}
@@ -34,6 +32,13 @@ sub get_number {
}
sub get_lists {
- my @lines = read_file('uranai.txt');
- return \@lines;
+ my @lines = <DATA>;
+ return @lines;
}
+
+__DATA__
+あなたは結婚できません。
+あなたは不幸に会います。
+あなたは貧乏になります。
+あなたは事故にあいます。
+あなたは死にます。
View
5 cgi-bin/uranai.txt
@@ -1,5 +0,0 @@
-あなたは結婚できません。
-あなたは不幸に会います。
-あなたは貧乏になります。
-あなたは事故にあいます。
-あなたは死にます。
View
0  cgi-bin/uranai.html → etc/uranai.html
File renamed without changes
Please sign in to comment.
Something went wrong with that request. Please try again.