落とし穴：Linuxのcsh事情 (2022.06,12)

Linuxのcshでは、$? を $status の代わりに使えない。

• FreeBSDでは、csh(1) は tcsh(1)へのリンク になっている。
• で、こちらの環境では、「Variable substitution」の節に次のような記述がある。

  $?      Equivalent to `$status'. (+)
  

• ところが、shell.osdn.net の csh(1) にはそういう記述はない。
• なので、$? と書いてあるスクリプトは、tcsh に喰わせてやらないと undefined variable で abort してしまう。

cshが入っていない?

• まずは、FreeBSDのサイトで検索してみる。
  • なんと、Debianを指定してcshで検索すると、Not Found になる。
  • RedHatではtcshへのリンクになっている。
    
    
• 改めて shell.osdn.net で、cshを追跡してみる。

   $ dir `which csh`
   lrwxrwxrwx 1 root root 21  3月 29  2005 /bin/csh -> /etc/alternatives/csh*
   $ dir /etc/alternatives/csh
   lrwxrwxrwx 1 root root 12  9月 27  2011 /etc/alternatives/csh -> /bin/bsd-csh*
   $ dir /bin/bsd-csh
   -rwxr-xr-x 1 root root 156456  7月 18  2014 /bin/bsd-csh*

• プロジェクトのwebサーバ でCGIを使う場合には、何と/bin/csh自体が存在しない。

   #!/usr/bin/perl
   
   print "Status: 200 ok\n";
   print "Content-type: text/plain; charset=us-ascii\n";
   print "\n";
   print &get_file_info('/bin/csh') . "\n";
   print &get_file_info('/bin/sh' ) . "\n";
   exit 0;
   
   sub get_file_info()
   {
       my $file = $_[0];
       my @info;
   
       push @info, sprintf('%s=%d', '-f', ( -f $file ));
       push @info, sprintf('%s=%d', '-x', ( -x $file ));
   
       return "$file: " . join(', ', @info) . ".";
   }

  これをCGIとして呼び出してやると、

  /bin/csh: -f=0, -x=0.
  /bin/sh: -f=1, -x=1.
  

  という結果が返ってくる。