FC2ブログ
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
Perl で遊んでみる その1
use strict;

package Hoge;

open my $file, '>>', 'log.log';

sub TIESCALAR {
  my $pkg = shift;
  my $h;
  bless \$h, $pkg;
}

sub STORE {
  my $self = shift;
  my $val  = shift;
  print $file $val, "\n";
}
  


package main;
my $c;
tie $c, 'Hoge';

$c = 1;
$c = 2;
$c = 'aaa';


実行すると log.log というファイルが作られて、
1
2
aaa

こう出力されている。

package main;以下に注目。
$cに何か代入されると、log.logというファイルに代入する値が追記されている。
スポンサーサイト
コメントを投稿する
Name:
URL:
Comment:

秘密:管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL
この記事にトラックバックする(FC2ブログユーザー)
ブログ検索

プロフィール

ビンゴ中西
Perlが好きである。
プログラミング言語のほとんどは独学。独学の過程で多くのプログラム仲間にも色々教わりました。

FC2カウンター

カレンダー

10 | 2018/11 | 12
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 -

ブロとも申請フォーム

この人とブロともになる

| ホーム |
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。