Perl覚え書き

system関数の戻り値の取得

  • 外部コマンドを実行したときの戻り値を取得する際には8ビット右シフトする必要がある。
test.c
test.c
int main()
{
  return 108;
}
test.pl
test.pl
#!/bin/sh
 
$ret = system "test";
print "$ret\n";
$ret = $ret >> 8;
print "$ret\n";
出力結果
 > perl test.pl
 27648
 108