- 921. Minimum Add to Make Parentheses Valid 使括号有效的最少添加
- 915. Partition Array into Disjoint Intervals 分割数组
- 932. Beautiful Array 漂亮数组
- 940. Distinct Subsequences II 不同的子序列 II
Perl 最具特殊的功能之一就是它的文本数据处理能力
Perl 中可以使用 format 来定义一个模板,然后使用 write 按指定模板输出数据
format FormatName =
fieldline
value_one, value_two, value_three
fieldline
value_one, value_two
.
FormatName
格式化名称
fieldline
一个格式行,用来定义一个输出行的格式,类似 @,^,,| 这样的字符
value_one,value_two……
数据行,用来向前面的格式行中插入值,都是perl的变量
点号(.)
结束符号
下面是一个简单的 Perl format 使用范例:
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
$text = "google ddkk taobao qq this is what";
format STDOUT =
first: ^<<<<< # 左边对齐,字符长度为6
$text
second: ^<<<<< # 左边对齐,字符长度为6
$text
third: ^<<<< # 左边对齐,字符长度为5,taobao 最后一个 o 被截断到下一行
$text
four: ^<<<<<<<<<<<< # 左对齐,字符长度为13
$text
.
write
执行以上范例输出结果为:
$ perl main.pl
first: google # 左边对齐,字符长度为6
second: ddkk # 左边对齐,字符长度为6
third: taoba # 左边对齐,字符长度为5,taobao 最后一个 o 被截断到下一行
four: o qq this is # 左对齐,字符长度为13
<, >
,| 长度决定了字段的长度,如果变量超出定义的长度,那么它将被截断<, >
,| 还分别表示,左对齐,右对齐,居中对齐格式 | 值域含义 |
---|---|
@<<< | 左对齐输出 |
@>>> | 右对齐输出 |
@||| | 中对齐输出 |
@##.## | 固定精度数字 |
@* | 多行文本 |
每个值域的第一个字符是行填充符,当使用 @ 字符时,不做文本格式化
在上表中,除了多行值域 @*,域宽都等于其指定的包含字符 @ 在内的字符个数,
例如:
@###.##
表示7 个字符宽,小数点前 4 个,小数点后 2 个
范例如下:
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<< @#####.##
$name $age $salary
===================================
.
select(STDOUT);
$~ = EMPLOYEE;
@n = ("QQ", "ddkk", "baidu");
@a = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);
$i = 0;
foreach (@n){
$name = $_;
$age = $a[$i];
$salary = $s[$i++];
write;
}
以上范例输出结果为:
$ perl main.pl
Use of comma-less variable list is deprecated at main.pl line 17.
Use of comma-less variable list is deprecated at main.pl line 17.
===================================
QQ 20 2000.00
===================================
===================================
ddkk 30 2500.00
===================================
===================================
baidu 40 4000.00
===================================
** $
~ ( $
FORMAT_NAME)**
格式名字
** $
^ ( $
FORMAT_TOP_NAME)
当前的表头格式名字存储在
** $
% ( $
FORMAT_PAGE_NUMBER)
当前输出的页号
** $
= ( $
FORMAT_LINES_PER_PAGE)
每页中的行数
** $
| ( $
FORMAT_AUTOFLUSH)
是否自动刷新输出缓冲区存储
** $
^L ( $
FORMAT_FORMFEED)
在每一页(除了第一页)表头之前需要输出的字符串存储在
下面的范例演示了 $
~ 格式化的使用
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
$~ = "MYFORMAT"; # 指定缺省文件变量下所使用的格式
write; # 输出 $~ 所指定的格式
format MYFORMAT = # 定义格式 MYFORMAT
=================================
Text # DDKK.COM 弟弟快看,程序员编程资料站
=================================
.
write;
运行以上范例,输出结果如下:
$ perl main.pl
=================================
Text # DDKK.COM 弟弟快看,程序员编程资料站
=================================
=================================
Text # DDKK.COM 弟弟快看,程序员编程资料站
=================================
不指定 $
~ 的情况下,会输出名为 STDOUT 的格式:
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
write; # 不指定$~的情况下会寻找名为STDOUT的格式
format STDOUT =
~用~号指定的文字不会被输出
----------------
STDOUT格式
----------------
.
运行以上范例,输出结果如下:
$ perl main.pl
----------------
STDOUT格式
----------------
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name $age
@#####.##
$salary
===================================
.
format EMPLOYEE_TOP =
===================================
Name Age
===================================
.
select(STDOUT);
$~ = EMPLOYEE;
$^ = EMPLOYEE_TOP;
@n = ("Ali", "baidu", "Jaffer");
@a = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);
$i = 0;
foreach (@n){
$name = $_;
$age = $a[$i];
$salary = $s[$i++];
write;
}
运行以上范例,输出结果如下:
$ perl main.pl
Use of comma-less variable list is deprecated at main.pl line 16.
===================================
Name Age
===================================
===================================
Ali 20
2000.00
===================================
===================================
baidu 30
2500.00
===================================
===================================
Jaffer 40
4000.00
===================================
$
% 或 $
FORMAT_PAGE_NUMBER 为报表设置分页#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
format EMPLOYEE =
===================================
@<<<<<<<<<<<<<<<<<<<<<< @<<
$name $age
@#####.##
$salary
===================================
.
# 添加分页 $%
format EMPLOYEE_TOP =
===================================
Name Age Page @<
$%
===================================
.
select(STDOUT);
$~ = EMPLOYEE;
$^ = EMPLOYEE_TOP;
@n = ("Ali", "Baidu", "Jaffer");
@a = (20,30, 40);
@s = (2000.00, 2500.00, 4000.000);
$i = 0;
foreach (@n){
$name = $_;
$age = $a[$i];
$salary = $s[$i++];
write;
}
运行以上范例,输出结果如下:
$ perl main.pl
Use of comma-less variable list is deprecated at main.pl line 17.
===================================
Name Age Page 1
===================================
===================================
Ali 20
2000.00
===================================
===================================
Baidu 30
2500.00
===================================
===================================
Jaffer 40
4000.00
===================================
默认情况下函数 write 将结果输出到标准输出 STDOUT。
write 函数也可以将结果输出到任意其它的文件中。 最简单的方法就是把文件变量作为参数传递给 write 函数
write(MYFILE);
上面的代码,write 函数使用缺省的格式输出到文件 MYFILE 文件中 但这样就不能用 $
~ 变量来改变所使用的打印格式。
系统变量 $
~ 只对默认文件变量起作用 我们可以改变默认文件变量,改变 $
~,再调用 write
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
if (open(MYFILE, ">tmp") ) {
$~ = "MYFORMAT";
write MYFILE; # 含文件变量的输出,此时会打印与变量同名的格式,即 MYFILE
# $~ 里指定的值被忽略
format MYFILE = # 与文件变量同名
=================================
输入到文件中
=================================
.
close MYFILE;
}
运行范例后,我们可以查看 tmp 文件的内容,显示如下:
$ perl main.pl && cat tmp
=================================
输入到文件中
=================================
可以使用 select 改变默认文件变量时,它返回当前默认文件变量的内部表示,这样我们就可以创建一个函数,按自己的想法输出,又不影响程序的其它部分
#!/usr/bin/perl
=pod
file: mail.pl
author: DDKK.COM 弟弟快看,程序员编程资料站(www.ddkk.com)
Copyright © 2015-2065 www.ddkk.com. All rights reserved.
=cut
if (open(MYFILE, ">>tmp"))
{
select (MYFILE); # 使得默认文件变量的打印输出到MYFILE中
$~ = "OTHER";
write; # 默认文件变量,打印到select指定的文件中,必使用$~指定的格式 OTHER
format OTHER =
+------------------------------+
+ 使用定义的格式输入到文件中 +
+------------------------------+
.
close MYFILE;
}
运行范例成功后,我们可以查看 tmp 文件的内容,显示如下所示:
$ perl main.pl && cat tmp
=================================
输入到文件中
=================================
+------------------------------+
+ 使用定义的格式输入到文件中 +
+------------------------------+
我正在从事的项目需要使用 toString 方法打印银行帐户余额。我不允许向当前程序添加任何方法,但我需要将 myBalance 变量格式化为 double 型,该变量保留两位小数而不是一位。在这个特
我喜欢 Visual Studio (2008) 格式化 C# 代码的方式;不幸的是,在编写 C++ 代码时,它的行为方式似乎有所不同。 比如我这样写代码的时候: class Test { publi
Scanner scan = new Scanner(System.in); System.out.println("Enter three positive integers seperated b
在 aspose(使用 C#)中用于格式化数字的正确样式属性是什么。我想做两件事: 1) 将五位数字格式化为邮政编码。(我不太确定使用哪个 Style 属性来获取自定义 excel 邮政编码格式) 2
我希望用户输入从 00 到 23 和从 00 到 59 的 Local.Time 的小时和分钟,我将其扫描为一个 int。它有效,但对于从 00 到 09 的值,int 忽略 0,然后将其放置为 0,
大家好, 请查看上面的图片,我有两张 table 。在下面代码的第一个表中,我得到了这种格式。 但我想像 Table2 那样格式化,每个合并单元格中的行数是动态的,而且不一样。 有没有办法像table
我在一个 laravel 网站工作,我只是想知道是否有办法为用户格式化 created_at 值,因为现在它类似于以下内容: 2017-09-20 13:41 但我更愿意将其格式化为易于阅读的格式,例
我正在尝试在 JTextPane 中进行一些基本的格式化。为此,我决定使用 html(HTMLDocument 和 HTMLEditorKit)。 这里是按钮的操作监听器代码,应使所选文本变为粗体 b
是否有规则或插件会导致 es-lint 错误或警告,如果范围内的声明没有像下面那样间隔,赋值运算符的对齐方式相同? var a = 'a'; var bb = 'b'; var ccc = 'd
我正在尝试重新格式化 LinkedHashMap 的输出以排除逗号和大括号。 这是我的看跌期权: token.put("[Server.Protocol]", url.getProtocol() +
我有一个程序,可以从文本文件中读取大量文本,然后根据文本内容随机化内容以显示为短篇故事。该程序可以运行,但最后一部分(我显示的 Material )非常笨重且效率不高,我想知道是否有人对如何更有效地获
我正在尝试将 VIM 作为我的 ruby/rails 编辑器。太胖了,我对它的功能印象深刻 并且我能够安装以下插件以提供更好的 IDE 体验 自动配对 Better-snipmate-snippe
很难说出这里问的是什么。这个问题是含糊的、模糊的、不完整的、过于宽泛的或修辞性的,无法以目前的形式得到合理的回答。如需帮助澄清此问题以便重新打开它,visit the help center 。 已关
我有两个 jQuery 函数。我想先运行下面的第一个,然后在该函数完成后运行另一个。通常我会在代码的第一部分添加一个函数,但不确定如何使用这个 block 来做到这一点,或者它是否是正确的方法。 简而
在 Python 2.7 中,我有一个包含数字 1-25 字符串的列表(例如)。打印它们时,我希望列表打印 5 行,每行 5 个数字。 理想情况下: >>> print(myList) ['1', '
我有以下功能来打印借阅者已取出的书籍列表。 void searchBorrowerLoans(int a) { int i; for (i = 1
关闭。这个问题是opinion-based 。目前不接受答案。 想要改进这个问题吗?更新问题,以便 editing this post 可以用事实和引文来回答它。 . 已关闭 5 年前。 Improv
我正在尝试实现一个用作 ListView header 的 TextView。我想对其进行格式化,以便我基本上有一个以第一行为中心的标题,然后是以下几行的附加信息。如何格式化文本/字符串以创建这种格式
我尝试格式化数字字段 select to_char(12315.83453, 'FM999999999999D9999') 在这种情况下一切正常。结果是 12315.8345 但是如果值在0到1之间
我有一个带有 BigDecimal 字段的类。我把这个对象放到 JSP(Spring MVC)中。而且我需要显示十进制不带零的 BigDecimal 字段(20.00 就像 20),这就是为什么我的
我是一名优秀的程序员,十分优秀!