tcoxon · February 4, 2010 19:58
diff --git a/Reddit clone in 4 lines of perl. b/Reddit clone in 4 lines of perl.
 #!/usr/bin/perl
 use CGI":standard";chdir($0=~s~[^/]*$~~);import_names("x");while($x::t){open$f,">$x::t.r";print$f "$x::l$/$x::v$/".($x::i?$x::i:localtime);close$f;CGI::delete(split(//,~~tlvi));$x::t=0}@r=$x::s?<*$x::s*.r>:<*.r>;print header,start_html,start_form,textfield(-name=>'s',-value=>"search"),submit,end_form,start_form,textfield(-name=>~~t,-value=>"title"),textfield(-name=>~~l,-value=>"link"),hidden(-name=>v,-value=>0),submit,end_form,ul li([sort{$s=sub{$_=$_[0];s~<.*?>~~g;$_};$s->($b)cmp$s->($a)}map{open$f,$_;@a=<$f>;chomp@a;m/(.*)\.r/;(a{href=>"?t=$1&l=$a[0]&i=$a[2]&v=".($a[1]+1)},"^").$a[1].(a{-href=>"?t=$1&l=$a[0]&i=$a[2]&v=".($a[1]-1)},"v")." ".(a{-href=>$a[0]},$1).br.small"added: ".$a[2]}@r]),end_html
 # Note: you may need to chmod the directory containing the script to 777.
 # Warning: DO NOT host on a public website. It will open up all sorts of nasty security holes.
	#!/usr/bin/perl
	use CGI":standard";chdir($0=~s~[^/]$~~);import_names("x");while($x::t){open$f,">$x::t.r";print$f "$x::l$/$x::v$/".($x::i?$x::i:localtime);close$f;CGI::delete(split(//,~~tlvi));$x::t=0}@r=$x::s?<$x::s.r>:<.r>;print header,start_html,start_form,textfield(-name=>'s',-value=>"search"),submit,end_form,start_form,textfield(-name=>~~t,-value=>"title"),textfield(-name=>~~l,-value=>"link"),hidden(-name=>v,-value=>0),submit,end_form,ul li([sort{$s=sub{$_=$_[0];s~<.?>~~g;$_};$s->($b)cmp$s->($a)}map{open$f,$_;@a=<$f>;chomp@a;m/(.)\.r/;(a{href=>"?t=$1&l=$a[0]&i=$a[2]&v=".($a[1]+1)},"^").$a[1].(a{-href=>"?t=$1&l=$a[0]&i=$a[2]&v=".($a[1]-1)},"v")." ".(a{-href=>$a[0]},$1).br.small"added: ".$a[2]}@r]),end_html
	# Note: you may need to chmod the directory containing the script to 777.
	# Warning: DO NOT host on a public website. It will open up all sorts of nasty security holes.