gardejo

.*
!.gitignore
Makefile*
!Makefile.PL
META.yml
blib
build
inc
pm_to_blib
MANIFEST*

gardejo

.*
!.gitignore
Makefile*
!Makefile.PL
META.yml
blib
build
inc
pm_to_blib
MANIFEST*

gardejo

#! /usr/local/bin/perl


# ****************************************************************
# pragma(s)
# ****************************************************************

use strict;
use warnings;

gardejo

#! /usr/bin/perl

use strict;
use warnings;
use utf8;

use URI;
use Web::Scraper;

use YAML::Syck;

gardejo

# Replace "inherit (template)" with a new term for Text::Xslate!
#   http://search.cpan.org/perldoc?Text::Xslate

# See also:
#   template, inheritance とかでぐぐってもC++のテンプレートがほとんど。
#     http://twitter.com/__gfx__/status/12626545177
#   これは別名を付けないと流行らないとみた。
#     http://twitter.com/__gfx__/status/12626551999
#   [緩募] テンプレートエンジンの「テンプレート継承」にかわるクールな名前
#     http://twitter.com/__gfx__/status/12626579862

gardejo

#!perl
# (ネタ) ExcelをN秒毎に閉じたり開いたりするだけの簡単なお仕事


# ****************************************************************
# pragma(ta)
# ****************************************************************

use strict;
use warnings;

gardejo

version: 1.03
distribution: PSGI

gardejo

# When your script dies at an "use FindBin" line on Win32 environment (because the "5C Problem"),
# let's try to build a home-brew path as an equivalent of $FindBin::Bin!

use 5.008_001; # For modern support to multi-byte languages.
               # Rational ClearCase 7 contains ratlperl(ccperl) 5.008_006.
use strict;
use warnings;
use utf8;

use Encode qw(encode_utf8 find_encoding);

gardejo

@rem= '

@echo off
setlocal EnableExtensions EnableDelayedExpansion

if "%strawberry%" equ "" (
    set strawberry=\\{OUR_SHARED_DIRECTORY}\env\perl\5.12.0.1\
)
set path=%path%;%strawberry%\c\bin;%strawberry%\perl\bin;%strawberry%\perl\site\bin
set perl=%strawberry%\perl\bin\perl.exe

gardejo

#!/usr/bin/perl

use 5.010_000;
use strict;
use warnings;
use utf8;

use FindBin;
use lib "$FindBin::Bin/../lib";