你張貼的所有片段不是有效的XML讓我們假裝它看起來像這樣
<body>
<item>
<key>Name</key>
<string>Steve Allen</string>
</item>
<item>
<key>Place</key>
<string>London</string>
</item>
</body>
使用片段作爲輸入,這一計劃將重新命名任意數量給出ARGS 如果文件您將程序保存爲「myrename」,那麼「myrename file1.xml file2.xml file3.xml」會將file1.xml file2.xml和file3.xml的路徑名更改爲第一項
被稱爲「關鍵「似乎以一種神奇的方式工作:/
#!/usr/bin/perl
use XML::Simple;
for $file (@ARGV[ 0 .. $#ARGV ]) {
my $ref = XMLin($file);
$new_name = $ref->{'item'}->{'Name'}->{'string'};
rename $file, "$new_name.xml" || warn "couldn't rename $file $!";
}