Insecure I (Ncode)
#!/usr/bin/perl print "Enter text to Ncode:\n"; $text=<>;@text=split('', $text); foreach(@text){ $ascii=ord($_); $coded.="N"."n" x $ascii."N"; } `echo $coded >ncode.txt`;print $coded;
View ArticleInsecure II (uNcode)
#!/usr/bin/perl $text=`cat ncode.txt`;@text=split('N',$text); foreach(@text){ $ascii=length($_) unless $_=~/[^n]/g; $uNcode.=chr($ascii); } print "$uNcode\n";
View ArticleHow to explain Perl to a dead hare
#!/usr/bin/perl $info = `perldoc -q .`; @words = split("", $info); foreach $word(@words){ `say $word`; }
View ArticleFlag
#!/usr/bin/perl binmode STDOUT, ':utf8'; @colors = ("\e[0;31m", "\e[0;34m"); @symbols = (chr(0x268c), chr(0x272a)); while(1){ ($x, $y) = (int(rand(`tput cols`)), int(rand(`tput lines`))); system...
View ArticleTwo or love
#!/usr/bin/perl if(2 == 2 || 'love' =~ /u/){ $two = 1 unless $none; while($beef || $pork){ sleep(11) && fork(); } }else{ sleep(22) && print "fun"; }
View ArticleMy @rt
#!/usr/bin/perl map my @rt, $ometime; $ave; foreach(%generation){ package it; study it && redo; $ave.it; } @rt = (80, 65, 76, 76, 32, 84, 72, 65, 89, 69, 82, 10); foreach(@rt){print chr($_);}
View ArticleSubverting time-based media: Frozen in time
#!/usr/bin/perl fork && print "Time has fallen asleep in the afternoon sunshine.\n" while 1;
View Article> Intended
#!/usr/bin/perl system 'clear'; ($width,$height) = (`tput cols`,`tput lines`); while($height > 0){ foreach(1..$width/2){ system 'tput', 'cup', $height-$_, int($width*0.5) - int($_*0.5); print ">"...
View ArticleIf times ten
#!/usr/bin/perl $one = 1; if($one){ $two = 1; if($two){ $three = 1; if($three){ $four = 1; if($four){ $five = 1; if($five){ $six = 1; if($six){ $seven = 1; if($seven){ $eight = 1; if($eight){ $nine =...
View ArticleSubstance trilogy - Solid
#!/usr/bin/perl sub match { print "match\n"; } if(<> =~ /^solid$/){ match; }
View ArticleSubstance trilogy - Fluid
#!/usr/bin/perl sub match { print "match\n"; } $in = <>; if($in =~ /$in/){ match; }
View ArticleSubstance trilogy - Gas
#!/usr/bin/perl sub match { print "match\n"; } if(<> =~ /^.+$/){ match; }
View ArticleThe strain and pressure of modern living
#!/usr/bin/perl while(1){ my $strain = {name => 'strain'}; my $pressure = {name => 'pressure'}; $strain->{strain} = $pressure; $pressure->{pressure} = $strain; select(undef, undef, undef,...
View ArticleCarcinogen
#!/usr/bin/perl while(1){ $new_cell = $0; $ts = time; $new_cell =~ s/^(.*?)\.?([^\.]*)$/$1$ts\.$2/; `cp $0 $new_cell`; print `clear && df`; sleep(1); }
View ArticleAugmented reality
#!/usr/bin/perl $reality = "real text\n"; $augmented_reality = "\e[31;40m augmented ".$reality."\e[0m"; print $reality; print $augmented_reality;
View ArticleThe semi-automatic doodle machine
#!/usr/bin/perl print "Use a pencil and a 210mm x 210mm sheet of paper. Start with your hand at the upper-left corner.\n"; @position = ('up', 'down'); @direction = (['up', '-'], ['to the left', '-'],...
View ArticleMoodstream
#!/usr/bin/perl $width = `tput cols`; $mood = @ARGV[1] if @ARGV[0] eq '-m'; @mood = split('', $mood ? $mood : 'indifferent'); while(1){ foreach(@mood){ $color = ord($_).'m'; print "\x1b[48;5;$color";...
View ArticleFor Each (and every) Color
#!/usr/bin/perl while(1){ foreach $color (1..256){ $output = "\x1b[48;5;$color"."m"; foreach(0..`tput lines`){ $output .= "" x `tput cols`; $output .= "\n"; } $output .= "\x1b[0m\n"; print $output;...
View ArticleThe world could end today
#!/usr/bin/perl $secs_per_day = ((24*60)*60); ($curr_secs, $curr_mins, $curr_hours) = (localtime)[0..2]; $curr_total_secs = (($curr_hours*60)*60)+($curr_mins*60)+$curr_secs; $likelyhood =...
View ArticleThe path to enlightenment
#!/usr/bin/perl $height = `tput lines`; @lines = ('\\', '|', '/'); $last_line = 30; while(!$enlightened){ system 'clear'; foreach(1..$height){ $the_spot = abs($_ - ($height)); $the_line =...
View ArticleHow to forget
#!/usr/bin/perl $remember = "fixed in memory"; foreach $k(keys %main::){ $var = $k; eval{$$var = undef;}; } print $remember;
View ArticleWhat I want/need
#!/usr/bin/perl $me = 1; sub need { $want = shift; $need = $want+$me; return $need; } print need($me)."\n";
View Articleeol: End of Life
#!/usr/bin/perl sub to_earth{return;} sub your_life{return to_earth;} sub eol{return your_life;} eol;
View ArticleI am redundant
#!/usr/bin/perl sub redundant { 'I' =~ /I/ ? return 1 : return 1; }&redundant ? &redundant : &redundant;
View ArticleFolding time
#!/usr/bin/perl open(TIME, '>time'); print TIME localtime; print `fold -w 5 time`;
View ArticleProtest
#!/usr/bin/perl sub protest{ reset $wall_street; return our $future; } until($equality){ protest; }
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 ArticleNude Descending a Staircase
#!/usr/bin/perl $nude = "nude\n"; foreach(1..39){ print "" x $_.$nude; sleep(1); }
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 ArticleNew Art (NOOArt)
#!/usr/bin/perl $artwork = new Art(); package Art; sub new {$this={};return bless $this;}
View Article