主页 / 问题

问题[perl]

Martin Hope
PERSEIDS
Asked: 2022-12-26 02:33:13 +0000 UTC
  • 4

需要一行 Perl 代码将文本文件中的每一行从 DEC 系统转换为 HEX。
在文件行123243421231245中，有必要在输出文件中显示出来7016D857E88D，依此类推每一行。
使用一行 perl 代码将 BIN 转换为 HEX：

  `perl -ne "\$_ =~ s/([01]{8})/sprintf('%02x', oct('0b'.\$1))/egm; print \$_;" < test.txt > result.txt`

一切正常，您需要确保该命令现在将每一行从 DEC 系统转换为 HEX。

perl
Martin Hope
Gwardios
Asked: 2022-06-28 17:31:51 +0000 UTC
  • 0

大家好，问题如下：我有一些test.txt，其中包含5行信息。如何在 PERL 脚本中只输出第三行？其实这里是代码：

use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);

my $file_name = 'a.txt';

my $content = '';

open FILE, '<', $file_name or die $!;

while (<FILE>) {
    $content .= $_;
}

print $content;
perl
Martin Hope
Юрий Козлов
Asked: 2022-09-28 20:58:43 +0000 UTC
  • 1

我学习perl，我决定写一个小脚本以满足个人需要。除其他外，脚本必须导航到指定的文件夹并在那里运行应用程序。到目前为止，问题是在过渡到文件夹时出现的。

试图这样做：

my $fld="/home/user/work/folder";
my $cdm="cd $fld";
system($cdm);

执行脚本时，我收到一条消息，指出没有这样的文件夹。

提示，用什么可以连接？该文件夹肯定存在。

perl
Martin Hope
Tariel
Asked: 2022-09-14 02:51:39 +0000 UTC
  • 2

实际上是一个主题。没有 Perl 的经验。您需要获取一个包含特定文件夹中所有文件的最后修改日期的数组。现在，我正在尝试使用本机操作系统命令并解析结果，但这似乎是一个拐杖。

perl
Martin Hope
SerjioNemano
Asked: 2022-05-28 20:09:12 +0000 UTC
  • 1

csv 文件被写入 /home/logs/app/ 目录。您需要打包 app 目录并在 /home/logs/ 中获取存档。现在我使用系统调用“system ('zip -jr '/home/logs/app/logs.zip '/home/logs/app/log/');”来做到这一点 我想摆脱系统调用并使用 Compress::Zlib。

试图这样运行

my @files = ('log_01','log_02','log_03');
my $dirname = 'app';
my $path = '/home/logs/';

foreach my $file (@files) {
    open(FILE,$path.$dirname.'/'.$file) or die "$!";
    my $gz = gzopen($gzfile, 'ab');
    while(<FILE>){
        my $byteswritten = $ gz-> gzwrite ($_);
    }
    $gz->gzclose();
    close(FILE);
}

但是，在输出中，我得到一个带有日志文件的存档，没有扩展名。如果您打开它，则它包含来自文件的信息表。

如何获得一个存档，其中将有一个日志目录，并且所有文件都已经在其中？

perl