请支援，把文件名的部分字段存到该文件的指定属性内

llony232

文件名为：171001_17_1B1#低压NP03S01-PAN0111-进线1_间隔图.xml
              171022_17_1B1#低压NP03S01-PAN0118-母联_间隔图.xml
文件名的格式一致，长度不一致，我需要文件名的名字部分1B1#低压NP03S01-PAN0118-母联_间隔图，存放到文件的name属性下
文件的格式如下：
<?xml version = '1.0' encoding = 'GB2312'?>
<picture>
<property>
<name>1B1#低压NP03S01-PAN0111-进线1_间隔图</name>
  <class>2</class>
  <type>9</type>
  <stationid>17</stationid>
  <sequence>171001</sequence>
  <screensum>1</screensum>
  <backbmp></backbmp>
  <size>1920,1000</size>
  <backcol>154,154,154</backcol>
</property>

请大神帮助？

wh7211

回复 1# llony232

1. cat 171001_17_1B1\#低压NP03S01-PAN0111-进线1_间隔图.xml

复制代码

输出：
<?xml version = '1.0' encoding = 'GB2312'?>
<picture>
<property>
<name>xxx</name>
  <class>2</class>
  <type>9</type>
  <stationid>17</stationid>
  <sequence>171001</sequence>
  <screensum>1</screensum>
  <backbmp></backbmp>
  <size>1920,1000</size>
  <backcol>154,154,154</backcol>
</property>

1. awk '/<name>/{a=gensub("([0-9]+_){2}|.xml","","g",FILENAME);$0=gensub("(<name>).*(</name>)","\\1"a"\\2","g")}1' 171001_17_1B1\#低压NP03S01-PAN0111-进线1_间隔图.xml

复制代码

输出：
<?xml version = '1.0' encoding = 'GB2312'?>
<picture>
<property>
<name>1B1#低压NP03S01-PAN0111-进线1_间隔图</name>
  <class>2</class>
  <type>9</type>
  <stationid>17</stationid>
  <sequence>171001</sequence>
  <screensum>1</screensum>
  <backbmp></backbmp>
  <size>1920,1000</size>
  <backcol>154,154,154</backcol>
</property>

llony232

感谢大神的支持，但是没有满足我的要求，可能是我没有表述清楚，在此文件夹内有2百个左右的文件，我不想在脚本中体现具体的文件名，读入文件夹内符合所有的.xml文件，然后把文件名的部分放到name属性下，输出文件名+.name的文件awk '{if($1~/<name>/) {a=FILENAME;$1=("<name>"substr(a,11)</name>")}}{print > FILENAME“.name”}' *.xml
距离和我得到的结果相差name多了.xml

llony232

感谢大神的支持，但是没有满足我的要求，可能是我没有表述清楚，在此文件夹内有2百个左右的文件，我不想在脚本中体现具体的文件名，读入文件夹内所有的.xml文件，然后把文件名的部分放到name属性下，输出文件名+.name的文件awk '{if($1~/<name>/) {a=FILENAME;$1=("<name>"substr(a,11)</name>")}}{print > FILENAME“.name”}' *.xml
距离和我得到的结果相差name多了.xml

llony232

感谢大神的支持，但是没有满足我的要求，可能是我没有表述清楚，在此文件夹内有2百个左右的文件，我不想在脚本中体现具体的文件名，读入文件夹内所有的.xml文件，然后把文件名的部分放到name属性下，输出文件名+.name的文件
awk '{if($1~/<name>/) {a=FILENAME;$1=("<name>"substr(a,11)</name>")}}{print > FILENAME“.name”}' *.xml
距离和我得到的结果相差name多了.xml

1cpuer

回复 5# llony232

# ----  2017-12-26 14:55:49: 1514271349:0;  # awk '{if($1~/<name>/) {a=FILENAME;$1=("<name>"substr(a,11)"</name>")}}{print $1}' *.xml
<?xml
<picture>
<property>
<name>1B1#低压NP03S01-PAN0111-进线1_间隔图.xml</name>
<class>2</class>
<type>9</type>
<stationid>17</stationid>
<sequence>171001</sequence>
<screensum>1</screensum>
<backbmp></backbmp>
<size>1920,1000</size>
<backcol>154,154,154</backcol>
</property>


# [ /home/soio/1bs/awks ]
# ----  2017-12-26 14:55:51: 1514271351:0;  # awk '{if($1~/<name>/) {a=FILENAME;$1=("<name>"substr(a,11)"</name>")}}{print > FILENAME."name"}' *.xml
awk: 命令行:1: {if($1~/<name>/) {a=FILENAME;$1=("<name>"substr(a,11)"</name>")}}{print > FILENAME."name"}
awk: 命令行:1:                                                                                   ^ syntax error

######FILENAME."name" ##--"name"   是\w 单词 name 字符串



# awk '{if($1~/<name>/) {a=FILENAME;$1=("<name>"substr(a,11)"</name>")}}{print > FILENAME}' *.xml

jason680

回复 1# llony232

try this way ...

$ grep -C1 name 17*171001_17_1B1#低压NP03S01-PAN0111-进线1_间隔图.xml-<property>
171001_17_1B1#低压NP03S01-PAN0111-进线1_间隔图.xml:<name>...</name>
171001_17_1B1#低压NP03S01-PAN0111-进线1_间隔图.xml-  <class>2</class>
--
171022_17_1B1#低压NP03S01-PAN0118-母联_间隔图.xml-<property>
171022_17_1B1#低压NP03S01-PAN0118-母联_间隔图.xml:<name>...</name>
171022_17_1B1#低压NP03S01-PAN0118-母联_间隔图.xml-  <class>2</class>

$ perl -i -pe '{if(/<name>/){$f=$ARGV;$f=~s/.xml//;$f=~s/^\d+_\d+_//;s|(<name>).*?(</name>)|$1$f$2|}}' 17*

$ grep -C1 name 17*
171001_17_1B1#低压NP03S01-PAN0111-进线1_间隔图.xml-<property>
171001_17_1B1#低压NP03S01-PAN0111-进线1_间隔图.xml:<name>1B1#低压NP03S01-PAN0111-进线1_间隔图</name>
171001_17_1B1#低压NP03S01-PAN0111-进线1_间隔图.xml-  <class>2</class>
--
171022_17_1B1#低压NP03S01-PAN0118-母联_间隔图.xml-<property>
171022_17_1B1#低压NP03S01-PAN0118-母联_间隔图.xml:<name>1B1#低压NP03S01-PAN0118-母联_间隔图</name>
171022_17_1B1#低压NP03S01-PAN0118-母联_间隔图.xml-  <class>2</class>

wh7211

回复 3# llony232

1. awk '{a=gensub("([0-9]+_){2}|.xml","","g",FILENAME);$0=gensub("(<name>).*(</name>)","\\1"a"\\2","g")}{print>a".name"}' *.xml

复制代码