frodwith

# Drop into ~/Library/Application Support/Colloquy/PlugIns

import re
from Foundation import *

get_module = re.compile(r'(?:cpan:)?(?P<module>\w+(?:::\w+)*)$')

def open_perldoc(module):
    url = NSURL.URLWithString_('http://search.cpan.org/perldoc/' + module)
    NSWorkspace.sharedWorkspace().openURL_(url)

frodwith

# vim:syntax=perl

# A PSGI app that listens for POSTs, runs an editor on the posted text,
# and returns the modified text as the response body.  Intended for use with
# Chrome extensions like TextAid and Edit With Emacs.  
#
# This app blocks, so you'll want to run it in a forking Plack server (like
# Starman).
#
# Requires: Plack

frodwith

use warnings;
use strict;

use Getopt::Long;

my ($search, $sfilename);

GetOptions(
    'search=s'  => \$search,
    'servers=s' => \$sfilename,

frodwith

Encoding and utf8 in perl

A perl string is a logical sequence of characters.

encoding a perl string produces a sequence of octets. decoding a sequence of octets produces a perl string.

utf8::is_utf8 tells you whether the string is a sequence of logical characters (true) or a sequence of octets (false). You should not

frodwith

import script pseudocode:
    find all sites on this server
    for each site:
        look in config file (see below for example)
        for each entry for this site:
            fetch package from 300dev/config.url
            import package under config.parent with the overwriteLatest flag 
            set according to config.overwrite (default yes)

frodwith

We have the opportunity now to rethink the way packages are done. The old
methods need to continue working, so we're going to maintain backwards
compatibility -- that is, we are going to support the old package format, etc.

New package system
---
- packages aren't going to be tied to WebGUI::Storage.
    - operates on directories, not tarballs (transport detail)
    - possibly support other transports, like gzipped tarballs

frodwith

#!/usr/bin/perl

use warnings;
use strict;

my %keys = ( esc => 53, tab => 48, space => 49);

my %mt = (m => 'command', 'o' => 'option', c => 'control', s => 'shift');
my @mods = @ARGV;
my $key = pop @mods;

frodwith

use warnings;
use strict;

use DBI;

my $dbname = $ARGV[0] || die 'No database file name';
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbname");

my $games = $dbh->selectall_arrayref('SELECT * FROM t_gibo', { Slice => {} });

frodwith

?-  val
  {$thing *}  ...
  {$gizmo *}  ...
==

frodwith

:-  %say
|=  [* ~ *]
:-  %noun
=<  ^-  (list @uv)
    %-  turn
    :_  mung
    ^-  (list *)
    :~  0
        42
        [0 0]