小编Arn*_*erg的帖子

在处理预先存在的固定宽度网页设计以尝试使其响应时，当我在测试期间缩小视图/屏幕尺寸时，我发现在某些时候会出现水平滚动条，表明某些元素或组合站点上相邻元素的组合宽度大于视图的宽度。我需要确定那个元素是什么，这样我才能弄清楚如何处理它。

我的问题是，确定页面上最宽元素的最佳方法是什么 - 即它不会进一步缩小的原因？使用浏览器的内置检查器工具，这只是在任何长页面上的猜谜游戏，并且完成此操作的效率非常低。

感谢您的任何建议。

当使用 Perl (CPAN) 模块时，我经常发现我想要以相同的方式对所有方法调用实现错误处理（例如，自动重试某些错误代码、记录一些错误代码、终止其他错误代码......）。代码最终看起来非常重复：

my $result1 = eval{
  $obj->method1 ( @arg );
};
if ( $@ )
{
  # error handling code
}

my $result2 = eval{
  $obj->method2 ( @arg );
};
if ( $@ )
{
  # error handling code
}

有没有办法自动执行此操作？一种似乎有效的方法是使用 sub{}：

sub error_handler
{
  my $method = shift;
  my $result = eval{ shift()->$method ( @_ ); };
  if ( $@ )
  {
    # error handling code
  }
  else
  {
    return ( $result );
  }
}

my $result1 …

迭代列表很容易:

foreach my $elem ( 1, 2, 3, 4, 5 ) {
  say $elem;
}

或匿名数组:

foreach my $elem (@{[ 1, 2, 3, 4, 5 ]}) {
  say $elem;
}

但是有可能对匿名哈希做同样的事情吗？我试过了:

while (my ($key, $value) = each (%{{ a => 1, b => 2, c => 3 }})) {
  say "$key=$value";
}

但我得到一个无限循环.