在perl中使用对标量的引用？

我正在学习perl引用,我理解对hases或数组的引用的有用性.但是考虑在什么场景中对标量值的引用是有用的.

my $x = 1;
my $sr = \$x;

哪里可以使用$$sr,而不是直接使用$x？

例如,当遍历任何深度hashref结构时,如果给定节点是hashref或arrayref,则返回引用不是常见做法,而是直接返回标量值而不是返回对标量的引用？

存在一些函数或模块使用或返回对标量的引用,而不是返回标量的值？

解决方法

在子例程中,当您想直接修改传递给它的值时.

例如

sub increment_this {
     my ( $inc_ref ) = @_;
     ${$inc_ref}++;
}

我知道一个简单的案例,但也许更相关的是像chomp这样的例子,它从变量或$_中删除尾随字母.

如果你考虑一下 – $_通常实际上是一个参考.
如果你这样做：

my @array = qw ( 1 2 3 );
foreach ( @array ) {
    $_++;
}

print @array;

修改$_已修改数组的内容.