2008年6月アーカイブ

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は、配列の全要素を対象としたループ処理をするときに使います。

以前、ハッシュスライスを使うやり方を紹介しました。

今回はmap演算子を使ったやり方です。

２つの別々の配列を、それぞれキーの集合体、値の集合体としてとらえて、１つのハッシュに合成する方法。

perl -w　と　use warningsの違いがずっとわからなかったのですが、dankogaiさんの超わかりやすい解説を見てやっと理解できました。

Net::FTPがすごい便利です。

これを使うと、FTPのアップロードやダウンロードの自動化はもちろんのこと、
FTPサーバの中をのぞいてフォルダ・ファイルの全リストを取得、なんてことも簡単にできてしまいます。

便利すぎて死にそう！！

以前に書いた記事「[WSH]VBSからAccessのアクションクエリを実行する方法 (ADO) 」では、アクセス側であらかじめ作っておいたアクションクエリをVBSから実行する方法を紹介しました。

Excel VBAで、Writeステートメントを使ってCSV出力すると、日付が #2008-01-01# のような形式になってしまいます。
このCSVをAccessにインポートするのは大変です。
以下のような自作関数を使って変換しましょう。

Perl初心者が最初につまづくのがこのuse strict。
Perlスクリプトの冒頭に、呪文のように必ず登場しますよね。

初心者向けに、超わかりやすく解説してみます。

substr(文字列, 開始位置, 文字数)

例

substr("I love you",2,4);

結果：　love

substr("I love you",2);

結果：　love you

substr("I love you",0,-4);

結果： I　love

^(.*) (.*) (.*) ¥[(.*)¥] "(.*)" (.*) (.*) "(.*)" "(.*)"$

¥1¥t¥2¥t¥3¥t¥4¥t¥5¥t¥6¥t¥7¥t¥8¥t¥9

置換後の区切りは、タブ区切りにしておきました。
その方が後でいろいろ扱いやすいみたいです。

参考：XREAのアクセスログ(LOG)をCSVに一発変換するための正規表現

現在のプレゼンテーションファイルの場所（パス）を取得する方法。

MsgBox ActivePresentation.Path 

WSHで動くJScriptでは、JavaScriptのpromptのような機能がありません。
なので、VBSのInputBoxを呼び出して使います。

ExcelやPowerPointやWordでVBAを実行するときに、マクロの実行時間を測定する方法。

ストップウォッチが手元にないときはこのコードを使いましょう。

３桁の乱数のみで構成される簡易パスワードを、
Accessのクエリで発生させる方法です。

普通にrnd関数を使うと、同じような乱数系列が繰り返されてしまいうまく行きません。
（昨日出たのと同じ数字がまだ出てたりする）

Randomizeステートメントとかを駆使すると回避できるらしいですが、ヘルプを見てもよくわかりませんでした。

そこで、システム時刻をあらわすTime()関数と組み合わせたらとうまく行きました。

クエリのSQLビューで、以下のコードを書いて実行すればOK。

SELECT Right(CLng(Time()*10000000*Rnd()),3) AS 乱数; 

なお、時刻のコンマ何秒という数字は、それ自体が乱数のようなものなので、Rnd関数を省いても一応動きます。

SELECT Right(CLng(Time()*10000000),3) AS 乱数;

これを乱数と呼べるのかはわかりませんが。(^^;