chip the glasses » perl http://chiptheglasses.com a garden of forking libraries of babel Wed, 11 Aug 2010 14:58:30 +0000 en hourly 1 http://wordpress.org/?v=3.0.1 automated cut-up poetry from large corpora http://chiptheglasses.com/2010/01/automated-cut-up-poetry-from-large-corpora/ http://chiptheglasses.com/2010/01/automated-cut-up-poetry-from-large-corpora/#comments Thu, 07 Jan 2010 18:37:00 +0000 nathanielksmith http://chiptheglasses.com/?p=71 I have completed my senior thesis project at earlham college.

It is stored in its entirety (code+paper) at github; although if you’d prefer a PDF over tex source there’s that too.

Here’s the video of my presentation (accompanying slides):

]]> http://chiptheglasses.com/2010/01/automated-cut-up-poetry-from-large-corpora/feed/ 0 sd.pl http://chiptheglasses.com/2009/10/sd-pl/ http://chiptheglasses.com/2009/10/sd-pl/#comments Tue, 13 Oct 2009 18:16:58 +0000 nathanielksmith http://chiptheglasses.com/?p=29 @i = split //,(pop @ARGV);print @i,"\n" and $i[rand int $#i]=chr ((int rand 94) + 32) while ($ARGV[0]--); @i = split //,(pop @ARGV);print @i,"%n" and $i[rand int $#i]=chr ((int rand 94) + 32) while ($ARGV[0]--); @i = split //,(pop @ARGV);print @i,"%n" and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]--); @i = }plit //,(pop @ARGV);print @i,"%n" and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]--); @i = }plit //,(pop @ARGV);print @i,"%n" and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]--); @i = }plit //,(aop @ARGV);print @i,"%n" and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]--); @i = }plit //,(aop @ARGV);print @i,"%n" and $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]--);]]> @i = split //,(pop @ARGV);print @i,”\n” and $i[rand int $#i]=chr ((int rand 94) + 32) while ($ARGV[0]–);
@i = split //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int rand 94) + 32) while ($ARGV[0]–);
@i = split //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(pop @ARGV);print @i,”%n” and $i[rand int $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(pop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr ((int raOd 94) + 32) while ($ARGV[0]–);
@i = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” and $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]=chr (()nt raOd 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]=chr (()nt raOi 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) while ($ARGV[0]–);
@z = }plit //,(aop @ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit //,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()nt raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aopu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGV[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @nt $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print @i,”%n” avd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Si,”%n” avd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Si,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]–);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axd $i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);print Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);prinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARGI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>t raOi 94) + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi 94) + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi 940 + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) -hile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) -vile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! raOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit F/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(aohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32) &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdH$i[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” axdHfi[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 32^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ Ei,”%n” ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%n" ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]echr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ohu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi[rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr (()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGV);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plit z/,(2ogu@ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plzt z/,(2ogu@ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }plzt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ $#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"%!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%zt z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi ]40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2ogu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \40 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9Hfi%rand @n[ K#i]ecJr i()>! MaOi \Y0 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9HPi%rand @n[ K#i]ecJr i()>! MaOi \Y0 + 3<^ &vile ($ARrI[0]G-);
@z = }p%!t z/,(2[gu$ARGq);rrinJ EiW"_!" ax9HPi%rand @n[ K#i]ecJr i()>! MaOi \B0 + 3<^ &vile ($ARrI[0]G-); ]]> http://chiptheglasses.com/2009/10/sd-pl/feed/ 0 Everything: the detailed history of the future, the true story of your death, the translation of every book in all languages http://chiptheglasses.com/2009/10/dead-air-flier-using-stringdecay-and-gimp/ http://chiptheglasses.com/2009/10/dead-air-flier-using-stringdecay-and-gimp/#comments Fri, 09 Oct 2009 14:38:42 +0000 nathanielksmith http://chiptheglasses.com/?p=22 I have a radio show every Monday at 9p on WECI 91.5FM. It’s (usually) internet streamable from a rando IP address (directions).

I wrote a very very simple perl script to destroy a string over time. I find the end result to be pretty aesthetically pleasing, so I use it to make fliers for my radio show:

dead air flier

I used a quote from Borges’s Library of Babel as input. The code that does the string decay is up on github.

If you feel like advertising for me, here’s a larger printable version.

]]> http://chiptheglasses.com/2009/10/dead-air-flier-using-stringdecay-and-gimp/feed/ 1 !blosxom http://chiptheglasses.com/2009/10/blosxom/ http://chiptheglasses.com/2009/10/blosxom/#comments Wed, 07 Oct 2009 03:10:49 +0000 nathanielksmith http://chiptheglasses.com/?p=18 Originally this blog was a blosxom blog. I learned of blosxom through hobix, which also made me intensely fascinated by why and his subsequent disappearance.

Here’s why I liked blosxom, and eagerly installed it on lovecraft, my eee server:

  • it’s perl
  • I can use vim to edit my posts
  • it doesn’t insist on rdbms bloatware (I’m looking at you, mysql)
  • it’s hip. I guess.

Unfortunately, my experience was less than stellar. It started off great–the installation was easy and I was up and running within a few minutes. I made my first post with ease. I was still starting at a nineties-looking black-text-on-white-background ‘flavour,’ however, and decided to update it; unfortunately blosxom failed to ever find my flavour files and refused to change styles. I read and reread the docs on the blosxom website (which, I began to notice, has many broken links and some links that simply go to the wrong place) to no avail. I googled around; I found no information or documentation more recent than 2007. I finally logged onto #blosxom on freenode and asked there as politely and fully as possible; that was about 24hrs ago (Yes, I’ve been lurking) and I never received a response from the dozen or so lurkers in there.

I was worried that as I started to add stuff like comments and search that I would have a similar experience, so I made a wordpress blog for myself just like I did for my sweetheart.

And, jeez. WordPress is just awesome. I will gladly overlook the php and the mysql for all the eye candy ease-of-use goodness awesome it provides.

]]> http://chiptheglasses.com/2009/10/blosxom/feed/ 0