Python で終了する時の呼び出し関数，行番号を報告する

 タイトル通り．inspect モジュールを利用する．

BACK全選択

import sys, inspect 
 
def my_exit():
    frame = inspect.currentframe().f_back
    path = frame.f_code.co_filename.split('/')
    print("file:"+path[-1] +" in:"+frame.f_code.co_name+", line:"+str(frame.f_lineno))
    sys.exit()

import sys, inspect def my_exit(): frame = inspect.currentframe().f_back path = frame.f_code.co_filename.split('/') print("file:"+path[-1] +" in:"+frame.f_code.co_name+", line:"+str(frame.f_lineno)) sys.exit()

Perl でもできる(さらにエラーメッセージを引数としてもらう)．

BACK全選択

sub my_exit {
    my ($arg_str) = @_;
    my ($pkg, $file, $line) = caller;
    chomp($arg_str);
    print "Error $arg_str, in $file line $line\n";
    die;
}

sub my_exit { my ($arg_str) = @_; my ($pkg, $file, $line) = caller; chomp($arg_str); print "Error $arg_str, in $file line $line\n"; die; }

Perl の方が記述はシンプルなんだよなぁ．

Perlの二次元配列の走査

よく忘れるのでメモ．

BACK全選択

#!/bin/perl
 
my @ARRAY=(["A1", "A2", "A3"], ["B1", "B2", "B3"]);
for(my $i=0;$i<=$#ARRAY;$i++){
  for(my $j=0;$j<=$#{$ARRAY[0]};$i++){
    printf STDERR ("$ARRAY[$i][$j], ");
  }
}

#!/bin/perl my @ARRAY=(["A1", "A2", "A3"], ["B1", "B2", "B3"]); for(my $i=0;$i<=$#ARRAY;$i++){ for(my $j=0;$j<=$#{$ARRAY[0]};$i++){ printf STDERR ("$ARRAY[$i][$j], "); } }

PerlでNaNを使う．

Perlで数値解析をする際，ゼロ除算を適切に扱う必要がある．Perlはv5.6.1以上であればNaNを使える．NaNはどんな演算をしてもNaNとなるが，実数NaN共にゼロ除算ではエラーを吐いて止まってしまう．ゼロ除算時にNaNを発生し伝搬させるためには，分母が0であればNaNとなる様な関数を書いてやればよい(下の例ではsub DivNaN)．
ちなみに無限も'inf'として使える．

BACK全選択

#!/bin/perl
$value = 10; 
$value = &DivNaN($value , 20);
printf("10/20= $value\n");
 
$value = &DivNaN('inf' , 20);
printf("inf/20= $value\n");
 
$value = &DivNaN('nan' , 20);
printf("nan/20= $value\n");
 
$value = &DivNaN(10 , 0); 
printf("10/0= $value\n");
 
$value = &DivNaN('nan' , 'nan');
printf("nan/nan= $value\n");
 
$value = &DivNaN('nan' , 0); 
printf("nan/0= $value\n");
 
sub DivNaN {
  my ($numerator, $denominator) = @_; 
  if ($denominator eq 0){ 
    return 'nan';
  } else {
    return $numerator / $denominator;
  }  
}

#!/bin/perl $value = 10; $value = &DivNaN($value , 20); printf("10/20= $value\n"); $value = &DivNaN('inf' , 20); printf("inf/20= $value\n"); $value = &DivNaN('nan' , 20); printf("nan/20= $value\n"); $value = &DivNaN(10 , 0); printf("10/0= $value\n"); $value = &DivNaN('nan' , 'nan'); printf("nan/nan= $value\n"); $value = &DivNaN('nan' , 0); printf("nan/0= $value\n"); sub DivNaN { my ($numerator, $denominator) = @_; if ($denominator eq 0){ return 'nan'; } else { return $numerator / $denominator; } }

BACK全選択

% perl test.pl
10/20= 0.5
inf/20= inf
nan/20= nan
10/0= nan
nan/nan= nan
nan/0= nan

% perl test.pl 10/20= 0.5 inf/20= inf nan/20= nan 10/0= nan nan/nan= nan nan/0= nan