sng2c

Test::Continuous Quick Guide

참조

• CPAN : https://metacpan.org/pod/Test::Continuous
• 저장소 : https://github.com/gugod/Test-Continuous
• 소개 : http://www.slideshare.net/gugod/test-continuous

설치

sng2c

---
database:
  dsn: DBI:mysql:database=DBNAME;host=DBHOST
  userid: DBUSER
  passwd: DBPASS
  options:
    mysql_enable_utf8: 1
    mysql_auto_reconnect: 1

sng2c

#!/usr/bin/env perl
use 5.010;

my $path = '.';

my @types=qw( mov mp4 avi mkv m4v xvid divx wmv mpg mpeg );

my @files = `find $path`;
chomp(@files);

sng2c

#!/usr/bin/env perl 
use 5.018;
#use Encode qw(from_to);
my $smi_path = $ARGV[0];
my $want = lc $ARGV[1];
my $smi;
{
    local $/;
    undef $/;
    open(my $smifh,'<', $smi_path);

sng2c

import scala.swing._
import scala.swing.event._

object ButtonApp extends SimpleSwingApplication {
  def top = new MainFrame {
    title = "My Frame"
    contents = new GridPanel(2, 2) {
      hGap = 3
      vGap = 3
      contents += new Button {

sng2c

#!/usr/bin/env perl 
use HTTP::Proxy;
my $proxy = HTTP::Proxy->new( 
	host => '', 
	port => 8080,
  maxchild=>10,	
);
$proxy->start;

sng2c

#!/usr/bin/env perl 
use re 'regexp_pattern';

my $reg = qr/(?i)abc/s;
my ($pat,$flag) =  regexp_pattern $reg;
print "pat :$pat\n"
print "flag:$flag\n";

# pat :(?i)abc
# flag:is

sng2c

package KorMailSend; 
 
use strict; 
use warnings; 
use MIME::Lite; 
use MIME::Base64; 
use Encode qw(encode); 
sub sendmail{ 
    my ($from,$to,$subj,$cont) = @_; 
    my $subj2 = '=?UTF8?B?' . encode_base64($subj) .'?='; 

sng2c

#!/bin/sh
# An example of start.sh
./app_pkg.pl daemon -l 'http://localhost:50005'

sng2c

VRoom current page viewer

You can see current editing slide page on VRoom with typing 'SS' in VIM. To activate this function, move 'vroom_cur.pl' to your path. And append below one line to .vimrc file.

map SS :w|:execute "!vroom_cur.pl '".bufname("%")."' ".line(".")