ForceArray 配列前提で値を取っていく時 要素数1の場合、配列として読まれないのでForceArrayする my $data = $xml->XMLin($target_file,ForceArray => ['playlist']); while ($i<$MAX) { my $Id = $data->{'List'}[$i]->{'Item'}->{'Id'}; $i++; 値チェック…

for,foreachとほぼ同じだが変換を明示的にできる #!/usr/bin/perl my %testmap={ 'hoge' => 'A' , 'foo' => 'B' , 'bar' => 'C' }; my @keys=('hoge','foo','bar'); my @result = map { $testmap{$_}; }@keys; print join(',',@result) . '\n'; --- A,B,C

fetchとselect selectrow_array は prepare excute fetchrow_array の処理をまとめたメソッド DBIの使い方 #!/usr/bin/perl use DBI; my $data_source = 'DBI:mysql:test:localhost:3306'; my $user = 'user'; my $pass = 'pass'; my $dbh = DBI->connect($d…

perl,DBIでテーブルが存在するか確認する方法 # table_nameというテーブルが存在するかどうか $sql = qq{ show tables like 'table_name'; }; $sth = $db->prepare ($sql); $tbl = $sth->execute (); $sth->finish; $db->commit (); if ($tbl != '0E0'){ # …

our, my, local our. パッケージ変数 スコープの外からでもパッケージ名をつけて参照できる my. レキシカルスコープ スコープ内で参照可能な変数を宣言 local. ダイナミックスコープ グローバルな変数がいた場合一時スタックに退避 実行時のスコープ内で宣言…