↧
New Art (NOOArt)
#!/usr/bin/perl $artwork = new Art(); package Art; sub new {$this={};return bless $this;}
View ArticleErased de Kooning
#!/usr/bin/perl sub rauschenberg { $_[0] =~ s/\w//; return $_[0]; } $de_Kooning = "de Kooning Drawing\n"; print $de_Kooning = &rauschenberg($de_Kooning) while $de_Kooning =~ /\w/;
View ArticleNude Descending a Staircase
#!/usr/bin/perl $nude = "nude\n"; foreach(1..39){ print "" x $_.$nude; sleep(1); }
View ArticleA more personal Hello World - 11:00 EST, Mar 11, 2012
#!/usr/bin/perl use v5.10; $population = 6999816938; foreach(1...$population){ say "Hello"; }
View ArticleProtest
#!/usr/bin/perl sub protest{ reset $wall_street; return our $future; } until($equality){ protest; }
View ArticleFolding time
#!/usr/bin/perl open(TIME, '>time'); print TIME localtime; print `fold -w 5 time`;
View ArticleI am redundant
#!/usr/bin/perl sub redundant { 'I' =~ /I/ ? return 1 : return 1; }&redundant ? &redundant : &redundant;
View Article
![Various Artists – Old School / New School [iTunes Plus M4A]](http://i.imgur.com/GEFz815.jpeg)
![[Prime] Osprey Daylite Travel Pack 35 - Nightshift Blue $135 (RRP $199)...](http://files.ozbargain.com.au/n/87/976987l.jpg?h=1a642bba)