Perl 小品集 ─ wv

#!/usr/bin/perl
# wv - MS Word ファイルの変換
# wvHtml, mozilla, w3m, xz, html2text が必要
# html2text のダウンロード先は 
# http://userpage.fu-berlin.de/~mbayer/tools/html2text.html

# global value @list, $sum, $root, $pages, $targetdir, $mozilladir

# 次のふたつは、自分で設定してください
# wvHtml で変換した HTML ファイルを格納するディレクトリーを指定
# このディレクトリは、MS Word 文書があるディレクトリーと別の
# ディレクトリーを指定する
$targetdir = "/home/penguin/Documents/wvtemp";
# mozilla のディレクトリー
$mozilladir = "/usr/local/mozilla";

# オプションを読みこむ
($input) = @ARGV;
# Mozilla で表示
if ($input eq "-m" or $input eq "--mozilla") {
    $browser_option = "mozilla";
    }
# w3m で表示
elsif ($input eq "-w" or $input eq "--w3m") {
    $browser_option = "w3m";
    }
# xz で表示
else {
    $browser_option = "xz";
    }

# 現在のディレクトリとそのファイル情報を得る
($root) = `pwd`;
chomp $root;
&get_list;
# ディレクトリとファイルを表示し、選択を待つ
&select (1);
exit 0;

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

# ファイル名に空白があるかどうかチェックする
sub check_name {
    local $temp;
    local ($name) = @_;
    # ファイル名に空白があるばあいアンダースコアで置き換える
    if ($name =~ / /) {
        $temp = $name;
        $name =~ tr/ /_/;
        # ファイル名の変更をこころみ、失敗した場合もとにもどす
        if ((system "mv '$root/$temp' '$root/$name'") != 0) {
            $name = $temp;
            }
        }
    return $name;
}

# ディレクトリの移動、ファイルの表示などを選択する
sub select {
    local ($input, $file, @selected, @entries, $entry, $number, $number_2, $start, $end);
    local ($page) = @_;
    &show_list ($page);
    print "Select by number => ";
    $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 "") {
        @entries = split /\//, $root;
        $max = scalar (@entries) -1;
        $i = 0;
        foreach $entry (@entries) {
            if ($i == $max) {
                last;
                }
            elsif ($i == 0) {
                $root = $entry;
                }
            else {
                $root = "$root/$entry";
                }
            $i++;
            }
        &get_list;
        $page = 1;
        }
    # 移動と表示
    elsif ($input =~ /\d+/) {
        $file = @list [$input];
        # 下位ディレクトリへの移動
        if (-d "$root/$file") {
            $root = "$root/$file";
            &get_list;
            $page = 1;
            }
        elsif (-f "$root/$file") {
            &doc2html ("$file");
            }
        }
    # 選択メニューにもどる
    &select ($page);
}

# ディレクトリ、ファイルのページごとのリスト
sub show_list {
    local ($line, $i, $row, $col, $number, $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 = " wv - Word file viewer ($p_root) $page/$pages ";
        }
    else {
        $title_name = " wv - Word file viewer ($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 ($name =~ /\.doc/i) {
        $p_name = "\033[34m$p_name\033[0m";
        }
    return $p_name;
}

# HTMLファイルへの変換
sub doc2html {
    local ($file) = @_;
    $file =~ s/\.doc$//;
    system "wvHtml --targetdir=$targetdir --charset=EUC-JP '$root/$file.doc' '$file.html' &";
    if ($browser_option eq "mozilla") {
        &mozilla_loader ("$targetdir/$file.html");
        }
    elsif ($browser_option eq "w3m") {
        system "kterm -e w3m '$targetdir/$file.html'";
        }
    elsif ($browser_option eq "xz") {
        system "html2text -nobs '$targetdir/$file.html' > '$targetdir/$file.txt'";
        system "xz '$targetdir/$file.txt'";
        }
}

# ブラウザによる表示
sub mozilla_loader {
    ($file) = @_;
    if ((system "$mozilladir/mozilla -remote 'openURL(file://$file)'") != 0) {
        system "$mozilladir/mozilla file://$file";
        }
}