● 精华索引脚本[fwd] - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: jjk (UNIX+C+XML+?? 傻了?), 信区: InstallBBS
标  题: 精华索引脚本[fwd]
发信站: 荔园晨风BBS站 (Thu Apr 25 10:25:58 2002), 转信

【以下文字转载自 jjk 的信箱】
【原文由 jjk.bbs@apue.dhs.org 所发表】
发信人: altmayer (alt·尼古丁中毒~), 信区: SYSOP
标  题: 站长看看这个脚本吧
发信站: UNIX编程 (2002年04月17日23:13:01 星期三), 站内信件

#!/usr/bin/perl

#dirtree.pl yourdir
#write by wind@lostemple.dhs.org
#         Altmayer@lostemple.dhs.org
#                                       2002.04.17

@flag=("┣","━","┗","┳","┃");
$/ = "#\n";
my $tmp="^[[1;0;30;47m本版精华区索引^[[m";
&dirlist($ARGV[0], "$flag[0]$flag[1]","100",$tmp);

sub dirlist(){
    my $dir=$_[0];
    my $pre=$_[1];
    my $fd=$_[2];
    my $laststr=$_[3];

    open($fd,"<$dir/.Names") ||  die "hehefaint cant find the file";
    my $newline=<$fd> ||  die "hehefaint cant find the file";
    $newline=<$fd>;
    if($newline=<$fd>){
        $laststr=~s/$flag[1]/$flag[3]/;
    }
    print("$laststr\n");
    while($pre=~/$flag[0]/){
        my @array=split(/\n/,$newline,-1);
        $newline=<$fd> || $pre=~s/$flag[0]/$flag[2]/;
        my $name=$array[0];
        if($name =~ m/(Name)=(.{0,38}) ?.*/){
            my $title=$2;
            $title="$title  ";
            my $path=$array[1];
            $path =~ m/(Path)=~\/(.*)/;
            my $file=$2;
            $title=~s/\[推荐\]/^[\[1;35m\[推荐\]^[\[m/;
            if(-d "$dir/$file"){
                $title="^[[1;34m$title^[[m";
                if( $title=~s/\[专集\]/^[\[1;31m\[专集\]/||
                    $title=~s/\[杂牌\]/^[\[1;33m\[杂牌\]/||
                    $title=~s/\[N\]/^[\[1;36m\[N\]/){
                    print("$pre>$title\n");
                }
                else{
                    my $newpre=$pre;

                    $newpre=~s/$flag[0]/$flag[4]/;
                    $newpre=~s/$flag[2]/  /;
                    $newpre=~s/$flag[1]/$flag[0]/;

                    $newpre="$newpre$flag[1]";
                    &dirlist("$dir/$file","$newpre",$fd+"1","$pre>$title");
                }
            }
            else{
                print("$pre>$title\n");
            }
        }
    }
    close($fd);
}
--
※ 修改:·altmayer 於 04月18日02:22:46 修改本文·[FROM: 211.80.41.106]
※ 来源:·UNIX编程 apue.dhs.org·[FROM: 211.80.41.106]
--
※ 转寄:·UNIX编程 apue.dhs.org·[FROM: 210.39.3.50]
--
※ 转载:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.0.146]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店