如何使用perl脚本在文件中的特定位置插入行
使用Perl脚本在文件中的特定位置插入行可以通过以下步骤实现：
- 打开文件：使用Perl的文件处理函数，如open()函数，打开目标文件。可以指定文件的读写模式和文件句柄。
open(my $file, '<', 'filename.txt') or die "无法打开文件: $!";- 读取文件内容：使用Perl的文件读取函数，如readline()函数，逐行读取文件内容。可以使用一个数组来存储文件的每一行。
my @lines = <$file>;- 插入新行：根据需要，在数组中的特定位置插入新行。可以使用splice()函数来实现插入操作。
splice(@lines, $line_number, 0, "插入的新行\n");其中，$line_number是要插入新行的位置，"插入的新行"是要插入的内容。
- 关闭文件：使用Perl的文件处理函数，如close()函数，关闭文件。
close($file);- 写入文件：使用Perl的文件写入函数，如print()函数，将修改后的内容写入文件。
open($file, '>', 'filename.txt') or die "无法打开文件: $!";
print $file @lines;
close($file);完整的Perl脚本示例：
use strict;
use warnings;
# 打开文件
open(my $file, '<', 'filename.txt') or die "无法打开文件: $!";
# 读取文件内容
my @lines = <$file>;
# 插入新行
my $line_number = 3; # 插入位置为第3行
splice(@lines, $line_number, 0, "插入的新行\n");
# 关闭文件
close($file);
# 写入文件
open($file, '>', 'filename.txt') or die "无法打开文件: $!";
print $file @lines;
close($file);这样，Perl脚本就可以在文件中的特定位置插入新行了。请注意，上述示例中的"filename.txt"是要操作的目标文件名，需要根据实际情况进行替换。
相关·内容
2回答
基本上，我希望在包含最后一次出现的特定字符串的行之后插入一行文本，而不影响文件的其余部分。
我想我应该这样做：
删除指定单词最后一次出现后的所有行
将所需的字符串附加到文件的底部
将先前删除的部分追加回新插入的行之后
在我的例子中，在包含特定单词的最后一次出现的行之后，没有任何文本:只有一定数量的空行和最后一行上的特殊字符串#EOF。重要的是要保留这个部分，保持完全相同的空行数，并且#EOF标记完好无损。
这是一个示例输入文件：
First line
Second line
Third line 1
Third line 2
Third line N
#EOF
为了这个例子，我想在包含单
浏览 0提问于2018-09-04得票数 -1
回答已采纳
3回答
我使用这个脚本读取文件并显示文件中唯一的名称，并向我显示该名称在文件中存在的次数(计数数)。
john
john
William
wad
William
john
wad
john
wad
john
William
john
wad
john
wad
wad
john
john
cat student.txt | awk '{print $1}' | sort | uniq -c | sort -nr | head -n 10
其产出：
9 John
6 Wad
3 William
我想改变这个格式，我想要名字然后计数，我如何用上面的脚本来做这件事？
John 9
Wad
浏览 7提问于2020-09-13得票数 1
回答已采纳
1回答
嗨，我是编程新手。
在尝试执行下面的脚本时，使用此表单的输入文件(在本例中称为nohd*.txt文件)
NSGEAPKNFGLDVKITGESENDRDLGTAPGGTLNDIG
IIIIMMMMMOOOOOOOOOOOOOMMMMMMMMMMMIIII
我想数一下包含文件d.txt的文本的列，请参阅next。
D
O
为此，我编写了以下脚本
#!/bin/bash
for z in {1..141}
do
a=0
l=$(tail -1 nohd$z.txt | wc -m)
x=$(cat d.txt)
for
浏览 0提问于2019-10-14得票数 0
我需要一些关于sendmail perl脚本的帮助。
因此，我从文件msg.txt中包含了html消息的1部分，第二部分已经包含在我的$html中。
我在msg.txt中有两个变量(第一部分)不能工作。在第二部分，它工作得很好。
编辑:那么。在msg.txt文件中，我有以下内容：$website,$token脚本中声明的$website,$token。当我运行脚本时，我会收到包含变量名称($token，$website)的电子邮件，而不是变量的值。
代码
$website = "domain.com";
$token = 'token123456';
open
浏览 6提问于2022-09-14得票数 0
2回答
我在监控一个日志文件。每一行都有以下格式：
2012 5 29 14 20 438.815 872.737 -1.89976 -0.55156 8.68749 -0.497848 -0.54559 0 0 6 00 0 0 0 0 0 0 0 0 80 9 0 0
浏览 0提问于2012-05-29得票数 0
回答已采纳
让我们假设在这样的层次结构中有几个文件夹：
/somewhere/firstDirectory
/somewhere/secondDirectory
/somewhere/DifferentOne
/somewhere/ImportantLogs
/somewhere/CFPC
(这里也有很多不同的文件夹)
我想要编写一个bash脚本，它将解析这些层次结构中一定数量的目录中的所有文件，这可能会因其部署环境的不同而有所不同。脚本应该检查的目录数量、名称和文件内容可能也会有所不同。
因此，与其创建一个具有大量逻辑分支的通用脚本，不如将不同的内容放入属性文件中，比如下面的示例2：
env1.prop
浏览 4提问于2014-08-06得票数 0
回答已采纳
我有一个关于如何在shell脚本中执行perl文件的问题。
我现在有两个文件，"test.sh“和"test.pl"，下面是我的脚本示例
SHELL脚本
#!/bin/bash
perl FILEPATH/test.pl
......
PERL脚本
#!/usr/bin/perl
my $a = "hello"
sub saysomething
{
print $a;
}
.....
我调用shell脚本的方式是:在shell脚本的路径下，执行"./test.sh“
上面提到的都是在4.2.24(1)-release (i686-pc-l
浏览 5提问于2013-04-16得票数 8
我试图理解一段代码，它循环在文件上，执行各种赋值，然后输入一组if语句，在这些语句中，字符串似乎与没有字符串相比。/nonsynonymous/和/prematureStop/与这里相比是什么？我对蟒蛇很有经验。
open(IN,$file);
while(<IN>){
chomp $_;
my @tmp = split /\t+/,$_;
my $id = join("\t",$tmp[0],$tmp[1]-1);
$id =~ s/chr//;
my @info_field
浏览 2提问于2013-12-09得票数 2
回答已采纳
我需要转义\n所以在输出中我会得到换行符或制表符
$ perl -p -e 's/e/a/ge'
现在我希望将每个e替换为\n
$ perl -p -e 's/e/\n/ge'
但即使是\n也会给我一个错误。
这是一个简化的例子。在真实的脚本(Makefile)中，我有
substitute := perl -p -e 's/@([^@]+)@/defined $$ENV{$$1} ? $$ENV{$$1} : $$1/ge'
在target中，我有一个很好的命令
$(substitute) $< > $@
如果perl的输入文件在输
浏览 0提问于2010-05-13得票数 4
回答已采纳
我正在使用bash脚本中的fasta文件。在开始之前，我想检查一下我是否有一个fasta格式的文件。假设我有这个文件：
>seq1
ASVNJF
>seq2
PNGRW
我在试着
#!/bin/bash
if ! [[ $text_file =~ ^(>).+\n[A-Z\n] ]]
then
echo "It is not a fasta file"
fi
但它不起作用。对此有什么想法吗？谢谢你！！
浏览 10提问于2021-05-07得票数 0
所以我有一个文本文件，看起来像这样：
a1
b1
c1
a2
b2
c2
.
.
.
现在，我希望索引这个文本文件的每个组件，如下所示：
0:
a1
b1
c1
1:
a2
b2
c2
.
.
.
我试着开发了几个shell脚本，但不幸的是未能实现上述目标。如果有人能为我指明如何使用shell脚本执行上述任务的正确方向，那就太好了。谢谢!
PS:我是macOS用户(只是让您知道，因为awk/sed命令在macOS & Linux上的执行方式有点不同)
浏览 1提问于2021-09-30得票数 0
我的.txt文件如下(请考虑它是1GB文件)：
hello,12,abcd,xyz
welcome,13,abcd,yul
hai,14,abcd,ghk
现在，我要加密第一和第三列，如下所示
zzyyy,12,zzzz,xyz
asdsddd,13,zzzz,yul
asd,14,zzzz,ghk
我的加密密钥如下所示
export key=ETAOINSHRDLUBCFGJMQPVWZYXK
现在，我需要在perl脚本中应用这个密钥来加密文件中的第1列和第3列：
export key=ETAOINSHRDLUBCFGJMQPVWZYXK
perl -F, -lane '$F[$_
浏览 2提问于2022-03-18得票数 1
我正在做一个项目，我正在通过Java和Freemarker生成一些代码/脚本(特别是Perl脚本)。我现在已经让它工作了，但是我想知道是否有一些方法可以改变Freemarker中的默认变量分隔符($)？
或者，是否有不同的Java模板引擎可以使用更适合生成Perl脚本的变量分隔符？
浏览 1提问于2010-05-04得票数 3
回答已采纳
1回答
我的perl脚本没有在crontab中执行，
我不知道如何确认这一点，但我看不到脚本结果或输出。
但是在cron日志中，我看到了类似Jul2812:35:01dvsbi-build：(root) CMD (crond13469=/usr/local/bin:/usr/sbin/usr/lib perl /dm2/www/html/isos/preFCS5.3/autodownload.pl)这样的条目
我将cron作业设置为
35 12 * * 2-6 PATH=/usr/local/bin:/usr/sbin/usr/lib perl /dm2/www/html/isos/preFCS5.3
浏览 0提问于2011-07-28得票数 2
回答已采纳
1回答
我是linux的新手。我正在尝试将文件从一个路径复制到另一个路径。我有一个文本文件，其中包含以下模式的所有文件名：
file-1.txt
file-2.pdf
file-3.ppt
....
我用以下代码创建了一个.sh文件：
#!/bin/bash
file=`cat filenames.txt`;
fromPath='/root/Backup/upload/';
toPath='/root/Desktop/custom/upload/';
for i in $file;
do
filePath=$fromPath$i
#echo $filePath
浏览 3提问于2014-04-08得票数 0
1回答
如何在perl替换中避免替换？
、、、、
如何使用s// 运算符完全避开子结构的替换部分？ \Q和\E不工作，如下所示：
对于上下文，这是在使用perl执行大规模递归搜索和替换由bash脚本驱动的操作时出现的。这不是一个容易避免的情况。
以这个脚本为例：
$ cat example.sh
#!/bin/bash
set -v -x
EMAIL=user@example.org
echo "EMAIL = $EMAIL"
echo "Email address: here" | perl -p -e "s/here/$EMAIL/"
echo "Email address: her
浏览 1提问于2013-11-25得票数 6
回答已采纳
因此，我使用Perl DBI模块来访问服务器linux机器上的MySQL数据库，我没有根用户访问权限。管理员安装了MySQL并为我创建了一个数据库。我可以编写一个Perl脚本来访问数据库。
然后，我在本地空间中安装了MySQL，并更改了环境变量以使用本地安装的mysql可执行文件。我可以从命令行访问数据库。但是，在我相应地更改了Perl脚本并执行它之后，我得到了“访问被拒绝”的错误。似乎Perl脚本仍然试图使用管理员安装的mysql进行访问。
那么我该如何解决这个问题呢？
下面是我是如何连接的：
my $conn = DBI->connect("dbi:mysql:dbname:
浏览 2提问于2013-04-24得票数 0
是否可以在bash脚本中像下面这样编写perl脚本？
这不起作用(仅举个例子)
#/bin/bash
perl <<EOF
while(<>) {
chomp;
print "xxx: $_\n";
}
EOF
这里有一些很好的方法如何将perl脚本嵌入到bash脚本中吗？希望从bash脚本中运行perl脚本，而不希望将其放入外部文件。
浏览 1提问于2013-07-19得票数 20
回答已采纳
6回答
如何获取输入CSV文件中每一行的第一列并将其输出到新文件？我在考虑使用awk，但不确定如何使用。
浏览 6提问于2012-07-26得票数 41
回答已采纳
2回答
我使用创建日志文件，但它附加到单个日志文件中；相反，我希望为脚本的每次执行创建一个单独的日志文件。
如何创建单独的日志文件?
这是我的代码：
fetch.pl
#Opening Log configuration file
Log::Log4perl::init('./logs/log4perl.conf');
my $logger = Log::Log4perl->get_logger('./logs_$$.logs');
logs.conf
log4perl.logger = TRACE, FileAppndr1
log4perl.logger.lo
浏览 1提问于2014-04-03得票数 2
回答已采纳
1回答
当使用Perl脚本作为Hadoop流中的映射器和还原器时，我们如何管理perl模块的依赖关系。
我想在我的perl映射器和还原器脚本中使用"Net::RabbitMQ“。
在perl/hadoop流中是否有任何标准方法来处理类似于DistributedCache的依赖关系(对于Hadoop MR)？
浏览 1提问于2013-02-26得票数 0
我的文件有以下几行：
hello
hi
hey
我想使用Perl在第一行开头打印字母A，第二行打印字母B，第三行打印字母C等等。
我的预期产出是：
A hello
B hi
C hey
以此类推。
我尝试了以下几点：
perl -pe 's/^/A/' input.file
这可能只会在文件中的每一行开头插入'A‘。这不符合我的要求。
我不知道如何处理不同行的不同前缀。
浏览 3提问于2016-12-07得票数 0
回答已采纳
3回答
我目前正在尝试使用我的程序，让它接受用户输入，通常是文本文件，然后调用外部脚本来计算单词。我正在处理的脚本本质上是一个“中间人”，我正在尝试更熟悉到外部脚本/命令的管道。它当前没有正确执行word counter脚本。代码如下：
我仍然收到./word.pl的错误，说“在glue.pl没有这样的文件或目录(这就是你在这里看到的脚本)”。
#!usr/bin/perl
use warnings;
use strict;
use IO::Handle qw();
open (PIPE_TO, "|-", "./word_counter.pl");
While(&l
浏览 0提问于2013-04-03得票数 0
我希望删除包含"(null)“的.txt文件中的任何行。(null)值总是在第三列中。我想把这个添加到我已经拥有的脚本中。
Txt文件示例：
39|1411|XXYZ
40|1416|XXX
41|1420|(null)
在这个例子中，我想移除第三行。我猜这是一个awk -F，但从那里不确定。
浏览 3提问于2021-01-19得票数 1
回答已采纳
举例说明。
$output= `eval `environment` ; echo $Variable` ;
我想执行这个命令
eval `environment` ; echo $Variable
在perl脚本中。
浏览 1提问于2015-06-25得票数 1
4回答
我有一个使用相对文件路径的perl脚本。
相对路径似乎是相对于执行脚本的位置，而不是perl脚本的位置。如何使我的相对路径相对于脚本的位置？
例如，我有一个目录结构
dataFileToRead.txt
->bin
myPerlScript.pl
->output
在perl脚本中，我使用以下代码打开dataFileToRead.txt : my $rawDataName = "../dataFileToRead.txt"；open INPUT，"<"，$rawDataName；
如果我从bin目录运行perl脚本，那么它就能正常工作
如果
浏览 1提问于2012-03-01得票数 8
回答已采纳
我在bash脚本中使用以下内容将字符串替换为文件内容：
readonly changes=`cat changes.txt`
perl -pi -e 's/\${changesMarker}/'"$changes"'/g' changelog_template.html
文件"changes.txt“包含几行超文本标记语言。没什么特别的，只是一个无序列表，包括开始和结束标签以及标签。
Perl一直告诉我：
Illegal division by zero at -e line 1, <> line 1.
我猜Perl正在尝试计
浏览 0提问于2014-12-09得票数 0
3回答
文件data.txt包含以下内容：
1.00 1.23 54.4 213.2 3.4
脚本的输出应该是：
ave: 54.646
最好使用一些简单的脚本。
浏览 0提问于2013-03-28得票数 45
回答已采纳
我在Linux服务器上安装了一个远程源代码存储库。
我使用的是Eclipse Epic，并且在这个的回答的帮助下，我已经链接到那里的脚本。
我的问题如下：
远程存储库中的项目使用特定目录下的特定版本的Perl。
如何在Eclipse中配置我的项目以具有/使用完全相同的Perl
浏览 6提问于2013-07-20得票数 1
我有一个包含两个分隔符("“和"，")的文件，我基本上想要一个嵌套/递归的AWK命令，它允许我迭代我想要的值：
Value-1.1:Value-1.2:Value-1.3:Value-1.A,Value-1.B,Value-1.C
Value-2.1:Value-2.2:Value-2.3:Value-2.A,Value-2.B
对于每一个值-1。{A_
这是我可以在一个AWK脚本中做的事情，还是我需要在管道中发挥创造性呢？
谢谢。
浏览 3提问于2011-12-06得票数 0
回答已采纳
2回答
我对perl很陌生，但在java中进行了一些编程，但在运行jar文件中的perl脚本时遇到了问题。
我正在使用windows，我编写了一个perl脚本来将一种类型的文件转换为另一种类型的文件。
我已经使用Runtime与java程序一起检查了perl脚本，并且我能够按照需要运行，并且我也得到了输出转换的文件(使用cmd行)
我在java中创建了一个GUI，以便将文件转换为目标文件。我能够像将来一样从netbeans运行该文件。
但是当我试图运行jar文件时。
我使用URL获取perl脚本的URL。
URL url = this.getClass().getResource("/com/
浏览 6提问于2014-05-16得票数 3
回答已采纳
当我运行Perl脚本时，我打开Mac上的终端窗口，在移动到包含Perl脚本的文件夹后编写"perl test1.pl“。
我经常发现自己想要多次运行相同的Perl，通常是同时运行，但只需进行非常小的更改。
例如，假设这个Perl脚本"test1.pl“如下所示：
$year = 2001;
<rest of code that uses $year>
我想在其中执行"test1.pl“，其中$year = 2001，其中$year =2002等等。为此，我通常运行脚本$year = 2001，然后调整脚本以便$year = 2002，保存，打开新的终端窗口，
浏览 1提问于2015-05-29得票数 2
回答已采纳
1回答
我正在尝试使用sed/perl替换少数特殊字符，这些字符都是错误的。
在下面的命令中，我试图替换SEARCHFIELDAPP、OLD_STRING、NEW_STRING等的值；
Server1> SERVER_COMMAND="perl -F'\|' -i -lape 'if (\$F[0] eq \"SEARCHFIELDAPP\" && \$F[1] eq \"SEARCHFIELDDB\" && \$F[6] eq \"SEARCHFIELDUNM\" ) { s/\
浏览 2提问于2012-09-21得票数 1
回答已采纳
3回答
我必须写一个脚本，以这种方式更新文件。
原始文件：
<?blah blah blah?>
<pen>
<?pineapple?>
<apple>
<pen>
最终文件：
<?blah blah blah?><pen>
<?pineapple?><apple><pen>
在文件中的任何位置，如果新的线路包租后面没有
<?
我们必须删除换行符，以便将其附加到前一行的末尾。
另外，如果你解释一下你的sed是如何工作的，这将是非常有帮助的。
浏览 0提问于2017-01-03得票数 0
2回答
我有几个文件包含这一行
Release: X
我想在所有文件中增加X。
如果X是文件之间的常量，我可以有一个bash脚本循环遍历文件并执行($1包含以前的版本号，$2包含新的版本号，即。$1 + 1)：
sed 's/Release: '$1'/Release: '$2'/' <$file >$file.new
现在，如果不同文件的版本号不同该怎么办？
使用sed可以做到吗？
我应该使用其他工具吗？
浏览 0提问于2008-12-17得票数 4
回答已采纳
当我在逗号中启动一个新项目时，它会弹出我将要使用的版本。没有允许我从我的rakudobrew列表中的每个版本中进行选择，而是只有一个选项，这不是我在命令行中选择的选项。当我运行一个脚本时，它找不到已经安装的模块。所以我怎么能
更改它用于当前项目的Perl 6版本？否则
如何安装没有从Comma中找到的模块？
当然，我可以离开逗号，更改全局Rakudo版本，安装模块，然后返回到我使用的任何一个模块，但我想知道如何从逗号本身来实现。
浏览 0提问于2019-08-03得票数 4
回答已采纳
3回答
当我在命令行中使用"sed“时，它是工作的，但当perl脚本中包含它时，它就不能工作了。
一个例子是sed 's/\s+//g‘aaa > bbb
但是当我试图通过perl脚本调用相同的命令时，请告诉我
$gf = `sed 's/\s\+//g' aaa > bbb` ;
输出文件与输入文件相同！请建议一下。
浏览 2提问于2013-06-21得票数 2
回答已采纳
5回答
我正在尝试设置一个脚本，它将根据我在NGS数据中找到的变体将密码子序列转换为另一个密码子序列。
目前，我的脚本创建了一个由制表符分隔的输出文件，包含6列.每一栏代表以下内容：
第一:基因组位置
2:核苷酸碱基
第三:密码子
第四，密码子中基因组的位置顺序。
5: SNP频率
6: SNP基地
输出数据如下所示：
2289 G GTG 3 0.0346505 A
2478 G ATG 2 0.0054087 C
是否可以在输出文件中设置第7列，根据第4列的数字将密码子的核苷酸序列更改为SNP核苷
浏览 0提问于2018-01-01得票数 2
回答已采纳
3回答
如何将‘head’和‘tail’命令与管道一起使用，以仅显示我选中的文件'imaginaryfile‘(有10行)中的第2行和第3行？
到目前为止，我已经尝试了：
>$ head -n 3 imaginaryfile | tail -n 2 > > (head -n 1) > > (tail -n 1)
第三行的输出出现了，但是我没有得到第二行的输出。我应该怎么做才能纠正这个错误，并得到第二行和line3的输出呢？
浏览 0提问于2020-10-16得票数 2
在试图运行perl脚本时，我会得到以下错误。
Can't load '/oatss/oatss-prod/lib/WatchDogErrs.so' for module WatchDogErrs: /oatss/oatss-prod/lib/WatchDogErrs.so: wrong ELF class: ELFCLASS32 at /usr/lib64/perl5/DynaLoader.pm line 200.
这个.so文件是如何从.pm文件中创建的，问题在哪里。
浏览 3提问于2014-01-03得票数 0
回答已采纳
我一直试图使用Powershell脚本替换多个.xml文件中的一行模式
由于某些原因，我仍然不知道如何做到这一点，即使是一个文件，这是我一直在使用的
$loc = file
$file = Get-Content $loc -Raw
$file -replace "(\<!-- First.*?\/>)","blank"
这些是我想要替换的台词
<!-- First -->
<prop classproperty="1"
packageproperty="1.2"
/>
基本上，我一直
浏览 3提问于2020-03-09得票数 0
回答已采纳
我正在制作一个Grocery list，到目前为止，我只有一个包含杂货列表项的数组。我想在顶部添加“今天”，在三个食品杂货项目之后添加“每周”，在最后三个食品杂货项目之前添加“每月”。
我的问题是，如何指定在杂货清单中“今天、每周和每月”插入来自arrayNum2的单元格的位置？
例如：
( Today )
item
item
item
Weekly
item
item
item
Monthly
item
item
item
下面是我拥有的代码
//
import UIKit
浏览 1提问于2016-04-07得票数 1
其中哪一个更好或更快地用作Perl脚本的shebang行？
#! perl
#! perl.exe
#! fullpath/perl(/perl.exe)
#! partialpath/perl(/perl.exe)
而且，当使用#!perl时，当它在特定的系统上工作时，我如何在脚本中找到我正在使用的perl解释器，这样我就可以将该解释器放到shebang行中了？
如果使用/path/path/perl，是否允许将*或...用于文件夹？
浏览 14提问于2010-05-07得票数 56
我有一个这样的文件
2/2
2/2
2/2
3/3
1/1
1/1
2/2
1/1
3/3
等等。
我想删除所有重复的单个数字，并计算每个数字有多少个，但保留它们的原始顺序，如下所示
4 2/2
2 3/3
3 1/1
我试过了
sort myfile.txt | uniq -c
但这会返回如下输出，并且不会将其保持在文件中第一个实例的顺序中
2 3/3
4 2/2
3 1/1
我也尝试过uniq -c本身，但这并不能去掉所有的副本。我在最新的内核上运行Arch Linux，所以我需要相应的命令。
很抱歉，这让人很困惑，但如果有任何帮助，我们将不胜感激:)
浏览 2提问于2021-01-09得票数 0
我需要对我的MySQL数据库执行定时备份。
我的虚拟主机服务可以在选定的时间运行PHP和Perl脚本，所以我决定做一个调用mysqldump的Perl脚本。
但是在Perl脚本的第一行，我应该放入perl解释器的位置，比如Linux中的#!/usr/bin/perl。
我在我的/目录(我有cgi-bin目录)中没有找到perl文件。
我应该在这条路上放些什么？
浏览 0提问于2013-04-25得票数 0
回答已采纳
我正在考虑用Perl重写一个旧的应用程序。
设置三个包并从中运行子例程对我将要做的事情很有意义，但我对设置包不是很熟悉。
我希望这些包与我的其他Perl脚本位于相同的位置，也就是说，除了这个bin目录中的脚本，其他任何东西都不需要调用这些包。
我的问题是，如何让Perl知道我的包在哪里(以及如何将它们安装在缺省位置以外的位置)，这是一个可以/明智的做法吗？
浏览 0提问于2012-07-17得票数 1
回答已采纳
我想用XYZ替换abc，它在一个名为test.sh的文件中写下了下面的脚本；该文件在终端上使用sh test.sh命令执行
i='abc';
命令：
perl -pi -e 's/$i/XZY/g' /home/user/Desktop/file.txt
gedit file.txt
但是输出结果是：
XYZaXYZbXYZc
XYZ
找不到问题所在。
浏览 1提问于2014-01-09得票数 0
如何将下列匹配转换为给定的结果？
我的文件有以下匹配
-- cut --
Lorem ipsun Hello lorem ipsun { $hello }
@param integer $question_id // example of the match
Lorem ipsun Hello lorem ipsun { $hello }
-- cut --
我想高效地将它们更改为
@param $question_id integer
我在伪码中的尝试
perl -i.bak -pe `s/(@param) (\\w) ($\\w)/$1 $3 $2/
浏览 6提问于2009-08-31得票数 1
回答已采纳
我有几个bash脚本需要修改，我非常希望不要手动完成…基本上，它们都包含这样的行
for ((i=${BEGIN} ; i < ${END} ; i++))
我需要将其更改为
for ((i=${BEGIN}-1 ; i < ${END} ; i++))
i=${BEGIN}是惟一的，在每个文件中只出现一次，所以我想我可以使用一个简单的perl命令搜索并替换它。我想到的是
> perl -w -i -p -e "s/i=\$\{BEGIN\}/i=\$\{BEGIN\}-1/" Script.sh
这将导致以下错误
syntax error at -e li
浏览 1提问于2013-01-12得票数 0
2回答
我在我的shell脚本中使用awk中的TR命令来掩盖数据。当我在awk中使用tr命令时，下面的示例文件只影响我文件的第一行。当我在 when 循环中使用同样的方法，并在其中调用awk命令时，它就可以正常工作，但是需要很长时间才能完成。现在我的要求我想掩盖许多列--例如:$1，$5，$9在同一个文件(file.txt)中，这应该会影响到整个文件，而不是第一行，我希望能够更快地实现这一点来掩盖数据。请指教
cat file.txt
========
abcbchs，degehek
abcbchs，degehek
abcbchs，degehek
abcbchs，degehek
abcbchs，deg
浏览 2提问于2015-03-24得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
