主页 / user-97255

Greenonline's questions

Martin Hope
Greenonline
Asked: 2023-12-29 07:50:45 +0800 CST
  • 7

我试图从Taipan 的 BASIC 列表中提取所有字符串（按照它们出现的顺序）。但是，我还希望定界"（在字符串的开头和结尾）也出现在输出中，因为某些字符串末尾有空格，我需要能够“看到”它们并对它们进行计数（并且具有最后"会缓解这个问题）。

更复杂的是，我在 macOS 上运行，因此一些 grep 参数将与 GNUgrep 不同。

示例行（包含两个字符串）是

1270 VTAB 19:PRINT " WE'VE CAPTURED A BIGGER SHIP!" : GOSUB 760:VTAB 19:PRINT " WE'RE TRANSFERRING TO IT NOW.": GOSUB 780:G = G + INT ( RND (1) * (G + 1)) + 1:E = SH + INT ( RND (1) * (SH + 150)) + 1: SH = SH + E:MW = MW + E:P=0

我需要的输出是

...
" WE'VE CAPTURED A BIGGER SHIP!"
" WE'RE TRANSFERRING TO IT NOW."
...

我设法只得到包含"using 1的行

grep -o '".*"'

但这是一个贪婪的 grep，我在一行中得到两个或多个字符串，并且在字符串之间也捕获非字符串命令，而不是在不同的行上输出多语句行中的各个字符串，如下所示

" WE'VE CAPTURED A BIGGER SHIP!" : GOSUB 760:PRINT TAB(0,18) " WE'RE TRANSFERRING TO IT NOW."

这显然不是我想要的。

以下非贪婪grep似乎无法正常工作，并在输出中减少了行数（出于某种原因）2，可能是因为grep在 macOS 上没有该-P选项。

grep -oP '".*?"'

无论如何，继续 的输出grep -o '".*"'，如果我将其输入awk并查找偶数字段3

grep -o '".*"' TAIPAN_BAS.txt | awk -F\" '{print $2}'
grep -o '".*"' TAIPAN_BAS.txt | awk -F\" '{print $4}'
grep -o '".*"' TAIPAN_BAS.txt | awk -F\" '{print $6}'

我将得到更多或更少的结果，除了多语句行上的第二个（或第三个或后续）字符串仅在列出所有第一次出现的字符串后才会输出。

例如，使用它作为输入

1270 VTAB 19:PRINT " WE'VE CAPTURED A BIGGER SHIP!" : GOSUB 760:VTAB 19:PRINT " WE'RE TRANSFERRING TO IT NOW.": GOSUB 780:G = G + INT ( RND (1) * (G + 1)) + 1:E = SH + INT ( RND (1) * (SH + 150)) + 1: SH = SH + E:MW = MW + E:P=0
1280 IF SR < .1 THEN 1300 
1281 IF P > 0 THEN 1050 
1285 REM ARRIVAL (1290)
1290 CR = 0: SR = 1:L=PO:V(L) = V(L) + 1: B=0:K=0:GOSUB 160:HOME:PRINT:INVERSE:PRINT A$;: NORMAL: PRINT " ARRIVING "; L$(L);" AFTER": PRINT " A VOYAGE OF ";ET;" DAYS.": INVERSE:PRINT A$:NORMAL: GOSUB 780: HOME:GOTO 120

将“批量”输出第n个字符串：

<first command output>
 WE'VE CAPTURED A BIGGER SHIP!
 ARRIVING 
<second command output>
 WE'RE TRANSFERRING TO IT NOW.
 AFTER
<third command output>
 A VOYAGE OF

而如果像这样排序，输出会更好

 WE'VE CAPTURED A BIGGER SHIP!
 WE'RE TRANSFERRING TO IT NOW.
 ARRIVING 
 AFTER
 A VOYAGE OF

然而，即使有了这个“更理想”的输出，仍然存在两个问题：

  • 最后一个字符串 ( " DAYS.") 丢失 - 我需要一个额外的命令来获取第八个字段，如下所示

    grep -o '".*"' TAIPAN_BAS.txt | awk -F\" '{print $8}'

  • 双引号也丢失了。

这就是我想看到的（带有：双引号；所有字符串，以及；按出现的顺序）：

" WE'VE CAPTURED A BIGGER SHIP!"
" WE'RE TRANSFERRING TO IT NOW."
" ARRIVING "
" AFTER"
" A VOYAGE OF "
" DAYS."

注意：除了撇号之外，所有字符串中都不包含引号（单引号或双引号）。

我的问题是：

  • 如何在多语句行上查找所有偶数字段，而不必为每个字段发出单独的命令- 是否没有一种编程方式来表达等？{print $2 $4 $6 ...}awk
  • 如何将第二个和第三个字符串拼接到文件中，以便它们按顺序出现，而不是批量出现（所有第一个字符串出现、所有第二个字符串出现、第三个字符串出现等）

    • 我试过这个

      grep -o '".*"' TAIPAN_BAS.txt | awk -F\" '{printf $2,"\\n"$4"\\n"$6}'

      但所有内容都在一行上输出，仅输出第一个字符串实例，并且换行符 ( \\n) 似乎被忽略。

  • 如何停止awk删除字段分隔符（即"）？

我再次使用 macOS，因此 GNU 解决方案可能没有帮助。另外，我愿意使用sed或其他东西（我已经尝试过，cut但tr他们只是删除了"并留下了代码负载）。

1从这个答案到如何从命令的输出中提取带引号的字符串的内容？

2重新检查后，它只给我“使用”消息。

3从这个答案中提取双引号之间的字符串。

text-processing