Perl とかいて ペールじゃないょ パールだょ
備忘録
■systemコマンド
# systemコマンド
system("date");
print `date`;
$dt = `date`;
print $dt;
# systemコマンドリターンコード
system("sort -t, -k1,1 data.csv");
$ret = `echo $?`;
■正規表現判定の落とし穴
$a = "あいう";
if ($a =~ /^あいう$/) → true #前後方完全一致
if ($a =~ /^あい/) → true #前方一致
if ($a =~ /いう$/) → true #後方一致
if ($a =~ /い/) → true #部分一致
単に文字列マッチングなら
if ($a eq "あいう") → true #メタ文字もOK
とか
if (($a cmp "あいう") == 0) → true #Cでいうところのstrcmp
■GREPてか正規表現
@PrintData = grep(/^(あ)?(い)?(う)?(え)?(お)?(\,){1}\Q$GrepStr\E/, @Hairetu);
先頭文字が
あ〜おのいずれかで１回または０回
,は必ず１回ヒットする
ex あ,aaaa, or ,aaaa
かつ
$GrepStr（\Q \Eの囲みはメタ文字エスケープ)にヒットする
文字列を @Hairetuから抜き出し @PrintDataにセット
■関数
sub AAA
{
my $A = @_[0];
my $Ret = "";
return $Ret;
}
呼出時は &AAA("STR"); # &をつける
■環境変数
print "\n*** 環境変数参照 ***\n";
$HOGE=$ENV{'HOGE'};
■半角空白行
$csvdata =~ /^\s\n/
■改行コードのみ
$csvdata =~ m/^\n/
■全角空白行
$csvdata =~ /^ \n/
■コメント行
$csvdata =~ /^#/
■空行
$_ =~ /^$/
■現在時刻
($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$NOW_DATE= sprintf("%04d%02d%02d_%02d%02d%02d", $year+1900, $mon+1, $day, $hour, $min, $sec);
■改行コード除去
$str =~ s/\n//g
または
chomp($str);
さらに
while(chomp($str)){}で改行コードあるだけ除去
■前方トリム(半角SP,タブ除去）
$str =~ s/^\s*//;
■前方トリム(半角SP除去）
$str =~ s/^\s+//;
■後方トリム(半角SP,タブ除去）
$str =~ s/\s*$//;
■前後トリム(半角SP,タブ除去）
$val =~ s/^\s*(.*?)\s*$/$1/;
■文字コード置換
#MS → UTF-8
$str = "[〜][‖][−][¢][£][¬][―]";
print "置換前：$str\n";
# 〜 : EF BD 9E → E3 80 9C
# ‖ : E2 88 A5 → EF 80 96
# − : EF BC 8D → E2 88 92
$str =~ s/\xEF\xBD\x9E/\xE3\x80\x9C/g;
$str =~ s/\xE2\x88\xA5/\xE2\x80\x96/g;
$str =~ s/\xEF\xBC\x8D/\xE2\x88\x92/g ;
# ¢ : EF BF A0 → C2 A2
# £ : EF BF A1 → C2 A3
# ¬ : EF BF A2 → C2 AC
# ― : E2 80 95 → E2 80 94
$str =~ s/\xEF\xBF\xA0/\xC2\xA2/g;
$str =~ s/\xEF\xBF\xA1/\xC2\xA3/g;
$str =~ s/\xEF\xBF\xA2/\xC2\xAC/g;
$str =~ s/\xE2\x80\x95/\xE2\x80\x94/g;
print "置換後：$str\n";
■配列
ex @ABC = "A","B","C";
○追加 ：push(@ABC, D);
○最終添え字 ：$#ABC
# 要素数 0個 = -1, 1個 = 0
○要素0判定 ：if(!@ABC)
○指定要素削除 ：splice(@number, 1, 1);
# splice(対象配列, 削除開始添え字, 削除用素数) => A,C
○指定要素削除 ：splice(@number, $_, 1);
# ex $_ = B の場合 splice(対象配列, 削除開始要素, 削除用素数) => A,B ★要素指定は＋１が削除開始要素になる！
○指定要素置換 ：splice(@number, 0, 1, "1COLUMN"); # 1カラム目を "1COLUMN"文字列に置換する
○先頭要素削除 ：shift(@ABC) # 左辺代入で削除要素を代入することも可
○最終要素削除 ：pop(@ABC) # 左辺代入で削除要素を代入することも可
○配列→文字列 ：join(",", @ABC);
■ファイル
ex $FILE = "home/file";
○削除 ：unlink $FILE
○読込 ：
if (!open(IN, "ファイルパス") { print "ERR!\n"; }
while()
{ $_ # 読込行 }
lose(IN); # 読込データを IN に受けて EOFになるまで
@READFILE =;
close(IN); # 読込データを IN に受けて 配列変数に格納
○書込 ：
if (!open(OUT, ">ファイルパス")
{print "ERR!\n"; }
print OUT "あいう\n";
close(OUT); # 上書きモード(>)でオープンして print OUT xxで書込
：
if (!open(OUT, ">>ファイルパス")
{print "ERR!\n"; }
print OUT "あいう\n";
close(OUT); # 追記モード(>>)でオープンして print OUT xxで書込
■メタ文字エスケープ
/^\Q変数名\E/
■ソート
# 数字昇順
@BB=sort{$a <=> $b}@AA;
# 数字降順
@BB=sort{$b <=> $a}@AA;
# 文字列昇順
@BB=sort{$a cmp $b }@AA;
# 文字列降順
@BB=sort{$b cmp $a }@AA;
# csvデータなど 行データを列毎[n]にソート
@newarray = sort { (split(/\,/,$a))[0] <=> (split(/\,/,$b))[0] || (split(/\,/,$a))[1] <=> (split(/\,/,$b))[1] || (split(/\,/,$a))[2] <=> (split(/\,/,$b))[2] || (split(/\,/,$a))[3] <=> (split(/\,/,$b))[3]} @array;
# 次のようにしてファンクションを作成し、指定することも可能 ※ファンクションには 引数として 暗黙に$a, $bが渡される。戻り値は必ず -1,0,1であること
sort ファンクション @ソート前配列変数
ex.手製Comp関数 #CSVファイルなど データ行が ,カンマ区切りになってる場合
# �．宗璽搬仂櫂如璽診枸鵑陵�効データ行列をセット
foreach (@CsvData){
if ($_ =~ /^#/) || ($_ =~ /^$/) {
next;
}
@PosData = split(/\,/, $_);
last;
}
# ��ソート対象データをソート関数でソート
sort SortFunc @CsvData
# �▲宗璽抜愎�
sub SortFunc{
my @MyA;
my @MyB;
@MyA = split(/\,/, $a) # 比較行 $a を カンマ区切りで配列へセット
@MyB = split(/\,/, $b) # 比較行 $b を カンマ区切りで配列へセット
foreach (@PosData){
my $Pos = $_;
if (@MyA[$Pos] eq @MyB[$Pos]){
## 次へ
}elsif (@MyA[$Pos] lt @MyB[$Pos]){
# debug
#print LOG "[@MyA[$Pos]] < [@MyB[$Pos]]\n";
return -1;
}else{
# debug
#print LOG "[@MyA[$Pos]] > [@MyB[$Pos]]\n";
return 1;
}
}
# debug
#print LOG "[@MyA[$Pos]] = [@MyB[$Pos]]\n";
return 0;
}
■ハッシュ
・データ表示
while ( ( $key, $value ) = each( %UNIQUE_LIST ) ) {
print "end CretaeUnique ** [$key][$value]\n";
}
・データ更新
ex %Hush
初期化 %Hush = ();
��key : "majan_data", value : "0,0,0,0" を作成
$Hush{"majan_data"} = sprintf("%d,%d,%d,%d", 0,0,0,0);
��一局終了データ更新
$Hush{"majan_data"} = sprintf("%d,%d,%d,%d", 100,-50,-50,0);
# 同一 keyでvalue個数が同じであれば値が更新される
・個数
@Cnt = keys(%Hush);
$#Cnt;
・ソート
foreach(sort keys %UNIQUE_KEY){
print "keys=$UNIQUE_KEY{$_}, value=$_ \n";
}
foreach(sort {$nedan{$a} <=> $nedan{$b}} keys %nedan){
printf "%+6s = %6d\n",$_,$nedan{$_};
}
・使用法
my @exp_a = ("a","c","d","f");
my @exp_b = ("b","c","f","g");
my %A=();
foreach (@exp_a){
$A{$_}='aのみ';
}
foreach (@exp_b){
if ($A{$_}){
$A{$_}='どちらも含む';
}else{
$A{$_}='bのみ';
}
}
#--連想配列を表示
foreach (sort keys %A){
print "$_ = $A{$_}$/";
}
＜出力結果＞
a = aのみ
b = bのみ
c = どちらも含む
d = aのみ
f = どちらも含む
g = bのみ
■printf,sprintfフォーマット指定子
%c 文字 -Character
%d 10進数 -Deximal
%e 浮動少数（指数形式） -Exponential
%E 浮動少数（大文字のEを使った指数形式）
%f 浮動小数（固定小数点形式） -Floating
%g 浮動小数（浮動少数または指数形式のうち、少ないスペースで表現できる方）
%G %g の指数表示をEにしたもの
%ld 倍精度10進数 -Long
%lo 倍精度8進数
%lu 倍精度符号なし10進数
%lx 倍精度16進数
%n すでに出力した文字数を次の変数に格納
%o 8進数 -Octal
%p ポインタ （16進数での値のアドレス）
%s 文字列 -String
%u 符号なし10進数 -Unsigned
%x 符号なし16進数 -heXadecimal
%X %x と同じだが大文字を使う
修飾子 -(%-nd) 左寄せで表示。ｎ は文字列の長さ
# 8進の整数は0で始まり、16進の整数は0xで始まるように表示
(%nd) 数値変数の10進展開「ｎ」は文字列の長さ。文字数が足りない場合はスペースで埋める
(%n.mf) 小数点付き数値の10進展開。ｎ は文字列の長さ、m は少数点以下の桁数を指定
+(%+d) 符号付き10進展開。符号+または-をつけて表示
0(%0nd) 文字数が足りない場合は0で埋める。ｎ は文字列の長さ
備忘録
■systemコマンド
# systemコマンド
system("date");
print `date`;
$dt = `date`;
print $dt;
# systemコマンドリターンコード
system("sort -t, -k1,1 data.csv");
$ret = `echo $?`;
■正規表現判定の落とし穴
$a = "あいう";
if ($a =~ /^あいう$/) → true #前後方完全一致
if ($a =~ /^あい/) → true #前方一致
if ($a =~ /いう$/) → true #後方一致
if ($a =~ /い/) → true #部分一致
単に文字列マッチングなら
if ($a eq "あいう") → true #メタ文字もOK
とか
if (($a cmp "あいう") == 0) → true #Cでいうところのstrcmp
■GREPてか正規表現
@PrintData = grep(/^(あ)?(い)?(う)?(え)?(お)?(\,){1}\Q$GrepStr\E/, @Hairetu);
先頭文字が
あ〜おのいずれかで１回または０回
,は必ず１回ヒットする
ex あ,aaaa, or ,aaaa
かつ
$GrepStr（\Q \Eの囲みはメタ文字エスケープ)にヒットする
文字列を @Hairetuから抜き出し @PrintDataにセット
■関数
sub AAA
{
my $A = @_[0];
my $Ret = "";
return $Ret;
}
呼出時は &AAA("STR"); # &をつける
■環境変数
print "\n*** 環境変数参照 ***\n";
$HOGE=$ENV{'HOGE'};
■半角空白行
$csvdata =~ /^\s\n/
■改行コードのみ
$csvdata =~ m/^\n/
■全角空白行
$csvdata =~ /^ \n/
■コメント行
$csvdata =~ /^#/
■空行
$_ =~ /^$/
■現在時刻
($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$NOW_DATE= sprintf("%04d%02d%02d_%02d%02d%02d", $year+1900, $mon+1, $day, $hour, $min, $sec);
■改行コード除去
$str =~ s/\n//g
または
chomp($str);
さらに
while(chomp($str)){}で改行コードあるだけ除去
■前方トリム(半角SP,タブ除去）
$str =~ s/^\s*//;
■前方トリム(半角SP除去）
$str =~ s/^\s+//;
■後方トリム(半角SP,タブ除去）
$str =~ s/\s*$//;
■前後トリム(半角SP,タブ除去）
$val =~ s/^\s*(.*?)\s*$/$1/;
■文字コード置換
#MS → UTF-8
$str = "[〜][‖][−][¢][£][¬][―]";
print "置換前：$str\n";
# 〜 : EF BD 9E → E3 80 9C
# ‖ : E2 88 A5 → EF 80 96
# − : EF BC 8D → E2 88 92
$str =~ s/\xEF\xBD\x9E/\xE3\x80\x9C/g;
$str =~ s/\xE2\x88\xA5/\xE2\x80\x96/g;
$str =~ s/\xEF\xBC\x8D/\xE2\x88\x92/g ;
# ¢ : EF BF A0 → C2 A2
# £ : EF BF A1 → C2 A3
# ¬ : EF BF A2 → C2 AC
# ― : E2 80 95 → E2 80 94
$str =~ s/\xEF\xBF\xA0/\xC2\xA2/g;
$str =~ s/\xEF\xBF\xA1/\xC2\xA3/g;
$str =~ s/\xEF\xBF\xA2/\xC2\xAC/g;
$str =~ s/\xE2\x80\x95/\xE2\x80\x94/g;
print "置換後：$str\n";
■配列
ex @ABC = "A","B","C";
○追加 ：push(@ABC, D);
○最終添え字 ：$#ABC
# 要素数 0個 = -1, 1個 = 0
○要素0判定 ：if(!@ABC)
○指定要素削除 ：splice(@number, 1, 1);
# splice(対象配列, 削除開始添え字, 削除用素数) => A,C
○指定要素削除 ：splice(@number, $_, 1);
# ex $_ = B の場合 splice(対象配列, 削除開始要素, 削除用素数) => A,B ★要素指定は＋１が削除開始要素になる！
○指定要素置換 ：splice(@number, 0, 1, "1COLUMN"); # 1カラム目を "1COLUMN"文字列に置換する
○先頭要素削除 ：shift(@ABC) # 左辺代入で削除要素を代入することも可
○最終要素削除 ：pop(@ABC) # 左辺代入で削除要素を代入することも可
○配列→文字列 ：join(",", @ABC);
■ファイル
ex $FILE = "home/file";
○削除 ：unlink $FILE
○読込 ：
if (!open(IN, "ファイルパス") { print "ERR!\n"; }
while(
{ $_ # 読込行 }
lose(IN); # 読込データを IN に受けて EOFになるまで
@READFILE =
close(IN); # 読込データを IN に受けて 配列変数に格納
○書込 ：
if (!open(OUT, ">ファイルパス")
{print "ERR!\n"; }
print OUT "あいう\n";
close(OUT); # 上書きモード(>)でオープンして print OUT xxで書込
：
if (!open(OUT, ">>ファイルパス")
{print "ERR!\n"; }
print OUT "あいう\n";
close(OUT); # 追記モード(>>)でオープンして print OUT xxで書込
■メタ文字エスケープ
/^\Q変数名\E/
■ソート
# 数字昇順
@BB=sort{$a <=> $b}@AA;
# 数字降順
@BB=sort{$b <=> $a}@AA;
# 文字列昇順
@BB=sort{$a cmp $b }@AA;
# 文字列降順
@BB=sort{$b cmp $a }@AA;
# csvデータなど 行データを列毎[n]にソート
@newarray = sort { (split(/\,/,$a))[0] <=> (split(/\,/,$b))[0] || (split(/\,/,$a))[1] <=> (split(/\,/,$b))[1] || (split(/\,/,$a))[2] <=> (split(/\,/,$b))[2] || (split(/\,/,$a))[3] <=> (split(/\,/,$b))[3]} @array;
# 次のようにしてファンクションを作成し、指定することも可能 ※ファンクションには 引数として 暗黙に$a, $bが渡される。戻り値は必ず -1,0,1であること
sort ファンクション @ソート前配列変数
ex.手製Comp関数 #CSVファイルなど データ行が ,カンマ区切りになってる場合
# �．宗璽搬仂櫂如璽診枸鵑陵�効データ行列をセット
foreach (@CsvData){
if ($_ =~ /^#/) || ($_ =~ /^$/) {
next;
}
@PosData = split(/\,/, $_);
last;
}
# ��ソート対象データをソート関数でソート
sort SortFunc @CsvData
# �▲宗璽抜愎�
sub SortFunc{
my @MyA;
my @MyB;
@MyA = split(/\,/, $a) # 比較行 $a を カンマ区切りで配列へセット
@MyB = split(/\,/, $b) # 比較行 $b を カンマ区切りで配列へセット
foreach (@PosData){
my $Pos = $_;
if (@MyA[$Pos] eq @MyB[$Pos]){
## 次へ
}elsif (@MyA[$Pos] lt @MyB[$Pos]){
# debug
#print LOG "[@MyA[$Pos]] < [@MyB[$Pos]]\n";
return -1;
}else{
# debug
#print LOG "[@MyA[$Pos]] > [@MyB[$Pos]]\n";
return 1;
}
}
# debug
#print LOG "[@MyA[$Pos]] = [@MyB[$Pos]]\n";
return 0;
}
■ハッシュ
・データ表示
while ( ( $key, $value ) = each( %UNIQUE_LIST ) ) {
print "end CretaeUnique ** [$key][$value]\n";
}
・データ更新
ex %Hush
初期化 %Hush = ();
��key : "majan_data", value : "0,0,0,0" を作成
$Hush{"majan_data"} = sprintf("%d,%d,%d,%d", 0,0,0,0);
��一局終了データ更新
$Hush{"majan_data"} = sprintf("%d,%d,%d,%d", 100,-50,-50,0);
# 同一 keyでvalue個数が同じであれば値が更新される
・個数
@Cnt = keys(%Hush);
$#Cnt;
・ソート
foreach(sort keys %UNIQUE_KEY){
print "keys=$UNIQUE_KEY{$_}, value=$_ \n";
}
foreach(sort {$nedan{$a} <=> $nedan{$b}} keys %nedan){
printf "%+6s = %6d\n",$_,$nedan{$_};
}
・使用法
my @exp_a = ("a","c","d","f");
my @exp_b = ("b","c","f","g");
my %A=();
foreach (@exp_a){
$A{$_}='aのみ';
}
foreach (@exp_b){
if ($A{$_}){
$A{$_}='どちらも含む';
}else{
$A{$_}='bのみ';
}
}
#--連想配列を表示
foreach (sort keys %A){
print "$_ = $A{$_}$/";
}
＜出力結果＞
a = aのみ
b = bのみ
c = どちらも含む
d = aのみ
f = どちらも含む
g = bのみ
■printf,sprintfフォーマット指定子
%c 文字 -Character
%d 10進数 -Deximal
%e 浮動少数（指数形式） -Exponential
%E 浮動少数（大文字のEを使った指数形式）
%f 浮動小数（固定小数点形式） -Floating
%g 浮動小数（浮動少数または指数形式のうち、少ないスペースで表現できる方）
%G %g の指数表示をEにしたもの
%ld 倍精度10進数 -Long
%lo 倍精度8進数
%lu 倍精度符号なし10進数
%lx 倍精度16進数
%n すでに出力した文字数を次の変数に格納
%o 8進数 -Octal
%p ポインタ （16進数での値のアドレス）
%s 文字列 -String
%u 符号なし10進数 -Unsigned
%x 符号なし16進数 -heXadecimal
%X %x と同じだが大文字を使う
修飾子 -(%-nd) 左寄せで表示。ｎ は文字列の長さ
# 8進の整数は0で始まり、16進の整数は0xで始まるように表示
(%nd) 数値変数の10進展開「ｎ」は文字列の長さ。文字数が足りない場合はスペースで埋める
(%n.mf) 小数点付き数値の10進展開。ｎ は文字列の長さ、m は少数点以下の桁数を指定
+(%+d) 符号付き10進展開。符号+または-をつけて表示
0(%0nd) 文字数が足りない場合は0で埋める。ｎ は文字列の長さ
