Likk

<cfset localDate = now()>
<cfset utcDate   = DateConvert("Local2utc", localDate)>
<cfset epoch     = DateDiff("s", "January 1 1970 00:00", utcDate)>
<cfset utime     = 1371729285>
<cfoutput>
    Local Date: #localDate# <br>
    UTC Date: #utcDate# <br>
    Epoch: #epoch# <br>
    Time :#DateAdd("s", utime ,DateConvert("utc2Local", "January 1 1970 00:00"))# <br>
    yymmdd24hmiss: #DateFormat(localDate, "yyyy/MM/dd")# #TimeFormat(localDate, "HH:mm:ss")#

Likk

package main

import (
    "fmt"
    "io/ioutil"
)

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

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

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

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

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

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

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

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

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/ruby -Ku

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

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