Perl

Perlのdecode

Perlのdecodeを使って [utf-8] → [euc-jp] に変換するときに変なエラーが起こったので、その対策をメモ。 use Encode; ##なんかもろもろ書いてあるとして my $data = 'ハローワールド' #utf-8の文字列 $data = decode('utf-8', $data); $data = encode('euc-…

Perlでリストの要素数

Perlでリストの要素数を取得するには、scalarを使い、 リストをスカラーとして評価するといいらしいです。 test.pl #!/usr/bin/perl use strict; use warnings; my @list = ('a', 'b', 'c', 'd', 'e'); my %hash = ('A' => 'a', 'B' => 'b', 'C' => 'c'); pr…

PerlでGoogle Analytics API

Google Analytics APIでデータを取得するプログラムをPerlで書いた。 といっても、たつをさんの「「Google Analytics API を Perl から扱うスクリプト」の標準モジュール使用版」からいただいたコードを少し変えただけです。 GoogleAnalytics.pm package Goo…

Perlのundef

Perlでは、未定義な値をundefとして取り扱う。 $hoge; #$hoge = undef; と同じ ここで$hogeを数値型として扱う場合は0として、 文字列型として扱う場合は空文字列として扱う。 また、NULL値もundefとして扱われるようだ。 $hoge += 3; #$hoge = 0 + 3; と同…

Perlでメール送信

Perlでメール送信するプログラムを書いたのでメモ。メールを送信する方法はいくつかあるらしいが、 今回はNet::SMTPモジュールを使っている。まずはコードの先頭で、Net::SMTPモジュールを使うことを宣言する。 use Net::SMTP メールを送信するには、以下の…