Perl: 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

#!/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