/prog/ - Am I doin it rite?

Name: Anonymous 2007-03-08 16:11 ID:ko8I8fKq



#!/usr/local/bin/python

inc=0

length=int(raw_input("How long is looooooongcat?\n"))

print "    ^_____^            \n"

print "   /       \           \n"

print "  |  #    # |          \n"

print "  \     @   |          \n"

print "   \   _|_ /           \n"

print "   /       \________   \n"

print "  / ________  ___   \  \n"

print "  | ________   \ \__/  \n"

print "   |        \__/       \n"

while inc<length:

    print "    |        |        \n"

    inc=inc+1

print "   /          \        \n"

print "  /   ______   \       \n"

print "  |  /      \  |       \n"

print "  | |        | |       \n"

print " /  |        |  \      \n"

print " \__/        \__/      \n"

Name: Anonymous 2007-03-17 0:16 ID:s/RgDImc

#!/usr/bin/env perl

use strict;
use PerlHP;

<% our $length %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">;
<html xmlns="http://www.w3.org/1999/xhtml"; lang="en" xml:lang="en">
<head>
<title>looooooongcat</title>
</head>
<body>
<% if(!$length=~/^\d+$/){ %>
   <form method="post" action="<%= $ENV{SCRIPT_NAME} %>">
    <p>
   <label for="length">How long is looooooongcat?</label>
   <input type="text" name="length" id="length"/>
   <input type="submit"/>
    </p>
   </form>
<% }else{ %>
   <p style="white-space:pre;font-family:monospace">
    ^_____^
   /    \
| # # |
\    @   |
   \   _|_ /
   /    \________
/ ________ ___   \
| ________   \ \__/
   | \__/
<%= " | |\n"x$length
%>   / \
/   ______   \
| / \ |
| | | |
/ | | \
\__/ \__/
   </p>
<% } %>
</body>
</html>

Am I doin it rite?

1 Name: Anonymous 2007-03-08 16:11 ID:ko8I8fKq

68 Name: Anonymous 2007-03-17 0:16 ID:s/RgDImc

Name: Anonymous 2007-03-08 16:11 ID:ko8I8fKq

Name: Anonymous 2007-03-17 0:16 ID:s/RgDImc