perl system()命令中的字符串替换

Question

以下命令和问题仅仅是为了弄清楚正确的语法,所以请不要寻求它背后的任何深层目的,而是如果你知道正确的语法,这将对我有很大的帮助.

我有以下内容:*在这里使用perl -e来模仿调用system()命令以执行unix命令的perl文件.

perl -e '$i="file.bed"; system("j=$i; echo ${i} ;echo \${j}; echo \${j%.*};")';

这个命令很好地输出:

file.bed
file.bed
file

我想添加另一个回声,将后缀".bed"替换为后缀".bam"我尝试过:

perl -e '$i="file.bed"; system("j=$i; echo ${i} ;echo \${j}; echo \${j%.*}; echo \${j/.bed/.bam}")';

但我得到:

file.bed
file.bed
file
sh: 1: Bad substitution

同样的:

perl -e '$i="file.bed"; system("j=$i; echo ${i} ;echo \${j}; echo \${j%.*}; echo \${j\/.bed\/.bam}")';

因此,由于某种原因,后缀删除[%.*]在system()中工作正常,但{//}替换失败.

有任何想法吗？

Answer 1

perl -e '$i="file.bed"; system("...")'

是的缩写

perl -e '$i="file.bed"; system("/bin/sh", "-c", "...")'

但${j/.bed/.bam}不受支持sh.使用

perl -e '$i="file.bed"; system("bash", "-c", "...")'