- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
考虑这个小的 perl 程序,test.pl
:
#!/usr/bin/env perl
use warnings;
use strict;
use Number::Format qw(:subs); # sudo perl -MCPAN -e 'install Number::Format'
my $tstr = "";
my $numFormatter = new Number::Format();
for (my $ix=0; $ix<20; $ix++) {
$tstr = $tstr . int(rand(10));
my $ftstr = $numFormatter->format_number($tstr, 2, 1);
print "ix: $ix ; in: $tstr ; out: $ftstr\n";
}
perl -d
,它也失败并出现错误:
$ perl -d test.pl
Loading DB routines from perl5db.pl version 1.39_10
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
main::(test.pl:6): my $tstr = "";
DB<1> c
ix: 0 ; in: 6 ; out: 6.00
ix: 1 ; in: 63 ; out: 63.00
ix: 2 ; in: 637 ; out: 637.00
ix: 3 ; in: 6379 ; out: 6,379.00
ix: 4 ; in: 63790 ; out: 63,790.00
ix: 5 ; in: 637906 ; out: 637,906.00
ix: 6 ; in: 6379062 ; out: 6,379,062.00
ix: 7 ; in: 63790624 ; out: 63,790,624.00
ix: 8 ; in: 637906246 ; out: 637,906,246.00
ix: 9 ; in: 6379062467 ; out: 6,379,062,467.00
ix: 10 ; in: 63790624671 ; out: 63,790,624,671.00
ix: 11 ; in: 637906246715 ; out: 637,906,246,715.00
ix: 12 ; in: 6379062467152 ; out: 6,379,062,467,152.00
ix: 13 ; in: 63790624671522 ; out: 63,790,624,671,522.00
round() overflow. Try smaller precision or use Math::BigFloat at test.pl line 11.
at /usr/local/share/perl/5.18.2/Number/Format.pm line 535.
Number::Format::round('Number::Format=HASH(0x9d0b6cc)', 637906246715226, 2) called at /usr/local/share/perl/5.18.2/Number/Format.pm line 601
Number::Format::format_number('Number::Format=HASH(0x9d0b6cc)', 637906246715226, 2, 1) called at test.pl line 11
Debugged program terminated. Use q to quit or R to restart,
use o inhibit_exit to avoid stopping after program termination,
h q, h R or h o to get additional info.
DB<1> p $ix
DB<2>
gdb
使用 C 程序可能会这样做 - 程序再次终止,因此我不再需要检查上下文变量。
c
的原因。手动继续在这里不会有太大帮助......
最佳答案
将违规行包裹在 eval
中并设置 $DB::single
当$@
设置:
#!/usr/bin/env perl
use warnings;
use strict;
use Number::Format qw(:subs); # sudo perl -MCPAN -e 'install Number::Format'
my $tstr = "";
my $numFormatter = new Number::Format();
for (my $ix=0; $ix<20; $ix++) {
$tstr = $tstr . int(rand(10));
my $ftstr = eval { $numFormatter->format_number($tstr, 2, 1); };
$DB::single = 1 if $@;
print "ix: $ix ; in: $tstr ; out: $ftstr\n";
}
% perl -d test.pl
Loading DB routines from perl5db.pl version 1.49
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
main::(test.pl:6): my $tstr = "";
DB<1> r
ix: 0 ; in: 7 ; out: 7.00
ix: 1 ; in: 71 ; out: 71.00
ix: 2 ; in: 715 ; out: 715.00
ix: 3 ; in: 7153 ; out: 7,153.00
ix: 4 ; in: 71537 ; out: 71,537.00
ix: 5 ; in: 715379 ; out: 715,379.00
ix: 6 ; in: 7153794 ; out: 7,153,794.00
ix: 7 ; in: 71537941 ; out: 71,537,941.00
ix: 8 ; in: 715379417 ; out: 715,379,417.00
ix: 9 ; in: 7153794174 ; out: 7,153,794,174.00
ix: 10 ; in: 71537941740 ; out: 71,537,941,740.00
ix: 11 ; in: 715379417408 ; out: 715,379,417,408.00
ix: 12 ; in: 7153794174086 ; out: 7,153,794,174,086.00
ix: 13 ; in: 71537941740864 ; out: 71,537,941,740,864.00
main::(test.pl:13): print "ix: $ix ; in: $tstr ; out: $tstr\n";
DB<1> print $tstr
715379417408646
DB<2>
eval BLOCK
构造。这会将异常存储在
$@
中。多变的。如
$@
不是空字符串,抛出异常。请注意,上面的代码虽然惯用,但并不完全正确;如果抛出的异常是字符串
0
,它会被忽略(因为
if 0
会是假的)。 Perl 中的异常处理很复杂。
Try::Tiny
有一个很好的讨论。
$DB::single
变量,当为真时,通知调试器停止。缺点是您必须编辑代码才能实现此行为。另一种选择是
set a breakpoint with a condition :
% perl -d test.pl
Loading DB routines from perl5db.pl version 1.49
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
main::(test.pl:6): my $tstr = "";
DB<1> b 11 $@ ne ''
DB<2> r
[... output as above ...]
main::(test.pl:11): my $ftstr = eval { $numFormatter->format_number($tstr, 2, 1); };
DB<2> p $tstr
3247014520717436
关于Perl 调试器 - 出错时中断(异常)?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39898091/
#include int main() { int i; for( i = 0; i< 10 ; i++ ) { printf("test1 &d", i);
我有一个连接到远程服务器以查询数据的 C# 程序。数据很大,所以查询大约需要 2 分钟才能完成。在这 2 分钟的时间内,互联网中断了。这导致作业无法完成,程序卡在获取数据例程中。 它建立了连接,但在选
语句 1: [2,4,6,7,8].each do |i| (i % 2 == 0) || (puts "Not even" && break) puts i end 声明 2: [2
我想知道 C++ 是否有任何处理中断的方法。我希望一个程序将信息存储在文本文件中,而另一个程序根据文本文件中的内容打印一条语句。由于我希望它尽可能准确,因此我需要在更新程序更新文件时中断打印程序。 最
我正在尝试终止一个线程,但它不会中断或停止。所有这些都是名为 Webots 的软件 Controller 的一部分。我用它来模拟多机器人系统。在每个机器人的 Controller 中,我启动了一个线程
中断10h可以使用的服务有很多, 我想问一下关于其中两个我很困惑的问题 首先是, AH = 06H SCROLL UP WINDOW AH = 07H SCROLL DOWN WINDOW 在 D
我有一个基本的 SQL 问题,如果有两个事件连接,"A"和 "B"到 SQL 服务器,假设两者之间发生死锁,那么为了避免死锁,SQL 服务器将回滚其中一个连接“A”或“B”的交易。假设 SQL Ser
我有一个 mapkit/ View ,它工作正常 - 但我滚动并在 2 - 10 次移动后我的应用程序崩溃了......而且这只是一个“中断”。 这是我的代码的一部分。我认为这是后台线程和数组释放/覆
有什么办法可以做到,比如 C/C# ? 例如(C#风格) for (int i = 0; i Seq.tryFind (fun i -> printfn "%d" i i=66) 在实践中,
我的问题是Haskell如何与系统交互。 例如,IO如何发生? 我对IO monad不感兴趣。或者如何使Haskell打印字符串或读取文件。 我对Haskell和底层操作系统之间的层(如果是这样的话)
你能确认下一个break是否取消了内部for循环吗? for (out in 1:n_old){ id_velho <- old_table_df$id[out] for
我有一个程序可以进行一些数据分析,并且有几百行长。 在程序的早期,我想做一些质量控制,如果没有足够的数据,我希望程序终止并返回到 R 控制台。否则,我希望执行其余代码。 我尝试过break、brows
我有一个 if 语句,用于检查我的对象(向导)是否命中了项目。如果他这样做了,巫师的大小将会改变,他应该能够在与障碍物的 1 次碰撞中幸存。 现在我陷入了“在 1 个障碍物碰撞中幸存”,因为在我的碰撞
我正在尝试使用迭代器来显示很多内容。我不断收到“break;”错误线。它说这是一个无法访问的声明。如有任何帮助,我们将不胜感激。 public Lot getLot(int number) {
我正在创建一个应用程序,我需要在其中处理可能非常庞大且可能需要一些时间的数据。 现在我阅读了很多关于 IntentService 的资料,实际上我已经将它实现为处理 REST 调用的通信类,但现在我试
我有一个自定义的 UITableViewCell。该单元具有三个标签。最左边的“金额”标签具有以下约束。 在单元格的右侧,我有另一个标签,“Label Dollar Amount”。它具有以下约束:
我有以下不和谐嵌入: message.reply({ content: '', embed: { color: 11416728, author
JavaScript 不是我最擅长的技能,但我会尽力解释,所以就这样吧。我有人在我的网站上创建了一个幻灯片菜单,我也使用 jplayer 音乐播放器。 现在一切正常,直到我在顶部添加此脚本。由于某种原
我已经在 Ubuntu 上安装了 android studio,有一个带有损坏图像的 API,我也尝试过重新安装。我应该怎么做才能克服这个问题。 删除它后,它没有在 sdk 管理器中显示 提前致谢。
假设我的站点上有大约 10 个 css 文件。我想把它们合二为一。但是当我组合它们时(只是“连接”文件,以便将它们包含到 html 中),我的样式/布局中断了。这不是路径问题或其他问题,只是选择器无法
我是一名优秀的程序员,十分优秀!