[perl,C]$#ARGVとint argcの値

プログラムを書いていていつも分からなくなる…。perlとCを行ったり来たりするせいだ。

コマンド実行時のコマンドライン引数の個数の調べ方。

・perlの場合($#ARGV)
@ARGV配列の最後のインデックス（添え字）が入る。
かつ、@ARGVはコマンドラインの引数のみが入る。つまり、実際の引数の数-1。
（プログラム名は入らない。これを調べるときは$0または$PROGRAM_NAMEをつかう。）


・Cの場合(main(int argc, char *argv[]))
argcにはargv配列の個数が入る
そしてargv[0]には、そのプログラム名が入る。つまり、実際の引数の数+1


ちなみにperlの$0変数は、スクリプトから変更することが可能で、変更するとpsコマンドなどで表示するプログラム名が変化するそうだ。

routeコマンドでデフォルトルートを変更する

Windows XP用のrouteコマンドの話
-fオプションが決め手 route -f add 0.0.0.0 mask 0.0.0.0 gateway_addr

ファイルをバイナリモードで開く

ofstream oFile(strOutFileName, ios::out|ios::trunc|ios::binary );

ios::binaryがポイント。

Windowsではデフォルトでテキストモードでオープンされてしまう。
Winで標準C++ライブラリを使っていたときにはまった。

[tcsh] ウインドウタイトルを変更

'\e]2;タイトル\a' がポイント

1) promptを使う方法
set prompt="%{\e]2;%m%}:$tty%{\a%}[%n@%m %c]%"

%{,%}に挟まれたの中では特殊文字（\e）が使える

2) /bin/echoコマンドを使う方法

/bin/echo -e "\033]2;$HOSTNAME $tty\a"

など

3) precmdまたはcwdcmdにエイリアスをかける

 alias precmd 'pritnf "\033]2;kterm: $PWD\007"

[tcsh]rshで外部にバックグラウンドプロセスを走らせる

rsh hostname "command args ... < /dev/null >& /dev/null(またはログファイル名など) & " < /dev/null >& /dev/null &

コマンドを実行する前にディレクトリを移動する処理などを入れたい場合は、commandの前に
cd target_dir ;
などを記入すればよい。

lessで文字化けを防ぐ

１．環境変数JLESSCHARSETにjapaneseを設定する
２．-rオプションをつけて、制御文字のハイライトを抑制する

オプションを書かなくても有効にしておくには、環境変数LESSを使う

perl 5.8とjperlで同一の日本語用スクリプトを使いまわす

ホームディレクトリを多数のマシンが共有するような環境で使う場合のTip。
5.8系では先頭に use encoding 'euc-jp'としてencodingパッケージにより、スクリプトファイルの自体のエンコーディングが指定ができるが（というか指定しないとutf8のファイルだと思われてしまう）、perlバージョンがjperlの場合use encodingするとエラーになる(5.8以前なのでこのパッケージを持っていない)。これを回避しつつスクリプトを共有する方法。

なお、open.pmの部分は、open関数や通常の関数で開くファイルの漢字コードをeuc-jpに指定する方法。(たぶん、こっちのほうが情報として有益と思われる）

use English qw/ $PERL_VERSION /;
BEGIN {
    if( $PERL_VERSION >= 5.008 ){
         #perl 5.8
         require encoding;
         encoding->import( "euc-jp" );
         require "open.pm";
         open::import(IO, ":encoding(euc-jp)");
    } elsif( split( //, "字" ) == 1 ){
         #perl vesrion 5?
         require I18N::Japanese;
         I18N::Japanese->import();
    } else {
         #jperl
#	die "Can't Handling Japanese char";
    }
}

参考:http://namazu.org/~tsuchiya/perl/perl-5.8.html

再帰的にディレクトリを走査 + 特定のファイルを取り出す

sub make_list
{
	my (@allfiles);
	my ($mydir) = @_;
	my ($file);

	#print "$mydir";
	opendir THISDIR, $mydir or die "Can't opendirn";
	@allfiles = grep !/^..?$/, readdir THISDIR;
	closedir THISDIR;
	foreach $file (@allfiles)
	{
		if (-d $mydir."/".$file)
		{	
			&make_list ( $mydir."/".$file );
		}else
		{
                           #not a Directory
			print $mydir."".$file."n";
		}
	}
}

	&make_list(".");

整数の乱数値を得る

JavaScriptで整数の乱数値を得る例
Math.floor(Math.random()*(A))