おれさま手帖 KYOTO-STYLE :コマンドライン系ツール&Tips


DiaryHome| 管理用:

見出し



日記過去ログ

1999: 6 7 8 9 10 11 12
2000: 1 2 3 4 5 6 7 8 9 10 11 12
2001: 1 2 3 4 5 6 7 8 9 10 11 12
2002: 1 2 3 4 5 6 7 8 9 10 11 12
2003: 1 2 3 4 5 6 7 8 9 10 11 12
2004: 1 2 3 4 5 6 7 8 9 10 11 12
2005: 1 2 3 4 5 6 7 8 9 10 11 12
2006: 1 2 3 4 5 6 7 8 9 10 11 12
2007: 1 2 3 4 5 6 7 8 9 10 11 12
2008: 1 2 3 4 5 6 7 8 9 10 11 12
2009: 1 2 3 4 5 6 7 8 9 10 11 12
2010: 1 2 3 4 5 6 7 8 9 10 11 12
2011: 1 2 3 4 5 6 7 8 9 10 11 12
2012: 1 2 3 4 5 6 7 8 9 10 11 12
2013: 1 2 3 4 5 6 7 8 9 10 11 12
2014: 1 2 3 4 5 6 7 8 9 10 11 12
2015: 1 2 3 4 5 6 7 8 9 10 11 12
2016: 1 2 3 4 5 6 7 8 9 10 11 12
2017: 1 2 3 4 5

最近のキーワード


+ ■ ActivePerl

やはり、Perlは必須。c:/usr/localにインストールしましょう。

(2004/03/10 01:19:00)


+ ■ UNIX-LIKE Tools

新出先生のやつ。「ls」と打っても大丈夫なようにはしておきましょう?

cygwinとかは使ったことありません。

また、私はEmacsは使えません。

(2004/03/10 01:22:00)


+ ■ ComHere

PowerToysに入っているやつ。あると便利。というか無いと大変。

(2004/03/10 01:23:00)


+ ■ バッチファイルとしても動作するperlスクリプト

本に載っていました。すばらしい。とんち利いてます。

@rem = ' ;
@echo off
perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofbat
@rem ' ;
### Beginning of Perl Script
print "Hello, world!¥n";
### End of Perl Script
__END__
:endofbat

(2004/03/10 13:06:00)


+ ■ nconvertを利用して、小さいサイズのファイルを作るバッチファイル(要perl)

al-mailに添付ファイルとして送り込むおまけ付き。

PIFファイルを作って、SendToあたりに入れておくと良いかと。ただ、vix上からは起動できませんでした。

@rem = ' ;
@echo off
perl %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofbat
@rem ' ;
### Beginning of Perl Script
$ncl1 = 'c:¥software¥graphics¥xnview¥nconvert.exe -out jpeg -ratio -resize 240 180';
$ncl2 = 's_%.jpg';
$mcl1 = 'c:¥software¥net¥almail32¥almail.exe';
$mcl2 = '/attach:';
if ( @ARGV[ 0 ] ne '' ) {
	$infile = @ARGV[ 0 ];
	if ( -f $infile ) {
		if ( $infile =‾ m|(^.*[/¥¥])([^/¥¥]*$)| ) {
			$d = $1;
		}
		if ( $infile =‾ m|([^/¥¥]*)¥.([^.]*$)| ) {
			$ncl2 = $d . $ncl2;
			$base = $1;
			$att = $ncl2;
			$att =‾ s/%/$base/;
			system( $ncl1 , '-o' , $att , $infile );
			$mcl2 = $mcl2 . $att;
			system( $mcl1 , $mcl2 );
		} else {
			print "invalid filename¥n";
		}
	} else {
		print "not file¥n";
	}
}
### End of Perl Script
__END__
:endofbat

(2004/03/10 14:31:00)


2004/03/10 作成


[Top] [Homepage] [Diary]