sironekotoroの日記

Perl で楽をしたい

Perlの絵本 第3章 配列

  • 恐ろしいことに、割と忘れている要素があったりする。
    • 自分の鶏頭ぶりが怖い。

型グロブ・・・?

  • いや、概念は何となくわかったものの、記載のあるサンプルスクリプトuse strictで実行するとエラーが出る。なんでだろう?
### エラーなし
$book = "Perlの絵本";
@book = ( "Cの絵本", "Javaの絵本" );
%book = ( "SQL" => "SQLの絵本" );

*all = *book;

print $all,"\n";           # Perlの絵本
print $all[0],"\n";            # Cの絵本
print $all{"SQL"},"\n";      # SQLの絵本
### エラーあり
use strict;
use warnings;

my $book = "Perlの絵本";
my @book = ( "Cの絵本", "Javaの絵本" );
my %book = ( "SQL" => "SQLの絵本" );

my *all = *book;

print $all,"\n";
print $all[0],"\n";
print $all{"SQL"},"\n";

>
Variable "$all" is not imported at line 10.
Variable "@all" is not imported at line 11.
Variable "%all" is not imported at line 12.
syntax error at  line 8, near "my *all"
Global symbol "$all" requires explicit package name at line 10.
Global symbol "@all" requires explicit package name at line 11.
Global symbol "%all" requires explicit package name at line 12.
Execution of chapter3-050.pl aborted due to compilation errors.
>

# 自作スクリプト
- やっぱり、勉強ばかりでは飽きるので、自作スクリプトをこつこつと。
- 今日はRSS吐き出し対象のウェブサイト(RSS発行してない)からRSSに必要なデータを取るところまではなんとか終わっているので、吐き出しの方へ。
- 結構うまく吐き出しまでいけた。あとは表示順とかcontentの中身を調整する必要が。