Skip to content

Instantly share code, notes, and snippets.

@2shortplanks

2shortplanks/metaqq.pl

Created January 24, 2014 14:16
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save 2shortplanks/8598071 to your computer and use it in GitHub Desktop.
Save 2shortplanks/8598071 to your computer and use it in GitHub Desktop.
Download ZIP
A script I use in TextExpander to insert 'print STDERR "zlonk bloop\n";' etc into my Perl scripts whenever I type 'metaqq' (for debugging)
Raw
metaqq.pl
#!/Users/mark/perl5/perlbrew/perls/perl-5.16.0/bin/perl
use 5.016;
use warnings;
use Acme::MetaSyntactic;
say 'print STDERR "',
join(' ', Acme::MetaSyntactic->new( 'batman' )->name(2)),
'\\n";'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment