使用Perl one-liner从文本文件中提取列：类似于Unix cut

Question

我正在使用Windows，我想使用Perl，Python，批处理等一行提取文本文件中的某些列。

在Unix上，我可以这样做：

cut -d " " -f 1-3 <my file>

我怎样才能在Windows上执行此操作？

Answer 1

这是一个Perl单行程序，用于打印文件的前3个空格分隔列。 这可以在Windows（或Unix）上运行。 参考perlrun 。

perl -ane "print qq(@F[0..2]\n)" file.txt

Answer 2

你可以下载GNU窗口并使用你的普通剪切/ awk等。或者原生，你可以使用vbscript

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
strFile = objArgs(0)
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfLine
    strLine=objFile.ReadLine
    sp = Split(strLine," ")
    s=""
    For i=0 To 2
        s=s&" "&sp(i)       
    Next
    WScript.Echo s
Loop

将上面保存为mysplit.vbs并在命令行中保存

c:\test> cscript //nologo mysplit.vbs file

或者只是简单的批次

@echo off
for /f "tokens=1,2,3 delims= " %%a in (file) do (echo %%a %%b %%c)

如果你想要一个Python一个班轮

c:\test> type file|python -c "import sys; print [' '.join(i.split()[:3]) for i in sys.stdin.readlines()]"

Answer 3

这是相当简单的Python脚本：

for line in open("my file"):
    parts = line.split(" ")
    print " ".join(parts[0:3])

Answer 4

最简单的方法是安装Cygwin并使用Unix cut命令。

Answer 5

如果您正在处理具有很长行的文本文件而您只对前3列感兴趣，那么自己分割固定次数将比使用-a选项快得多：

perl -ne "@F = split /\\s/, $_, 4; print qq(@F[0..2]\\n)" file.txt

而不是

perl -ane "print qq(@F[0..2]\\n)" file.txt

这是因为-a选项将在一行中的每个空格上拆分，这可能会导致大量额外拆分。