` `print $fh <<‘EOF’`中here-doc的问题: Perl执行here doc
print $fh <<‘EOF’中的<<‘EOF’是Perl中的here-doc语法，用于在代码中插入多行文本。它的作用是将紧跟其后的多行文本作为字符串传递给print函数，并输出到指定的文件句柄$fh所代表的文件中。
具体解释如下：
print是Perl中用于输出内容的函数，它可以将指定的内容输出到标准输出或指定的文件中。$fh是一个文件句柄变量，用于代表一个打开的文件。通过将内容输出到文件句柄所代表的文件中，可以将输出结果保存到文件中。<<‘EOF’是here-doc语法的开始标记，EOF可以是任意的标识符，用于标记here-doc的结束位置。在这个例子中，EOF被用作结束标记。- 在
<<‘EOF’之后的多行文本将被视为字符串，直到遇到结束标记为止。这些文本可以包含任意的字符，包括换行符和特殊字符。 - 在这个例子中，
print $fh <<‘EOF’将会将紧跟其后的多行文本作为字符串输出到文件句柄$fh所代表的文件中。
这种here-doc语法在Perl中非常方便，特别是当需要输出大段的文本内容时，可以避免使用多个print语句或拼接字符串的麻烦。在实际开发中，可以根据需要将不同的文本内容输出到不同的文件中，或者将文本内容输出到标准输出进行查看。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云原生容器服务（TKE）：https://cloud.tencent.com/product/tke
- 腾讯云人工智能（AI）：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iot
- 腾讯云移动开发（移动推送、移动分析、移动测试等）：https://cloud.tencent.com/product/mobile
相关·内容
我正在尝试创建一个脚本，该脚本将从模板生成perl代码，而我很难理解抛出的错误以及我的解决办法为什么要修复它。
这个例子是人为的，但它演示了这个问题：
use strict;
use warnings;
my $name = shift; # from @ARGV
my $file = sprintf "%s.pm", $name;
open my $fh, ">", $file
or die "error: open(>, '$file'): $!";
print $fh << "MOD
浏览 1提问于2017-04-18得票数 1
回答已采纳
1回答
我正在用C语言编写一个类似bash的程序，我在这里有一个问题--医生。目前，我的shell只能在第一个命令中执行-doc。
ls | << eof wc
bash结果:
> eof
0 0 0
我的结果:
> eof
10 10 63
(wc接受ls的结果，我的管道出了问题，但不知道是什么。)
在这种情况下，我可以就像我认为ls不存在一样。
wc | << eof wc
bash结果
> eof
0 0 0
在这里，bash首先执行具有here-doc的命令，然后执行第二个命令(它没有输入，因此是冻结的)。
我的结果
> eof
我首先像bash
浏览 3提问于2022-11-29得票数 -1
回答已采纳
1回答
愚蠢的问题，但对我来说，他们似乎是一样的，但我认为应该有区别。这三种指纹之间有什么区别吗？
type1
print qq~ <td>....</td>~
2型
print qq|<table>....</table>|
3型
print <<EOT
<table>...</table>
EOT
浏览 0提问于2015-03-31得票数 2
回答已采纳
基本上，这是我编程的结果，并在最后半个小时里使用谷歌，试图实现一件简单的事情:从STDIN中获取用户输入，并将它们写入结构化的XML文件作为输出。下面是我丑陋的代码：
#!/bin/perl
print "img URL = ? ";
$img = <>;
chomp($img);
print "filename = ? ";
$filename = <>;
chomp($filename);
# now write xml with inserted contents to a file:
open (CARDFILE,
浏览 7提问于2013-07-04得票数 8
回答已采纳
1回答
我想发送一个像这个一样的命令
cat <<EOF
line 1
line 2
EOF
到后台去。(实际的命令是openssl，有许多行的输入，这需要一些时间来完成)。
该命令需要以字符串形式存储，以便我可以在exec中存储它。
简单地附加一个符号不起作用：
cat <<EOF
line 1
line 2
EOF &
我尝试过的任何其他组合(将命令放在括号中等)也不要工作。
多么?
浏览 0提问于2022-06-17得票数 2
回答已采纳
2回答
我有一个web服务器后面的Perl代码，我将这个Perl脚本与纯HTML结合在一起。重要的部分如下：
#!/usr/local/bin/perl
use strict;
use warnings;
print "Content-type: text/html\n\n";
print <<ENDHTML;
<!DOCTYPE html>
<html lang="hu">
<head>
...
</head>
<body class="
浏览 13提问于2022-06-27得票数 1
回答已采纳
脚本从文件中读取行，下面是代码：
#!/usr/bin/perl
use strict;
use warnings;
use AnyEvent;
open my $fh, '<', 'input.txt' or die "Can't open file: $!";
my $cv = AE::cv;
my $timer = AE::timer 0, 10, sub {
printf "TELL: %s EOF: %s\n", tell $fh, eof $fh;
print while <$
浏览 0提问于2018-09-10得票数 7
回答已采纳
2回答
我有一个字符串，我想检查它是否为SSH公钥。我试过了(在本例中，$pk包含的是文件名，而不是字符串)：
#!/usr/bin/perl
use strict;
use warnings;
use Crypt::RSA;
my $pk = "$ENV{HOME}/.ssh/id_rsa.pub";
my $public = new Crypt::RSA::Key::Public( Filename => $pk );
但我得到的错误是
Bareword found where operator expected at (eval 13) line 1
< ... &
浏览 2提问于2015-02-27得票数 0
我有一个文件，内容如下： dog cat mouse
apple orange pear
red yellow green 每行上有一个分隔单词的制表符\t，还有一个分隔每行的换行符\n。在最后一行red yellow green下面有一个空行，因为在green之后有一个换行符\n。我想使用Perl删除换行符。 我见过一些类似How can I delete a newline if it is the last character in a file?的文章，这些文章给出了Perl的解决方案，但是我想用硬代码来实现，这样我就可以将它合并到我的Perl
浏览 128提问于2021-03-31得票数 1
回答已采纳
3回答
我的档案里有内容：
123456789
我的输出是：1234CC789
期望的产出是：
1234CC56789
我是插入PP在第9位假设。
但是当我插入任何文本时，它是在那个位置插入文本，也是删除已经出现的字符。
请告诉我是怎么回事。
#!/usr/bin/perl
my $file;
my $char='CC';
my $pos=5;
open($file,'+<',"file.txt") or die $!;
seek($file,$pos,0);
print $file $char;
close($file);
浏览 0提问于2019-06-27得票数 1
我正在尝试将这段PERL代码转换成Python：
# Create a script on the fly to execute w/ the execution manager
unlink "logger_exit_test.pl";
open my $fh, '>', "logger_exit_test.pl" or die "Unable to create
logger_exit_test.pl";
print {$fh} <<EOF;
#!$EXECUTABLE_NAME
ISC::message(
浏览 15提问于2017-04-12得票数 1
2回答
是否可以从变量(例如，i)而不是文件中读取awk输入？
awk 'something' temp
可以用变量$i替换“temp”吗？在手册里找不到。
浏览 0提问于2014-03-28得票数 0
回答已采纳
我有一个file1，它有行
abc
dfg
hij
cab
我想在file1中匹配模式file1并打印到file2。之后，从file1中删除这些行。然后file1有以下几行
dfg
hij
file2有线
abc
cab
目前，我正在用两行代码来完成这个任务。
perl -ne '/ab/i && print' file1.csv > file2.csv
perl -n -i.bak -e 'print unless m/ab/' file1.csv
有人能给我一个一行行Perl代码吗？
谢谢,
浏览 10提问于2022-04-02得票数 0
回答已采纳
2回答
下面的bash脚本的输出结果是“空行”
ssh dev@my_service <<EOF
START_SERVICE_TIME_IS_UP=124
echo $START_SERVICE_TIME_IS_UP
exit
EOF
我不明白为什么。我期望在输出中看到"124“。远程服务器正在运行Red Hat linux。
浏览 1提问于2016-01-02得票数 0
我正在尝试在一个Bash脚本中运行一些Python代码，所以我想了解它们之间的区别：
#!/bin/bash
#your bash code
python -c "
#your py code
"
vs
python - <<DOC
#your py code
DOC
我在网上查了一下，但没能编译出这个主题的相关内容。你认为其中一个比另一个好吗？如果你想从Python代码块中返回一个值给你的Bash脚本，那么heredoc是唯一的方法吗？
浏览 1提问于2015-06-08得票数 23
回答已采纳
3回答
是的，我知道也许标题不是很清楚。如果你有改变它的建议，请告诉我。
这就是我的问题:我有一个文件(我们称之为File_1)，其中有几行，每一行都是一个句子。
关于ex: File_1内容：
*Line 1*: I'm very happy today.
*Line 2*: We're going to the cinema.
*Line 3*: I'll write on stackoverflow today!
以此类推。
我的问题是，如何从每一行的内容创建几个文件？所以对前男友来说。file_1将分为：
*Line_1_content.txt* : I'm v
浏览 3提问于2014-06-26得票数 0
回答已采纳
4回答
我在获取以下脚本中传递的参数时遇到了一些问题
echo "abc"|perl <<'EOF'
#how to get "abc". it seems not $ARGV[0] nor in <STDIN>
EOF
谢谢。
浏览 0提问于2015-09-11得票数 0
我需要在同一个远程ssh命令中使用一个远程变量和一个本地变量
export CASSANDRA_DIR=/opt/cassandra
ssh root@sdi-prod-02 <<\EOF
export READ=$(grep IPADDR /etc/sysconfig/network-scripts/ifcfg-eth0 |awk -F= '{print $2}')
echo "listen_address: $READ" to directory "$CASSANDRA_DIR"
EOF
当CASSANDRA_DIR不工
浏览 0提问于2013-07-11得票数 5
回答已采纳
我正在尝试通过FTP下载文件，并在下载后进行处理。例如，规则如下 rule all:
output:
test_input = "ref/" + test_file
shell:
"""
ftp -ni {test_domain} <<-EOF 1> log.txt 2> log.txt
user anonymous " "
lcd ref
浏览 17提问于2021-09-09得票数 1
回答已采纳
1回答
我正在创建一个bash文件，它将每天下载文件，但是文件名是动态的，它根据类似于'20190819.log'的日期生成文件，我的代码如下：
export SSHPASS=$SFTP_PASS
DATE=`$DATE -d "-1 day" +"%Y%m%d"`
sshpass -e sftp -oBatchMode=no -b - $SFTP_USER@$SFTP_HOST<<-'EOF'
mget $DATE.log
EOF
但在mget $DATE.log行中，它将$DATE视为字符
浏览 0提问于2019-08-19得票数 0
1回答
我正在创建一个shell脚本，它执行另一个shell脚本。
第二个脚本需要一些参数，我希望在不等待提示的情况下传递这些参数。
所以它是这样的：
SECOND_SCRIPT=script_2.sh
$SECOND_SCRIPT
#Do something to pass parameters to SECOND_SCRIPT
#Continue normal script.
在执行$SECOND_SCRIPT时，它显示了SECOND_SCRIPT菜单，我必须输入一些参数。我想在FIRST_SCRIPT中传递它们。
浏览 0提问于2013-07-02得票数 0
回答已采纳
我想从perl启动一个新的shell (我正在通过exec语句来做这件事)。当子shell启动时，我希望在新shell上打印一些消息，并希望在子shell上运行另一个perl脚本。
我正在做这个：
exec $ENV{SHELL};
请帮帮忙。
浏览 0提问于2015-03-18得票数 1
我在RHeL服务器上有一个根用户帐户。在该服务器上，我有一个名为user.sh的简单脚本，它只返回当前用户：
#!/bin/bash
echo $USER
当从根帐户运行时，输出是
bash user.sh
>>>root
从另一个脚本中，我希望能够在用户之间临时切换，而无需输入密码、或，然后执行user.sh，然后返回到我的初始根帐户。这有可能吗？
到目前为止，我尝试过的是：
#!/bin/bash bash /user.sh su other_user <<EOF回波当前用户：$USER EOF
产出：
根当前用户:在bash中将rootswitching发
浏览 2提问于2019-11-08得票数 0
回答已采纳
2回答
鉴于以下两个文件：
doc.xml
<!DOCTYPE TEST [
<!ENTITY % get_em SYSTEM "entities.ent" >
%get_em;
]>
<TEST>
<COMPANY_ID>&COMPANY_ID;</COMPANY_ID>
</TEST>
entities.ent
<!ENTITY COMPANY_ID "84500">
<!ENTITY SPN_FIRM_ID "5900&#
浏览 5提问于2015-12-30得票数 0
回答已采纳
我希望将passwd文件中的每个用户与其在影子文件中的条目进行比较，如果影子文件中的条目与999999匹配，则打印出passwd文件的整行。在Perl中，执行此操作的最简单方法是什么？或者我想我可以从一个文件中提取值，然后在另一个文件中进行匹配？做这件事的最好方法是什么？
浏览 1提问于2010-02-24得票数 5
substr($obj_strptime,index($strptime,"sub")+6,0) = <<'ESQ';
shift; # package
....
....
ESQ
这个ESQ是什么?它在这里做什么？请帮助我理解这些陈述。
浏览 1提问于2010-08-05得票数 2
回答已采纳
我在perl中运行了一个while(1)循环，从PostgreSQL表中提取电子邮件地址和每个地址的配置值。现在，我编写了一个临时文件，并在系统中使用了neomutt -nF the_temp_file。然后我解开文件的链接。纽穆特辞职了。然后循环给我电子邮件地址的列表，让我选择的地址中的任何一个重新启动neomutt。
我还没有在新邮件列表上问过这个问题，但我会的。我想知道在一般情况下，是否有一种方法可以模仿临时文件，而不将一个文件写入文件系统。
更清楚的是：
获取配置值，如：
set beep = 0
set beep_new = 0
set bounce = ask-yes
set ch
浏览 2提问于2021-10-05得票数 1
回答已采纳
当我在bash脚本中将多行打印到文件中时，我习惯使用cat > /path/to/file << EOF .我正在检查我公司的旧代码，我发现了cat EOT指令而不是我习惯的cat EOF (请注意它末尾的T而不是F)，好奇心咬了我一口。
我做了一个快速的研究，我只找到了另一个问题，但我认为这与我想知道的没有关系。
我用以下代码进行了一些测试：
password=hello
cat > ./hello.txt << EOT
authentication {
auth_type PASS
auth_pass $password
}
EOT
浏览 0提问于2022-06-08得票数 6
回答已采纳
即使状态变为"UP"，而待定状态仍将继续。为什么我不能在循环中使用变量作为条件？ export confup=false
export blup=false
timeout 30 bash <<EOF || false
while [[ $( curl http://0.0.0.0/ | jq -r '.status') != "UP" ]];
do
if [[ $( curl http://0.0.0.0/ | jq -r '.components."bridge.lock".status') =
浏览 42提问于2020-09-01得票数 0
回答已采纳
3回答
我编写了一个perl脚本，它直接从第一个文件的内容创建一个散列，然后读取第二个文件的每一行，检查散列以确定是否应该打印它。
下面是perl脚本：
use strict;
use warnings;
use autodie;
my %permitted = do {
open my $fh, '<', 'f1.txt';
map { /(.+?)\s+\(/, 1 } <$fh>;
};
open my $fh, '<', 'f2.txt';
while (<$fh>) {
my ($phra
浏览 2提问于2014-01-22得票数 0
在巴什我们有：
for i in `cat file` ; do
#do something here for example
echo $i
done;
如何在perl脚本中做到这一点？
我试过了
#! /usr/bin/perl
use warnings;
use strict;
my $lines;
while (<>) { $lines .= $_ if 3 .. 5; } continue { close ARGV if eof; }
print $lines;
但是它不循环它们；它在第一次运行时打印文件中的所有行。
谢谢。
编辑:是的
浏览 7提问于2010-12-27得票数 0
回答已采纳
1回答
我已经从SuSE更改为RHEL，并尝试使用相同的代码，我相信我得到了一些与标识相关的错误。SuSE使用的是bash3，RHEL使用的是bash4。 错误消息： -bash: test.sh: line 9: unexpected EOF while looking for matching `)'
-bash: test.sh: line 21: syntax error: unexpected end of file 当我改变的时候： EOF) 为此(删除选项卡)： EOF) 工作正常。我理解这个问题，但我想知道为什么它在SuSE上工作得很好，而在RHEL上却不能。关键是，
浏览 10提问于2019-06-19得票数 0
回答已采纳
我在网上搜索，但我只找到了解决这个问题的php解决方案。如果您知道如何在perl中做到这一点，请给予帮助。
我正在尝试生成一个网页，显示服务器本地磁盘上某个目录的内容。例如，包含以下内容的页面将执行以下工作
<file name="file1" href="file1" /> <dir name="dir1" href="dir1/" /> <dir name="dir2" href="dir2/" />
谢谢你的帮助。
浏览 0提问于2011-04-13得票数 1
回答已采纳
4回答
我是Perl新手，有人能告诉我如何根据当前值追加输出文件的最后一项吗？例如，我正在生成一个输出txt文件
a b c d 10
通过一些处理，我得到了值20，现在我希望这个值20被赋值，并与前一个集合对齐，这是
a b c d 10
并使其成为
a b c d 10 20
浏览 0提问于2013-04-03得票数 10
回答已采纳
我正在编写一个脚本来安装新debian安装程序。问题是在下面的代码中：
if [ ! -z "$USER1" ]
then
sudo -u "$USER1" bash <<-EOF
cp "$BASHRC $HOME"/.bashrc
wget https://raw.github.com/trapd00r/LS_COLORS/master/LS_COLORS -O "$HOME"/.dircolors
echo 'eval $(dircolors -b $HOME/.dirco
浏览 0提问于2018-08-17得票数 2
回答已采纳
1回答
我试图在php中执行at命令，但它不是working..suppose，我想在10分钟后执行php脚本，所以我为它写的代码..
ob_start();
system('echo curl http://www.domain.com/timetest.php | at now + 10 min 2>&1', $returnVal);
$output = ob_get_clean();
但是这个命令在控制台上运行得很好，比如..
echo curl http://www.domain.com/timetest.php | at now + 10 min
如果我执行以下
浏览 2提问于2013-11-16得票数 0
我有一个file.pc (Pro )，当从windows传递时，它与linux有一些兼容问题。因此，我试图创建一个脚本，以便以我需要的格式对文档进行形式化，但是，我在替换//注释时遇到了一个问题。问题是：
我需要将以//开头的所有注释替换为/* */注释--我已经这样做了，但是我有一个简单的问题，在一些文件中，我将//注释替换为/* */注释，如下例所示：
/*
// some comments
code;
code;
*/
所以当我用脚本代替它的时候，它看起来是这样的：
/*
/* some comments */
code;
code;
*/
但是父亲注释的最后一个*/给了我一个错
浏览 2提问于2019-05-30得票数 1
回答已采纳
4回答
我的Perl文件生成的文本文件通常包含200行。有时它超过200行(例如217行)。我需要把剩下的线路从201线上剪掉。我已经用计数器的方法来修剪超出的线。还有其他简单有效的方法来做到这一点吗？
代码：
#!/usr/bin/perl -w
use strict;
use warnings;
my $filename1="channel.txt";
my $filename2="channel1.txt";
my $fh;
my $fh1;
my $line;
my $line1;
my $count=1;
open $fh, '<',
浏览 0提问于2018-01-17得票数 2
回答已采纳
我在shell脚本中有一个perl内联替换命令，由于某些原因无法工作。使用下面的命令，它将perl命令中的所有":“替换为替换字符串。
当我手动将ssh放到框中并运行时，perl命令将按预期的方式工作。
ssh host "cd /x/somedirectory && perl -pi -e 's#\${somehost}:\${someport}#10.20.30.40:8443#g' config/app.properties"
Edit1
请注意，$somehost和$someport不是shell变量。我在找一个文字替代。
我做错
浏览 8提问于2015-11-13得票数 1
回答已采纳
2回答
在油灰中，我粘贴这些线条，它可以工作。
cd /usr/local/vpnserver/
./vpncmd
1
Hub VPN
UserGet 34
但是，当它试图使用exec或shell_exec在php中执行此操作时
<?php
$x = exec('cd /usr/local/vpnserver/;./vpncmd;1;;;Hub VPN;UserGet 34');
echo $x;
?>
它对我不起作用，因为在./vpncmd之后，它会问问题来选择12，2，3
我必须输入1，然后再2进入，我到达我的位置连接到vpn中心，可以查看我的vpn用户的详细
浏览 3提问于2017-07-09得票数 0
我有一个logfile.txt，它有某个测试用例的执行日志。此文件的示例如下所示。虽然它还有很多其他的行，但为了简单起见，我已经删除了它们。
在这个logfile.txt中，我的最终目标是获得最后一行方括号内的十六进制值。
我已经用PERL编写了一个示例代码来搜索最后一行并打印出来，但是我无法用正则表达式来获得所需的值。
我的代码：
#!/usr/bin/perl
my $logfile = "/path/to/logfile.txt";
open ( IN1 , $logfile) or die "Cannot find the file $logfile \n&#
浏览 1提问于2019-01-25得票数 1
回答已采纳
5回答
有人能解释一下下面代码中的"<<“吗？
mysql test<<E0Q
Select * from signins
我试着自己去找，但是符号很难找...
谢谢，丹
浏览 2提问于2009-12-19得票数 3
回答已采纳
可能重复：
我将如何使用perl打开文件，查找某人输入的项，如果找到，它将从该行删除到下面的14行。
浏览 3提问于2011-02-21得票数 0
我们有一个perl脚本，它的工作是读取excel文件并将其转换为平面文件。我们从共享位置上的其他系统获取excel文件。
另一个系统是生成一个平面文件，将数据转储到以制表符分隔并附加.xls的文件中。现在的问题是，因为在xls文件中，如果有一个前导为0的字符串，例如012345，它将在excel中显示为12345。为了表示前导0，它们所做的就是以这种方式(在java中)写入数据
"=\"" + some string + "\""
现在，如果我们在excel中打开文件，没有=或“是正确的，但当通过perl读取时，它读取字符串，即=”某个字符串“。
浏览 1提问于2015-06-11得票数 0
2回答
这可能是一个更一般的问题，所以先说声抱歉。我正在创建一个脚本，我认为使用多行字符串而不是使用多个printf或echo语句会更好。假设我有以下内容：
while :
do
printf "line 1
line 2
line 3"
done
由于文件中的缩进，第二行和第三行将在前面留出一个空格。
l1
line 2
line 3
除了消除代码上的缩进之外，还有什么方法可以防止这种情况发生吗？另外，如果您需要输出跨多行的信息，那么只使用多个printf/echo语句是否更好呢？
浏览 3提问于2017-10-03得票数 2
我有一个要在远程服务器上运行的ssh命令列表，因此编写了这个代码段。
#!/usr/bin/env bash
echo ''
echo "WOULD YOU LIKE TO PERFORM FILES CLEANUP: "
read choice
case $choice in
yes|YES|y|Y )
echo ''
echo "Enter NAME OR IP OF REMOTE HOST: "
read ls_host
ssh -t ${ls_host} <<-
浏览 0提问于2022-04-20得票数 0
回答已采纳
如果我有一个脚本，在整个过程中使用ssh进入远程机器，那么它会在远程机器上继续执行脚本吗？如下所示：
ssh-copy-id -i ~/.ssh/id_rsa root@213.219.39.43
scp ~/.ssh/id_rsa root@213.219.39.43:~/.ssh/id_rsa
scp ~/.ssh/id_rsa.pub root@213.219.39.43:~/.ssh/id_rsa.pub
ssh root@213.219.39.43
apt-get update
apt-get upgrade
附注：是的，我知道，root，我不喜欢它，但这是我得到的用户帐户，所以我必
浏览 9提问于2017-08-10得票数 0
回答已采纳
我想把所有这些都回音到文件中：
echo "server {
listen 80;
server_name mydomain.com;
root /srv/www/clients/;
index index.html index.htm index.php;
charset utf-8;
location / {
try_files $uri $uri/ /index.php?$query_string;
}
location = /favicon.ico { acce
浏览 2提问于2016-01-30得票数 0
回答已采纳
例如：
open (PS , " tail -n 1 $file | grep win " );
我想知道文件句柄是否为空。
浏览 0提问于2010-05-10得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
