ishiducaの日記 このページをアンテナに追加 RSSフィード

2009-08-25

[][]-sオプションを使ってスクリプトにヘルプメニューを組み込んでおく 11:51 -sオプションを使ってスクリプトにヘルプメニューを組み込んでおく - ishiducaの日記 を含むブックマーク はてなブックマーク - -sオプションを使ってスクリプトにヘルプメニューを組み込んでおく - ishiducaの日記 -sオプションを使ってスクリプトにヘルプメニューを組み込んでおく - ishiducaの日記 のブックマークコメント

業務用に簡単なスクリプトを書く事が多いんだけど、しばらくすると使い方を忘れてしまうので、起動オプションの「-s」を使って、ヘルプメニューを組み込むようにした

例えばWindowsコマンドプロンプトだと「ls」コマンドが使えなくて不便なので、代用になるスクリプト(lspl)を作ったとして、

$ perl lspl -h

という風に、ヘルプ用に「-h」スイッチを使うとヘルプが表示できるようにしておくと、後々便利。

(実行結果)

lspl [-a|-h] [filename]
    -a : include directory entries whose names begin with a dot(.)
    -h : view help
    *filename : use Regular Expression.

参考:lspl

#!/usr/bin/perl -s
use strict;
use warnings;

our($a,$h);
my $help =<<HELP;
$0 [-a|-h] [filename]
    -a : include directory entries whose names begin with a dot(.)
    -h : view help
    *filename : use Regular Expression.
HELP
;

$h and print $help and exit 0;

$ARGV[0] or $ARGV[0] = ".";
my @Files = $a ? <.* *> : <*>;
@Files = grep{ -f and /$ARGV[0]/i }@Files;

$,= "\n";
print @Files;
exit 0;

JackJack2012/08/19 22:37Boy that raelly helps me the heck out.

mhndndihbhwmhndndihbhw2012/08/20 18:14Ji6roR <a href="http://pcvzqebtcfij.com/">pcvzqebtcfij</a>

tghuipfotghuipfo2012/08/22 01:18pDOGwC , [url=http://ykrifxwrmvov.com/]ykrifxwrmvov[/url], [link=http://xakiajkweszr.com/]xakiajkweszr[/link], http://fgjtfpmdpvdj.com/

uhihlawhldguhihlawhldg2012/08/22 14:28M3VYmq <a href="http://uarzwtowvwit.com/">uarzwtowvwit</a>

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20090825