Programming/Perl - 歪んだエンジニアの学習帳

• ActionScript
• C
• CSharp
• Erlang
• Haskell
• Javascript
• Perl
• Ruby
• VimScript
• なでしこ

Perlの学習備忘録

ひろきのだいちのPerl学習備忘録。

Perl使い方一覧

Perl学習備忘録--CPAN編--

使い方

インストールしたモジュール

モジュールの種類

プラグマモジュール

関数

OOPクラス

Perl学習備忘録--変数編--

変数の種類と分析

#ref error ：ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (./perl_var.jpg)

スカラー

配列

ハッシュ

サブルーチン

型グロブ

リファレンス表現

デリファレンス表現

定数表現

フォーマット

コンテキスト

特殊変数

http://www.rfs.jp/sb/perl/02/nw01.html

演算子

ファイルテスト演算子

-r	読み込み可能であれば
-w	書き込み可能であれば
-x	実行可能であれば
-o	実行ユーザーと所有者が同一であれば
-R	実行ユーザーでなく、実ユーザーで読み込み可能であれば
-W	実行ユーザーでなく、実ユーザーで書き込み可能であれば
-X	実行ユーザーでなく、実ユーザーで実行可能であれば
-O	実行ユーザーでなく、実ユーザーのものであれば
-e	存在すれば
-z	存在し、サイズが 0 であれば
-s	ファイルサイズを返す
-f	通常ファイルであれば
-d	ディレクトリであれば
-l	シンボリックリンクであれば
-p	名前付きパイプであれば
-S	ソケットであれば
-T	テキストファイルであれば
-B	バイナリファイルであれば
-b	ブロック型の特殊ファイルであれば
-c	キャラクタ型の特殊ファイルであれば
-u	setuid ビットがセットされていれば
-g	setgif ビットがセットされていれば
-k	sticky ビットがセットされていれば
-M	最終更新時刻からの日数
-A	最終アクセス時刻からの日数
-C	最終 i ノード変更時刻からの日数
-t	ファイルハンドルが tty としてオープンされていれば

#!/usr/bin/perl -w
 
use strict;
use Switch;
use warnings;
use Error qw(:try);
use YAML;
use Data::Dumper;
 
my $file=shift @ARGV;
print "-e:".((-e $file)?"true":"false")."\n";
print "-r:".((-r $file)?"true":"false")."\n";
print "-w:".((-w $file)?"true":"false")."\n";
print "-x:".((-x $file)?"true":"false")."\n";
print "-o:".((-o $file)?"true":"false")."\n";
print "-R:".((-R $file)?"true":"false")."\n";
print "-W:".((-W $file)?"true":"false")."\n";
print "-X:".((-X $file)?"true":"false")."\n";
print "-O:".((-O $file)?"true":"false")."\n";
print "-z:".((-z $file)?"true":"false")."\n";
print "-s:".(-s($file))."\n";
print "-f:".((-f $file)?"true":"false")."\n";
print "-d:".((-d $file)?"true":"false")."\n";
print "-l:".((-l $file)?"true":"false")."\n";
print "-p:".((-p $file)?"true":"false")."\n";
print "-S:".((-S $file)?"true":"false")."\n";
print "-T:".((-T $file)?"true":"false")."\n";
print "-B:".((-B $file)?"true":"false")."\n";
print "-b:".((-b $file)?"true":"false")."\n";
print "-c:".((-c $file)?"true":"false")."\n";
print "-u:".((-u $file)?"true":"false")."\n";
print "-g:".((-g $file)?"true":"false")."\n";
print "-k:".((-k $file)?"true":"false")."\n";
print "-M:".(-M($file))."\n";
print "-A:".(-A($file))."\n";
print "-C:".(-C($file))."\n";
print "-t:".((-t $file)?"true":"false")."\n";
1;
__END__
 
 
-e:true
-r:true
-w:true
-x:true
-o:true
-R:true
-W:true
-X:true
-O:true
-z:false
-s:1143
-f:true
-d:false
-l:false
-p:false
-S:false
-T:true
-B:false
-b:false
-c:false
-u:false
-g:false
-k:false
-M:0.00929398148148148
-A:0
-C:0.00929398148148148
-t:false

パターンマッチ演算子

範囲演算子

文字列演算子

スコープ

my

local

our

Perl学習備忘録--制御構文編--

if elsif else

unless

while

until

for

foreach

ループ制御構文

コメント/pod

[拡張]switch

[拡張]try catch finally

Perl学習備忘録--特殊な関数--

require

package

use

bless

import/export

tie

Perl学習備忘録--組み込み関数--

Perl学習備忘録--正規表現編--

Perl学習備忘録--OOP編--

雑感

PerlのOOPは、後から追加されただけあって結構無理やり。

BEGIN

まずはBEGINブロックから。

クラス定義

継承

@ISA

{ package Animal; sub speak { my $class = shift; print "a $class goes ", $class->sound, "! "; } } { package Cow; @Cow::ISA = qw(Animal); sub sound { "mooo" } } Cow->speak;

use base

@EXPORT

superメソッド

AUTOLOAD

カプセル化

use private

use public

use private

Class::Fields

Perl学習備忘録--Debug編--

オブジェクトダンプ

Dumper

YAML

JSON

Deparse

perl -de

スタックトレース

Perl学習備忘録--ベンチマーク編--

Perl学習備忘録--テスト手法編--

Perl学習備忘録--C言語とのインタフェース--

Inline::C

C言語モジュール

Perl学習備忘録--mod_perl編--

mod_perlとは

install

Perl学習備忘録--Memcached編--

about memcached

install

Perl学習備忘録--POE編--

about poe

install

Perl学習備忘録--ithread編--

about ithread

Perl学習備忘録--モジュール使い方編--

Perl学習備忘録--ユーザプラグマ--

Perl学習備忘録--演算子のオーバーロード--