All posts in category perl poems

Barista

Coding for fun not profit. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 #!/d/perl/bin/perl.exe # (void*) # If I ever own a cafe it will be called # 0xBADDECAF or just 0xCAFE, but what else could it be? while (<>) { my @words = split; foreach my $word […]

school

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 [tate]$ cat school.pl while($time) { study until $summer; goto sleep unless $school; my $time_here = undef and exists $the{exit};   do { bless $all , accept $all , connect $all , join $all } until […]

insomnia

1 2 3 4 5 6 7 8 9 10 11 [tate]$ cat sleep try { sleep; } catch { do { turn; } until(ready); } finally { awake; } 1 2 3 4 5 [tate]$ ./sleep bash: ./sleep: Permission denied [tate]$ perl sleep Segmentation fault [tate]$