Question

我正在尝试在当前目录中创建一个新目录，并将adb日志保存在我刚创建的新目录中。我正在尝试以下代码但不知何故每次运行时都会覆盖日志。我想保存所有日志而不是覆盖它们。

use POSIX;
use Getopt::Long;
our $timestamp;
our $mainlog_filename;
our $ostype = $^O;
our $ProcessObj;
$SIG{'INT'} = 'INT_handler';
$SIG{'TERM'} = 'INT_handler';
$SIG{'ABRT'} = 'INT_handler';
$SIG{'QUIT'} = 'INT_handler';

if($^O eq 'MSWin32') { 
    $SIG{'BREAK'} = 'INT_handler';
    use Win32::Process;
}

$split_val = join(':', @ARGV[0..(@ARGV-1)]);

@split_val = split(':',$split_val);
$counter=1;
foreach $sno(@split_val)
{
print "Serial Number $counter is $sno\n";
$counter++;
}

# Hash to translate number to month name
my $monthhash = {
    1  => 'Jan',
    2  => 'Feb',
    3  => 'Mar',
    4  => 'Apr',
    5  => 'May',
    6  => 'Jun',
    7  => 'Jul',
    8  => 'Aug',
    9  => 'Sep',
    10 => 'Oct',
    11 => 'Nov',
    12 => 'Dec',
};


$currdir = `pwd`; 
chomp $currdir; # gets current directory
$currdir =~ s/ \/[^\/]+$//; # removes the last / and everything after it
$new_dir = "adb logs";
$perm = 755;


sub makeDir {
  if (-e "$new_dir"){ problem("Directory $new_dir already exists.\n") } # Checks for existing
  mkdir ($new_dir,$perm) || problem("Error making Directory $new_dir\n");
  print "Content-type: text/html\n\n";
  print "$new_dir Directory has been created.\n";
  }
sub main
{
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    $mon  = $mon + 1;
    $mday = sprintf("%02d", $mday) if $mday <= 9;
    my $date    = $monthhash->{$mon}.$mday;
    $timestamp=$date."_".$hour."_".$min;
    foreach $sno(@split_val)
    {
    chomp($sno);
      $mainlog_filename = "adblogs_".$sno."_".$timestamp.".txt";
    }

    makeDir() unless -d $new_dir;

    my $adbcommand_logcat;
    my $adb_install_apk;
    my $adb_install_testapk;

    if($ostype eq 'MSWin32') {
        system("title Android");

        foreach $sno(@split_val)
        {
        chomp($sno);
        print "$sno\n";


        chdir $new_dir;
        $adbcommand_logcat = "start \"Android-Logcat\" cmd /c \"adb -s $sno logcat -v time | tee ".$mainlog_filename."\"";
        chdir $currdir;
        $adb_install_apk = "adb install xyz.apk";
        $adb_install_testapk = "adb install xyzTest.apk";

    $cmd = "adb -s $sno get\-state";
    my $cmdop = qx/$cmd 2>&1/;


    print $cmdop;


      if($cmdop =~ m/device/i) {

            system($adb_install_apk);
            system($adb_install_testapk); 
            system($adbcommand_logcat); 
        }
     else {
        print "Device is offline\n";
    }

    }
}
}
sub terminate
{
    print "\nTerminating script ...\n";
    system("adb kill-server");
   #if($ostype eq 'MSWin32') {
   #   $ProcessObj->Kill(0);
  #  }
    exit 0;
}

sub INT_handler
{
    terminate(); 
    exit 0;
}


main();

感谢任何帮助。

Answer 1

这个剧本中有很多混乱。

您没有use strict; use warnings;可以帮助您检测和预防常见错误。尽快将它放在每个Perl脚本的顶部，并修复它找到的所有错误。如果您添加use diagnostics;，则会获得有关每条错误消息的详细说明。

您正在使用our的全局变量。很少有这种情况需要这样做。更有可能的是，您需要my的词汇变量。此外，在尽可能最小的范围内声明您的变量，并尽可能接近它们的首次使用。预先声明变量并不会增加可读性。

即使use语句似乎在if内，也始终执行。这些语句不受正常控制流的约束，因为它们在编译时执行。对于条件加载，请使用if编译指示：use if $^O eq "MSWin32", 'Win32::Process'，尽管此类条件加载通常不会有用。

@ARGV[0..(@ARGV-1)]与@ARGV基本相同。其他一切都是混淆。（在返回值等中使用时存在差异，但这与此无关。）

如果@ARGV中没有元素包含冒号，那么@split_val = split ':', join ':', @ARGV是一种非常奇特的写@split_val = @ARGV方式，即复制。如果元素可以包含冒号，则@split_val = map { split ':' } @ARGV可能更清晰。

当迭代数组元素和索引时，最好迭代索引，并访问数组元素：

for my $i (1 .. @array) {
  print "The $i-th element has the value $array[$i-1]\n";
}

这比手动递增$counter更清晰。

您似乎正在进行自己的日期格式设置。查看strftime模块中的POSIX功能。您似乎希望格式化Jan28_19_45之类的日期。这可以像

一样实现

 use POSIX qw/strftime/;

 my $timestamp = strftime '%b%d_%H_%m', localtime;

不是使用.运算符连接字符串，而是在插入变量时更容易阅读。例如。 "foo ".$bar." baz"可以成为"foo $bar baz"。要分隔变量名称，可以使用大括号："foo".$bar."baz"与"foo${bar}baz"相同。

我无法看到您定义problem功能的位置。使用die代替致命错误。

在循环中分配给同一个变量只保留最后一个值：

my $foo;
for my $i (1 .. 3) {
  $foo = $i;
}
# $foo == 3, so let's write my $foo = 3 directly!

除非您的命令使用|或>等shell运算符，否则最好将列表传递给system而不是单个字符串。这避免了shell插值问题。 E.g。

system "echo", "|delimited text|", "{m,e,t,a}characters";

为system执行一些错误处理。一种可能性是use autodie qw/:all/。

$new_dir = "adb logs"; - 您永远不会分配不同的值，因此mkdir永远不会创建不同的目录。所有与-e和-d的间接关系都令人困惑。

如果您使用的是Windows，则只能进行实际操作。如果你的脚本在另一个操作系统上没用，请删除所有if ($ostype eq 'MSWin32')并拯救，BEGIN { $^O eq 'MSWin32' or die "This script can only be run on Windows" }。

现在去修复这些问题，正确缩进代码，使脚本可调试，如果之后仍有问题，请回来。如果您正在寻找一个好的Perl教程，请查看Perl tagwiki中的列表。

创建一个目录并在其中保存adb日志

1 个答案: