Question

我是tcl的新手。当我在tcl中学习一些基本命令时，我发现这个问题我不知道要解决它。

例如，我有2行输出数据

angular.module('formModule')      
.directive('dynamicName', 
  function  dynamicNameDirective ($compile, $parse) {   
        return {
          restrict: 'A',
          terminal: true,
          priority: 100000,
          link: function(scope, elem) {
            var name = $parse(elem.attr('dynamic-name'))(scope);
            // $interpolate() will support things like 'skill'+skill.id where parse will not
            elem.removeAttr('dynamic-name');
            elem.attr('name', name);
            $compile(elem)(scope);
          }
        };
  });

实际上我真正想要的只是“西瓜”，我不想要“ - ”

我尝试使用如下的regsub，但也未能避免使用“ - ”。

-

watermelon

我也尝试使用如下的regexp跳过它，但仍然无效。

regsub -all -nocase "^{-\n}$" $fruits{} fruits

任何建议/解决方案都有帮助吗？

Answer 1

% set fruits {-
watermelon}
-
watermelon
%
% regsub "^-\n" $fruits {} fruits
1
% set fruits
watermelon
%

如何避免 - 来自我在tcl中的数据？

1 个答案: