Shell变量在双引号Perl单行中可见
是指在Perl脚本中使用双引号字符串时，可以直接引用Shell变量，并将其值插入到字符串中。
Shell变量是一种在Shell脚本中使用的变量，用于存储数据或命令的结果。在Perl脚本中，可以使用双引号字符串来包含Shell变量，并通过在变量名前加上美元符号$来引用变量的值。
这种特性的优势在于可以方便地将Shell脚本中的变量值传递给Perl脚本，并在Perl脚本中进行处理和操作。通过在双引号字符串中插入Shell变量，可以实现动态生成字符串的功能，提高脚本的灵活性和可扩展性。
应用场景：
- 数据处理：在数据处理过程中，可以使用Shell脚本将数据提取、转换、加载到Perl脚本中进行进一步处理和分析。
- 系统管理：在系统管理任务中，可以使用Shell脚本获取系统信息，并将其传递给Perl脚本进行监控、日志分析等操作。
- 自动化脚本：在自动化脚本中，可以使用Shell脚本执行一系列操作，并将结果传递给Perl脚本进行后续处理。
腾讯云相关产品和产品介绍链接地址：
- 云服务器（CVM）：提供安全可靠、弹性扩展的云服务器实例，支持多种操作系统，满足不同业务需求。详细信息请参考：https://cloud.tencent.com/product/cvm
- 云数据库 MySQL 版（CDB）：提供高性能、可扩展的关系型数据库服务，支持自动备份、容灾、监控等功能。详细信息请参考：https://cloud.tencent.com/product/cdb
- 人工智能平台（AI Lab）：提供丰富的人工智能开发工具和服务，包括图像识别、语音识别、自然语言处理等功能。详细信息请参考：https://cloud.tencent.com/product/ailab
- 物联网套件（IoT Hub）：提供全面的物联网解决方案，包括设备接入、数据管理、消息通信等功能，支持海量设备接入和实时数据处理。详细信息请参考：https://cloud.tencent.com/product/iothub
- 云存储（COS）：提供安全可靠、高扩展性的对象存储服务，适用于图片、音视频、文档等各类数据的存储和管理。详细信息请参考：https://cloud.tencent.com/product/cos
- 区块链服务（BCS）：提供一站式区块链解决方案，包括区块链网络搭建、智能合约开发、链上数据存储等功能。详细信息请参考：https://cloud.tencent.com/product/bcs
- 腾讯会议：提供高清、流畅、安全的在线会议服务，支持多人视频通话、屏幕共享、会议录制等功能。详细信息请参考：https://meeting.tencent.com/
请注意，以上链接仅供参考，具体产品和服务详情请以腾讯云官方网站为准。
相关·内容
我想重命名文件名称中的'SR‘，将'sr’替换为'sr‘。这个成功了：
ls | perl -e 'while(<>){chomp;if(/(.*)sr(.*)/){rename $_,$1."SR".$2}}'
但是这个失败了：
ls | perl -e "while(<>){chomp;if(/sr/){rename $_,$\`.'SR'.($')}}"
出现以下错误消息：
Not enough arguments for rename at -e line 1, ne
浏览 2提问于2017-10-11得票数 0
假设文件'/usr/local/etc/php-fpm.d/www.conf‘上有'pm.max_children = 8’，下面的结果应该是40，但是忽略$1。
aaa=5
perl -i.bak -e "s/pm.max_children\s*=\s*\K([0-9]+)/($1 * $aaa)/ge" /usr/local/etc/php-fpm.d/www.conf
但奇怪的是，在$aaa不是变量的情况下，下面的操作是有效的。
perl -i.bak -e "s/pm.max_children\s*=\s*\K([0-9]+)/($1 * 3)/
浏览 0提问于2022-05-04得票数 0
回答已采纳
4回答
我在理解Windows中perl的命令参数引用时遇到了问题。使用以下程序：
use strict;
use warnings;
use File::Find;
use File::Copy;
my $dir = shift;
die 'Usage: perl Folderize.pl <directory>' unless $dir;
die "$dir doesn't exist" unless -d $dir;
根据对目录使用单引号还是双引号，我会得到不同的结果。如果我用'perl script.pl 'H:\Tes
浏览 0提问于2011-05-28得票数 5
回答已采纳
2回答
当我在命令行中尝试散列时(如下面的示例所示)，我会得到语法错误。我也试过用胖逗号，但结果还是一样。有人能帮我吗？
perl -e "%hash_ex=(as,wdesadc,afcsdc,esvdfvzdfvfv,1,sd,34,34);print $hash_ex{'1'};"
syntax error at -e line 1, near "};"
Execution of -e aborted due to compilation errors.
perl -e "%hash_ex=('a' => 1 , &
浏览 4提问于2014-12-21得票数 1
回答已采纳
alex@d120432:~$ echo $0
bash
alex@d120432:~$ perl -e 'print "\x41\x42\x43\x44\x0a"x2'
ABCD
ABCD
alex@d120432:~$ i=2
alex@d120432:~$ echo $i
2
alex@d120432:~$ perl -e 'print "\x41\x42\x43\x44\x0a" x $i'
alex@d120432:~$
是否可以在第二个perl命令中获得相同的输出？我找不到正确的语法来使用i作为重复计数。
浏览 20提问于2020-02-05得票数 1
回答已采纳
使用下面的Perl liner命令，我使用它来匹配文件中的LAST_WORD
最后一个词可以是空格，也可以是没有空格的。
perl -ne“打印if /LAST\s*$/”文件
Perl命令在Perl版本的Linux和Solaris上运行良好- v5.8.7
但是当我在Solaris 9机器上的Perl版本5.6.1上运行它时
我得到以下错误
perl -ne "print if /LAST_WORD\s*$/" file
Illegal variable name.
请建议在我的语法中需要修复什么，以便Perl命令支持所有Perl版本？
或者其他很好的
浏览 2提问于2014-02-18得票数 0
回答已采纳
我知道shell变量是当前shell的本地变量，而环境变量( exported )则被传递到shell派生的子进程中。
当我运行双引号内的Perl一行程序时，我可以从forked perl进程访问(本地)外壳变量：
$ FOO=bar
$ perl -we "print qx'echo $FOO'"
bar
为什么会这样呢？
浏览 44提问于2016-08-02得票数 3
回答已采纳
2回答
我本希望它只捕获和打印以括号形式定义的组，但是它打印了整行内容。如何仅捕获和打印括号中的组？
echo "abcdef" | perl -ne "print $1 if /(cd)/ "
我希望打印的内容是：cd
它实际打印的内容：abcdef
如何修复？
浏览 0提问于2013-07-11得票数 0
回答已采纳
1回答
将散列字符串保存在变量中
、、、、
我需要用SHA-512算法散列一个字符串。我也有盐。
我试着在剧本里说：
inputHash=$( perl -e 'print crypt("${array[3]}","\${pass[0]}\${pass[1]}\$") . "\n"' )
其中数组是密码，pass是哈希算法(6)，pass是salt。
我做错了什么？还有其他在shell脚本中执行SHA512的方法吗？
提前谢谢你！
编辑：变量inputHash为空
浏览 0提问于2021-06-22得票数 0
我正在编写一个shell脚本，将变量内容替换为另一个整数，在shell脚本中使用perl。
#!/bin/sh
InitialFileStep="$1"
CurrentStage=$((($i*(9*4000))+$InitialFileStep))
PreviousStage=$((($(($(($i-1))*(9*4000)))) + (InitialFileStep)))
perl -pi -e 's/$PreviousStage/$CurrentStage/g' file.txt
echo "Hey!"
它似乎找不到文件中的变量内容。
浏览 1提问于2015-10-11得票数 3
回答已采纳
我正在尝试使用Bash和Perl的组合来修改一些脚本。问题是Perl认为$index是它自己的变量，这个变量从来没有定义过：
for index in {1..25}; do
perl -pi -e 's/\d+/$index/' cmd_$index.sh;
done
有没有办法让$index在Perl一行程序中穿上它的Bash斗篷？
浏览 2提问于2012-01-23得票数 11
回答已采纳
我正在使用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
我想用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
这是我关于堆栈溢出的第一篇文章，如果我错过了一些重要的东西，请原谅我。我现在正忙着解决这个问题。目标是根据我用find编写的文件列表动态替换端口号。这些文件中的所有端口，从数字"4“开始，有5位数。
现在，棘手的部分，我只替换数字#2和#3，并保留位置1，4和5。
old port in file: 40380, 40381
new port in file: 41580, 40381
我正在编写Sun Solaris 5.10，因此我更喜欢用于内联替换的perl
最后一个关键问题是:我如何将$1 (组1) + $PIN_PINNO + $3 (组3)合并为: 41580
NEW_PI
浏览 5提问于2017-09-21得票数 2
当我运行ls命令时，它运行得很好。但是echo $PATH没有给我任何来自perl的输出。当我在shell提示符下运行echo时，它会给出输出。你能解释这种行为吗？
#!usr/bin/perl
$\="\n";
$out = `ls`;
print $out;
$out=`echo $PATH`;
print $out;
浏览 2提问于2011-02-15得票数 0
回答已采纳
2回答
我正在为一个单词识别程序创建几个词汇表，该程序只包含一个单词的第一个声音(从此以后为ngram)。因此，我从一个现有的词汇中提取所需的单词。但是，我想自动这样做，即查找一个ngram的所有单词(例如ngram = 3)，保存它们，增加ngram (= 4)并重复这个过程。代码如下所示：
ngrams=$(seq 3 1 9)
for ngram in $ngrams
do
cat /Lexicon/whole_lexicon.lex | perl -ne 'chomp; @tok = split(/\s+/); $ntoprint = $#tok; if ($ngram < $
浏览 10提问于2019-11-07得票数 0
回答已采纳
我对shell脚本不太熟悉。我想修改一个脚本，但在我修改脚本后，它给了我错误的"No .文件或目录“。
但该命令在命令提示符上工作。
这是引起问题的那条线。(甚至不确定下面的命令是如何生成进程的。)
_T_COMMAND_=1 "valgrind ---tool=memcheck --trace-children=yes command"
如果我运行命令的话，同样的情况也会发生。
$valgrind ---tool=memcheck --trace-children=yes command
有什么想法吗？
浏览 3提问于2013-09-27得票数 1
我希望在python命令中传递变量服务器，并从命令中读取python命令结果portStatus变量。
for server in `echo $dnsServers | awk -F";" '{print $1" "$2" "$3" "$4" "$5" "$6}'`
do
python3 -c 'import socket;
a_socket = socket.socket(socket.AF_INET, socket.SOCK_STREAM);
浏览 3提问于2022-01-08得票数 1
3回答
我有这个Perl脚本：
#!/usr/bin/perl
$var = `ls -l \$ddd` ;
print $var, "\n";
而ddd是一个shell变量
$ echo "$ddd"
arraytest.pl
当我执行Perl脚本时，我得到了目录中所有文件的列表，而不是只有一个文件，它的文件名包含在外壳变量$ddd中。
这是怎么回事？注意，我在Perl脚本中用反引号转义了$ddd。
浏览 0提问于2011-08-06得票数 2
回答已采纳
我使用路径作为unix模式的参数调用perl子程序。但让Bareword发现了错误。不管怎么说都能挺过去的。
[ssonnad@cycrh6rtp34 ~/test]**$perl -e "require qw(./burt.pm) ;file(/u/path,/u/build/);"**
Bareword found where operator expected at -e line 1, near "/u/path"
(Missing operator before path?)
Bareword found where operator expe
浏览 3提问于2017-09-27得票数 1
回答已采纳
1回答
我有一个shell脚本，用于重命名文件夹中的多个文件。它工作在流变主机上，但在ubuntu14主机上抛出错误。
#!/usr/bin/env bash
SOME_NUMBER=1
rename _file_name.c _file_${SOME_NUMBER}.c path/of/file/*_file_name.c
为了使代码在ubuntu14主机上工作，我应该对代码进行哪些更改？
编辑-1：
为了在ubuntu机器上运行代码，我做了以下更改，它可以工作：
rename 's/\_file_name.c$/\_file_1.c/' path/of/file/*_file_n
浏览 1提问于2018-11-06得票数 0
回答已采纳
3回答
ksh时代到日期时间格式
、、、、
我有一个脚本来查找任何用户密码的过期日期。脚本可以在秒(时代)内找到过期日期，但不能将其转换为日期时间格式。
#!/usr/bin/ksh
if (( ${#} < 1 )) ; then
print "No Arguments"
exit
fi
lastupdate=`pwdadm -q $1|awk '{print $3;}'`
((lastupdate=$lastupdate+0))
maxagestr=`lsuser -a maxage $1`
maxage=${maxagestr#*=}
let maxageseconds=$ma
浏览 0提问于2016-06-30得票数 0
回答已采纳
链接
当我在Perl的匹配运算符中插入一个变量时，如何转义元字符？
帮不了我。
我尝试过使用Python：
import os
line='ID_SN=02 MS=DC:A6:32:7E:74:08 S=* TS=24/11/2020 11:02:30 CET N=IMC2500 MD=7F:7A:25:43:8F:44 T=LE P=90@'
cmd1="perl -sni -e 'print unless /^\Q$regex\E$/' -- -regex=%s device_scan.txt
浏览 0提问于2020-11-24得票数 0
回答已采纳
我希望在makefile中运行命令perl -MConfig -e 'print $Config{archlib}'，并使用它在LDFLAGS中返回的位置。有人能帮我吗。我尝试过使用$(shell ..)的不同方式，但没有起作用。
我想做这样的事
PERLPATH = $(shell 'perl -MConfig -e "print $Config{archlib}"')
LDFLAGS += -L/usr/lib64/perl5/CORE
谢谢！！
浏览 1提问于2013-08-06得票数 0
回答已采纳
如果不使用grep和wc，我如何计算文本文件中单词的出现次数？我知道如何使用grep和wc来做到这一点，但不是不知道。谢谢你的帮助!
浏览 0提问于2014-10-30得票数 0
2回答
用bash替换部分url
、、、、
我使用bash脚本来替换文件中两个字符串之间的特定文本。看起来是这样的：
GATEWAYURL = 'myDomain.com'
CONFIGFILE = 'full/path/to/config.file'
replacementString1="s/(?<=gatewayIp:).*(?=,)/\"${GATEWAYURL}\"/;"
perl -pi -e $replacementString1 $CONFIGFILE
这非常适合在文件中创建如下所示的一行：
gatewayIp:"the.old.domai
浏览 2提问于2013-09-29得票数 1
回答已采纳
我有两个文件test01和test02，如下所示
Test01文件：
RX_HOME=/app/rx/rx01/mxIII
SCR_HOME=/app/scr/scr01/mxIII
JAVA_HOME=/opt/java/jdk1.7.0_51
SYBASE_HOME=/opt/sybase
ORACLE_HOME=/opt/oracle/11202
MX_HOST=ukloldk008
DB_HOST=ukloldk0004
Test02文件：
<MX_HOME>;
SCR_HOME;
;JAVA_HOME;
"SYBASE_HOME"
{ORACLE_HOME
浏览 1提问于2015-03-11得票数 0
2回答
为什么简单地用'而不是"封装一行代码会影响代码的行为？第一行代码生成预期的内容，第二行代码提供(给我！)一个意外的结果，打印出一个意外的数组引用。
$ echo "puke|1|2|3|puke2" | perl -lne 'chomp;@a=split(/\|/,$_);print $a[4];'
puke2
$ echo "puke|1|2|3|puke2" | perl -lne "chomp;@a=split(/\|/,$_);print $a[4];"
这是Perl版本：
$ perl -v
This
浏览 6提问于2017-05-11得票数 1
回答已采纳
1回答
使用sed，我可以删除命令提示符中的一行代码。当我在bash脚本中使用它并使用一个变量时，它不会删除它。
function remove_user {
echo "Input user you would like to delete"
read rui
if grep -q $rui database.txt ;
then
echo "Are you sure yu want to delete this user?"
echo "(Y/N)"
read input3
if [ $input3 == "
浏览 1提问于2016-12-10得票数 0
我想要rsh到一台机器上，并在perl脚本中执行一些命令，下面是代码：
#!/usr/bin/perl
$command="cd /remote/XXX; mkdir aa";
$result=system("rsh machine $command");
未创建目录aa。有人能帮我看一下吗？谢谢!
浏览 0提问于2013-08-22得票数 0
3回答
我在试着制造一些虚拟的过程。每个/path/to都是相同的，但我似乎无法打印DAEMON名称。使用下面代码的结果是两个进程，名为/path/to/。如何实现/path/to/test1D和/path/to/test2D
declare -a DAEMONS=('test1D' 'test2D')
for i in "${DAEMONS[@]}"
do
perl -e '$0="/path/to/'$i'"; sleep infinity' &
done
浏览 5提问于2015-06-24得票数 0
回答已采纳
1回答
当我在shell外使用AWK print命令时，它工作得很好。下面是文件(sample.txt)的内容，用逗号分隔。
IROG,1245,OUTO,OTUG,USUK
之后，在外壳外执行下面的命令，我得到IROG作为输出。
cat sample.txt | awk -F, '{print $1}' > data.txt
下面是shell脚本中的内容
my $HOME ='home/tmp/stephen';
my $DATA ="$HOME/data.txt";
my $SAMPLE =&
浏览 0提问于2015-01-22得票数 4
回答已采纳
我有几个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
我偶然发现了一个令人敬畏的帝国：
s/((?:\\[a-zA-Z\\])+)/qq[qq[$1]]/eeg
它有魔力，但它太模糊了，我无法理解它。它工作得很好：
echo 'a\tb\nc\r\n' | perl -lpe 's/((?:\\[a-zA-Z\\])+)/qq[qq[$1]]/eeg'
a b
c
让我们用cat -A看一看：
echo 'a\tb\nc\r\n' | perl -lpe 's/((?:\\[a-zA-Z\\])+)/qq[qq[$1]]/eeg' | cat -A
a^Ib$
c^M$
$
我会
浏览 4提问于2014-07-04得票数 0
回答已采纳
1回答
问题：
#!/bin/bash
x=$1
perl -lne 'print "$x is $_"' $1
如何在我的第4行中计算$1，每次通过perl-oneliner打印时，打印单引号内的$1？
浏览 0提问于2020-05-02得票数 1
回答已采纳
2回答
如何在Perl脚本中正确执行以下Bash命令？
su - oracle -c "echo \"select database_role from v\\\$database;\" | sqlplus -s / as sysdba";
当放置在bash脚本中时，该命令将正确执行。但是，在perl脚本中使用以下方法时：
my @roleQuery = `su - oracle -c "echo \"select database_role from v\\\$database;\" | sqlplus -s / as sysdba"
浏览 7提问于2014-06-20得票数 2
回答已采纳
我正在尝试替换出现在两个单引号之间的所有值，包括转义的单引号。除了找到转义的单引号外，下面的代码运行得很好。这是有道理的，但是有什么方法可以绕过它吗？我想替换单引号之间的所有字符。
$ echo "'blah\'blah'" | perl -pe s/"'"[^"'"]*"'"/stuff/g
stuffblah'
我只想看看：
stuff
浏览 0提问于2012-09-21得票数 2
回答已采纳
我正在用Perl语言编写一个程序，它在MobaXterm上运行。我的问题是，我想让Perl运行一个Perl一行程序(它是通过另一个unix命令传输的)。当我只是在终端中输入它时，我的一行程序工作得很好，但是我似乎不能通过Perl使它工作。
我的命令在终端中工作时是
samtools view $file.bam |
perl -ne 'if ($_ =~ m/NM:i:(\d+)/) {print $1, "chr(10)"}' > $file.nm
我使用文件'M1.10.fasta'测试我的程序
我复制了我的代码：
#!/usr/b
浏览 0提问于2014-10-20得票数 0
3回答
我正在尝试将字符串"ABC“替换为”.$VAR“。运行以下命令。
perl -p -i -e "s/ABC/\.\$VAR\./g" *
这使得字符串为"..“代替".$VAR".Please，谁能告诉我我做错了什么？？
浏览 1提问于2014-05-17得票数 1
1回答
在其他问题中发现了这个错误，但我看不出解决方案与此有何关联。
假设文件test包含：
one
twoX
three
我可以通过以下方式纠正twoX：
perl -0777 -i -pe 's/twoX/two/igm' test
我可以做一个函数来做到这一点：
replace_str(){ perl -0777 -i -pe 's/'$2'/'$3'/igm' $1; }
replace_str test twoX two
但是，当替换包含一个空格(可能是其他字符)时，这会失败：
replace_str test two '
浏览 5提问于2015-12-14得票数 1
回答已采纳
假设我有一个文本文件，内容如下：
'Jack', is a boy
'Jenny', is a girl
...
...
...
我想在Cli中使用perl来仅捕获单引号对之间的名称
cat text| perl -ne 'print $1."\n" if/\'(\w+?)\'/'
上面的命令是我运行的，但它不起作用。这看起来像是壳牌搞砸了。
我知道我们还有其他选择，比如编写perl脚本。但考虑到我的情况，我希望在Shell命令行中找到一种方法来实现这一点。
请给我建议。
浏览 0提问于2013-06-07得票数 1
1回答
我正在使用perl将密码与bash脚本中的regex进行匹配。
在测试正则表达式的密码时，我遇到了这个问题：
这是可行的：
perl -e 'if ( "Bomba\@2071" =~ /^(?=.*[A-Z])(?=.*[!@#$&*])(?=.*[0-9])(?=.*[a-z].*[a-z].*[a-z]).{8,}$/ ) { print 1; } '
虽然这永远不会匹配：
perl -e 'if ( "Bomba@2071" =~ /^(?=.*[A-Z])(?=.*[!@#$&*])(?=.*[0-9])(?
浏览 11提问于2018-08-08得票数 5
回答已采纳
4回答
我使用Perl一行程序来创建SQL语句，但是我不能包含单引号。
这就是我想要的:取第一个字段并添加引号。
echo "a,b" | perl -F',' -lane 'print $F[0];'
'a'
我试过几种不同的方法，但对我来说没有用。
回显"a，b“\x{e76f} perl -F'，‘-lane’打印qq('$F');‘’
回显"a，b“\x{e76f} perl -F'，‘-lane’打印q('$F');‘’
这是另一个有趣的问题。
它使用print语
浏览 4提问于2011-02-24得票数 10
回答已采纳
我有一个简单的脚本，其中我希望用户能够指定分隔符：
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my $sep = "&";
GetOptions('sep:s' => \$sep);
my @list = ('a','b','c');
print join($sep,@list);
print "\n";
但是，如果我似乎没有找到传递"\t“并被计算为脚本中的选项卡的方法：
perl ~/perl_t
浏览 1提问于2014-03-31得票数 0
回答已采纳
2回答
我写了一个从网站获取歌词的bash脚本。脚本在这里--> (脚本中的缩进是正确的，不同于它在博客上的样子)这个脚本在终端执行时工作得很好。现在我使用compiz命令创建了一个自定义键盘快捷键，当按下正确的组合键时，该快捷键将执行以下命令：
gnome-terminal --working-directory="/home/tapan/sandbox/bash/" --window-with-profile=lyrics -e "/home/tapan/sandbox/bash/lyrics.sh" -t "`rhythmbox-client --
浏览 0提问于2011-03-24得票数 0
回答已采纳
我在perl中从搜索和替换regexp获得不同的输出，这取决于我是使用就地替换()还是常规搜索替换，也取决于我是使用\1还是$1。
──> cat test1.txt
orig.avg.10
──> cat test2.txt
orig.avg.10
# EXPECTED
──> cat test1.txt | perl -lne '$_ =~ s/(avg\.[0-9]+)/$1\.vec/; print $_'
orig.avg.10.vec
# EXPECTED
──> cat test1.txt | perl -lne '$_
浏览 2提问于2016-01-22得票数 2
回答已采纳
1回答
我不知道如何将下面的行回显到文件中。只有一部分能进入文件。
echo perl -e "printf(\"%.1lf%%\n\", ($reserved_block_count * 100.0 ) / $block_count);">>Show_Percent_Reserved_Blocks.sh
当我运行下面的脚本时，我得到
andyk_~/Downloads$ Show_Percent_Reserved_Blocks.sh
/home/andy/bin/Show_Percent_Reserved_Blocks.sh: line 2: Block:
浏览 0提问于2018-06-11得票数 1
回答已采纳
我有一个input.txt文件：
Dog walks in the park
Man runs in the park
Man walks in the park
Dog runs in the park
Dog stays still
They run in the park
Woman runs in the park
我想搜索runs?正则表达式的匹配，并将它们输出到一个文件中，同时在匹配的两边用两个星号突出显示匹配。所以我想要的输出是：
Man **runs** in the park
Dog **runs** in the park
They **run** in the park
浏览 5提问于2015-07-22得票数 4
回答已采纳
如何在bash shell脚本中使用perl命令调用中的shell变量？
我的shell脚本中有一个perl命令来计算date -1。
如何在perl命令调用中使用$myDate？
这是我的脚本中的部分：
myDate='10/10/2012'
Dt=$(perl -e 'use POSIX;print strftime '%m/%d/%y', localtime time-86400;")
我想用$myDate代替%m/%d/%y。
任何帮助都将不胜感激。
谢谢。
浏览 2提问于2012-10-27得票数 16
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
