Perl

PerlのXML::SimpleでEnd tag mismatch

Perlの話です。 XML文字列のパースにXML::Simpleを使っていたら「End tag mismatch (hoge != foo) [Ln: 125, Col: 495518205]」ていうエラーがでた。 パーサーを変更して解決した。 [perl] use XML::Simple; my $xml_string = ???; # XMLな文字列 パーサーを…

今日はPerlと向き合った

<a href="http://www.amazon.co.jp/%E5%88%9D%E3%82%81%E3%81%A6%E3%81%AEPerl-%E7%AC%AC5%E7%89%88-Randal-L-Schwartz/dp/4873114276%3FSubscriptionId%3DAKIAJSJNHUSHZBCW2UMQ%26tag%3Dtnnsst35-22%26linkCode%3Dxm2%26camp%3D2025%26creative%3D165953%26creativeASIN%3D4873114276" title="Amazon で商品の詳細を確認する"></a>

Perlのdecode

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

Perlでリストの要素数

<div class="section"> 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'); p</div>…

PerlでGoogle Analytics API

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

Perlのundef

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

Perlでメール送信

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