xml - 需要在 Linux env 中用 Perl 脚本修改几个 XML 文件

In lại 作者：太空狗 更新时间：2023-10-29 12:34:13 26 4

#!/usr/local/bin/perl
$numArgs = @ARGV;
if ($numArgs != 2) 
{
print "Usage: replace_default_date.pl DEFAULT_START_DATE DEFAULT_STOP_DATE\n";
}

@filenames = `ls TC*`;
chomp(@filenames);
foreach $file (@filenames)
{
  open(REGFILE, "$file") || die "Cannot open |$file|";
  @lines = ; 
  close(REGFILE);

  open(WRITEFILE), ">$file") || die "Cannot open |$file|";

  foreach $line (@lines)
  {
    if ($line =~ /DEFAULT_START_DATE/)
    {
      $newline = " " . $ARGV[0];
      print WRITEFILE "$newline\n";
    }
    elsif ($line =~ /DEFAULT_STOP_DATE/)
    {
      $newline = " " . $ARGV[1];
      print WRITEFILE "$newline\n";
    }
    khác 
    {
      print WRITEFILE "$line\n";
    }
  }
  close (WRITEFILE);
}

   
     2013-03-06T00:00:00
     2013-03-07T00:00:00
   
    ... The rest of the xml file...
 

@filenames = 'ls TC*';

@filenames = `ls TC*`;

   
    
      
          DEFAULT_START_DATE     
      
      
          DEFAULT_STOP_DATE
      
    
     ... The rest of the xml file...
 

26 4 0

• c++ - 在C++中用<<>

  有人可以向我解释该声明在C++中的含义吗？我从未见过这样的声明，只是对它的含义和作用感到困惑: int ix((dx > 0) - (dx > 1)); 最佳答案 您可以在括号或花括号中使用初始化程序

• php - 在 while 中用 If 语句排序

  我有一个带有单词的mysql数据库。我用 while 语句打印所有单词。所以我觉得: 马铃薯番茄生菜 一切正常，但我想按长度对单词进行排序。我试过: if(strlen($go['words']) =

• windows - Windows 中用 FOR 遍历路径变量

  我忠实的路径遍历方法不再有效——它将空格视为分隔符。好久没做批处理编程了。 使用 FOR 循环时，唯一允许使用分隔符的是 FOR/F 选项。 我不想创建一个包含路径的临时文件，希望做如下的事情: C:

• C# 中用 Sqlparameter 的两种用法

  新建一个表： ? 1

• 在 Lua 中用 LPeg 解析出多行

  我有一些带有多行块的文本文件，例如 2011/01/01 13:13:13,, Some Certain Text,=, [ certain text [

• vim - 在 VIM 中用 # 居中和填充多个空间

  我想在 Vim 中文件的不同部分之间进行一些很好的分离: 我想用#'s 填充一行，然后在中间写上我的标题: ############################# 居中标题############

• string - 在 Clojure 中用\* 替换 *

  我该如何逃生 "*"至 "\*"在clojure？似乎无法让它工作: (s/replace "A*B" #"*" "*")生产 "A*B" (当然) (s/replace "A*B" #"*" "\*

• c - c 中用 "char *"定义的变量是指针还是char类型的变量？

  这周我一直在努力更熟悉 C。我一直在阅读C Primer Plus (5th Edition) 但是我仍然在使用变量和指针时遇到了一些麻烦。 这是我用来测试的脚本: int main (int arg

• dart - Dart 中用 new 操作符初始化和用字面量初始化的区别

  在 Dart 中，初始化 List 有什么区别？使用 new 运算符并使用文字对其进行初始化？ 情况1: List args = new List(2); args[0] = 1; args[1] =

• 在 R 中用 NA 替换值

  我有一个字符向量，如下所示: "Internet" "Internet" "-1" "-5" "Internet" "Internet" 我想替换所有负数值的值(-1、-5 等

• 在 R 中用 NA 删除列值

  我有一个名为 gen 的数据框，如下所示 A B C D E 1 NA 4.35 35.3 3.36 4.8

• 在 R 中用 NA 替换值

  我有一个字符向量，如下所示: "Internet" "Internet" "-1" "-5" "Internet" "Internet" 我想替换所有负数值的值(-1、-5 等

• cmake - 我什么时候应该在 CMake 中用 ${...} 包装变量？

  我想知道为什么 CMake 中的变量经常用美元符号和大括号括起来。例如，我看到这个电话in a CMake tutorial . include_directories(${PROJECT_BINAR

• php - 是否可以在 codeigniter 中用 where 条件计算所有？

  我正在尝试做这样的事情 $this->db->count_all("grant_money")->where('id',5); 这可能吗？ 如果有任何其他方法可以做到这一点，请告诉我。谢谢 我想像上面

• c - 为什么需要在 C 中用 * 定义对指针的引用？

  为什么这是有效的: int a = 5; int *aPtr = &a; printf("%i", *aPtr); 但这不是: int a = 5; int aPtr = &a; printf("%i

• javascript - 如何在 JavaScript 中用 "/"替换字符串中的每个点

  假设我有一个格式为“11.23.13”的日期字符串，我想用“/”替换每个点，使其看起来像“11/23/13”。 这是我的代码，但它无法正常工作，因为正则表达式看到“.”并将其解释为匹配每个字符而不是新

• java - 如何在 java 中用 * 替换控制台输入值？

  如何在键盘输入的字符处打印*？ 例子: 如果我在控制台中输入:mouli，那么它应该将 m 替换为 *，然后是 o用 * 等等。 最佳答案 使用标准 API 无法解决此问题。如果这确实是一个明确的要求

• javascript - 在 Javascript 中用 this 理解内部函数

  我最近开始学习 Javascript，同时对卡在这段代码中的代码进行了一些实验: var k = { ab: "hi", func: function() { cons

• bash - 如何在 awk 中用 "."替换重复的行？

  我需要用“.”替换第一列中的重复项 例如: name1 name1 name1 name2 name2 name3 name3 我需要输出: name1 . . name2 . name3 . 我有这

• mysql - 在 MySQL 中用 IF 语句比较日期

  我有以下两个表 education 和 jobs，每个表都有时间戳字段。在续集语句中，我想选择并确定两个表中保存的两个时间戳中哪个是最新的。 我已经尝试了以下但并不愉快； SELECT e.Sta