Perl 小品集 ─ fview

#!/usr/bin/perl
# fview.pl
# 簡易ファイル閲覧ユティリティ

# global value  %progs, @list, $sum, $root, $pages

# ファイルタイプとそれを表示するプログラムを定義する
%progs = (
    cgi => xz,
    conf => xz,
    html => xz,
    pl => xz,
    shtml => xz,
    txt => xz,
    bmp => ee,
    gif => ee,
    png => ee,
    jpg => ee,
    tif => ee,
    pdf => acroread,
    mp3 => mpg123,
    mpg => mtvp,
    mid => timidity,
    rmi => timidity
    );

# 現在のディレクトリとそのファイル情報を得る
($root) = `pwd`;
chomp $root;
&get_list;

# ディレクトリとファイルを表示し、選択を待つ
$page = 1;
&select ($page);
exit 0;

# 指定したディレクトリのファイル情報を得る
sub get_list {
    local (@file_list, $entry);
    # リストの初期化
    $list = "";
    @file_list = glob "$root/*";
    $list [0] = "..";
    $sum = 1;
    # ディレクトリの場合
    foreach $entry (@file_list) {
        if (-d $entry) {
            $entry =~ /([^\/]+)$/;
            $list [$sum] = $1;
            $sum++;
            }
        }
    # ファイルの場合
    foreach $entry (@file_list) {
        if (!(-d $entry)) {
            $entry =~ /([^\/]+)$/;
            $list [$sum] = $1;
            $sum++;
            }
        }
    # ファイルのリストが多い場合、複数ページにわける
    if ($sum > 40){
        $pages = int ($sum / 40);
        if ($sum % 40 > 0) {
            $pages = $pages + 1;
            }
        }
    else {
        $pages = 1;
        }
}

# ディレクトリの移動、ファイルの選択
sub select {
    local ($file, $input, $max, $i);
    local ($page) = @_;
    &show_list ($page);
    print "Input (#,n,p,q) => ";
    $input = <STDIN>;
    chomp $input;
    # 終了
    if ($input eq "q") {
        exit 0;
        }
    # 次のページ
    elsif ($input eq "n") {
        $page = $page + ($page < $pages);
        }
    # 前のページ
    elsif ($input eq "p") {
        $page = $page - ($page > 1);
        }
    # 上位ディレクトリへの移動
    elsif ($input eq ".." or $input eq "0" or $input eq "") {
        $root =~ s/\/[^\/]+$//;
        &get_list;
        $page = 1;
        }
    # 番号による選択
    elsif ($input =~ /^[\d]+$/) {
        $file = @list [$input];
        $page = &select_2 ($file, $page);
        }
    # ファイル名による選択
    else {
        $page = &select_2 ($input, $page);
        }
    # 選択メニューにもどる
    &select ($page);
}

sub select_2 {
    local ($filetype, $type, $program);
    local ($file, $page) = @_;
    # 下位ディレクトリへの移動
    if (-d "$root/$file") {
        $root = "$root/$file";
        &get_list;
        $page = 1;
        }
    # ファイルの閲覧
    else {
        # テキストファイルの場合
        if (-T "$root/$file") {
            system "xz '$root/$file'";
            }
        # その他のファイル
        else {
            $file =~ /\.([^\.]+)$/;
            $filetype = $1;
            foreach $type (%progs) {
                if ($type eq $filetype) {
                    $program = $progs{$type};
                    system "$program '$root/$file'";
                    last;
                    }
                }
            }
        }
    return $page;
}

# ディレクトリ、ファイルのページごとのリスト
sub show_list {
    local ($line, $i, $row, $col, $number, $p_sum, $p_root, $title_name, $name, $last);
    local ($page) = @_;
    # 二列に表示するため、最初の列の長さを計算
    if ($page < $pages) {
        $p_sum = 40 * $page;
        $last = $p_sum - 20;
        }
    else {
        $p_sum = $sum;
        if ($p_sum % 2 == 0) {
            $last = 40 * ($page -1) + int (($p_sum - 40 * ($page -1)) / 2);
            }
        else {
            $last = 40 * ($page -1) + int (($p_sum - 40 * ($page -1)) / 2) + 1;
            }
        }
    # スクリーンの初期化とタイトルの表示
    if ($root eq "") {
        $p_root = "/";
        }
    else {
        $p_root = $root;
        }
    if ($pages > 1) {
        $title_name = " FileView ($p_root) $page/$pages ";
        }
    else {
        $title_name = " FileView ($p_root) ";
        }
    print "\033[2J\033[1;0H";
    $line = int((80 - length ($title_name)) / 2);
    $i = 0;
    while ($i < $line){
        print '=';
        $i++;
        }
    print $title_name;
    $i = $i + length ($title_name);
    while ($i < 80){
        print '=';
        $i++;
        }
    # 左のリストの表示
    $i = 40 * ($page -1);
    $row = 2;
    $col = 0;
    while ($i < $last){
        if($i < 10){
            $number = " [0$i] ";}else{
            $number = " [$i] ";
            }
        ($name) = &print_name (@list [$i]);
        print "\033[$row;$col\H$number$name";
        $row++;
        $i++;
        }
    # 右リストの表示
    $row = 2;
    $col = 40;
    while ($i < $p_sum){
        if($i < 10){
            $number = " [0$i] ";}else{
            $number = " [$i] ";
            }
        $name = &print_name (@list [$i]);
        print "\033[$row;$col\H$number$name";
        $row++;
        $i++;
        }
    if($p_sum % 2 == 0){
        print "\n";}else{
        print "\n\n";
        }
}

# 表示名の調整
sub print_name {
    local (@letters, $i, $p_name);
    local ($name) = @_;
    # ファイル名が長い場合、それを短くして表示する
    if ((length ($name)) > 30) {
        @letters = split //, $name;
        $p_name = "";
        $i = 0;
        while ($i < 30){
            $p_name = "$p_name$letters[$i++]";
            }
        $p_name = "$p_name...";
        }
    else {
        $p_name = $name;
        }
    # ディレクトリーのカラー表示
    if (-d "$root/$name") {
        $p_name = "\033[34m$p_name\033[0m";
        }
    return $p_name;
}