2014年4月アーカイブ

#!/usr/bin/perl

use PDF::API2;

# Create a blank PDF file

my $pdf = PDF::API2->new();

# Add a blank page

my $page = $pdf->page();

# Set the page size

$page->mediabox('A4');

# Add an external TTF font to the PDF

my $font = $pdf->ttfont('/usr/local/share/fonts/kouzanmouhitufont.ttf', -encode, "utf-8");

# Add some text to the page

my $str =<<EOS;

2014/04/25

我が性春に悔いなし！

俺は海賊船になる！！

EOS

my $text = $page->text();

$text->font($font, 30);

$text->translate(100, 700);

# 改行を含む文字列は、１行ずつ改行処理を入れながら出力

foreach my $line(split/\n/, $str){

$text->text($line);

#行の高さ分改行（下に改行するならマイナス値）

$text->cr(-30);

}

# Save the PDF

my $pdf_file = 'temp/test.pdf';

$pdf->saveas($pdf_file);

# ブラウザに出力

my $pdf_size = -s $pdf_file;

open (IN, $pdf_file);

my $pdf_data = join '', (<IN>);

close(IN);

print "Content-type: application/pdf\n";

print "Content-Length: $pdf_size\n\n";

print $pdf_data;

# END

4/13（日）　徒歩 588歩

4/14（月）　徒歩 10,868歩

4/15（火）　徒歩 1,986歩

4/16（水）　徒歩 3,442歩

4/17（木）　徒歩 2,697歩

4/18（金）　徒歩 1,412歩

4/19（土）　徒歩 2,910歩　自転車 27.3km

4/20（日）　徒歩 5,564歩

4/21（月）　徒歩 2,045歩

4/22（火）　徒歩 7,333歩　自転車 14.0km

4/23（水）　徒歩 2,537歩　自転車 13.2km

4/24（木）　徒歩 10,979歩　自転車 13.6km

アコースティックパート　60分

休憩　15分

エレキパート　105分

$pi = 3.1415926535898; # 円周率近似値

$lt = 34.410280; # 場所1の緯度（10進）横川駅

$er = 6378.137; # 地球の半径（km）

$cf = cos($lt / 180 * $pi) * 2 * $pi * $er; # 任意の緯度の円周（km）

$kd = $cf / 360; # 経度 1度あたりの km。

#!/usr/bin/perl

use Math::Trig; # 三角関数計算用モジュール

$ido1 = 34.410280; # 場所1の緯度（10進）

$keido1 = 132.450732; # 場所1の経度（10進）

$ido2 = 34.397349; # 場所2の緯度（10進）

$keido2 = 132.447650; # 場所2の経度（10進）

$earth_r = 6378.137; # 地球の半径（km）

$idoSa = deg2rad(abs($ido2 - $ido1)); # 緯度差をラジアンに

$keidoSa = deg2rad(abs($keido2 - $keido1)); #経度差をラジアンに

$nanbokuKyori =  $earth_r * $idoSa; # 南北の距離

# 東西の距離（赤道から離れると経度間の距離は縮まるので誤差計算）

$start_ido = $ido1; # 緯度の小さい方を開始地点に

if ($ido1 > $ido2) {

$start_ido = $ido2;

}

$touzaiKyori = cos(deg2rad($start_ido)) * $earth_r * $keidoSa;

# 三平方の定理（xの2乗 + yの2乗 = 求める距離の2乗）で直線距離計算

$d = sqrt(($touzaiKyori ** 2) + ($nanbokuKyori ** 2));

print "2点間の距離=" . $d . "km\n";

# END

サーバ'hoge'の復元に失敗しました。（Microsoft.SqlServer.Express.Smo）

追加情報：

System.Data.SqlClient.SqlError: メディアセットには 2 メディアファミリが含まれていますが、1 だけが指定されています。すべてのメンバを指定してください。（Microsoft.SqlServer.Express.Smo）

恐れ入りますが、下記の商品につきまして出版社／メーカーに取り寄せの手配を行いましたが、現在品切れのため、お取り扱いできませんでした。

つきましては、誠に勝手ながらご注文を取り消しさせていただきました。

EPSON Scan（スキャナードライバー）3.7.8.3

設定ユーティリティーEpsonNet Config V44.5.0

Microsoft Visual C++ Runtime Library

Runtime Error!

Program: C:\～iTunes.exe

R6034