Black Perl
Report a link problem
Submission timeline
2007–2026One slot for every year since HN launched. Height is that year's peak points; orange marks a 100+ point or 50+ comment breakout. Select a bar to open its strongest thread.
Top comments
I wrote a (valid) Python poem a long time ago: import calendar as usual StandardError is usual \ or not usual. month is long try: not coerce finally: quit (help for me in range (usual. MONDAY))
Here's my favorite piece of perl: #!/usr/bin/perl -s @x=qw/e n d/;if( $kg){$e=13;$_="setrand(@{[int((rand)*90)]}) ;K=vector(2,g,nextprime(random(10^$s)));e=$e;n=K[1]* K[2];d=e^-1%((K[1]-1)*(K[2]-1));";s/\s//sg;for( `echo "$_ e\nn\nd\n"|gp -q`){print$x[$j++] ,"=",`echo "10i16o$_ p"|dc`}exit}$t= unpack'H*',join'',<>;$l=length$n;$y =$e?$l-2:$l;$i="16dio";while (){$M= ($e&&1+int(rand 8)).(substr $t,$p ,$y or last);$i.="\U$M $k $n\E| pc";$p+=$y}for(reverse `echo "$i"|dc`){chop ;$d&&s/^(.)//||($_= sprintf"%0${l}s" ,$_)…
The first top-level comment from each of the four biggest threads, in HN’s own order. Excerpts are shortened; open a comment for full context.
HN stats
- Breakout years
- 2
- Total points
- 484
- Total comments
- 107
100+ points or 50+ comments
reference only — not used in Hall rules or ranking
reference only — not used in Hall rules or ranking
Every submission
| Date | Title as submitted | By | Points | Comments |
|---|---|---|---|---|
| 2010-01-30 | Black PerlFirst breakout | soundsop | 124 | 40 |
| 2013-09-12 | Black PerlBest thread · Latest 20+ point return | diego | 330 | 67 |
| 2019-03-12 | Black Perl | rbanffy | 10 | 0 |
| 2021-03-03 | Black Perl | Ozzie_osman | 8 | 0 |
| 2021-07-14 | Black Perl (Code Poetry)Hall induction | twobitshifter | 3 | 0 |
| 2021-08-26 | Black Perl | dempedempe | 2 | 0 |
| 2026-07-25 | Black Perl | thunderbong | 7 | 0 |