小编Spa*_*ace的帖子

是否可以在从Linux上的stdin读取时压缩(创建压缩归档)数据？

我现在跟着.

regex=^[0-9]{6}$

这适用于从0到9以及6和7位数字开始.

请建议我如何添加5,6和7位数字.

新手在这里.我有一个java应用程序,我正在努力监视该java应用程序.我使用'JConsole'了解了java监视和管理控制.它提供了有关正在运行的java进程的非常详细的图形信息.

但我想知道的是关于用于生成图表的数据.和JConsole一样,我们可以通过右键单击运行图来保存csv格式的数据,是否有任何命令行选项只能以csv格式获取数据.

我需要有关如何从我的IMAP邮件中下载附件的建议,这些邮件在主题行(即YYYYMMDD格式)中包含附件和当前日期,并将附件保存到本地路径.

我浏览了Perl模块Mail :: IMAPClient,并且能够连接到IMAP邮件服务器,但需要其他任务的帮助.还有一点需要注意,我的IMAP服务器需要SSL身份验证.

附件也可以是gz,tar或tar.gz文件.

我仍在学习套接字编程(使用Perl),但我有两种选择(套接字编程和SSH/SCP/FTP)可用于将数据从远程机器传输到本地服务器.

但我必须在数据传输方面选择一个更安全的(网络上的加密数据).有什么建议.

我有一个Perl脚本,它嵌套foreach循环,如下所示.这需要很长时间:

#! /usr/bin/perl

use strict;
use warnings;

my @sites = ('a', 'b', 'c');
my @servers = ('A', 'B');
my @data_type = ("X", "Y", "Z");

foreach my $site (@sites) {
    foreach my $server_type (@servers) {
        foreach my $data (@data_type) {
            #statements
        }
    }
}

foreach像这样的嵌套语句需要很长时间,而且很难阅读而且不是很漂亮.谁能建议一个更好的方法来使用哈希或其他一些聪明的结构来编码这个结构？

我使用下面的Perl代码列出tar存档中的文件.tar存档的大小总是大约15MB.

my $file = shift;
my $tar = Archive::Tar->new("$file");
my @lists = $tar->list_files;
$tar->error unless @lists;

执行此代码会给出错误"Out of Memory".我的Linux系统中大约有512MB,我不想增加系统内存.任何人都可以建议我,如果可以修改此代码以获得更好的性能或其他代码列出tar存档中的文件.

我在下面的代码中使用File :: Find来查找/home/user/data路径中的文件.

use File::Find;

my $path = "/home/user/data";
chdir($path);
my @files;

find(\&d, "$path");

foreach my $file (@files) {
print "$file\n";
}

sub d {
-f and -r and push  @files, $File::Find::name;
}

当我将dir路径更改为我需要搜索文件的路径时,但它仍然为我提供了完整路径的文件.即

/home/user/data/dir1/file1
/home/user/data/dir2/file2
and so on...

但我希望输出像

dir1/file1
dir2/file2
and so on...

任何人都可以建议我找到文件的代码,只显示当前的工作目录？

是否可以添加标题(带有文本和一个图像)和页脚(带页码)和图像.我在下面写了代码来创建一个显示png图像的PDF文档.

如果这可以通过任何其他模块轻松完成,请建议.非常感谢您回复示例代码.

use strict;
use PDF::API2::Lite;
use Getopt::Long;

my $outfile;
my $path;

my $options = GetOptions( "outfile=s" => \$outfile,
                          "images=s" => \$path,);

my @images = sort glob("$path") or die "No Files\n";

my $pdf = PDF::API2::Lite->new();
for my $png ( sort @images ) {
        my $image = $pdf->image_png( "$png" );
        $pdf->page(1150,450);
        $pdf->image($image, 10, 10);
}

$pdf->saveas( $outfile );

我有不同的站点在每个位置运行4到5台服务器.所有位置都有一个带Nagios的监控服务器.现在我想创建一个中心位置,并希望结合在每个位置运行的所有nagios服务.谁能指点我这些类型的工作的一些文件.