OONO Yoshitaka CLCL

#Perl Beginners #7 「僕が印刷会社の工程の業務パワーを強化しようとするけどとんでもないことになる話」アンチョコ

（読み上げソフトで発音できるように、単語を平仮名に開いている箇所があります。）

#1

みなさん、こんにちは。今日は、Webアプリ特集ということで、私が過去に作った事例を紹介してみたいと思い、お時間をいただきました。

	#!/usr/bin/perl

	# --------------------------------------------------------------------------
	# Mojoliciousが持っているテンプレートエンジンEPは、テンプレート側でロジック
	# が組めるので、MVCモデルで言うところのC側では、プレゼンテーション（表現って
	# いう意味ね）をいじるためのコードを書かないするようにするのがよい。
	#
	# 例えば、ファイルマネージャ的なウェブアプリケーションを作るとして、M側から
	# はファイルサイズがbyte数でしか出てこないものを、ヒューマンリーダブルにする
	# ために、KB・MB・GB表記に変更するっていうのはよくやるのだけれども、この単

	/*
	jQueryでアップロード進捗をAJAXで取得する的なの作るとき、
	（いまどきはクライアントサイドで進捗取れるけどあえてAJAX）、
	percentをプロパティに入れて管理したいんだけれども、コール
	バック内だとthisが別人になるので、うまくいかない。
	*/

	var s = function(){
	this.parcent = 0;
	};

	// オリジナルは、http://www.iwashi.org/archives/2540

	(function(){
	var start = new Date().getTime();
	documents.add( DocumentColorSpace.RGB, 3370, 2284 );
	var mColor = new RGBColor();

	for ( var b = 0; b < 16; b++ ) {
	mColor.red = b * 14;
	mColor.green = b * 12;

	#!/usr/bin/perl

	# Citrix XenServer 5.6/6.02用の xe xx-list 系の出力の簡易パーサ
	#
	# XenServerじゃないXenのばあい、xeコマンドではなくxmコマンド
	# なのでテストしていないけれども、＿＿DATA＿＿以降の書式が
	# 同じなら使えると思います。

	use 5.8.8; # XenServer 5.6/6.2のDom-0に入るSystem Perlは 5.8.8
	use strict;

	#!/usr/bin/perl
	use strict;
	use warnings;

	# HTTP Status codes from HTTP/Status.pm, to avoid loading package
	# that may or may not exist. We only need those >=400, but all
	# are included for potential future use.
	my %StatusCode = (
	100 => 'Continue',
	101 => 'Switching Protocols',

	#!/usr/bin/perl

	# Value-Domain.comで契約済みのドメインリストを取得します。
	#

	use strict;
	use warnings;
	use utf8;
	use Data::Dumper;
	use File::Spec;

	#!/usr/bin/perl

	use strict;
	use warnings;
	use LWP::UserAgent;

	my $url = 'https://www.verisign.co.jp/';

	my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } ) or die $!;
	my $res = $ua->head( $url ) or die $!;