David Tate
  • Home
  • About
  • Books
  • DIY Tech MBA
Sign in Subscribe

perl poems

Barista

Coding for fun not profit. #!/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 (@words) { next if $word =~ /[^a-fA-F]/; next if $seen{$word}; $seen{$word} = 1;
David Tate Oct 29, 2011

school

[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 last BREATH; while(left) { sin; bless@ed; } } return ??; [tate]$ perl -c school.pl school.pl syntax OK
David Tate Oct 28, 2011

insomnia

[tate]$ cat sleep try { sleep; } catch { do { turn; } until(ready); } finally { awake; } [tate]$ ./sleep bash: ./sleep: Permission denied [tate]$ perl sleep Segmentation fault [tate]$
David Tate Oct 27, 2011

Subscribe to David Tate

Don't miss out on the latest news. Sign up now to get access to the library of members-only articles.
  • [Product of BGA Studios]:
  • Navigating Remote Work
  • DIY Tech MBA
  • 10x Debugger
David Tate © 2023. Powered by Ghost