用字符画美化一下命令提示符窗口

用字符画美化一下命令提示符窗口

一直以为prompt就只能显示单行字符串,但$_代表换行,
所以可以使用【字符画】来美化一下单调的命令提示符窗口:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!usr/bin/perl

use strict;

use warnings;

my $prompt="";
while(<DATA>){
s/&/\$A/g; # &符号替换为$A
s/\|/\$B/g; # 管道符号替换为$B
s/\(/\$C/g; # 左括号替换为$C
s/\)/\$F/g; # 右括号替换为$F
s/>/\$G/g; # 大于号替换为$G
s/</\$L/g; # 小于号替换为$L
s/=/\$Q/g; # 等号替换为$Q
s/ /\$S/g; # 空格替换为$S
s/ /\$S\$S/g; # 中文空格替换为两个英文空格
s/\n/\$_/g; # 换行符替换为$_
s/\^/^^/g; # 单个^替换为2个^^
$prompt .= $_;
}
system("cmd /k prompt $prompt");
# 直接用system(prompt $prompt)不行
__DATA__
    \. -  - .
    ' \  情  _ , -`.
   '  \  _,'   _,'
  '   ,-'   _/
  ' 爱 ,-' \   _/
 '  ,'   \ _'
 ' '    _\
 ' ,  _,-' \
 \,_,--'    \
——————————————————————————————————————————