0

在 perl cgi 中使用两个数组或文件创建表需要帮助。

我需要创建一个表格，打印来自不同路径的目录列表，然后将其放入表格中，说第一列的标题是 path1，第二列是 path2，依此类推，每一列都列出了带有 href 链接的路径中的目录。这就是我所拥有的。

 opendir(D, "../abc/status") or die"$!"; 
 my @path1_dir = sort readdir D; closedir D;

 opendir(D, "../def/status") or die "$!"; 
 my @path2_dir = sort readdir D; closedir D; .... ...

 print "\n"; print "$path1_dir\n"; print "$path2_dir\n";

 #print list of directories to column-1 with title Path1
 foreach my $path (@path1_dir) { 
   print "\t\n"; 
   next if ($path =~ /^./); 
   next if ($path =~ /^\s*$/); 
  print "$path\n"; 
 }

 #this should go to the column two with Path2 title but it does not
 foreach my $path (@path2_dir) { 
   print "\t\n"; `enter code here`
   next if ($path =~ /^./); 
   next if ($path =~ /^\s*$/); 
   print "$path\n"; 
   }

如果可以的话，有人可以帮我吗？

4

2 回答 2

0

尽管尚不清楚您到底想要什么，但我猜您希望ls为 FTP 或其他东西提供样式输出（仅目录）。变量命名可能不明确，但基本上它所做的是一次从每个目录中打印出一个目录。

#!/usr/bin/perl

use strict;
use warnings;

my %dirs;

my @dirs_to_look = qw(../abc ../def);
my $max_num_of_dirs;

foreach my $dir (@dirs_to_look) {
    # Directories that were found in $dir
    my @dirs_in_dir = grep { -d } glob "$dir/*";
    $max_num_of_dirs = scalar @dirs_in_dir
        if not defined $max_num_of_dirs or $max_num_of_dirs < scalar @dirs_in_dir;
    $dirs{$dir} = \@dirs_in_dir;
}

my @keys = sort {$a cmp $b} keys %dirs;
# Print the column titles
foreach my $key (@keys) {
    printf "%15s", $key;
}
print "\n";

for (my $i = 0; $i < $max_num_of_dirs; $i++) {
    foreach my $key (@keys) {
        my $dir = shift @{ $dirs{$key} };
        printf "%15s", $dir // "";
    }
    print "\n";
}
于 2013-10-23T18:49:32.080 回答
0

根据您的描述，我认为您想要这样的东西 - 即在两列中打印

    $dir1 = "../abc/status";
    $dir2 = "../def/status";
    opendir(D, $dir1) or die"$!";
    my @path1_dir = sort grep { !/(^\.|^\s*$)/ } readdir D; closedir D;

    opendir(D, $dir2) or die "$!"; 
    my @path2_dir = sort grep { !/(^\.|^\s*$)/ } readdir D; closedir D;

    print "$dir1\t$dir2\n";

    # figure out which one has more files
    $limit = $#path1_dir < $#path2_dir ? $#path2_dir : $#path1_dir;

    # print in 2 columns
    for ($i = 0; $i<=$limit; $i++) {
       printf "%s\t%s\n",
            ($i<=$#path1_dir ? $path1_dir[$i] : ""),
            ($i <= $#path2_dir ? $path2_dir[$i] : ""),"\n";
    }
于 2013-10-23T18:39:41.197 回答