- 2008/05/17 00:38[ファイルとディレクトリ]OSに依存しないファイル名を作成する File::Spec->catfile
- #!/usr/bin/perl use strict; use warnings; use Carp; ### OSに依存しないファイル名を作成する。 # use File::Spec; # File::Spec->catfile( @parts_of_file_name ); # ファイル名をつなげる # File::Spec->updir # 1階層上のディレクトリを表現する。 use File::... [続きを読む]
|
|
|
|
|
- 2008/05/13 23:07[ファイルとディレクトリ]ファイルテスト( あるいは stat ）の結果を再利用する。 _
- #!/usr/bin/perl use strict; use warnings; use Carp; ### ファイル演算子(あるいは stat )の結果を再利用する。 # _ # # アンダーバーで現される特別なファイルハンドルを利用します。 # 準備 my $file = ’a.txt’; unless( -f $file ){ croak "$file は存在しません。... [続きを読む]
|
- 2008/05/12 23:15[ファイルとディレクトリ]ファイルの詳細な情報を取得する。 stat 関数
- #!/usr/bin/perl use strict; use warnings; use Carp; ### ファイルの詳細な情報を取得する。 # stat $file # my $file = ’a.txt’; my @stat_inf = stat $file; # ファイルの情報が、配列に入ります。 # statの解説の作成 my @stat_exp = ( ’0 dev ファイルシステムのデバ... [続きを読む]
|
|
|
- 2008/05/11 19:55[読み物]技術文書を読むための5つの着眼点
- 技術文書を読むときに心がけていることを書いておきます。 1.その技術が開発された動機に着目する。 どのような困難を解決するために、開発された技術なのか? どのようなニーズを満たすための技術なのか? なぜこの技術が必要なのかを理解することで、その後の理解が深まりま... [続きを読む]
|
- 2008/05/10 14:43[ファイルとディレクトリ]ファイル演算子「 -A 」で、最終アクセスから経過した日数を取得する
- #!/usr/bin/perl use strict; use warnings; ### 最終アクセス(読み取り)から経過した日数を取得する。 # -A $file print "1: 最終アクセスから経過した日数を取得する。￥n"; my $file = "a.txt"; if( -e $file ){ my $from_last_access = -A $file; print ... [続きを読む]
|
- 2008/05/10 01:10[ファイルとディレクトリ]ファイル演算子「 -M 」で、最終更新から経過した日数を取得する
- #!/usr/bin/perl use strict; use warnings; ### 最終更新から経
過した日数を取得する。 # -M $file print "1: 最終更
新から経過した日数を取得する。￥n"; my $file = &q
uot;a.txt"; if( -e $file ){ my $from_last_modify = -M $file;
print "最終更新から ... [続きを読む]
|
- 2008/05/09 00:45[ファイルとディレクトリ]ファイル演算子「 -s 」で、ファイルサイズを取得する。
- #!/usr/bin/perl use strict; use warnings; ### ファイルのサイズを取得する。 # -s ファイル名 # 単位は、バイトです。 print "1: ファイルのサイズを取得する。 -s￥n"; my $file = "a.txt"; if( -f $file ){ my $file_size = -s $file; print "$file... [続きを読む]
|
- 2008/05/08 00:42[ファイルとディレクトリ]ファイル演算子「 -e 」で、ファイルの存在を確認する。
- #!/usr/bin/perl use strict; use warnings; ### ファイルの存在を確認する。 # -e ファイル名 # -e を使えば、ディレクトリやファイルやシンボリックリンクなど # を区別せずに、それが、存在するかどうかを確認できます。 print "1: ファイルの存在を確認する。 -e ￥n... [続きを読む]
|
- 2008/05/06 23:02[ファイルとディレクトリ]ファイル演算子「 -d 」で、ディレクトリの存在を確認する。
- #!/usr/bin/perl use strict; use warnings; ### ディレクトリの存在を確認する。 # -d ディレクトリ名 print "1: ディレクトリの存在を確認する。 -d ￥n"; my $dir = ’d’; if( -d $dir){ # print "’$dir’ は、存在します。￥n"; } else{ print "’$dir’ ... [続きを読む]
|
- 2008/05/05 23:32[ファイルとディレクトリ]ファイル演算子「 -f 」で、通常ファイルの存在を確認する。
- #!/usr/bin/perl use strict; use warnings; ### 通常ファイルの存在を確認する。 # -f ファイル名 print "1: 通常ファイルの存在を確認する。 -f ￥n"; my $file = ’a.txt’; if( -f $file ){ # print "’$file’ は、存在します。￥n"; } else{ print "’$f... [続きを読む]
|
- 2008/05/05 00:49[情報取得]プロセスの開始時刻を取得する。 $^T
- #!/usr/bin/perl use strict; use warnings; ### プロセスの開始時刻を取得する。 # $T print ’1: プロセスの開始時刻 $^T’, "￥n"; print $^T, "￥n￥n"; # エポック秒(1970年1月1日0時0分0秒からの秒数) で取得される。 print "2: 開始時刻を, DMYHMSで... [続きを読む]
|
- 2008/05/03 13:32[情報取得]プロセスとは
- プロセスとは プロセスとは、OSから見たリソースの管理の単位のことです。 プロセスには、OSに対して一意なプロセスIDが割り当てられます、 リソースには、ファイルハンドル、メモリ空間、CPUががあります。 ユーザーから見れば、プロセスとは、実行されているひとつのプロ... [続きを読む]
|
- 2008/05/03 13:25[情報取得]プロセスIDを取得する。 $$
- #!/usr/bin/perl use strict; use warnings; use Data::Dumper; ### プロセスIDを取得する。 # $$ print ’1: プロセスIDを取得する。 $$’, "￥n"; print $$, "￥n"; __END__ プロセスIDを取得する。 $$ $$ で、自分自身のプロセスIDを取得することができます... [続きを読む]
|
- 2008/05/02 00:41[情報取得]環境変数を取得する。 %ENV
- #!/usr/bin/perl use strict; use warnings; use Data::Dumper; ### 環境変数を取得する。 # %ENV print "1: 環境変数を取得する。 %ENV ￥n"; print Data::Dumper->Dump( [ ￥%ENV ], [ ’*ENV’ ] ); __END__ 環境変数を取得する。 %ENV %ENV で、環境変数を取得... [続きを読む]
|
- 2008/05/01 00:35[情報取得]OS名を取得する。 $^O
- #!/usr/bin/perl use strict; use warnings; ### OS名を取得する。 # $^O print "1: OS名を取得する。￥n"; print $^O, "￥n"; __END__ OS名を取得する。 $^O $^O で、OS名を取得できます。 OSの種類に応じて、条件分岐させたいときに使います。 $^O の値とO... [続きを読む]
|
- 2008/04/29 19:32[情報取得]読み込まれているモジュールを調べる。 %INC
- #!/usr/bin/perl use strict; use warnings; ### 読み込まれているモジュールを調べる。 # %INC # 試しに二つのモジュールを読み込む。 use File::Spec; use File::Basename; require Data::Dumper; print "1: 読み込まれているモジュールを調べる。 %INC ￥n"; prin... [続きを読む]
|
- 2008/04/28 19:54[情報取得]モジュールの検索パスを調べる。 @INC
- #!/usr/bin/perl use strict; use warnings; ### モジュールの検索パスを調べる # @INC require Data::Dumper; # モジュールの検索パスを追加( use lib を使う。) use lib ’./lib’; # モジュールの検索パスを追加( @INC を直接変更 ) unshift @INC, ’./lib2’; # 先頭に、追... [続きを読む]
|
- 2008/04/27 11:09[情報取得]スクリプトのファイル名を取得する。 __FILE__
- #!/usr/bin/perl use strict; use warnings; use FindBin; # この2行は、カレントディレクトリを、モジュールの読み use lib "$FindBin::Bin"; # 込みパスにするために、追加しています。 ### ファイル名の取得 # __FILE__ で、スクリプトのファイル名を取得できま... [続きを読む]
|
- 2008/04/27 00:33[情報取得]スクリプト上の行番号を取得する。 __LINE__
- #!/usr/bin/perl use strict; use warnings; ### スクリプト上の行番号の取得 # __LINE__ で、行番号を取得できます。 # # 自動試験のスクリプトを作るさい、テストが失敗した行の行番号を # 取得したいとき使ったりします。 print "1: 行番号名を取得する。￥n"; pr... [続きを読む]
|
- 2008/04/26 02:22[情報取得]パッケージ名を取得する。 __PACKAGE__
- #!/usr/bin/perl package SomePackage; use strict; use warnings; ### パッケージ名の取得 # __PACKAGE__ で、パッケージの名前を取得できます。 print "1: パッケージ名を取得する。￥n"; print __PACKAGE__ . "￥n"; __END__ パッケージ名を取得する。 __P... [続きを読む]
|
- 2008/04/24 22:06[情報取得]実行している関数名を取得する。 caller 関数
- #!/usr/bin/perl use strict; use warnings; ### 実行している関数( 正確には、サブルーチン )の名前を取得する。 # # caller 関数使います。引数に 0を与えた、戻り値の4番目の要素が関数名になります。 # ( caller 0 )[3] # print "1: 実行している関数の名前を取得す... [続きを読む]
|
- 2008/04/24 00:27[情報取得]実行スクリプトのあるディレクトリ名を取得する。
- #!/usr/bin/perl use strict; use warnings; ### スクリプトのあるディレクトリ名を取得する。 # FindBin モジュールを使用して、$FindBin::Bin で取得できます。 use FindBin; print "スクリプトのあるディレクトリ名￥n"; print "$FindBin::Bin ￥n"; __END... [続きを読む]
|
- 2008/04/24 00:01[情報取得]現在実行しているスクリプトの名前を取得する。
- #!/usr/bin/perl use strict; use warnings; ### スクリプト名を取得する # $0 で現在実行しているスクリプト名を取得できます。 print "1: スクリプト名￥n"; print "$0 ￥n"; __END__ スクリプト名を取得する $0 $0 で、現在実行しているスクリプト名を取得... [続きを読む]
|
