perl – 从子例程结束循环的迭代

因为这总是相同的代码,我想把它放在子程序中,但当我尝试使用’next;’时作为子中的最后一个语句,我得到一个警告(通过下一个在……退出子程序),尽管它似乎按预期工作.

即没有子：

while (#condition) {

    ## do stuff

    if (#condition to skip iteration) {
        ## action
        next;
    }

    ## do more stuff,with the above block repeated several times
}

与子：

while (#condition) {

    ## do stuff

    &skip if (#condition to skip iteration);

    ## do more stuff,with more calls to &skip
}

sub skip() {
    ## action
    next;
}

块/子中的其余代码非常短,除了下一个之外的其他所有代码; sub中的语句几乎击败了使用子程序的对象.

我的问题是：

>正在使用’next;’以这种方式在子程序中好,还是危险/差的做法？
>有没有更好的方法从子程序跳过剩余的迭代？
>如果没有问题并且没有更好的方法,有没有办法抑制警告？