小编sum*_*ana的帖子

我已经对Perl脚本调试做了一些研究,但找不到我想要的东西.

让我在这里解释我的问题.

我有一个Perl脚本,它没有进入最后一个while循环,似乎它不是按照指示在里面打印任何东西.

所以,我想知道是否有更简单的方法可以逐个查看所有行,就像我们在shell脚本中看到的一样

set -x

这是我的Perl脚本代码

#!/usr/bin/perl -w

my $ZONEADM = "/usr/sbin/zoneadm list -c";

use strict;
use diagnostics;
use warnings;

system("clear");
print "Enter the app\n";
chomp(my $INS = <>);

print "\nEnter the Symmitrix ID\n";
chomp(my $SYMM = <>);

print "\nEnter the Server\n";
chomp(my $SRV = <>);

print "\nEnter the devices\n";
while (<>) {
  if($_ !~ m/(q|quit)/) {    
    chomp($_);
    my $TEMP_FILE = "/export/home/ptiwari/scripts/LOG.11";
    open (my $FH, '>>', $TEMP_FILE);
    my @arr = split(/:/, $_);
    if($arr[3]) {
      print $FH "/".$INS."db/".$arr[0]."  ".$SYMM."  ".$arr[1]." …