perl中有awk之类的功能吗

tigersky2000

我的一个文件有三列

但是每列中的空格数不一样,如下
$cat a.txt
aaaaa____bbbbb____cccccc
aaa______bbb______cc
aaaaaa___bbbbb____cccc
aaaaa____b________c
aaaaaa___bbbbb____cccccc



如果用
split(/ /,$_);
应该不可以把所有空格去掉
而awk中

awk '{print $2}'就可以很容易的取出第二列，perl中有办法吗？

谢谢

麻辣

要是滤除全部空格

读取整个文件赋予一个大变量，
然后
$readfile=~s/ //g;

要是仅读第二行，用while

while <FILE>;{$i++;
if ($i==2){print $_,last;}
}

怒剑狂啸

$_="aaaaa____bbbbb____cccccc ";
$a=(split(/\s+/))[1];
print $a;

flw

[quote]原帖由 "怒剑狂啸"]nt $a;[/quote 发表：

楼上的签名太有意思了！

rayharris

原帖由 "麻辣" 发表：
要是滤除全部空格

读取整个文件赋予一个大变量，
然后
$readfile=~s/ //g;

要是仅读第二行，用while

while <FILE>;{$i++;
if ($i==2){print $_,last;}
}

把一个文件都放到一个变量里？要是文件大的话，够受的！！