Board logo

标题: [原创代码] [Perl]终端版信息整理、分类、浏览工具（个人Wiki） [打印本页]
作者: 523066680    时间: 2015-8-18 17:42     标题: [Perl]终端版信息整理、分类、浏览工具（个人Wiki）

本帖最后由 523066680 于 2015-8-18 22:38 编辑

【我的Perl脚本不管有没有卵用还是要发布的系列】

实质上是一个多重HSAH结构的编辑、浏览工具，ID那个没有搞加密，存储密码的时候暂时用助记码或者密码提醒。




ActivePerl V5.16, Win32,  需要安装模块：YAML
而 Win32::Console 为 ActivePerl自带
选择YAML是因为即使没有这个工具，直接打开YAML文件也可以直观的浏览信息

脚本保存为UTF-8文本格式，反正就是很长不改了哈哈哈
  1. =info

  2.   523066680

  3.   2015-08-18

  4. =cut

  5. 

  6. use utf8;

  7. use strict;

  8. no strict 'refs';

  9. use Time::HiRes 'sleep';

  10. use IO::Handle;

  11. use Encode;

  12. use Data::Dumper;

  13. STDOUT->autoflush(1);

  14. 

  15. 

  16. use Win32::Console;

  17. our $env_ref;

  18. our $env_ref_name;

  19. our ($MAX_COL, $MAX_LINE) = (120, 30);

  20. our $MATRIX = $MAX_COL * $MAX_LINE;

  21. 

  22. our $IN = Win32::Console->new(STD_INPUT_HANDLE);

  23. our $OUT= Win32::Console->new(STD_OUTPUT_HANDLE);

  24. system("mode con cols=$MAX_COL");

  25. $OUT->Window(1, 0, 0, 119, 29);

  26. 

  27. our $IN_DEFAULT = $IN->Mode();

  28. 

  29. our $File;

  30. $File=encode('gbk', "D:\\备忘录.yaml");

  31. 

  32. $OUT->Cursor(1, 1, 99, 1);  #这里设置了光标高度，后面就不需要再设置了。

  33.                             #如果后面每次都指定了高度，则光标会闪烁频繁以至于移动时看不见

  34. 

  35. $IN->Mode(ENABLE_MOUSE_INPUT);

  36. $OUT->FillAttr($FG_WHITE | $BG_CYAN, $MATRIX, 0, 0);  #背景填充，0, 0为起点

  37. 

  38. 

  39. my %hash;

  40. my @info;

  41. 

  42. =info Struct

  43.     存储不同层次下的菜单列表信息

  44.     @info = (

  45.         {                  # ---> level 0

  46.             "key1" => 

  47.             {   x    =>value, 

  48.                 light=>bool, 

  49.                 str  =>keyname, 

  50.                 ref  =>self

  51.                 y    =>value,

  52.                 length => strlen

  53.             },

  54.             "key2" => {},

  55.             "key3" => {},

  56.         },

  57. 

  58.         {                  # ---> level 1

  59.             "key1/name1" => {},

  60.             "key1/name2" => {},

  61.             ...

  62.         },

  63.     )

  64. =cut

  65. 

  66. &load_data(\%hash, $File);

  67. 

  68. GO_BACK:

  69. #首列

  70. our @indent=(1);

  71. @info=();

  72. $indent[1] = &expand(\%hash, \%{$info[0]}, "", $indent[0]);  #first key=""

  73. 

  74. our @prev=();

  75. our $INDENT = 2;   #统一缩进量

  76. 

  77. my ($mx, $my);

  78. my $BackupRect;

  79. my $max_level=6;

  80. my $cur_level=0;

  81. 

  82. GO_CONTINUE: 

  83. while (1) 

  84. {

  85.     sleep 0.02;

  86.     my @arr = $IN->Input();

  87.     my $inside;

  88. 

  89.     if ($arr[0]==2) #arr[0] -> key or mouse, [1] -> mouse x, [2] -> mouse y

  90.     {

  91.         ($mx, $my) = ($arr[1], $arr[2]);

  92.         $inside = 0;

  93. 

  94.         for my $i (0 .. $max_level)     # 0,1,2代表列表的层次

  95.         {

  96.             my $j = $i+1;

  97.             for my $path (keys %{$info[$i]})   #这个$path是fullpath的

  98.             {

  99.                 #如果位于某个条目并且状态并非高亮 -> 切换到高亮并显示下一级条目

  100. 

  101.                 if ( inItem( $info[$i]{$path}, @arr[1,2]  ) )

  102.                 {

  103.                     $inside++;

  104.                 }

  105. 

  106.                 if (  inItem( $info[$i]{$path}, @arr[1,2] ) 

  107.                                 and 

  108.                         $info[$i]{$path}{light}==0  )

  109.                 {

  110.                     #加一句cursor 0,0 似乎能阻止条目高亮出现缺口

  111.                     $OUT->Cursor(0,0);

  112. 

  113.                     HighLightItem( $info[$i]{$path} );

  114. 

  115.                     #清理次级高亮条目 (首层的光标改变时), 放在expand之前执行，

  116.                     if (defined $prev[$j]) 

  117.                     {

  118.                         ClearLight( $info[$j]{$prev[$j]} );

  119.                         undef $prev[$j];

  120.                         for my $clear ($j..$max_level) 

  121.                         {

  122.                             undef %{$info[$clear]};

  123.                         }

  124.                     }

  125. 

  126.                     $indent[$j+1] = 

  127.                         expand(

  128.                             $info[$i]{$path}{'self'},   #当前对象

  129.                             $info[$j],                  #设置下一级菜单

  130.                             $path,                      #完整path

  131.                             $indent[$j]+$INDENT         #缩进量

  132.                         );

  133. 

  134.                     #移除当前条目上一次的光标

  135.                     ClearLight( $info[$i]{$prev[$i]} );

  136.                     $prev[$i]=$path;

  137.                 }

  138. 

  139.                 #显示信息摘要 

  140.                 if ( inDetail($info[$i]{$path}, @arr[1,2]) )

  141.                 {

  142.                     show_info(

  143.                         $info[$i]{$path},

  144.                         $indent[$j]+$INDENT,

  145.                         \$BackupRect

  146.                     );

  147.                 }

  148. 

  149.                 #单击鼠标左键时显示所有详细信息

  150.                 if ( inItem($info[$i]{$path}, @arr[1,2]) and $arr[3]==1 )

  151.                 {

  152.                     show_detail( $info[$i]{$path}{'self'} );

  153.                 }

  154. 

  155.                 #右键菜单

  156.                 if ( inItem($info[$i]{$path}, @arr[1,2]) and $arr[3]==2 )

  157.                 {

  158.                     #MARK_1 取消清理子键信息

  159.                     #在调用菜单事件之前，清理子键信息

  160.                     for my $clear ($j..$max_level) 

  161.                     {

  162.                         #undef %{$info[$clear]};

  163.                     }

  164. 

  165.                     context_menu(

  166.                         $indent[$j], $arr[2], $info[$i], $path, $i

  167.                     );

  168.                         #缩进        坐标     当前级$info 绝对路径

  169.                 }

  170.             }

  171.         }

  172. 

  173.         if ($inside > 0) 

  174.         {

  175.         }

  176. 

  177.         $OUT->Cursor($mx, $my);

  178.     } elsif ($arr[0]==1 and $arr[1]==1 and $arr[5]==27) {

  179.         &save(\%hash, $File);

  180.         $OUT->Cls();

  181.         exit;

  182.     } elsif ($arr[0]==1 and $arr[1]==1 and lc(chr($arr[5])) eq 's') {

  183.         &save(\%hash, $File);

  184.         wrong("", "save!");

  185.     } elsif ($arr[0]==1 and $arr[1]==1 and $arr[3]==116) {  #F5 刷新界面从头开始

  186.         goto GO_BACK;

  187.     }

  188. }

  189. 

  190. sub expand

  191. {

  192.     my ($ref, $info, $parent, $indent) = @_;

  193.     my ($cx, $cy) = ( $indent, 1 );

  194.     ClearRect($cx, $MAX_COL, 1, $MAX_LINE);

  195.     my $mark;

  196.     my $max=0;

  197.     my $len=0;

  198.     my @fold;

  199.     my @file;

  200. 

  201.     %$info=();

  202.     my $tkid;

  203.     foreach my $kid (sort keys %$ref)

  204.     {

  205.         next if ($kid eq 'note');     #跳过笔记标记

  206.         $tkid = $kid;

  207.         $mark = $parent .":". $kid;

  208.         $tkid =~s/^\d_//;             #去掉编号信息

  209.         

  210.         if ( (keys %{$ref->{$kid}} ) > 1 ) 

  211.         {

  212.             $tkid = "/". $tkid;

  213.             push @fold, $mark;

  214.         } else {

  215.             push @file, $mark;

  216.         }

  217. 

  218.         $tkid = " $tkid ";

  219.         $len = length($tkid);

  220.         $max = $len if ( $len > $max );

  221. 

  222.         $$info{$mark} = {       # key name使用完整路径

  223.             "x"     => $cx,     # 由于@fold和@file分开列出，所以$cy在后面排列时设置

  224.             "light" => 0,       # 高亮状态

  225.             "str"   => $tkid,   # 用于显示的keyname

  226.             "self"  => $ref->{$kid},   # 该key的引用

  227.             "parent"=> $ref,

  228.         };

  229.     }

  230. 

  231.     foreach ( @fold, @file) 

  232.     {    

  233.         $$info{$_}{"y"} = $cy++;

  234.         $$info{$_}{"length"} = $max;

  235. 

  236.         $OUT->Cursor($$info{$_}{x}, $$info{$_}{y});

  237.         $OUT->Write($$info{$_}{str}); 

  238.         $OUT->FillAttr(

  239.             $FG_WHITE|$BG_CYAN, 

  240.             $$info{$_}{length}, 

  241.             $$info{$_}{x}, 

  242.             $$info{$_}{y}

  243.         );

  244.     }

  245.     return $max+$indent;

  246. }

  247. 

  248. 

  249. sub show_detail 

  250. {

  251.     my $item_ref = shift;

  252.     my @arr;

  253.     my $BACKUP;

  254.     my $tmpstr;

  255.     $BACKUP = $OUT->ReadRect(1, 1, $MAX_COL, $MAX_LINE);

  256. 

  257. SHOW:

  258.     $OUT->Cls();

  259.     $OUT->Cursor(0,1);    #从第一行开始写信息

  260. 

  261.     my @detail;

  262.     $tmpstr = join("\n", @{ $item_ref->{'note'} });

  263.     if ($tmpstr=~/\t[^\t]+\t/) 

  264.     {

  265.         @detail = &tabformat( $item_ref->{'note'} );

  266.         print join("\n", @detail);

  267.     } else {

  268.         print $tmpstr;

  269.     }

  270. 

  271.     my $inp;

  272.     while (1) 

  273.     {

  274.         sleep 0.1;

  275.         @arr=$IN->Input();

  276.         if ($arr[0]==1 and $arr[5]==27) {

  277.             last;

  278.         } elsif ($arr[0]==1 and $arr[3]==17) {  #control

  279.             $inp = inputBar( $item_ref );

  280.             $OUT->Cursor(0, 0);

  281.             goto SHOW;

  282.         }

  283.     }

  284.     $OUT->Cls();

  285.     $OUT->FillAttr($FG_WHITE | $BG_CYAN, $MATRIX, 0, 0);

  286.     $OUT->WriteRect($BACKUP, 1, 1, $MAX_COL, $MAX_LINE);

  287. }

  288. 

  289. sub show_info 

  290. {

  291.     my ($info, $indent, $PREV_RECT) = @_;

  292.     my ($mx, $my);

  293.     my @arr=();

  294.     my $inity = 8;

  295.     my ($cx, $cy)=($indent, $inity);

  296.     my $col_area = $MAX_COL - $indent - 1;  #比最大边界少1

  297. 

  298.     my $line_area = $MAX_LINE - $cy;

  299.     $PREV_RECT = $OUT->ReadRect($cx, $cy, $MAX_COL, $MAX_LINE);

  300.     &ClearRect($cx, $MAX_COL, $cy, $MAX_LINE);

  301. 

  302.     my $i = 0;

  303.     my $tmpstr;

  304.     my $nn;

  305.     my @detail;

  306.     my @notes;

  307. 

  308.     if ( exists $info->{'self'}{'note'} ) 

  309.     {

  310.         @notes = @{ $info->{'self'}{'note'} };

  311.     } 

  312.     else 

  313.     {

  314.         @notes = ();

  315.     }

  316. 

  317.     $tmpstr=join("\n", @notes );

  318.     if ($tmpstr=~/\t[^\t]+\t/) 

  319.     {

  320.         @detail = tabformat( \@notes );

  321.     }

  322. 

  323.     foreach ( @notes ) 

  324.     {

  325.         $i++;

  326.         $nn=sprintf("%02d ",$i);

  327.         if ($#detail < 0) {

  328.             $tmpstr=$_;

  329.             $tmpstr=~s/\t/ /g;

  330.             $tmpstr=substr($nn . $tmpstr, 0, $col_area);

  331.         } else {

  332.             $tmpstr=substr($nn . $detail[$i-1], 0, $col_area);

  333.         }

  334.         $OUT->Cursor($cx, $cy);

  335.         $OUT->Write( $tmpstr );

  336.         $OUT->FillAttr($FG_YELLOW|$BG_CYAN, $col_area, $cx, $cy++);

  337.         last if ($cy >= ($MAX_LINE-1));

  338.     }

  339.     

  340.     if ($i==0) 

  341.     {

  342.         $OUT->Cursor($cx, $cy);

  343.         $OUT->Write("There is nothing");

  344.         $OUT->FillAttr($FG_YELLOW|$BG_CYAN, $col_area, $cx, $cy);

  345.     }

  346. 

  347.     #循环：当鼠标移开时恢复原来的信息

  348.     my ($x, $y, $len) = (

  349.         $info->{'x'}, 

  350.         $info->{'y'}, 

  351.         $info->{'length'}

  352.     );

  353. 

  354.     while (1) 

  355.     {

  356.         sleep 0.03;

  357.         @arr=$IN->Input();

  358.         if ($arr[0]==2)        #0 => key/mouse, 1 => x, 2 => y

  359.         {   

  360.             ($mx, $my) = ($arr[1], $arr[2]);

  361.             $OUT->Cursor($mx, $my);

  362.             if (not inDetail( $info, $mx, $my) )

  363.             {

  364.                 $OUT->WriteRect($PREV_RECT, $cx, $inity, $MAX_COL, $MAX_LINE);

  365.                 last;

  366.             }

  367.         }

  368.     }

  369. }

  370. 

  371. FILL_CLEAR: {

  372.     sub ClearLight 

  373.     {

  374.         my $hash = shift;

  375.         $OUT->FillAttr($FG_WHITE | $BG_CYAN, $$hash{length}, $$hash{x}, $$hash{y});

  376.         $$hash{light}=0;

  377.     }

  378. 

  379.     sub ClearLight_menu

  380.     {

  381.         my $hash = shift;

  382.         $OUT->FillAttr($FG_YELLOW | $BG_BLUE, $$hash{length}, $$hash{x}, $$hash{y});

  383.         $$hash{light}=0;

  384.     }

  385. 

  386.     sub ClearRect 

  387.     {

  388.         my ($left, $right, $top, $bottom) = @_;

  389.         my $delta=$right-$left;

  390.         foreach ($top..$bottom) {

  391.             $OUT->FillChar(" ", $delta, $left, $_);

  392.             $OUT->FillAttr($FG_WHITE | $BG_CYAN, $delta, $left, $_);

  393.         }

  394.     }

  395. 

  396.     sub ClearRect_byColor

  397.     {

  398.         my ($color, $left, $right, $top, $bottom) = @_;

  399.         my $delta = $right - $left;

  400.         foreach ($top .. $bottom) {

  401.             $OUT->FillChar(" ", $delta, $left, $_);

  402.             $OUT->FillAttr($color, $delta, $left, $_);

  403.         }

  404.     }

  405. 

  406.     sub fill_line 

  407.     {

  408.         my ($str, $length, $attr, $line) = @_;

  409.         $OUT->FillChar($str, $length, 0, $line);

  410.         $OUT->FillAttr($attr, $length, 0, $line);

  411.     }

  412. 

  413.     sub HighLightItem

  414.     {

  415.         my $info_ref = shift;

  416.         $OUT->FillAttr(

  417.             $FG_BLACK | $BG_WHITE,

  418.             $info_ref->{length},

  419.             $info_ref->{x},

  420.             $info_ref->{y}

  421.         );

  422.         $info_ref->{light}=1;

  423.     }

  424. }

  425. 

  426. sub context_menu 

  427. {

  428.     #调用注释

  429.     #  ReadRect和WriteRect 的时候，指定的是区域坐标。采用$dtx

  430.     #  ClearRect 和 FillAttr ，指定的是实际长度，所以用$col_area

  431. 

  432.     my @arr;

  433.     my ($initx, $inity, $info, $path, $lv) = @_;

  434.     my @menu;

  435. 

  436.     my @menu_inf = ();

  437.     my $menus = 

  438.     {

  439. 

  440.         '0_添加目录' => 'add_item',

  441.         '1_重命名' => 'rename_item',

  442.         '2_复制' => 'copy_tree',

  443.         '3_粘贴' => 'paste_tree',

  444.         '4_删除' => 'delete_item',

  445. 

  446.         '2_信息' => {

  447.             '0_编辑' => 'edit_notes',

  448.             '0_复制' => 'copy_to_clip',

  449.             '1_粘贴' => 'append_from_clip',

  450.             '2_清除' => 'delete_notes',

  451.             '3_+BANK' => 'BANK_to_notes',

  452.             '3_+ID'   => 'ID_to_notes',

  453.         },

  454.         

  455.         '3_新建' => {

  456.             '1_Normal' => 'add_sub_item',

  457.             '2_ID' => 'add_sub_item_ID',

  458.             '3_Bank' => 'add_sub_item_BANK',

  459.             '4_Date' => 'add_date_item',

  460.         },

  461. 

  462.     };

  463. 

  464.     #记录 并清理从左往右的区域

  465.     my $PREV_RECT = $OUT->ReadRect(

  466.             $initx, 1, $MAX_COL, $MAX_LINE

  467.         );

  468. 

  469.     ClearRect($initx, $MAX_COL, 1, $MAX_LINE);

  470. 

  471.     my @prev;

  472.     my @indent;

  473.     my $j;

  474.     my $max_level = 4;

  475.     $indent[0] = $initx + 1;  #避免和原标签冲突（原标签预留2个字节位置用于显示概要）

  476.     $indent[1] = 

  477.         expand_menu($menus, \%{$menu_inf[0]}, "", $indent[0], $inity);  #显示菜单并记录菜单信息

  478. 

  479. CONTEXT_WHILE: while (1)

  480.     {

  481.         sleep 0.03;

  482.         @arr = $IN->Input();

  483. 

  484.         my $inside = 0;

  485.         if ($arr[0] == 2)   #鼠标操作

  486.         {

  487.             ($mx, $my) = ($arr[1], $arr[2]);

  488.             

  489.             for my $i (0..$max_level)     # 0,1,2代表列表的层次

  490.             {

  491.                 $j = $i+1;

  492.                 for my $m_path (keys %{$menu_inf[$i]})   #这个$path是fullpath的

  493.                 {

  494.                     #如果位于某个条目并且状态并非高亮 -> 切换到高亮并显示下一级条目

  495. 

  496.                     if (  inItem( $menu_inf[$i]{$m_path}, @arr[1,2] )) {

  497.                         $inside++;

  498. 

  499.                         #单击鼠标左键且该选项指向一个函数

  500.                         if ( $arr[3]==1 and defined $menu_inf[$i]{$m_path}->{'func'} ) 

  501.                         {

  502.                             &{ $menu_inf[$i]{$m_path}->{'func'} }(

  503.                                 $$info{$path}{'parent'}, $path, $lv

  504.                             );

  505.                             last CONTEXT_WHILE;

  506.                         }

  507.                     }

  508. 

  509.                     if (

  510.                         inItem( $menu_inf[$i]{$m_path}, @arr[1,2] )

  511.                                     and 

  512.                             $menu_inf[$i]{$m_path}{light}==0  

  513.                     )

  514.                     {

  515.                         #清理次级高亮条目 (首层的光标改变时), 放在expand之前执行，

  516.                         if ( defined $prev[$j] ) 

  517.                         {

  518.                             #ClearLight_menu( $menu_inf[$j]{$prev[$j]} );

  519.                             undef $prev[$j];

  520.                             for my $clear ($j..$max_level) 

  521.                             {

  522.                                 undef %{$menu_inf[$clear]};

  523.                             }

  524.                         }

  525. 

  526.                         $indent[$j+1] = 

  527.                             expand_menu(

  528.                                 $menu_inf[$i]{$m_path}{'self'},   #当前对象

  529.                                 $menu_inf[$j],                    #设置下一级菜单

  530.                                 $m_path,                          #完整path

  531.                                 $indent[$j]+1,                    #缩进量

  532.                                 $my

  533.                             );

  534. 

  535.                         #移除当前条目上一次的光标

  536.                         ClearLight_menu( $menu_inf[$i]{$prev[$i]} );

  537.                         HighLightItem( $menu_inf[$i]{$m_path} );

  538.                         $prev[$i]=$m_path;

  539.                     }

  540.                 }

  541.             }

  542.         }

  543.         #$OUT->Cursor( ($IN->Input())[1,2]);  #恢复光标位置

  544. 

  545.         #如果鼠标位置不在条目内，以及不在path条目位置，退出菜单循环

  546.         if ($inside == 0 and ( not inItem( $$info{$path}, @arr[1,2])) )

  547.         {

  548.             last; # CONTEXT_WHILE;

  549.         }

  550.     }

  551. 

  552.     $OUT->WriteRect($PREV_RECT, $initx, 1, $MAX_COL, $MAX_LINE);

  553. 

  554. }

  555. 

  556. sub expand_menu 

  557. {

  558.     my ($ref, $info, $parent, $indent, $cy) = @_;

  559.     my $cx = $indent;

  560.     my $mark;

  561.     my $max=0;

  562.     my $len=0;

  563.     my @fold;    #fold 和file的作用是含子菜单和不含子菜单的先后分开列出。避免混乱显示

  564.     my @file;

  565. 

  566.     ClearRect($cx, $MAX_COL, 1, $MAX_LINE);  #从首行开始清理（0行留给提示信息）

  567. 

  568.     %$info=();

  569.     my $tkid;

  570.     foreach my $kid (sort keys %$ref)

  571.     {

  572.         next if ($kid eq 'note');

  573. 

  574.         $tkid = encode('gbk', $kid);

  575.         $tkid =~s/\d_//;  #去掉编号信息

  576.         $mark = $parent .":". $kid;

  577.         

  578.         

  579.         if ( (keys %{$ref->{$kid}} ) > 0 )  #目录

  580.         {

  581.             $tkid = " $tkid ->";

  582.             push @fold, $mark;

  583.         } else {

  584.             $tkid = " $tkid ";

  585.             push @file, $mark;

  586.         }

  587. 

  588.         $len = length($tkid);

  589.         $max = $len if ( $len > $max );

  590. 

  591.         $$info{$mark} = {       # key name使用完整路径

  592.             "x"     => $cx,     # 由于@fold和@file分开列出，所以$cy在后面排列时设置

  593.             "light" => 0,       # 高亮状态

  594.             "str"   => $tkid,   # 用于显示的keyname

  595.             "self"  => $ref->{$kid},   # 该key的引用

  596.             "parent"=> $ref,

  597.         };

  598. 

  599.         if ( (keys %{$ref->{$kid}} ) == 0 )

  600.         {

  601.             $$info{$mark}{'func'} = \&{ $ref->{$kid} };

  602.         }

  603. 

  604.     }

  605. 

  606.     foreach ( @fold, @file ) 

  607.     {

  608.         $$info{$_}{"y"} = $cy++;

  609.         $$info{$_}{"length"} = $max;

  610. 

  611.         $OUT->Cursor($$info{$_}{x}, $$info{$_}{y});

  612.         $OUT->Write($$info{$_}{str}."\b");

  613. 

  614.         $OUT->FillAttr(

  615.             $FG_YELLOW|$BG_BLUE, 

  616.             $$info{$_}{length}, 

  617.             $$info{$_}{x}, 

  618.             $$info{$_}{y}

  619.         );

  620.     }

  621. 

  622.     return $max+$indent;

  623. }

  624. 

  625. MENU_FUNC: 

  626. {

  627.     sub add_item 

  628.     {

  629.         our @prev;

  630.         our @indent;

  631.         my ($parent_ref, $path, $lv) = @_;

  632.         my $newkey;

  633. 

  634.         $newkey = &lineInput();

  635.         return 0 if ($newkey eq 'exit');

  636. 

  637.         if ( exists $parent_ref->{"$newkey"} ) 

  638.         {

  639.             wrong("", "key exists");

  640.             return 0;   

  641.         }

  642. 

  643.         $parent_ref->{"$newkey"} = {

  644.             'note' => [], 

  645.         };

  646.         undef $prev[$lv];               #取消上一次高亮菜单的记录

  647. 

  648.         my $adjust;

  649.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  650. 

  651.         $indent[$lv+1] = 

  652.             expand($parent_ref, $info[$lv], $path, $indent[$lv]+$adjust);

  653.         

  654.         goto GO_CONTINUE;

  655.     }

  656. 

  657.     sub add_sub_item

  658.     {

  659.         our @prev;

  660.         our @indent;

  661.         my ($parent_ref, $path, $lv) = @_;

  662.         my $newkey;

  663.         my $last_key;

  664. 

  665.         $newkey = &lineInput();

  666.         return 0 if ($newkey eq 'exit');

  667. 

  668.         $path=~/:([^:]+)$/;        #提取子键

  669.         $last_key = $1;

  670.         if ( exists $parent_ref->{$last_key}{$newkey} ) 

  671.         {

  672.             wrong("", "key exists");

  673.             return 0;   

  674.         }

  675. 

  676.         $parent_ref->{$last_key}{$newkey} = {

  677.             'note'=>[],

  678.         };

  679.         undef $prev[$lv];               #取消上一次高亮菜单的记录

  680. 

  681.         my $adjust;

  682.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  683. 

  684.         $indent[$lv+1] = 

  685.             expand($parent_ref, $info[$lv], $path, $indent[$lv]+$adjust);

  686.         goto GO_CONTINUE;

  687.     }

  688. 

  689.     sub add_date_item

  690.     {

  691.         our @prev;

  692.         our @indent;

  693.         my ($parent_ref, $path, $lv) = @_;

  694.         my $newkey;

  695.         my $last_key;

  696. 

  697.         $newkey = get_date();

  698. 

  699.         $path=~/:([^:]+)$/;        #提取子键

  700.         $last_key = $1;

  701.         if ( exists $parent_ref->{$last_key}{$newkey} ) 

  702.         {

  703.             wrong("", "key exists");

  704.             return 0;   

  705.         }

  706. 

  707.         $parent_ref->{$last_key}{$newkey} = {

  708.             'note'=>[],

  709.         };

  710.         undef $prev[$lv];               #取消上一次高亮菜单的记录

  711. 

  712.         my $adjust;

  713.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  714. 

  715.         $indent[$lv+1] = 

  716.             expand($parent_ref, $info[$lv], $path, $indent[$lv]+$adjust);

  717.         goto GO_CONTINUE;

  718.     }

  719. 

  720. 

  721.     sub add_sub_item_BANK

  722.     {

  723.         our @prev;

  724.         our @indent;

  725.         my ($parent_ref, $path, $lv) = @_;

  726.         my $newkey;

  727.         my $last_key;

  728. 

  729.         $newkey = &lineInput();

  730.         return 0 if ($newkey eq 'exit');

  731. 

  732.         $path=~/:([^:]+)$/;        #提取子键

  733.         $last_key = $1;

  734.         if ( exists $parent_ref->{$last_key}{$newkey} ) 

  735.         {

  736.             wrong("", "key exists");

  737.             return 0;   

  738.         }

  739.         $parent_ref->{$last_key}{$newkey} = {

  740.             'note' => [

  741.                 encode('gbk', " "x4 . " 开行点: "),

  742.                 encode('gbk', " "x4 . "   姓名: "),

  743.                 encode('gbk', " "x4 . "   卡号: "),

  744.                 encode('gbk', " "x4 . " 登录名: "),

  745.                 encode('gbk', " "x4 . "passkey: "),

  746.                 encode('gbk', " "x4 . "   code: "),

  747.                 encode('gbk', " "x4 . " USBKey: "),

  748.                 encode('gbk', " "x4 . "   mark: "),

  749.                 encode('gbk', " "x4 . "   date: "),

  750.             ],

  751.         };

  752.         undef $prev[$lv];               #取消上一次高亮菜单的记录

  753. 

  754.         my $adjust;

  755.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  756. 

  757.         $indent[$lv+1] = 

  758.             expand($parent_ref, $info[$lv], $path, $indent[$lv]+$adjust);

  759.         goto GO_CONTINUE;

  760.     }

  761. 

  762.     sub add_sub_item_ID

  763.     {

  764.         our @prev;

  765.         our @indent;

  766.         my ($parent_ref, $path, $lv) = @_;

  767.         my $newkey;

  768.         my $last_key;

  769. 

  770.         $newkey = &lineInput();

  771.         return 0 if ($newkey eq 'exit');

  772. 

  773.         $path=~/:([^:]+)$/;        #提取子键

  774.         $last_key = $1;

  775.         if ( exists $parent_ref->{$last_key}{$newkey} ) 

  776.         {

  777.             wrong("", "key exists");

  778.             return 0;   

  779.         }

  780.         $parent_ref->{$last_key}{$newkey} = {

  781.             'note' => [

  782.                             '  website: ',

  783.                             '   E-mail: ',

  784.               encode('gbk', '       ID: '),

  785.               encode('gbk', '     昵称: '),

  786.               encode('gbk', ' 密码提示: '),

  787.               encode('gbk', '    问题1: '),

  788.               encode('gbk', '    答案1: '),

  789.               encode('gbk', '    问题2: '),

  790.               encode('gbk', '    答案2: '),

  791.               encode('gbk', '    其他 : '),

  792.             ],

  793.         };

  794.         undef $prev[$lv];               #取消上一次高亮菜单的记录

  795. 

  796.         my $adjust;

  797.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  798. 

  799.         $indent[$lv+1] = 

  800.             expand($parent_ref, $info[$lv], $path, $indent[$lv]+$adjust);

  801.         goto GO_CONTINUE;

  802.     }

  803. 

  804.     sub rename_item 

  805.     {

  806.         our @prev;

  807.         our @indent;

  808.         my ($parent_ref, $path, $lv) = @_;

  809.         my $newkey;

  810.         my $last_key;

  811. 

  812.         $newkey = &lineInput();

  813.         return 0 if ($newkey eq 'exit');

  814. 

  815.         $path=~/:([^:]+)$/;        #提取子键

  816.         $last_key = $1;

  817.         $parent_ref->{$newkey} = $parent_ref->{ $last_key };

  818.         delete $parent_ref->{$last_key};

  819. 

  820.         undef $prev[$lv];               #取消上一次高亮菜单的记录

  821. 

  822.         my $adjust;

  823.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  824. 

  825.         $indent[$lv+1] = 

  826.             expand($parent_ref, $info[$lv], $path, $indent[$lv]+$adjust);

  827.         

  828.         goto GO_CONTINUE;

  829.     }

  830. 

  831.     sub delete_item 

  832.     {

  833.         our @prev;

  834.         our @indent;

  835.         my ($parent_ref, $path, $lv) = @_;

  836.         my $adjust;

  837. 

  838.         $path=~/:([^:]+)$/;        #提取子键

  839.         delete $parent_ref->{$1};

  840. 

  841.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  842. 

  843.         $indent[$lv+1] = 

  844.             expand($parent_ref, $info[$lv], $path, $indent[$lv]+$adjust);

  845.         

  846.         goto GO_CONTINUE;

  847.     }

  848. 

  849.     sub copy_tree 

  850.     {

  851.         our @prev;

  852.         our @indent;

  853.         our $env_ref;

  854.         our $env_ref_name;

  855. 

  856.         my ($parent_ref, $path, $lv) = @_;

  857.         my $adjust;

  858. 

  859.         $path=~/:([^:]+)$/;

  860.         $env_ref_name = $1;

  861.         $env_ref = $parent_ref->{$1};

  862.     }

  863. 

  864.     sub paste_tree

  865.     {

  866.         our @prev;

  867.         our @indent;

  868.         our $env_ref;

  869.         our $env_ref_name;

  870. 

  871.         my ($parent_ref, $path, $lv) = @_;

  872.         my $adjust;

  873. 

  874.         if (! defined $env_ref_name) 

  875.         {

  876.             wrong("paste_tree", "nothing in memory");

  877.             return;

  878.         }

  879. 

  880.         $path=~/:([^:]+)$/;        #提取子键

  881.         $parent_ref->{$1}{ $env_ref_name } = $env_ref;

  882. 

  883.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  884. 

  885.         $indent[$lv+1] = 

  886.             expand($parent_ref, $info[$lv], $path, $indent[$lv]+$adjust);

  887.         

  888.         goto GO_CONTINUE;

  889.     }

  890. 

  891. 

  892.     sub append_from_clip 

  893.     {

  894.         our @prev;

  895.         our @indent;

  896.         my ($parent_ref, $path, $lv) = @_;

  897.         my $adjust;

  898.         use Win32::Clipboard;

  899.         my $clip = Win32::Clipboard->new();

  900. 

  901. 

  902.         $path=~/:([^:]+)$/;        #提取子键

  903.         if ( exists $parent_ref->{$1}{'note'} )

  904.         {

  905.             push @{$parent_ref->{$1}{'note'}},  split(/\r?\n/,$clip->GetText()) ;

  906.         }

  907. 

  908.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  909.         

  910.         $indent[$lv+1] = 

  911.             expand(

  912.                 $parent_ref, $info[$lv], $path, $indent[$lv]+$adjust

  913.             );

  914.         no Win32::Clipboard;

  915.         goto GO_CONTINUE;

  916.     }

  917. 

  918.     sub edit_notes 

  919.     {

  920.         our @prev;

  921.         our @indent;

  922.         my @arr;

  923.         my ($parent_ref, $path, $lv) = @_;

  924.         my $adjust;

  925. 

  926.         $path=~/:([^:]+)$/;        #提取子键

  927.         if ( exists $parent_ref->{$1}{'note'} )

  928.         {

  929.             use File::Temp 'tempfile';

  930.             my ($fh, $fname) = tempfile();

  931.             print $fh join( "\r\n", @{$parent_ref->{$1}{'note'}} );

  932.             $fh->close();

  933.             no File::Temp;

  934.             system("notepad $fname");

  935.             open READ, "<:raw", $fname or warn "$!";

  936. 

  937.             @{$parent_ref->{$1}{'note'}} = <READ>;

  938.             for my $i ( @{$parent_ref->{$1}{'note'}} ) 

  939.             {

  940.                 $i=~s/\r\n$//;

  941.             }

  942.             

  943.             close READ;

  944.         }

  945. 

  946.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  947.         

  948.         $indent[$lv+1] = 

  949.             expand(

  950.                 $parent_ref, $info[$lv], $path, $indent[$lv]+$adjust

  951.             );

  952.         no Win32::Clipboard;

  953.         goto GO_CONTINUE;

  954.     }

  955. 

  956.     sub ID_to_notes

  957.     {

  958.         our @prev;

  959.         our @indent;

  960.         my @arr;

  961.         my ($parent_ref, $path, $lv) = @_;

  962.         my $adjust;

  963. 

  964.         $path=~/:([^:]+)$/;        #提取子键

  965.         if ( exists $parent_ref->{$1}{'note'} )

  966.         {

  967.             use File::Temp 'tempfile';

  968.             my ($fh, $fname) = tempfile();

  969.             print $fh join( "\r\n", @{$parent_ref->{$1}{'note'}} ),"\r\n";

  970.             print $fh 

  971.             (

  972.                 encode('gbk', " "x4 . " website: \r\n"),

  973.                 encode('gbk', " "x4 . "  E-mail: \r\n"),

  974.                 encode('gbk', " "x4 . "nickname: \r\n"),

  975.                 encode('gbk', " "x4 . "      ID: \r\n"),

  976.                 encode('gbk', " "x4 . "    code: \r\n"),

  977.                 encode('gbk', " "x4 . "   问题1: \r\n"),

  978.                 encode('gbk', " "x4 . "   答案1: \r\n"),

  979.                 encode('gbk', " "x4 . "   问题2: \r\n"),

  980.                 encode('gbk', " "x4 . "   答案2: \r\n"),

  981.                 encode('gbk', " "x4 . "    备注: \r\n"),

  982.                 encode('gbk', " "x4 . "    date: \r\n\r\n"),

  983.             );

  984. 

  985.             $fh->close();

  986.             no File::Temp;

  987.             system("notepad $fname");

  988.             open READ, "<:raw", $fname or warn "$!";

  989. 

  990.             @{$parent_ref->{$1}{'note'}} = <READ>;

  991.             for my $i ( @{$parent_ref->{$1}{'note'}} ) 

  992.             {

  993.                 $i=~s/\r\n$//;

  994.             }

  995.             

  996.             close READ;

  997.         }

  998. 

  999.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  1000.         

  1001.         $indent[$lv+1] = 

  1002.             expand(

  1003.                 $parent_ref, $info[$lv], $path, $indent[$lv]+$adjust

  1004.             );

  1005.         no Win32::Clipboard;

  1006.         goto GO_CONTINUE;

  1007.     }

  1008. 

  1009.     sub BANK_to_notes

  1010.     {

  1011.         our @prev;

  1012.         our @indent;

  1013.         my @arr;

  1014.         my ($parent_ref, $path, $lv) = @_;

  1015.         my $adjust;

  1016. 

  1017.         $path=~/:([^:]+)$/;        #提取子键

  1018.         if ( exists $parent_ref->{$1}{'note'} )

  1019.         {

  1020.             use File::Temp 'tempfile';

  1021.             my ($fh, $fname) = tempfile();

  1022.             print $fh join( "\r\n", @{$parent_ref->{$1}{'note'}} ),"\r\n";

  1023.             print $fh 

  1024.             (

  1025.                 encode('gbk', " "x4 . " 开行点: \r\n"),

  1026.                 encode('gbk', " "x4 . "   姓名: \r\n"),

  1027.                 encode('gbk', " "x4 . "   卡号: \r\n"),

  1028.                 encode('gbk', " "x4 . " 登录名: \r\n"),

  1029.                 encode('gbk', " "x4 . "passkey: \r\n"),

  1030.                 encode('gbk', " "x4 . "   code: \r\n"),

  1031.                 encode('gbk', " "x4 . " USBKey: \r\n"),

  1032.                 encode('gbk', " "x4 . "   mark: \r\n"),

  1033.                 encode('gbk', " "x4 . "   date: \r\n\r\n"),

  1034.             );

  1035. 

  1036.             $fh->close();

  1037.             no File::Temp;

  1038.             system("notepad $fname");

  1039.             open READ, "<:raw", $fname or warn "$!";

  1040. 

  1041.             @{$parent_ref->{$1}{'note'}} = <READ>;

  1042.             for my $i ( @{$parent_ref->{$1}{'note'}} ) 

  1043.             {

  1044.                 $i=~s/\r\n$//;

  1045.             }

  1046.             

  1047.             close READ;

  1048.         }

  1049. 

  1050.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  1051.         

  1052.         $indent[$lv+1] = 

  1053.             expand(

  1054.                 $parent_ref, $info[$lv], $path, $indent[$lv]+$adjust

  1055.             );

  1056.         no Win32::Clipboard;

  1057.         goto GO_CONTINUE;

  1058.     }

  1059. 

  1060.     sub copy_to_clip 

  1061.     {

  1062.         our @prev;

  1063.         our @indent;

  1064.         my ($parent_ref, $path, $lv) = @_;

  1065.         my $adjust;

  1066.         use Win32::Clipboard;

  1067.         my $clip = Win32::Clipboard->new();

  1068. 

  1069. 

  1070.         $path=~/:([^:]+)$/;        #提取子键

  1071.         if ( exists $parent_ref->{$1}{'note'} )

  1072.         {

  1073.             $clip->Set(

  1074.                 join( "\r\n", @{$parent_ref->{$1}{'note'}} ) 

  1075.             );

  1076.         }

  1077. 

  1078.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  1079.         

  1080.         $indent[$lv+1] = 

  1081.             expand(

  1082.                 $parent_ref, $info[$lv], $path, $indent[$lv]+$adjust

  1083.             );

  1084.         no Win32::Clipboard;

  1085.         goto GO_CONTINUE;

  1086.     }

  1087. 

  1088.     sub delete_notes 

  1089.     {

  1090.         our @prev;

  1091.         our @indent;

  1092.         my ($parent_ref, $path, $lv) = @_;

  1093.         my $adjust;

  1094. 

  1095.         $path=~/:([^:]+)$/;        #提取子键

  1096.         if ( exists $parent_ref->{$1}{'note'} ) 

  1097.         {

  1098.             $parent_ref->{$1}{'note'} = [];

  1099.         }

  1100. 

  1101.         $adjust = ( $lv == 0 ? 0 : $INDENT );

  1102. 

  1103.         $indent[$lv+1] = 

  1104.             expand($parent_ref, $info[$lv], $path, $indent[$lv]+$adjust);

  1105.         

  1106.         goto GO_CONTINUE;

  1107.     }

  1108. }

  1109. 

  1110. COMMAND: {

  1111. 

  1112.     sub lineInput 

  1113.     {

  1114.         our $IN_DEFAULT;

  1115.         my $line;

  1116.         my $inp;

  1117.         my $prompt;

  1118.         my $PREV_IN_MODE;

  1119.         my $PREV_RECT;

  1120. 

  1121.         $line=$MAX_LINE-4;

  1122.         $prompt="Command:";

  1123.         $PREV_RECT    = $OUT->ReadRect(0, $line-1, $MAX_COL, $line+1);

  1124.         $PREV_IN_MODE = $IN->Mode();

  1125.         $IN->Mode( $IN_DEFAULT );

  1126. 

  1127.         fill_line("-", $MAX_COL, $FG_YELLOW|$BG_CYAN, $line-1);

  1128.         fill_line("-", $MAX_COL, $FG_YELLOW|$BG_CYAN, $line+1);

  1129.         ClearRect(0, $MAX_COL, $line, $line);

  1130.         $OUT->Cursor(0, $line);

  1131.         $OUT->Write($prompt);

  1132.         $inp=<STDIN>;

  1133.         chomp $inp;

  1134. 

  1135.         #    如果IN->Mode没有设置为原始状态，<STDIN>将无法退出。

  1136.         # $IN句柄在未设置时<STDIN>还是能够通过ENTER键结束行输入的

  1137.         # 通过print $IN->Mode(); 得到原始 Mode 代码为183

  1138.         #恢复

  1139.         $IN->Mode($PREV_IN_MODE);

  1140.         $OUT->WriteRect($PREV_RECT, 0, $line-1, $MAX_COL, $line+1);

  1141.         return $inp;

  1142.     }

  1143. 

  1144.     sub linesInput 

  1145.     {

  1146.         our $IN_DEFAULT;

  1147.         my $line;

  1148.         my $inp;

  1149.         my $prompt;

  1150.         my $PREV_IN_MODE;

  1151.         my $PREV_RECT;

  1152.         my @arr;

  1153. 

  1154.         $line=$MAX_LINE-4;

  1155.         $prompt="INPUT:";

  1156.         $PREV_RECT    = $OUT->ReadRect(0, $line-1, $MAX_COL, $line+1);

  1157.         $PREV_IN_MODE = $IN->Mode();

  1158.         $IN->Mode( $IN_DEFAULT );

  1159. 

  1160.         while (1) {

  1161.             fill_line("-", $MAX_COL, $FG_YELLOW|$BG_CYAN, $line-1);

  1162.             fill_line("-", $MAX_COL, $FG_YELLOW|$BG_CYAN, $line+1);

  1163.             ClearRect(0, $MAX_COL, $line, $line);

  1164.             $OUT->Cursor(0, $line);

  1165.             $OUT->Write($prompt);

  1166.             $inp=<STDIN>;

  1167.             chomp $inp;

  1168.             if (lc($inp) ne "exit") {

  1169.                 push(@arr, $inp);

  1170.             } else {

  1171.                 last;

  1172.             }

  1173.         }

  1174.         #    如果IN->Mode没有设置为原始状态，<STDIN>将无法退出。

  1175.         # $IN句柄在未设置时<STDIN>还是能够通过ENTER键结束行输入的

  1176.         # 通过print $IN->Mode(); 得到原始 Mode 代码为183

  1177. 

  1178.         #恢复

  1179.         $IN->Mode($PREV_IN_MODE);

  1180.         $OUT->WriteRect($PREV_RECT, 0, $line-1, $MAX_COL, $line+1);

  1181.         return @arr;

  1182.     }

  1183. 

  1184.     sub inputBar 

  1185.     {

  1186.         our $IN_DEFAULT;

  1187.         my $item_ref = shift;

  1188.         my $line;

  1189.         my $inp;

  1190.         my $prompt;

  1191.         my $tmpstr;

  1192.         my $PREV_IN_MODE;

  1193.         my $PREV_RECT;

  1194. 

  1195.         $line = $MAX_LINE - 4;

  1196.         $prompt="Command:";

  1197.         $PREV_RECT    = $OUT->ReadRect(0, $line-1, $MAX_COL, $line+1);

  1198.         $PREV_IN_MODE = $IN->Mode();

  1199.         $IN->Mode( $IN_DEFAULT );

  1200. 

  1201.         while (1) 

  1202.         {

  1203.             $OUT->Cls();

  1204.             $tmpstr = join("\n", @{$item_ref->{'note'}} );

  1205.             $OUT->Cursor(0, 1);

  1206.             $OUT->Write( $tmpstr );

  1207.             fill_line("-", $MAX_COL, $FG_YELLOW|$BG_BLACK, $line-1);

  1208.             fill_line("-", $MAX_COL, $FG_YELLOW|$BG_BLACK, $line+1);

  1209.             ClearRect(0, $MAX_COL, $line, $line);  #清理输入的行

  1210. 

  1211.             $OUT->Cursor(0, $line);                #回到行首

  1212.             $OUT->Write( $prompt );

  1213.             $OUT->FillAttr(

  1214.                 $FG_YELLOW|$BG_BLACK, 

  1215.                 $MAX_COL,

  1216.                 0, 

  1217.                 $line

  1218.             );

  1219. 

  1220.             $inp=<STDIN>;

  1221.             $inp=~s/\r?\n$//;

  1222.             last if (lc($inp) eq "exit");

  1223.             push( @{$item_ref->{'note'}}, $inp );

  1224.         }

  1225.         

  1226. 

  1227.         # MARK_2 待添加功能：命令处理： delete 编号、insert 编号、change 编号

  1228. 

  1229.         #    如果IN->Mode没有设置为原始状态，<STDIN>将无法退出。

  1230.         # $IN句柄在未设置时<STDIN>还是能够通过ENTER键结束行输入的

  1231.         # 通过print $IN->Mode(); 得到原始 Mode 代码为183

  1232. 

  1233.         #恢复

  1234.         $IN->Mode($PREV_IN_MODE);

  1235.         $OUT->WriteRect($PREV_RECT, 0, $line-1, $MAX_COL, $line+1);

  1236.         return $inp;

  1237.     }

  1238. 

  1239.     sub wrong 

  1240.     {

  1241.         my ($func_name, $func_say) = @_;

  1242.         $func_say = "Nothing" unless (defined $func_say);

  1243.         $OUT->Cursor(0, 0);

  1244.         $OUT->Write("$func_name say: $func_say");

  1245.         $OUT->FillAttr($FG_YELLOW|$BG_CYAN, $MAX_COL-1, 0, 0);

  1246.     }

  1247. }

  1248. 

  1249. IN_AREA: {

  1250.     sub inRange {

  1251.         my ($a,$x,$b) = @_;

  1252.         if ($a<=$x and $b>=$x) {

  1253.             return 1;

  1254.         } else {

  1255.             return 0;

  1256.         }

  1257.     }

  1258. 

  1259.     sub inRect {

  1260.         my ( $x, $y, $left, $top, $right, $buttom ) = @_;

  1261.         if (    

  1262.                 inRange($left, $x, $right) 

  1263.                 and

  1264.                 inRange($top, $y, $buttom)

  1265.             ) 

  1266.         {

  1267.             return 1;

  1268.         } else {

  1269.             return 0;

  1270.         }

  1271.     }

  1272. 

  1273.     sub inItem {

  1274.         my ( $hash, $mx, $my ) = @_;

  1275.         return 0 if (! defined $$hash{length});

  1276. 

  1277.         if (

  1278.             $$hash{x} <= $mx 

  1279.                     and 

  1280.             ($$hash{length}+$$hash{x}) >= $mx 

  1281.                     and 

  1282.             $$hash{y} == $my

  1283.             ) 

  1284.         {

  1285.             return 1;

  1286.         } else {

  1287.             return 0;

  1288.         }

  1289. 

  1290.         #本函数原来有个BUG，当使用一个空的hash调用的时候，

  1291.         #$hash{x} {y} {length}都为空，但是被作为0计算，当坐标刚好位于0,0 的时候，问题就出来了

  1292.     }

  1293. 

  1294.     sub inDetail {

  1295.         my ( $hash, $mx, $my ) = @_;

  1296. 

  1297.         return 0 if (! defined $$hash{length});

  1298.         # (length-1, length)

  1299.         if (

  1300.             ($$hash{length}+$$hash{x}-1) <= $mx

  1301.                         and

  1302.             $mx < ($$hash{length}+$$hash{x}+1)

  1303.                         and

  1304.             $$hash{y} == $my

  1305.             )

  1306.         {

  1307.             return 1;

  1308.         } else {

  1309.             return 0;

  1310.         }

  1311.     }

  1312. }

  1313. 

  1314. LOAD_SAVE: {

  1315.     sub load_data

  1316.     {

  1317.         my ($hashref, $file) = @_;

  1318.         local $/;

  1319.         $/ = "";

  1320.         my $rf = {};

  1321.         if ( -e $file ) 

  1322.         {

  1323.             use YAML 'Load';

  1324.             local $YAML::SortKeys;

  1325.             $YAML::SortKeys = 2;

  1326.             open READ,"<:raw:crlf", $file or warn "$!\n";

  1327.             $rf = Load(<READ>);

  1328.             close READ;

  1329.         }

  1330. 

  1331.         if ( (keys %$rf) < 1 ) 

  1332.         {

  1333.             $rf = {

  1334.                 'Main' => {

  1335.                     'note'=>[],

  1336.                 },

  1337.             };

  1338.         }

  1339. 

  1340.         %$hashref = %$rf;

  1341.     }

  1342. 

  1343.     sub save 

  1344.     {

  1345.         use YAML 'Dump';

  1346.         my ($hashref, $file) = @_;

  1347.         local $YAML::Indent;

  1348.         $YAML::Indent = 4;

  1349. 

  1350.         local $YAML::SortKeys;

  1351.         $YAML::SortKeys = 2;

  1352. 

  1353. #        use Data::Dumper;

  1354. #        local  $Data::Dumper::Indent = 2;

  1355. #        open WRT, ">:raw:crlf", "test.txt" or warn "$!";

  1356. #        print WRT Data::Dumper->Dump([$hashref], "['*rcder']");

  1357. #        close WRT;

  1358. 

  1359.         open WRT, ">:raw:crlf", $file or warn "$!";

  1360.         print WRT Dump($hashref);

  1361.         close WRT;

  1362.     }

  1363. 

  1364.     sub logfile 

  1365.     {

  1366.         use feature 'state';

  1367.         state $i = 0;

  1368.         my $fname = ".\\log.txt";

  1369. 

  1370.         if ($i == 0) {

  1371.             open WRT,">:raw", $fname or die "$!";

  1372.         } else {

  1373.             open WRT,">>:raw", $fname or die "$!";

  1374.         }

  1375.         print WRT shift;

  1376.         close WRT;

  1377.         $i++;

  1378.     }

  1379. }

  1380. 

  1381. ELSE_FUNCTION: {

  1382.     sub tabformat 

  1383.     {

  1384.         my $ref=shift;

  1385.         my @col;

  1386.         my $n;

  1387.         my @tmpr;

  1388.         my @new_array;

  1389.         foreach (@$ref) 

  1390.         {

  1391.             @tmpr=split("\t",$_);

  1392.             foreach $n (0..$#tmpr) 

  1393.             {

  1394.                 push @col,0 if (! defined $col[$n]);

  1395.                 if ( length($tmpr[$n]) > $col[$n]) 

  1396.                 {

  1397.                     $col[$n]=length($tmpr[$n]);

  1398.                 }

  1399.             }

  1400.         }

  1401. 

  1402.         my $m=0;

  1403.         foreach (@$ref) 

  1404.         {

  1405.             @tmpr=split("\t",$_);

  1406.             foreach $n (0..$#tmpr) 

  1407.             {

  1408.                 $new_array[$m].= sprintf("%-${col[$n]}s  ", $tmpr[$n]);

  1409.             }

  1410.             $m++;

  1411.         }

  1412.         return @new_array;

  1413.     }

  1414. 

  1415.     sub get_date 

  1416.     {

  1417.         my (

  1418.             $sec, $min, $hour,$mday, $mon, $year,$wday, $yday, $isdst

  1419.         ) = localtime( time() );

  1420.         return sprintf("%d-%02d-%02d", $year+1900, $mon+1, $mday);

  1421.     }

  1422. }

  1423. 

  1424. 

  1425. 

  1426. 

  1427. __END__

  1428. 

  1429.            
复制代码
作者: 523066680    时间: 2015-8-18 17:55

本帖最后由 523066680 于 2015-8-18 18:01 编辑

功能备注：
作者: aa77dd@163.com    时间: 2015-8-18 20:06

你的Perl脚本不管有没有卵用3楼我先占了再说
作者: CrLf    时间: 2015-8-18 20:07

4楼占坑位
作者: Demon    时间: 2015-8-18 20:38

我也mark一下
作者: xiaopo    时间: 2015-8-24 22:03

强大，路过留名。



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2