使用shell脚本用超链接替换ID

时间:2014-09-23 07:19:35

标签: perl shell

我有一个包含许多ID的html文件,每个ID都应该替换为文件夹中文件的超链接。

我有一个包含png文件的文件夹,格式为XXXX-ScatterPlot.png,其中xxxx是唯一ID。

文件夹的名称是:Scatterplots_flow / html文件的名称是cc_dnarep.html

你可以看看我的剧本,看看有什么问题吗?我收到一条错误消息:Scatterplots_flow / * png

#!/bin/bash
for gene in `ls ~/Scatterplots_flow/*png | perl -pe 's/^.*\///g; s/-Scatter.*//'`; do 
perl -i -e '$gene=shift @ARGV; print "$gene\n"; while (<>) {s/>$gene</><a     href="Scatterplots\/$gene-ScatterPlot.png">$gene<\/a></g; print;}' $gene cc_dnarep.html; 
done
mv  cc_dnarep.html cc_dnarep_links.html

0 个答案:

没有答案