larsen

use strict;
use warnings;
use feature qw/ say /;

use constant MXM_HM_GROUP => 9604;

use Net::Hiveminder;
use DateTime;

my $next_week = DateTime->now->add( days => 7 );

larsen

#!/usr/bin/perl 

use strict;
use warnings;

use feature qw/ say /;
use File::Tail;

my $filename = "test.txt";
my $maxlines = 10;

larsen

use strict;
use warnings;

use feature qw/ say /;

my $timeout  = 10; # seconds 
my $maxlines = 10;

eval {
    local $SIG{ ALRM } = sub {

larsen

sub parse_log_line {
    my $log_line = shift;

    my $monthname_numbers = {
        Jan => "01", Feb => "02", Mar => "03", Apr => "04",
        May => "05", Jun => "06", Jul => "07", Aug => "08",
        Sep => "09", Oct => "10", Nov => "11", Dec => "12"
    };

    if ($log_line =~ /^(.*?) - - \[(.*)\]  "(.*)" (\d+) \d+ "(.*)" "(.*)" hostname ".*?"/) {

larsen

import Data.Map as Map

type Inventory = [String]

data Direction = North
               | South
               | East
               | West
               | Up
               | Down

larsen

per ogni token dallo stream:
    se il token è l'apertura di un tag, e il tag appartiene 
    all'insieme di quelli nei quali vuoi fare l'escape:
        sono_dentro_ai_tag_incriminati = 1
        stampo il token così com'è
        
    se il token e` un pezzo di testo:
        se sono_dentro_ai_tag_incriminati == 1
            escape
            stampo il risultato

larsen

twitter_api_method users_lookup => (
    description => 'Fetches user informations, given a list of comma-separated user_ids',

    path         => 'users/lookup',
    method       => 'GET',
    params       => [qw/user_id cached cache/],
    required     => [qw/user_id/],
    returns      => 'HashRef',
    authenticate => 1
);

larsen

[DEV] larsen [~/src/hakyll-test/hakyll-examples/brochure] (master) 
[12:41:28] (22) ghc --make hakyll.hs 

Hakyll.hs:1:1:
    File name does not match module name:
    Saw: `Main'
    Expected: `Hakyll'

larsen

package TestConn;
use Dancer ':syntax';
use DBI;

my $dbh = DBI->connect( ... );

our $VERSION = '0.1';

get '/' => sub {
    my $sth = database->prepare( "...");

larsen

while ( my $row = $csv->readline( $fh )) {

	test
	
	my ( $field_1,
		 $field_2,
		 ...
		 $field_n ) = @$row;

... do something interesting with the fields ...