首页 \ 问答 \ TCL模式匹配(TCL pattern matching)

TCL模式匹配(TCL pattern matching)

我是TCL编程的新手。 我想编写一个tcl代码来检查给定字符串中是否有任何模式HAT GET DOT,如果存在,我们应该在给定字符串中显示HAT GET DOT中的哪些模式。 如果字符串中存在多个模式,则应显示所有匹配的模式。 我编写了以下代码,但即使多个模式与给定字符串匹配,它也只显示单个模式。


有人可以帮忙吗?

先谢谢你

码:

set data1 {asdGETdf ferGETfhgDOT} #data1 is the given string
foreach index $test_data1 {
  set result [regexp  {ABC|ACC|ADC|AXC} $index match]
  puts "\n$index"
  if { $result==1} {
    puts "MATCH:$match"
  } else {
    puts "NO MATCH"
  }  
}

output:-asdGETdf
MATCH:GET

ferGETfhgDOT
MATCH:GET

对于第二个字符串,我希望它显示GETDOT (不像输出那样单独使用GET )。

我认为这是因为一旦找到匹配,regexp就会结束搜索。 但是如何显示所有模式匹配?


I am new to TCL programming. I want to write a tcl code that check if any of the patterns HAT GET DOT present in the given string and if it does, we should display which among the patterns HAT GET DOT is present in the given string. If more than one pattern is present in the string all the matched patterns should be displayed. I wrote the following code, but it only displays a single pattern even if more than one pattern matches the given string.


Can anyone help?

Thank you in advance

Code:

set data1 {asdGETdf ferGETfhgDOT} #data1 is the given string
foreach index $test_data1 {
  set result [regexp  {ABC|ACC|ADC|AXC} $index match]
  puts "\n$index"
  if { $result==1} {
    puts "MATCH:$match"
  } else {
    puts "NO MATCH"
  }  
}

output:-asdGETdf
MATCH:GET

ferGETfhgDOT
MATCH:GET

For the second string I expect it to display GET and DOT (not GET alone as in the output).

I think this is because regexp end the search once a match is found. But how to display all pattern matches?


原文:https://stackoverflow.com/questions/39362032
更新时间:2022-04-29 07:04

最满意答案

这对我有用。

首先,将byte []转换为字符串并将字符串拆分为\r (Regex Split保留分隔符)。

现在有一串字符串,其中一些以\r结尾。

然后康卡特,以保持他们的秩序。 另外,由于strings需要在下一步中变为热点,请发布它们。

var strings = bytes.
  Select(arr => (Regex.Split(Encoding.Default.GetString(arr, 0, arr.Length - 1), "(\r)")).
    Where(s=> s.Length != 0).
    ToObservable()).
  Concat().
  Publish().
  RefCount();

创建一个字符串窗口,当字符串以\r结尾时结束。 strings需要很热,因为它用于Window内容和窗口结束触发器。

var linewindows = strings.Window(strings.Where(s => s.EndsWith("\r")));

将每个Window聚合为一个字符串。

var lines = linewindows.SelectMany(w => w.Aggregate((l, r) => l + r));

linesIObservable<String> ,每个字符串包含一行。

为了测试这个,我使用以下生成器来生成IObservable<byte[]>

var bytes = Observable.
Range(1, 10).
SelectMany(i => Observable.
    Return((byte)('A' + i)).
    Repeat(24).
    Concat(Observable.
        Return((byte)'\r'))).
Window(17).
SelectMany(w => w.ToArray());

This works for me.

First, Convert the byte[] into a string and Split the string on \r (Regex Split keeps the delimiters).

Now there is a stream of Strings some of which end in \r.

Then Concat, to keep them in order. Also, since strings needs to be Hot for the next step, Publish them.

var strings = bytes.
  Select(arr => (Regex.Split(Encoding.Default.GetString(arr, 0, arr.Length - 1), "(\r)")).
    Where(s=> s.Length != 0).
    ToObservable()).
  Concat().
  Publish().
  RefCount();

