在Perl中，将输入文件的名称添加到字符串中作为输出文件的名称
在Perl中，可以使用字符串拼接的方式将输入文件的名称添加到字符串中作为输出文件的名称。具体的代码示例如下：
my $input_file = "input.txt";
my $output_file = "output_" . $input_file;
print "输出文件名：$output_file\n";在上述代码中，我们首先定义了一个变量 $input_file，表示输入文件的名称为 "input.txt"。然后，我们使用字符串拼接的方式将输入文件的名称添加到字符串 "output_" 后面，得到输出文件的名称 $output_file。最后，我们通过 print 函数将输出文件的名称打印出来。
在Perl中，字符串拼接可以使用 . 运算符来实现。通过将字符串和变量使用 . 运算符连接起来，可以将变量的值添加到字符串中。
这种方式适用于任何输入文件的名称，无论是固定的文件名还是通过用户输入或其他方式获取的文件名。通过将输入文件的名称添加到输出文件的名称中，可以方便地生成对应的输出文件。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：提供灵活可扩展的云服务器实例，用于运行各种应用程序和服务。
- 腾讯云对象存储（COS）：提供安全可靠的云端存储服务，用于存储和管理大规模的非结构化数据。
- 腾讯云函数计算（SCF）：基于事件驱动的无服务器计算服务，可实现按需运行代码，无需关心服务器管理和运维。
- 腾讯云数据库（TencentDB）：提供多种类型的云数据库服务，包括关系型数据库、NoSQL数据库和分布式数据库等。
- 腾讯云人工智能（AI）：提供丰富的人工智能服务和解决方案，包括图像识别、语音识别、自然语言处理等。
- 腾讯云物联网（IoT）：提供全面的物联网解决方案，帮助用户快速构建和管理物联网设备和应用。
- 腾讯云移动开发（Mobile）：提供移动应用开发和运营的一站式解决方案，包括移动后端服务、移动推送等。
- 腾讯云区块链（BCS）：提供安全可信赖的区块链服务，帮助用户构建和管理区块链网络和应用。
- 腾讯云音视频（VOD）：提供高可靠、高可用的音视频处理和分发服务，支持音视频上传、转码、存储和播放等功能。
请注意，以上仅为腾讯云的部分相关产品，更多产品和详细信息请参考腾讯云官方网站。
相关·内容
如何从所有文件的字符串中删除其余的文件？
例如，输入文件1和2，string是ddd。
输入文件1。
aaa
bbb
ccc
ddfbbd dddaaa
eee
输出文件1。
aaa
bbb
ccc
ddfbbd
输入文件2。
ccc
aergddd
dasdvsdb
输出文件2。
ccc
aerg
浏览 0提问于2019-09-30得票数 9
回答已采纳
我在网上练习perl赋值时，在Sandbox中找到了这个。
如何编写一个perl脚本，将->添加到每一行的前面和<-的末尾。然后，它报告原始输入中的行数、最长行的长度和字节总数。例如，输入文件
//Input File
Hi there.
This is Fred.
Who are you?
应生成以下输出：
//Output File
->Hi there.<-
->This is Fred.<-
->Who are you?<-
3 lines, longest 13 characte
浏览 0提问于2013-07-19得票数 0
回答已采纳
2回答
我需要在(文本)文件中找到第一个子字符串，删除/剪切前导字节，将剩余的字节写入一个新文件。我试过SED，AWK，CUT，但是在不太好的结果中迷路了。听起来很简单。这应该适用于.sh cmdline脚本。
输入文件可能有新行，或者所有内容都在一行中，因此要找到<?xml标记，应该使用字符或字节级别。前导字节是随机和任意长度的。
输入文件：something I want to drop<?xml............to the end of file</root>
输出文件：<?xml............to the end of file</root
浏览 6提问于2019-11-06得票数 0
回答已采纳
我正在编写一个Python脚本，它使用了一些Perl脚本，但其中一个脚本使用了stdout，因此我必须在bash中使用重定向>将此输出写入文件。
所有输入和输出文件都是文本文件。
# -*- coding: utf-8 -*-
import subprocess
filename = input("What the name of the input? ")
#STAGE 1----------------------------------------------------------------------
subprocess.Popen(["per
浏览 2提问于2016-10-04得票数 0
我正在尝试使用IntelliJ的想法在上工作。我安装了 for IDEA和 for Windows (10)。
语法高亮显示和其他特性可以工作，但是当我试图运行程序时会发生这样的情况：
我是perl的初学者，所以我仍然只是使用命令行和ASCII图形。我希望在IntelliJ中简单地运行、测试和调试我的perl程序，但是当perl运行时，print语句并没有在这个对话框中放置任何内容.
我仍然可以在光标所在的上面的图像中键入一些内容，而输入错误的内容可能会引发错误。因此，<STDIN>似乎被正确地映射，但是<STDOUT>不是吗？或者是别的什么不对劲？
如果我将
浏览 1提问于2016-10-06得票数 7
4回答
我有一个文本文件，其中包含以下数据输入
ChainCtrlBuildChain() : ChainController.c
ChainCtrlDumpChain() : ChainController.c
ChainCtrlDumpChanCallback() : ChainController.c
ChainCtrlExit() : ChainController.c
ChainCtrlGetBitStreamChan() : ChainController.c
ChainCtrlInit() : ChainController.c
我只想将函数名复制到另一个文本文件中。
所需输出
Chai
浏览 5提问于2013-08-01得票数 0
回答已采纳
这个问题是出于我的懒惰，因为我有几十个脚本在简单的结构中执行：
perl my_script.pl my_input_file
...and将输出打印到标准输出。但是，现在我意识到，在某些情况下，我希望通过管道输入这些脚本。所以，就像这样：
perl my_script.pl my_input_file | perl my_next_script.pl | perl third_script.pl > output
有没有人知道一种不用重新编写所有脚本就能接受标准输入而不是用户定义的输入文件的方法？我的脚本通过如下语句查找文件名：
open(INPUT,$ARGV[0]) || die(
浏览 0提问于2013-10-19得票数 12
回答已采纳
输入文件：
{custom:{ver:120,name:hello,form:123},name:world,browser:ie}
{custom:{ver:130,name:test,form:123},browser:ie}
sed命令：
sed 's/^.*name:\([^,]*\).*$/\1/' input.txt
产出：
world
test
如何区分元组中的变量和元组之外的变量？
name值在custom中的预期输出
自定义名称内的sed命令
hello
test
自定义名称外的sed命令：
world
blank or {custom:{ver:130,n
浏览 3提问于2014-10-08得票数 0
回答已采纳
4回答
删除其他行的子行
、、、、
如何删除文件中其他行的子字符串，同时保留包含它们的较长字符串？
我有一个文件，其中包含肽序列作为字符串-每一行一个序列字符串。我希望保留包含所有序列的字符串，并删除文件中其他行的子字符串。
输入
GSAAQQYW
ATFYGGSDASGT
GSAAQQYWTPANATFYGGSDASGT
GSAAQQYWTPANATF
ATFYGGSDASGT
NYARTTCRRTG
IVPVNYARTTCRRTGGIRFTITGHDYFDN
RFTITGHDYFDN
IVPVNYARTTCRRTG
ARTTCRRTGGIRFTITG
预期输出
GSAAQQYWTPANATFYGGSDASGT
IVPVNYA
浏览 7提问于2016-02-23得票数 2
回答已采纳
这非常愚蠢，但我似乎完全迷失了用XAMPP测试Perl命令行应用程序的方法。我下载了‘PHP by PHP Harvey’，并将文件解压到htdocs中的一个文件夹中，里面有一个index.php，我希望在其中设置一个ExifTool界面来访问ExifTool提供的功能。实际上，我甚至不能运行一个简单的"Hello World“Perl脚本来从PHP脚本运行并处理输出。我尝试使用shell_exec，但不确定是否输入了正确的命令。(./exiftool t/images/ExifTool.jpg，但输出为nothing。)
我正在尝试做一个网站，在那里我可以上传一张图片，并在ExifT
浏览 1提问于2010-01-02得票数 2
回答已采纳
2回答
输入文件是，
test00.dat test07.dat test03.dat
aram22.dat test09.dat aram09.dat
test13.dat
我需要输出文件
test01.dat test08.dat test04.dat
aram22.dat test10.dat aram09.dat
test14.dat
也就是说，与test相关的数值字符串因单位而增加。我需要一个合适的终端命令行来执行这个操作。
特别是，我需要知道'test09.dat‘到'test10.dat’的转换机制。
浏览 0提问于2015-03-30得票数 3
每当我想模拟文件句柄的输入和输出时，我通常分别使用对DATA和STDOUT的引用：
use strict;
use warnings;
use autodie;
#open my $infh, '<', 'infile.txt';
my $infh = \*DATA;
#open my $outfh, '>', 'outfile.txt';
my $outfh, \*STDOUT;
print $outfh <$infh>;
__DATA__
Hello World
产出：
Hello World
浏览 3提问于2014-09-10得票数 7
回答已采纳
2回答
在Windows764位上安装ack (例如使用)之后，我可以从Windows中的cmd终端运行ack。
但是，如果我尝试在Emacs中以Shell模式使用ack (即在M-x shell缓冲区中)，则不会得到输出(所有其他cmd命令都会正确打印)。
有趣的是，如果我单独运行ack (即没有参数)，则可以正确打印ack使用信息。换句话说，当我使用参数运行Emacs时，ack没有输出输出(尽管ack应该为我的查询打印命中，就像我在cmd下检查的那样)。
输出的缺乏使我认为ack在等待输入(尽管我为它提供了参数)。我在我的文件中尝试了代码片段建议的.emacs (当它在文件系统中搜索和STDIN之
浏览 9提问于2010-12-26得票数 4
代码
#!/usr/bin/perl -I/root/Lib/
use Data::Dumper;
print Dumper \@INC;
以上代码文件名为test.pl，权限为755。
当我使用/usr/bin/perl test.pl运行程序时，@INC的输出在末尾包含"/root/Lib“。这就像推入@INC.。
/usr/bin/perl test.pl输出
$VAR1 = [
'/etc/perl',
'/usr/local/lib/perl/5.10.0',
'/usr/
浏览 0提问于2013-07-08得票数 9
回答已采纳
3回答
我有一个输入文件，看起来像：
cellIdentity="42901"
cellIdentity="42902"
cellIdentity="42903"
字符串中的数字在文件和文件之间是不同的。我现在想要的是创建一个像这样的输出文件
cellIdentity="42901"
cellIdentity="42905"
cellIdentity="42902"
cellIdentity="42906"
cellIdentity="42903"
cellIdentity=
浏览 4提问于2014-05-14得票数 2
回答已采纳
下面是工作代码(用于使用perl -e '' ~/.ssh/config执行)：
实际版本：
while(<>){if(/^Host (.+)/){$_=$1;foreach $i(/([^ ]+)/g){$h{$i}=1}}}print "$_ " for keys %h;
与阅读用空白相同的版本：
while(<>) {
if(/^Host (.+)/) {
$_=$1;
foreach $i(/([^ ]+)/g) {
$h{$i}=1
}
}
浏览 0提问于2019-01-28得票数 7
回答已采纳
我尝试在Snakefile中编写一条能够运行自定义perl脚本的规则。有两个输入文件和一个输出文件。inputfile和outputfile中包含通配符，因为我想为各种文件运行脚本。但是，当我展开以生成不同的输入和输出文件时，perl脚本接受所有可能的输入文件作为输入，而我希望它们一个接一个地运行。我应该怎么做才能让perl一个接一个地“吃掉”输入文件？这是我的代码：
DOMAINS= ["Metallophos", "PP2C", "Y_phosphatase"]
SUPERGROUPS=["2supergroups","
浏览 2提问于2017-03-16得票数 1
我正在学习如何在chrome上使用Perl。当我试图在终端中输入一个变量时，它会给我这个输出。我知道如何使用文件运行代码，只是想看看我可以在终端中使用perl -e直接做些什么，而不是使用vim。如何输入并打印终端中的标量变量？
#code starts below
stepdeff@penguin:~$ perl -e $var = 10;
syntax error at -e line 1, near "="
Execution of -e aborted due to compilation errors.
stepdeff@penguin:~$ perl -e x =
浏览 6提问于2022-04-07得票数 1
因此，我希望能够从用户那里获取输入，用户将输入分隔的字符串或值，然后逐个遍历这些值，并将它们转换为我所拥有的命令所需的格式。我想要这样的东西:例如
将提示用户使用如下内容：
Specify the package: perl runtime pool tools
我只输入了4个字符串。对于我的输出，我想要这样的东西：
Pkg1=perl,Pkg2=runtime,Pkg3=pool,Pkg4=tools
Pkg基本上增加1，这取决于用户输入的数量。
这个是可能的吗？我怎样才能在bash中实现这一点？
任何帮助都将不胜感激！谢谢您抽时间见我!
浏览 0提问于2022-06-30得票数 0
1回答
根据维基百科：
quine是一个非空的计算机程序，它不接受输入并生成自己的源代码副本作为其唯一的输出。
我看到了这段perl代码，无法理解它是如何工作的。
将以下行保存在/tmp/p文件中，并以perl /tmp/p形式运行该文件：
Illegal division by zero at /tmp/p line 1.
perl /tmp/p的输出是：
Illegal division by zero at /tmp/p line 1.
代码是如何工作的？
浏览 0提问于2015-11-29得票数 1
回答已采纳
我正在尝试一个示例程序，它可以计算命令行参数中给出的文件的大小。当我将文件名存储在变量中时，它会给出正确的大小，但是当从命令行参数获得文件名时，它不会输出结果。
#! /usr/bin/perl
use File::stat;
while(<>){
if(($_ cmp "\n") == 0){
exit 0;
}
else{
my $file_size = stat($_)->size; # $filesize = s $_;
print $file_size;
}
}
使用文件测试操作符-s时没有输出，使用stat模块时得到
浏览 2提问于2013-08-16得票数 0
回答已采纳
3回答
用多行文件内容替换字符串
、、、、
我需要用另一个文件的内容替换文件中的字符串SALT。问题是输入文件有多行。我在bash脚本中尝试过这样的方法：
SALT=`cat salt.txt`;
sed "s/SALT/$SALT/" wp-config.php > result.txt
当salt.txt是单行时，它可以正常工作，但是如果有更多的行，它就会失败。我读过它可以实现PERL。但我不知道怎么做。你能帮我一下吗？
浏览 0提问于2015-03-30得票数 5
回答已采纳
这是Perl脚本，读取包含IP和stsco名称的文件。我将项溢出到两个列，并使用要处理的第二个c2。并调用另一个Perl脚本来返回我需要的值，并将其输出到一个文件中。如果您看到我的输入文件第8行( 10.22.1.50 stsco25527020 )不接受这个值，可能是因为IP和stsco之间有空格。你能帮我如何实现愿望输出吗？如果您知道为什么我的脚本在第8行没有得到值的话，我也很感激。
use strict;
use warnings;
use Data::Dumper;
my $input_file = 'status.txt';
my $output_file = &#
浏览 5提问于2021-06-02得票数 1
回答已采纳
如何使用perl命令行参数读取文本文件并使用perl打印第三列？
从命令行中获取输入并打印所需的列给我留下了深刻印象。帮助我选择正确的方式来达到预期的产出。
使用命令行input:(**map.pl**)编写的代码
use strict;
use warnings 'all';
use Getopt::Long 'GetOptions';
my @files=GetOptions(
'p_file=s' => \my $p_file,
);
print $p_file ? "p_file = $p_file\n"
浏览 4提问于2017-02-17得票数 1
例如，输入文件是
ID Name Dept_id
1 aaa 1
2 ddd 1
3 sss 2
它是制表符分隔的文件
is输出将如下所示
ID Name Dept_id
1 aaa 1.1
2 ddd 2.1
3 sss 3.2
任何人都能帮助我？？
浏览 0提问于2016-03-16得票数 0
5回答
指定的特定员工的UNIX平均值
、、、、
这是作为输入提供的文本文件的示例 Name,Designation,Salary
Hari,Engineer,35000
Suresh,Consultant,80000
Umesh,Engineer,45500
Maya,Analyst,50000
Guru,Consultant,100000
Sushma,Engineer,30000
Mohan,Engineer,30000 我的代码应该能够运行查找指定的特定员工的平均工资。例如， bash script.sh employees.txt Analyst 那么我的输出应该是 50000 我当前仅查找所有员工
浏览 60提问于2019-03-06得票数 1
回答已采纳
2回答
搜索与特殊字符相似的字符
、、、、
我有几个旧的文本文件，这些文件是在90年代用一个旧的DOS时代的文字处理器生成的。由于当时存在的限制，在数据输入过程中有许多“简化”的条目。
例如，"Náufragos“一词被输入为"Naufragos”。
现在，当在上述数据文件中搜索"Náufragos“时，我使用grep查找"Náufragos”，搜索结果为空(应该是空的)，但我确实需要搜索才能找到并输出"Naufragos“。
我已经梳理了grep文档，并搜索了大量的内容，但结果却是空的。
任何解决方案都需要处理涉及大多数(如果不是全部)基于拉丁字母的“变体”(即在所述旧数据文件中没有中文、西里尔
浏览 3提问于2016-04-10得票数 0
回答已采纳
输入文件包含以下几行：
a
b
c
我希望输出为(n倍)：
a
b
c
a
b
c
我试过下面的命令，但它不能维持命令
while read line; do for i in {1..4}; do echo "$line"; done; done < file
但是输出结果是
a
a
b
b
c
c
浏览 0提问于2017-03-04得票数 0
我想对文件中的所有语句做如下操作：
输入：xblahxxblahxxblahblahx
输出：<blah><blah><blahblah>
到目前为止，我正在考虑使用sed -i 's/x/</g' something.ucli
浏览 5提问于2022-09-07得票数 2
回答已采纳
1回答
辐照多角体
、、、
设计一个函数或程序，当正常运行时，输出三角形数字。但是，当任何单个字符被删除时，程序/函数不应该在原来的编程语言中工作，而是在另一种编程语言中生成三角形数字。
评分
您的分数将是您的程序中的字符数，而该程序在第二语言中是无效的。
最低得分获胜，平局是字节计数。
专用规则
你可以无限输出三角形数，用正整数输入N生成第一个N的列表，或者生成第N个三角数。在这方面，每个程序都可能有不同的行为。
您的原始程序可能以第二语言运行，但它不能产生正确的输出。
您的程序还可以输出不同的基/使用不同的索引/使用不同的输出格式，只要这种格式在序列挑战中是有效的。
不超过20%的字符，四舍五入，可能是无效的。
无效
浏览 0提问于2022-05-17得票数 6
我想合并两个文件并打印成一个txt文件。 我已经成功地合并了两个数据，但无法将其打印成txt文件。到目前为止，输出只打印在xterm中。 输入1： a123
b
c
d
e
f
g 输入2： a123
x
y
x
c
v 当前输出显示在xterm中，而不是txt文件中。 a123
b
c
d
e
f
g
x
y
x
c
v 运行我的脚本： perl test1.pl file1 file2 #!/usr/bin/perl
use strict;
use warnings;
use autodie;
my $files = $#ARGV; # get number of files - 1
浏览 39提问于2019-09-12得票数 0
我正在尝试通过C#代码运行一个perl脚本。perl脚本接受一个文本文件作为输入，并创建两个新文件作为输出(在两者之间执行一些文本处理)。当我使用下面的代码通过C#运行perl脚本时，它似乎开始执行，但没有创建任何文件。有什么问题吗？语法错误？
ProcessStartInfo perlStartInfo = new ProcessStartInfo(@"c:\Perl\bin\perl.exe");
perlStartInfo.Arguments = "c:\\Perl\\DOC-MAT.pl " + "c:\\Perl
浏览 0提问于2012-02-13得票数 1
回答已采纳
1回答
分隔的文本文件file1.dat与以下内容。我想通过将$COL附加到该列中的每个#-separated文本字符串来更改第三列。
我想为每一行保存这个文件，并使用相同的名称。
有人能帮忙吗？
样本输入
name|class|colors|age|email
abc|xyz|#orange#green#pink#blue|16|abc@gmail.com
pqr|xyz|#orange#green#pink#blue|20|pqr@gmail.com
期望输出
name|class|colors|age|email
abc|xyz|#orange$COL#green$COL#pink$COL#bl
浏览 0提问于2020-05-08得票数 0
1回答
我正在尝试使用perl同时编辑一些文本文件。因此，我有一个文件夹“输入”，我把我的输入文本文件，我有一个文件夹“输出”，在那里我得到的文本文件编辑。因此，我的脚本开始如下(我只复制开头)：
use strict;
use warnings;
opendir IN, 'input';
my @in = grep { /^[^.]/ } readdir IN;
closedir IN;
for my $in (@in) {
open IN, '<', "input/$in" || next;
open OUT, '>'
浏览 1提问于2014-03-19得票数 0
回答已采纳
我想创建一个shell脚本，它将创建一个预先格式化的文件，并在vim中打开它。
具体地说，我想创建一个名为newperl的脚本，它允许我输入newperl [filename]并生成一个文件(使用cat、echo、>等)。预格式化的
#!/usr/bin/perl
use 5.014;
等。
我知道如何做所有的格式化等。我的问题是将我在newperl之后键入的文件名作为参数传递给脚本的其余部分。我该怎么做？
浏览 1提问于2012-08-14得票数 2
回答已采纳
1回答
我是Perl的新手。如何读取与Perl中的输入位于同一行的两个整数？例如：
$n=<>;$k=<>;
print $n + ";" + $k
输入为：
2 3
输出结果如下：
2
请帮帮忙。
浏览 10提问于2017-03-11得票数 0
我想在我的c#代码中执行一个perl脚本，并将结果输出到一个文件。perl脚本将接受一个二进制文件名作为输入参数，我希望将结果重定向到一个文本文件。我的c#代码中包含以下内容，但没有创建输出文件test.txt。如果您知道问题所在，请告知：
private Process myProcess = null;
myProcess = new Process();
myProcess.StartInfo.FileName = "perl.exe";
myProcess.StartInfo.Arguments = "C:\\mydir\\myPerl.pl C:\\myd
浏览 0提问于2011-05-04得票数 0
我有一个名为Util的.pm文件。以及一个返回下一个日期的子例程。
sub getNextDate {
$inputDate = @_[1];
if ($inputDate != "") {
($year,$mon,$day) = split("-",$inputDate);
$mon = $mon - 1;
$dtToday = timelocal(0,0,0,$day,$mon,$year);
} else {
$dtToday = time;
}
浏览 2提问于2013-10-20得票数 0
我需要在不同的文件上多次执行相同的perl脚本。
为了简化这个过程，我尝试将perl脚本保存为bash字符串，并通过字符串调用perl，如下代码中的“不工作”部分所示：
#!/bin/sh
# works
perl -e 'print 1;'
# doesn't work
S="'print 1;'"
perl -e $S
perl -e $S
我得到以下输出：
1Can't find string terminator "'" anywhere before EOF at -e line 1.
Can
浏览 1提问于2015-01-04得票数 2
回答已采纳
5回答
我有以下脚本，它接受一个输入文件，输出文件，并将输入文件中的字符串替换为其他字符串，然后写出输出文件。
我希望将脚本更改为遍历文件目录，即脚本应将C:\temp\allFilesTobeReplaced\之类的目录路径作为参数，搜索字符串x，并将该目录路径下的所有文件替换为y，然后写出相同的文件。
我该怎么做呢？
谢谢。
$file=$ARGV[0];
open(INFO,$file);
@lines=<INFO>;
print @lines;
open(INFO,">c:/filelist.txt");
foreach $file (@lines){
浏览 0提问于2009-05-27得票数 6
回答已采纳
我正在尝试使用perl在文件中grep 0，我尝试了以下代码 my @output = `grep \"\[0\]\" log `; 但是，它不是返回，而是在匹配0的地方提供输出
浏览 15提问于2019-09-03得票数 4
回答已采纳
我需要在Linux中逐行读取一个文件，在每一行中找到一个子字符串，删除它并将其放在该行的末尾。
示例：
原始文件中的行：
a,b,c,substring,d,e,f
输出文件中的行：
a,b,c,d,e,f,substring
如何使用Linux命令执行此操作？谢谢!
浏览 3提问于2012-09-09得票数 0
1回答
我使用find从目录及其子目录返回文件列表：
find $directory -type f -name "*.epub"
然后，我想使用一个命令，该命令要求指定输入和输出文件名：
ebook-convert input.epub output.txt
我希望将每个.epub转换为.txt，以便将输出存储在与输入相同的目录/子目录中。简单的管道不起作用。
find $directory -type f -name "*.epub" | ebook-convert
我该怎么做？
浏览 0提问于2019-08-19得票数 0
回答已采纳
h2ph实用程序从C头文件生成.ph "Perl头“文件，但是使用该文件的最佳方法是什么？比如，是require还是use？
require 'myconstants.ph';
# OR
use myconstants; # after mv myconstants.ph myconstants.pm
# OR, something else?
现在，我正在执行上面所示的use版本，因为在这个版本中，我不需要在常量之后键入括号。我想输入MY_CONSTANT而不是MY_CONSTANT()，并且在需要常量的Perl文件中有效地输入了use strict和use war
浏览 2提问于2015-02-20得票数 1
在使用select返回的文件句柄时，我正在拔头发。
有关select的文档如下：
选择
返回当前选定的文件句柄。
我有一段代码，它打印一些数据，通常在没有任何重定向的情况下执行。但是有一个用例，其中select用于将打印输出重定向到一个文件。
在这段代码中，我需要使用当前选定的文件句柄。我尝试了以下代码片段：
my $fh = select;
print $fh "test\n";
我编写了一个简短的测试程序来演示我的问题：
#!/usr/bin/perl
use strict;
use warnings;
sub test
{
my $fh=sel
浏览 0提问于2018-10-15得票数 1
回答已采纳
1回答
我需要访问一个数组，该数组由Perl的数据：：Dumper输出。
数组位于原始文件中，我需要使用php访问它。
数组的格式如下：
$stats = {
'days' => 25,
'lengths' => {
'Piwee' => 269,
'Jeanne-' => 904,
'kaAnar' => 340,
[... Very Big ARRAY....]
我在这里找到了，但是我不想使用eval()，因为这个数组将有用户输入数据。由于在str_repl
浏览 1提问于2016-02-29得票数 0
回答已采纳
5回答
让我们说模式是“爱”字串
输入
This is some text
Love this or that
He is running like a rabbit
输出
This is some text
Love this or thatHe is running like a rabbit
我注意到sed对于删除换行符是非常不愉快的，知道吗？
浏览 5提问于2014-09-20得票数 11
回答已采纳
1回答
我试图通过在gdb中使用run < inputfile重定向输入(到gets)来利用DVL上的一个特定漏洞
我可以成功地使程序溢出，但在将十六进制值附加到字符串时遇到问题。我尝试了引号，将mem addr的值转换为ascii和各种转义尝试(\，\，)，但都没有成功
输入文件示例: AAAA\x42
在上面的示例中，看起来反斜杠被读取为ascii char (5c)，而值42仍然保留在堆栈中(奇怪的是？)。
如何在gdb输入文件中指定十六进制值？
谢谢
浏览 0提问于2011-02-17得票数 2
回答已采纳
8回答
我正在尝试替换VMS上的文本文件中的特定行。通常，这是一个简单的Perl一行程序。但是当替换端是一个包含VMS路径的符号时，我遇到了一个问题。这是我尝试过的文件：
File1.txt的内容：
foo
bar
baz
quux
尝试替换第3行：
$ mysub = "disk$data1:[path.to]file.txt"
$ perl -pe "s/baz/''mysub'/" file1.txt
生成以下输出：
foo
bar
disk:[path.to]file.txt
quux
看起来Perl过于急切，用一个不存在的变量的内容替换
浏览 8提问于2012-10-02得票数 5
回答已采纳
我想用dd实用工具在输出文件中重写一个特定的区域，我需要跳过输出文件中的前732618字节，然后从那里开始写708800字节，我只找到了如何跳过输入文件中的字节，但是却无法找到如何在输出文件中跳过它的信息，可以用dd吗？
浏览 0提问于2020-12-10得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
