Likkradyus Likk

## datetime2.cfml
<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")#

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

## main.go
package main

import (
    "fmt"
    "io/ioutil"
)

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

## slack_rtm_bot_test1.pl
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 }

## slack_term.pl
#!/usr/bin/perl

use strict;
use warnings;
use utf8;

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

## slack.pl
use strict;
use warnings;
use utf8;
use Encode;
use Slack::RTM::Bot;
use Term::ANSIColor;

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

## git_clean.pl
#!/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';

## WWW::Lingr
package WWW::Lingr;

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

## negatibot.rb
#!/usr/bin/ruby -Ku

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

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

## gist:2318514
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 ; }'
	<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")#
	package main

	import (
	"fmt"
	"io/ioutil"
	)

	const script = `<?php
	file_put_contents("php://stderr", "This is PHP world!!!".PHP_EOL);
	__halt_compiler();
	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 }
	#!/usr/bin/perl

	use strict;
	use warnings;
	use utf8;

	use Carp;
	use Config::Pit;
	use DateTime;
	use Encode;
	package WWW::Lingr;

	use strict;
	use warnings;
	use utf8;
	use Carp;
	use Encode;
	use Try::Tiny;
	use Web::Scraper;
	use WWW::Mechanize;
	#!/usr/bin/ruby -Ku

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

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