Make a Window of strings that ends when a string ends with \r. strings needs to be hot since it is used for both the Window contents and the end-of-window trigger.

var linewindows = strings.Window(strings.Where(s => s.EndsWith("\r")));

Aggregate each Window into a single string.

var lines = linewindows.SelectMany(w => w.Aggregate((l, r) => l + r));

lines is IObservable<String> and each string contains one line.

To test this I used the following generator to produce IObservable<byte[]>

var bytes = Observable.
Range(1, 10).
SelectMany(i => Observable.
    Return((byte)('A' + i)).
    Repeat(24).
    Concat(Observable.
        Return((byte)'\r'))).
Window(17).
SelectMany(w => w.ToArray());

相关问答

更多

相关文章

更多

最新问答

更多
  • 您如何使用git diff文件,并将其应用于同一存储库的副本的本地分支?(How do you take a git diff file, and apply it to a local branch that is a copy of the same repository?)
  • 将长浮点值剪切为2个小数点并复制到字符数组(Cut Long Float Value to 2 decimal points and copy to Character Array)
  • OctoberCMS侧边栏不呈现(OctoberCMS Sidebar not rendering)
  • 页面加载后对象是否有资格进行垃圾回收?(Are objects eligible for garbage collection after the page loads?)
  • codeigniter中的语言不能按预期工作(language in codeigniter doesn' t work as expected)
  • 在计算机拍照在哪里进入
  • 使用cin.get()从c ++中的输入流中丢弃不需要的字符(Using cin.get() to discard unwanted characters from the input stream in c++)
  • No for循环将在for循环中运行。(No for loop will run inside for loop. Testing for primes)
  • 单页应用程序:页面重新加载(Single Page Application: page reload)
  • 在循环中选择具有相似模式的列名称(Selecting Column Name With Similar Pattern in a Loop)
  • System.StackOverflow错误(System.StackOverflow error)
  • KnockoutJS未在嵌套模板上应用beforeRemove和afterAdd(KnockoutJS not applying beforeRemove and afterAdd on nested templates)
  • 散列包括方法和/或嵌套属性(Hash include methods and/or nested attributes)
  • android - 如何避免使用Samsung RFS文件系统延迟/冻结?(android - how to avoid lag/freezes with Samsung RFS filesystem?)
  • TensorFlow:基于索引列表创建新张量(TensorFlow: Create a new tensor based on list of indices)
  • 企业安全培训的各项内容
  • 错误:RPC失败;(error: RPC failed; curl transfer closed with outstanding read data remaining)
  • C#类名中允许哪些字符?(What characters are allowed in C# class name?)
  • NumPy:将int64值存储在np.array中并使用dtype float64并将其转换回整数是否安全?(NumPy: Is it safe to store an int64 value in an np.array with dtype float64 and later convert it back to integer?)
  • 注销后如何隐藏导航portlet?(How to hide navigation portlet after logout?)
  • 将多个行和可变行移动到列(moving multiple and variable rows to columns)
  • 提交表单时忽略基础href,而不使用Javascript(ignore base href when submitting form, without using Javascript)
  • 对setOnInfoWindowClickListener的意图(Intent on setOnInfoWindowClickListener)
  • Angular $资源不会改变方法(Angular $resource doesn't change method)
  • 在Angular 5中不是一个函数(is not a function in Angular 5)
  • 如何配置Composite C1以将.m和桌面作为同一站点提供服务(How to configure Composite C1 to serve .m and desktop as the same site)
  • 不适用:悬停在悬停时:在元素之前[复制](Don't apply :hover when hovering on :before element [duplicate])
  • 常见的python rpc和cli接口(Common python rpc and cli interface)
  • Mysql DB单个字段匹配多个其他字段(Mysql DB single field matching to multiple other fields)
  • 产品页面上的Magento Up出售对齐问题(Magento Up sell alignment issue on the products page)