Tcl正则表达式在行尾不起作用
可能是由于以下几个原因：
- 行尾字符问题：Tcl正则表达式默认情况下将行尾字符视为换行符（\n），如果行尾字符不是换行符，正则表达式可能无法匹配到行尾。可以通过在正则表达式中使用$符号来匹配行尾，例如：
regexp {pattern$} string。 - 多行模式问题：Tcl正则表达式默认是单行模式，即将整个字符串作为一行进行匹配。如果需要匹配多行文本中的行尾，可以使用(?m)标志开启多行模式，例如：
regexp -inline -line {pattern$} $string。 - 转义字符问题：Tcl正则表达式中某些字符具有特殊含义，需要使用反斜杠进行转义。如果行尾字符本身包含特殊字符，可能需要对其进行转义才能正确匹配。例如，如果行尾字符是句号（.），正则表达式应为：
regexp {pattern\.$} string。 - 字符编码问题：如果行尾字符的编码与正则表达式的编码不一致，可能导致匹配失败。确保正则表达式和待匹配字符串的编码一致，或者使用合适的编码转换函数进行处理。
总结起来，要解决Tcl正则表达式在行尾不起作用的问题，可以尝试使用$符号匹配行尾，开启多行模式，转义特殊字符，以及确保字符编码一致。如果问题仍然存在，可能需要进一步检查代码逻辑或提供更多的上下文信息来进行排查。
关于Tcl正则表达式的更多信息和用法，您可以参考腾讯云提供的Tcl正则表达式相关文档和示例代码：Tcl正则表达式文档。
相关·内容
3回答
我想从字符串中删除最后一个子项。字符串的模式是：
str1.str2.strn-1.{i}.strn
所期望的结果是：
str1.str2.strn-1.{i}.
我试过使用shell echo $str |sed -e 's/\.*$//'，但它不起作用
做那件事最好的方法是什么？
浏览 4提问于2015-12-23得票数 1
我正在尝试读取一个包含两个变量的文件，用户名和密码，例如：user1,password1
如何将值分离并存储在不同的变量中？我已经尝试过了，但它似乎没有存储字符串本身。
它似乎看不到里面的逗号。另一个想法是使用\M来匹配每个字符串后的"，“，并存储该字符串，但它不起作用。
感谢你的帮助。
set varuser [lsearch -inline -all $userpass "*,"]
set varuser [regexp {,\s+"(.*)"} $userpass all value]
浏览 3提问于2017-02-23得票数 0
回答已采纳
我有这样一段话：
"Nothing is worth more than the truth.
I like to say hello to him.
Give me peach or give me liberty.
Please say hello to strangers.
I'ts ok to say Hello to strangers."
我想要的结果是：
"Nothing is worth more than the truth.
Give me peach or give me liberty."
如果一行使用"hello“一词，
浏览 8提问于2022-10-06得票数 0
我尝试了以下代码：
set exp {elem[0]}
set temp {elem[0]}
regsub $temp $exp "1" exp
if {$exp} {
puts "######### 111111111111111 ################"
} else {
puts "########### 0000000000000000 ############"
}
当然，这是最简单的regsub (单词完全匹配)，但它仍然不起作用，并且没有进行任何替换。如果我写elem而不是elem，一切都会正常工作。我
浏览 4提问于2010-09-07得票数 2
回答已采纳
2回答
我希望从TCL变量中获得一定数量的字符串，并在我的工具命令中使用它。示例：
${tcl_Var} -这包含类似于VEG_1/ABC的字符串
我希望grep从上面的字符串，直到它击中的点，它首先正斜杠，所以在上述情况下，它将是VEG__1，然后在我的命令中替换它。示例：
VEG_1/REST_命令。
浏览 1提问于2014-06-26得票数 1
2回答
我想要编写一个sed筛选器，它将输入中的所有句号更改为感叹号，除非句号在一行的末尾，在这种情况下，句号被替换为2个感叹号(即，!!)。
到目前为止，我得到的是：
sed -e 's/\./\!/g' -e 's/\!\n/\!\!\n/g' input_exp
其中input_exp是一个包含几个句子的文件。但是，该命令不起作用。在unix/bash中'\n‘不是正确的行尾字符吗？在'\n‘之前是否需要额外的'\’？
谢谢你的帮助。
浏览 0提问于2010-11-11得票数 1
回答已采纳
我正在尝试在Windows7上构建一个名为Slicer3的软件，它以“超级构建”为特色。它是一个用于签出和构建Slicer3的一体化TCL脚本。
我运行CYGWIN并导航到正确的目录，然后运行脚本并得到：
$ ./Slicer3-svn/Scripts/getbuildtest.tcl
couldn't read file "./Slicer3-svn/Scripts/getbuildtest.tcl": no such file or directory
显然，我确信该文件存在，并且我给了它777权限。我以管理员身份运行cygwin。
tcl文件内容的开头为：
#!/
浏览 0提问于2011-05-20得票数 2
回答已采纳
在TCL regex引擎中，回顾和查找概念有用吗？
我遇到了，我没有看到任何关于查找和查找的概念和例子，即使当我执行带有lookbehind和lookbehind概念的样例程序时，我也没有得到任何匹配的。
浏览 1提问于2014-01-30得票数 2
我的expect脚本非常简单，就像 #!/usr/bin/expect
set timeout 60
spawn docker run -it ubuntu:19.04
expect {
-re "root@[0-9]+:\/#"
}
send -- exit
expect eof 由于以下原因而失败 $ expect script.expect
spawn docker run -it ubuntu:19.04
invalid command name "0-9"
while executing
"0-9"
invoke
浏览 61提问于2019-09-29得票数 0
回答已采纳
在哪里可以找到这种方法的文档？
我只找到了这个搜索方法允许您搜索文本。您可以搜索完全匹配(默认)，或者使用Tcl样式的正则表达式(调用，并将regexp选项设置为true)。
“Tcl风格的正则表达式”是什么意思？
我也有一个关于我的代码的问题:为什么self._testo.tag_add("search", pos, "%s + %sc" (pos, countVar.get()))提前返回TypeError: 'str' object is not callable谢谢
def _trova(self):
t1 = tkinter.T
浏览 0提问于2019-05-13得票数 0
回答已采纳
问题是，我想在一行中显示符号后删除某些文本，然后继续并在下一行中执行相同的过程。 例如： Hello 1 | I want to Delete this 123
Hello 2 | I want to delete this 321 我想让它成为 Hello 1
Hello 2 已尝试“搜索：|.*，替换为空。”但它不起作用。
浏览 14提问于2019-06-19得票数 1
回答已采纳
1回答
我有一个关于TCL中"\“的问题
我看到如下的一段代码：
proc ::A::B {c \
d \
e \
f
}
参数列表中的"\“是什么意思？
有人能在这方面帮我吗？
浏览 10提问于2011-07-05得票数 7
回答已采纳
在google sheets中，我将4个单元格合并为1，然后将输入的单元格文本数据放入数组位置。当我调用该数组位置并尝试将其放入电子邮件正文中时，我在字符串的末尾得到了3个额外的逗号。 如何删除逗号或将数据合并为1项？ 合并后的单元格字符串文本位于第15位。当我将该数据放入电子邮件中时，它会显示: data is here， 我尝试了切片、连接和替换，但都不起作用。 var incidentsum = data[15];
var newincident = incidentsum.slice(0, incidentsum.length - 3);
var newincident = i
浏览 18提问于2020-07-05得票数 0
回答已采纳
1回答
我需要关于使用负面先行的帮助。我正在使用Notepad++，并且希望删除除包含<title>(.*)</title>的行之外的所有行
我试了几种方法，但都不起作用。
^.*(?!<title>).*</title>
^.*(?!<title>.*</title>)
浏览 0提问于2013-03-10得票数 20
回答已采纳
我试图为不同的python编码反模式进行grep，以便在构建过程中捕捉到它们。我有一个困难的时间利用grep来完成这场比赛的新线。
要搜索的反模式：
except:
pass
下面的patten在Intellij中工作得很好，但在使用grep时不起作用。
except:\s+pass
请推荐如何实现这一目标。
浏览 0提问于2020-02-12得票数 1
1回答
我正在尝试使用不同类型的网络设备，但我不能使用更复杂的正则表达式。
对于思科设备，我有：
expect {"*>"}
*工作正常
但是对于Fortinet设备，我想这样做
expect {"^[a-zA-Z0-9_.-\s]+[#]"}
但它不起作用。我检查了一个REGEX“检查器”，以确保表达式是正确的，并且它似乎可以工作。所以基本上，我想过滤掉以"NAME_OF_DEVICE #“开头的行，因为当您第一次连接Fortinet shell时，它就是这样的
你知道为什么它不能工作吗？
浏览 6提问于2018-06-25得票数 0
我正在尝试将以下格式的YYYYDDMMHHmm的日期/时间转换为自Tcl中的纪元以来的秒。
我尝试过这样做，但它不起作用：
clock scan 201403251850 -format %Y%m%d%H%M
对于上述情况，我正在尝试将6:50PM on March 25th, 2014转换为自epoc以来的秒数。
我怎样才能做到这一点？
克里斯
浏览 0提问于2014-03-25得票数 0
回答已采纳
1回答
我有一个搜索字符串.state_s[0]和另外两个字符串列表：
{cache.state_s[0]} {cache.state_s[1]}
和
{cache.state_s[0]a} {cache.state_s[1]}
我需要命令Tcl解释器接受询问搜索字符串是否匹配字符串列表中的任何项。同样重要的是，解决方案应该只返回第一个列表的正结果。我试过：
set pattern {.state_s[0]}
set escaped_pattern [string map {* \\* ? \\? [ \\[ ] \\] \\ \\\\} $pattern]
set m1 {{cache.state_
浏览 0提问于2018-01-11得票数 0
回答已采纳
1回答
在tkinter text widget中，如何搜索一个完整的单词。我尝试使用以下语法，但它与任何内容都不匹配，尽管这个单词已经存在：
index = self.text.search(r'\b%s\b' % myWord, INSERT, backwards=True, regexp=True)
有什么暗示吗？
浏览 4提问于2014-02-18得票数 3
回答已采纳
1回答
我试图编写一个正则表达式，测试一个变量是否以TCL中的字符串字符开头，我编写了以下代码，但它不起作用
if {[regexp {^\"\{.*} $data]} {puts "something" }
* TCL中的字符串字符以{或“
浏览 3提问于2016-03-07得票数 0
回答已采纳
我肯定我在做一些很愚蠢的事情，但似乎无法弄明白这件简单的事情。我在浏览器扩展中使用本机消息传递API将JSON字符串传递给Tcl脚本。我使用uint32_t在C中工作，但无法获得32位无符号整数，该整数以Tcl中读取的消息为前缀。我知道它正在读取一些东西，因为我将$len写到文件中，而且我很确定它会坐着等待过程coread读取比消息中的字节更多的字节。除了Iu命令中的nu之外，我还尝试了binary scan和binary scan。你能告诉我我做错了什么吗？
信息是否包含多字节字符(如希伯来语和希腊语)是否重要？
稍后添加:我很确定这是多字节字符，因为代码在包含它们之前都能工作。但这是为什么
浏览 7提问于2022-08-31得票数 0
回答已采纳
1回答
我正在使用PHP，并且我正在尝试删除字符串末尾和开头的所有下划线字符。
字符串如下：____a_b_c__________
我希望结果是：a_b_c
我尝试过这个正则表达式，但它不起作用：
preg_replace('/[^a-z]+\Z/i', '', '____a_b_c__________');
浏览 0提问于2018-04-09得票数 0
2回答
我试图验证变量的格式是一个数字，并且在expect脚本中有至少10位长的前导零。
在bash脚本中，它看起来如下所示：
[[ "$var" != +([0-9]) ]] && echo "bad input" && exit
while [[ $(echo -n ${var} | wc -c) -lt 10 ]] ; do var="0${var}" ; done
用于下列投入：
16
我正在努力实现以下成果：
0000000016
浏览 4提问于2012-06-08得票数 1
回答已采纳
我正在尝试匹配配置中以单词"deny“开头但不以单词"log”结尾的行。这似乎非常初级，但我在我看过的众多论坛中找不到我的解决方案。我的初学者心态让我尝试"^deny.* (?!log$)“，为什么这个不起作用？我的理解是，它会找到任何以"deny“开头的字符串，后跟任何0位或更多位的字符，行尾不是log。
浏览 2提问于2013-02-26得票数 1
1回答
我想要重定向从
page.php?letter=A&num=2
发送到以下地址：
/static/A/2
我尝试使用以下正则表达式：
Options +FollowSymlinks
RewriteEngine On
RewriteCond %{QUERY_STRING} ^letter=([a-zA-Z]+$)&num=([0-9]+$) [NC]
RewriteRule ^page.php static/%1/%2? [NC,R=301,L]
但它不起作用。在我看来，第一个表达式([a-zA-Z]+$)“捕捉”了&num=...在URL中也是如此，这就是为什么它
浏览 0提问于2010-11-21得票数 1
回答已采纳
2回答
grep字符后面不跟字符
、、、
我正在尝试打印文件中没有e跟在b后面的行。我试着使用负面预测，但它不起作用。
grep 'b(?!e)' filename
grep '(?!e)b)' filename
egrep 'b(?!e)' f3.txt
当我运行这些命令时，没有显示任何东西，没有错误或其他任何东西。我也查看了其他人的类似帖子，但无法运行。
浏览 5提问于2016-04-22得票数 12
4回答
我有一个包含字符串行的文本文件。它使用'$@‘符号分隔字符串。(xxxx $@ yyyy $@ zzzz)
我想把这些绳子分开。所以我试着遵循以下代码
String string = "xxx $@ yyyy $@ zzzz";
String[] parts = string.split("$@");
但不起作用。
我创建测试项目和pus的任何方式--“$@”的insted和它的工作原理都很好。
那我怎么才能把那些字符串分开呢？有什么建议吗？
浏览 4提问于2014-09-28得票数 0
回答已采纳
在HTML页面中有这样一行代码：
<p><strong>State:</strong> <a href="/state/show/Ohio">Ohio</a></p>
我正在寻找的是一个正则表达式，它获得之间的<strong>State:</strong>和下线的内容。
我试过了，但它不起作用，因为它忽略了</a></p>-"end"
preg_match('/<strong>State:(.*)<\/a><
浏览 0提问于2013-06-08得票数 1
我花了很长时间努力寻找，但只能找到一个简短的解释，那就是$@扩展了一些东西。
谁能给我解释一下，或者给我提供一个链接，详细解释"$@"作为第二个参数的用途
tclsh "$0" "$@"
此外，我正在查看某人的脚本，他们有以下内容：
exec tclsh `basename $0` $*
在这种情况下，$*做了什么？
非常感谢。
浏览 1提问于2012-08-02得票数 2
回答已采纳
1回答
我想测试一个字段在响应中返回的小数位数是否等于5。不确定使用正则表达式是否是最好的解决方案，但到目前为止，我有一个似乎不起作用的解决方案： pm.test("Check number of decimal place of my_variable field"), () => {
_.each(jsonData, (results) => {
if results.my_variable !== null){
pm.expect(results.my_variable).to.match(/\d{1}.\d{5}/)
浏览 14提问于2020-06-20得票数 2
1回答
一段时间以来，我一直使用语法突出显示来匹配前面选项卡后面的空格字符。
autocmd Syntax * highlight LeadingSpaces guibg=#afd7af ctermbg=Black
autocmd Syntax * syntax match LeadingSpaces /^\t\+\zs \+/
问题是，它并不总是起作用。例如，在块内注释中，突出显示不起作用：
test // the extra space before "test" gets highlighted
/**
* test // here the extra spaces
浏览 2提问于2014-07-06得票数 1
回答已采纳
我需要TCL解释器执行的脚本的路径。我使用了"info script“，但它返回空字符串！我也尝试过使用shell命令，但它们在tcl解释器程序中根本不起作用，原因我还不清楚。我正尝试在Intel Quartus Prime Standard中的"System Console“中执行此操作。
有什么替代方案吗？我正在使用GUI，并从选择"Execute Script“命令后出现的窗口中选择脚本。
浏览 2提问于2021-05-10得票数 0
1回答
我想把一行从几行变成一行：
$text = 'One line
Two line';
我尝试过替换，但它不起作用：
$text = str_replace('
', '; ', $text );
我想让字符串变成：
$text = 'One line; Two line';
浏览 1提问于2019-10-07得票数 0
典型的用例是正则表达式需要包含用户输入。在正则表达式中具有特殊含义的字符(即Perl中的“脏打”)需要进行转义。Perl提供了"quotemeta“功能来实现这一点:简单地将插值变量封装在\Q和\E中。但是Tcl没有提供这样的功能(根据的说法，即使使用ARE也是如此)。
在Tcl中有没有好的(严格的) quotemeta实现？
浏览 0提问于2012-07-12得票数 2
回答已采纳
1回答
我有一个文件列表：File_2011_1.txt，File_2011_2.txt，File_2011_3.txt ... File_2011_100.txt；我想在所有文件名中将2011更新到2012。
以下代码不起作用：
for FILES in `ls`; do NEWNAME=`echo ${FILES} | sed -e 's/*2011*/*2012*/'`; echo ${FILES} ${NEWNAME}; done;
但这确实是：
for FILES in `ls`; do NEWNAME=`echo ${FILES} | sed -e 's/File_
浏览 2提问于2012-05-02得票数 0
回答已采纳
1回答
我有一个模板，我想转换成一个tex文件。例如，每一章和每一节都包含一个点和一个字母，我想用反斜杠和字母替换它。我知道我可以尝试使用regsub，但是我真的想用字符串映射来尝试它，下面是不起作用的代码：
set main \
{
.chapter{Assignment 1}
.section{1a}
}
set main [string map {.({^[A-Za-z]+$})\1 \\\1} $main]
这样做会更容易：
set main [string map {.c \\c} $main]
set main [string map {.s \\s} $main]
但是，我只想试着使用{
浏览 9提问于2014-09-17得票数 0
回答已采纳
我在简单正则表达式上遇到了问题，我写道：
std::regex reg = std::regex("(.*)[a-zA-Z]+(.*)");
它在一个简单的程序中工作，像这样：
#include <regex>
#include <exception>
#include <iostream>
int main(int argc, char *argv[])
{
std::regex reg = std::regex("(.*)[a-zA-Z]+(.*)");
std::string s("string
浏览 2提问于2014-09-07得票数 1
回答已采纳
JavaScript中第一个字符的正则表达式不能是空格
我用了这个，但它不起作用
/^[a-zA-Z0-9]+(\s{0,1}[a-zA-Z0-9])*$/
浏览 2提问于2014-12-12得票数 2
使用以下RegEx模式： (?<comment>(^#{2} [^\r\n]+[\s]+)*)(?:^\[(?:(?<hive>HK(?:LM|[DP]D|C[CUR]|U(SERS|SER|SR|S)))[:])?(?<name>[a-z0-9$][a-z0-9-_]{2,63})\])(?<items>[\S\s]*?)(?=\n{2,}) 正在解析以下文本： [HKLM:Connection]
AuthKey = 0x8a79b42z67fct29b42e07b3fd78nc540
Url = https://dev.some
浏览 10提问于2019-03-31得票数 1
回答已采纳
嗯，我对tcl的经验不多，但是今天我在编写几个测试用例时，编者突然不停地说， '}'和我必须至少通过50到60对支撑对来确保所有的错误都是正确的。在花费了大约1.5个小时的时间后，我发现我忘记用'}'来结束我的评论了，所以下面是我的评论中的代码
#test XmlDAOTest-1.15 {Test XmlDAO - method - 'ProcessCDATASectionNode'\
因此，如果您看到，我已经注释了这一行，并且没有用'}‘来关闭它，因为注释不应该被编译并检查语法，只有在编译器给我结果之后添加了'}’之后。我使用
浏览 5提问于2012-09-21得票数 1
回答已采纳
3回答
避开美元符号
、、
我在my.cnf文件中有一行
datadir = /var/lib/mysql
下面的代码按预期将其更改为mysql3307。
sed -i 's/\/var\/lib\/mysql$/\/var\/lib\/mysql3307/' /etc/my.cnf
但如果我有以下内容：
datadir = /var/lib/mysql/
则以下代码不会按预期更改路径：
sed -i 's/\/var\/lib\/mysql\/$/\/var\/lib\/mysql3307/' /etc/my.cnf
我希望将路径更改为mysql3307，其中datadir为/var/l
浏览 0提问于2011-06-23得票数 3
回答已采纳
现在，我的$arg返回一个货币值。例如:65.88美元
现在我试着去掉美元符号，因为我想对它做一些计算。变量。以下内容不起作用。它仍然返回一个前面带有$符号的值。
regsub -all {$} $arg {} arg
浏览 0提问于2012-04-18得票数 0
回答已采纳
BASH和TCL的正则表达式(REs)是否相同？
我能把同样的BASH放在TCL的regexp函数中吗?它会给我同样的结果吗？
谢谢
浏览 3提问于2015-11-26得票数 0
回答已采纳
accent {a1} {Z} {f[1]}
accent {a2} {C} {f[2]}
module c2
accent {a3} {Z} {f[3]}
accent {a4} {C} {f[4]}
我想要操作这个输入文件并获得输出文件fO，如下所示：
accord [get_nets c1/f[1]] [get_pins c1/a1/Z]
accord [get_nets c1/f[2]] [get_pins c1/a2/C]
accord [get_nets c2/f[3]] [get_pins c2/a3/Z]
accord
浏览 2提问于2015-07-22得票数 0
我正在尝试为vera++静态分析器编写一条规则。因为我在这里没有找到vera++的组，而vera++使用TCL来实现它的分析规则，所以我把它发布到了TCL论坛上。我曾经在TCL的灵感网站上工作过，但由于我对vera++了解不多，所以我想要一些建议，以便进一步了解。
因为我是TCL编程的初学者，但想知道TCL程序如何列出C++源代码文件中的所有局部变量？我的意思是什么方法以及如何实现？
我面临的问题是，在解析C++源代码文件以检测局部变量声明时？
浏览 4提问于2012-10-30得票数 3
回答已采纳
在安装Wordnet时，我会得到以下错误；
stubs.c:132:14:错误：“Tcl_Interp”没有名为“结果”的成员
我试着给出以下内容；
#define USE_INTERP_RESULT 1
在Wordnet的"config.c“文件末尾。那就不起作用了。帮帮忙吧。
浏览 0提问于2013-11-07得票数 7
我有以下最小的例子，它在本地服务器(WAMP，PHP 7.3.7)和安装了PHP 7.3.27的生产服务器上表现不同。在本地服务器上的结果在我看来是错误的，因为lazy修饰符被忽略了。这个结果也与我尝试过的所有正则表达式测试器相冲突。
示例代码：
<?php
header('Content-Type: text/plain; charset=utf-8');
$input = <<<EOT
John Smith
John Smith (123)
John Smith (123) (456)
EOT;
preg_match_all('/(.+
浏览 5提问于2021-05-04得票数 1
2回答
我有以下不同的文本
line1: SELECT column1,
line2: column2,
line3: RTRIM(LTRIM(blah1)) || ' ' || RTRIM(LTRIM(blah3)),
line4: RTRIM(LTRIM(blah3)) || ' ' || RTRIM(LTRIM(some1)) outColumn,
line5: RTRIM(LTRIM(blah3)) || ' ' || RTRIM(LTRIM(some1)) something,
line6: somelast
下面是我想要从每一行中得到的东西，
浏览 0提问于2009-10-09得票数 0
回答已采纳
2回答
我有一个以tcl脚本作为参数的应用程序。我想在应用程序处理tcl脚本时对其进行调试。
我的开发环境由和组成。我可以使用这个设置来调试各个tcl脚本。
我在eclipse中创建了一个tcl项目，添加了'startup.tcl‘和'argumentScript.tcl’脚本，并在启动脚本中添加了以下命令。
set ExecutableName "xyz.exe"
set returnValue [catch {eval exec $ExecutableName "argumentScript.tcl" } result]
我的调试器使用's
浏览 3提问于2010-04-20得票数 2
2回答
我试图找到一种方法来排除那些包含我的正则表达式但不是我使用search小部件对象的Text方法的正则表达式的单词。例如，假设我有这个正则表达式"(if)|(def)"，而像define、definition或elif这样的单词都是由re.search函数找到的，但是我想要一个正则表达式，它只找到if和def。
这是我正在使用的代码：
import keyword
PY_KEYS = keyword.kwlist
PY_PATTERN = "^(" + ")|(".join(PY_KEYS) + ")$"
但是它仍然在用像defi
浏览 0提问于2014-12-20得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
