Perl再入門の最近のブログ記事

• コマンドラインから実行することを想定しています。
• ユーザ名、パスワード、DB接続情報などは環境に合わせて変更してくださいね。
• サンプルではMySQLを使用していますが、他のRDBMSにも使えると思います。

 #!/usr/bin/perl
 
 use strict;
 use warnings;
 use DBI;
 
 my $user = 'username';
 my $passwd = 'pass';
 my $host = 'localhost';
 my $dbname = 'mysample';
 my $dbh = DBI->connect("DBI:mysql:$dbname:".$host, $user, $passwd);
 
 my $sql;
 my $sth;
 
 # CREATE TABLE
 $sql = "CREATE TABLE prefmaster ( id INT , name VARCHAR(255) ) ";
 $dbh->do($sql);
 
 # INSERT
 $sql = " INSERT INTO prefmaster (id,name) values (1, 'hokkaido') ";
 $dbh->do($sql);
 $sql = " INSERT INTO prefmaster (id,name) values (2, 'akita') ";
 $dbh->do($sql);
 
 # SELECT
 $sql = "SELECT * FROM prefmaster";
 
 $sth = $dbh->prepare($sql);
 $sth->execute;
 
 print "SELECT\n";
 while(my @a = $sth->fetchrow_array){
     print "@a\n";
 }
 print "\n";
 
 # UPDATE
 $sql = " UPDATE prefmaster SET name = 'iwate' WHERE id = 2 ";
 $dbh->do($sql);
 
 # DELETE
 $sql = " DELETE FROM prefmaster WHERE id = 1 ";
 $dbh->do($sql);
 
 # SELECT AGAIN
 $sql = "SELECT * FROM prefmaster";
 
 $sth = $dbh->prepare($sql);
 $sth->execute;
 
 print "SELECT\n";
 while(my @a = $sth->fetchrow_array){
     print "@a\n";
 }
 print "\n";
 
 
 # DROP TABLE
 $sql = " DROP TABLE prefmaster ";
 $dbh->do($sql);
 
 
 $sth->finish;
 $dbh->disconnect;

ソースコードをUTF8で書いて、print文をUTF8で出力したい場合。

自分でもよく忘れるのでメモ。

#!/usr/bin/perl


use strict;

use warnings;

use utf8;      # このスクリプトはUTF8で書かかれていますよ、という宣言

binmode STDOUT, ":encoding(utf8)";　  # 以下のPrint文を自動的にUTF8として出力せよ、という命令

my $str ="あいうえお\n";

print substr($str,2,1)."\n;"　　　　#  'う'　 と出力される。

Perlでは、サブルーチンへのリファレンスを作って変数に格納することができます。

例

use strict;


sub greets {

	print "hello\n";

}

my $ref = \&greets;

デリファレンス

 &greets();  # → hello 

&{ $ref }();  # → hello 

デリファレンスの省略記法

下記のコードはすべて同じ動作をします。

&{$ref}();
&$ref();
$ref->();

無名配列コンストラクタ [ ] を使って、ネストされたリファレンスを作ることができます。

例１

my $ref = [ [ 1, 2, 3 ] , [ 2, 4, 6 ] ] ;

例２

my @array1 = ( 1, 2, 3 );

my @array2 = ( 2, 4, 6 );

my @array_all = ( \@array1, \@array2 );

my $ref = \@array_all;

デリファレンス

print $ref->[1]->[1];   #  出力 4

または

print $ref->[1][1];   #  出力 4

２次元配列

上の例を見ると、２次元配列によく似ていることがわかると思います。
Perlではこのようにして２次元配列を実現します。

もちろん、ネストを重ねれば多次元配列を作れます。

例１

my $ref = [ 2, 4, 6 ]; 

例２

my @array = ( 2, 4, 6 );

my $ref = \@array;

use strict;

my @list = ("a", "b", "c");

my $ref = \@list;


# 配列全体を取り出す

print "@{$ref}\n"; # 出力： a b c

print "@$ref\n";   # 出力： a b c


# 配列の要素を取り出す

print "${$ref}[0]\n"; # 出力： a

print "$$ref[0]\n";   # 出力： a

print "$ref->[0]\n";  # 出力： a

省略のルール

• { なんちゃら } が単純なスカラー変数の場合は、{ }を省略できる。
例： @{ $ref }　　⇒　　@$ref
　　　${$ref}[0]　 ⇒　$$ref[0]
• ${ なんちゃら }[1] と書ける全てのコードは、なんちゃら->[1] と書ける。
例：　${$ref}[0] ⇒ $ref->[0]

配列のリファレンスをネスト

use strict;


my @array1 = (1, 2, 3);

my @array2 = (2, 4, 6);


my @all = (\@array1, \@array2);

my $ref = \@all;


# 値を取り出す

print "${${$ref}[1]}[2]\n";  # 出力: 6

print "$ref->[1]->[2]\n";    # 出力: 6

print "$ref->[1][2]\n";      # 出力: 6


# 配列を取り出す

print "@{${$ref}[1]}\n";  # 出力: 2 4 6

print "@{$ref->[1]}\n";   # 出力: 2 4 6

デリファレンスの省略記法

• ${なんちゃら}[1] と書ける全てのコードは、なんちゃら->[1] と書ける。
• 添え字的なもの間に挟まれている矢印、つまり[1]->[2]とか{'foo'}->{'bar'}とかの矢印は省略できる。

例

${$ref}[1]　　＝＞　　$ref->[1]

$ref->[1]->[2]　　＝＞　$ref->[1][2]

無名配列を作る

my $ref;

{
  my @array = (2, 4, 6);
  $ref = \@array;
}

print "@$ref";  # 出力: 2 4 6

print $ref->[1];  # 出力 4

print "@$ref";    # 出力 2 4 6

無名配列へのリファレンスを作る

my @array = ( 2, 4, 6 );

my $ref = \@array;

my $ref = [ 2, 4, 6];

print $ref->[1];  # 出力 4

print "@$ref";    # 出力 2 4 6

リファレンスからデータの実体を取り出すことを、デリファレンスするといいます。

まずは配列。

リファレンス入門

forとforeachは、何が違うのか？

実は、違いはありません。
まったく同じです。
リャマ本こと「初めてのPerl」の第１０章にもこう書いてあります。

Perl文法の中では、キーワードforeachはキーワードforと完全に等価です。
つまり、プログラムの中で、forと書いてもforeachと書いても、Perlはそれを同じものとして扱うのです。

したがって、下記の２つのループは同じ動作をします。

use strict;
use warnings;

my @array = ("x", "y","z");

foreach(@array){

	print $_."\n";

}

for(@array){

	print $_."\n";

}

で、どちらを使えばよいのかというと、

文字数が少ないFORをお勧めします！
(ダジャレではない）

関連記事

配列に対してforやforeachでループ処理をする際に、制御変数の中身を変更すると、元の配列の中身も変更されてしまいます。

知らないと思わぬ損をするので、気をつけましょう。
私は今まで知りませんでした。(><)

use strict;

use warnings;


my @array = ("x", "y");

for (@array){

	$_ = "z";

}

print "@array";

for my $a (@array){

	$a = "z";

}

関連記事

forやforeachは、配列の全要素を対象としたループ処理をするときに使います。