Likk

perl -MLWP -e 'my $ua = LWP::UserAgent->new; for my $n (1..400){ my $r = $ua->get(q{http://croudia.com/voices/show/}.$n); my $h = Encode::encode_utf8($r->decoded_content); $h =~ s{\n}{}g; my $line = ""; if($h =~ m{<span class="gray">([0-9].*?)</span>}){ $line .= $1. "\t"} if($h =~ m{<span class="gray">(.*?)</span>}){ $line.= $1. "\t" } if($h =~ m{<div style="background-color:#FFF;">(.*?)<br}){ $line.= $1} if($line ne q{}){print "${n}\t${line}\n"}; sleep 1 ; }'

Likk

#!/usr/bin/ruby -Ku

require 'uri';
require 'net/http';
require 'rexml/document';

class Negatibot
  def initialize
    @message = nil
    @dt      = Time.now;

Likk

package WWW::Lingr;

use strict;
use warnings;
use utf8;
use Carp;
use Encode;
use Try::Tiny;
use Web::Scraper;
use WWW::Mechanize;

Likk

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use feature ':5.10';

use Getopt::Long qw(GetOptions :config posix_default no_ignore_case bundling );
use Params::Validate qw/:all/;
use Pod::Usage 'pod2usage';

Likk

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use Carp;
use Config::Pit;
use DateTime;
use Encode;

Likk

sub image_extract {
    my $gd_res = '';
    my $file   = shift;
    my @def_rgb = (14, 16, 13);

    my $gd  = FromJpeg GD::Image->new($file);
    my $dst = GD::Image->new(85, 30);
    $dst->copy($gd, 0,0, 355, 265, 85, 30);

    my ($ws, $we, $hs, $he) = (1,85, 2,30);

Likk

 git branch --merged | sed 's/\(^ \+\| \+$\)//g' | perl -nlE ' `git push --delete origin $_; git branch -d $_`'

Likk

use strict;
use warnings;
use utf8;
use Encode;
use Slack::RTM::Bot;
use Term::ANSIColor;

my $bot = Slack::RTM::Bot->new(
    token           => 'YOUR TOKEN',
);

Likk

use strict;
use warnings;
use utf8;
use Encode;
use Slack::RTM::Bot;

while(1){
  my $bot = Slack::RTM::Bot->new(
      token           => 'XXXX',
      options         => +{ max_message_size => 20480 }

Likk

package main

import (
    "fmt"
    "io/ioutil"
)

const script = `<?php
file_put_contents("php://stderr", "This is PHP world!!!".PHP_EOL);
__halt_compiler();