larsen

sub get{
  my $self = shift;
  my $key = shift;
  my $column_path = shift;
  my $consistency_level = shift;

  $self->send_get($key, $column_path, $consistency_level);
  return $self->recv_get();
}

larsen

use strict;
use warnings;
use feature 'say';

use lib 'gen-perl';

use Thrift::XS;
use Thrift::Socket;
use Thrift::FramedTransport;
use Thrift::XS::BinaryProtocol;

larsen

sub get_track {
    my $self = shift;
    my %params = @_;

    return unless $params{ track_id }
               || $params{ track_mbid }
               || $params{ track_echonest_id };

    my $result = $self->_call_api( 'track.get', %params );

larsen

package Net::MusixMatch;
use Moose;
use Net::API::Abstract;
extends 'Net::API::Abstract';

set_domain 'http://api.musixmatch.com/ws/1.1/';
using Simple::Auth;
using JSON parser;

api_method 'track' => (

larsen

Examining task ID: task_201206131155_0003_m_000009 (and more) from job job_201206131155_0003
Examining task ID: task_201206131155_0003_m_000000 (and more) from job job_201206131155_0003
Examining task ID: task_201206131155_0003_m_000002 (and more) from job job_201206131155_0003
Exception in thread "Thread-147" java.lang.RuntimeException: Error while reading from task log url
	at org.apache.hadoop.hive.ql.exec.errors.TaskLogProcessor.getErrors(TaskLogProcessor.java:130)
	at org.apache.hadoop.hive.ql.exec.JobDebugger.showJobFailDebugInfo(JobDebugger.java:211)
	at org.apache.hadoop.hive.ql.exec.JobDebugger.run(JobDebugger.java:81)
	at java.lang.Thread.run(Thread.java:662)
Caused by: java.io.IOException: Server returned HTTP response code: 400 for URL: http://10.84.74.227:9103/tasklog?taskid=attempt_201206131155_0003_m_000002_4&start=-8193
	at sun.net.www.protocol.http.HttpURLConnection.getInputStream(HttpURLConnection.java:1436)

larsen

for i in {0..255} ; do
    printf "\x1b[38;5;${i}mcolour${i}\n"
done

larsen

use Encode;
use Encode::DoubleEncodedUTF8;
 
my $dodgy_utf8 = "Some byte strings from the web/DB with double-encoded UTF-8 bytes";
my $fixed = decode("utf-8-de", $dodgy_utf8); # Fix it

larsen

  my $from;

  if ($opt->get_from) {
    $from = $strp->parse_datetime($opt->get_from);
  }
  elsif ($opt->get_yesterday) {
    $from = DateTime->now->add( days => -1 );
  }

  my $today = DateTime->now;

larsen

#!/bin/sh


# Setup some variables needed for bootstrapping the environment
ROOT=/home/vrde/projectz/myproject
REPOS=${ROOT}/repos

export PYTHONPATH=${REPOS}

larsen

{
   "question" : {
      "left" : {
         "artist_id" : "106",
         "metadata" : {
            "oa_artist_info" : {
               "cover_photo" : [
                  {