当前位置: 技术问答>linux和unix
急，这个脚本怎么写？
来源: 互联网 发布时间：2015-07-30
本文导语: 现在有一批文件都是一样格式，用逗号作分隔符，如file1 里面的第一行是a,b,c file2 里面第一行是e,fff,ggg 我现在想得到这么一份列表，就是每个文件的文件名和对应的文件中的第一行的第三列值，也就是 file1,c file...
现在有一批文件都是一样格式，用逗号作分隔符，如file1 里面的第一行是a,b,c file2 里面第一行是e,fff,ggg
我现在想得到这么一份列表，就是每个文件的文件名和对应的文件中的第一行的第三列值，也就是
file1,c
file2,ggg
请问如何写这个脚本，偶不是高手，越简单越好！是不是awk可以实现啊？
我现在想得到这么一份列表，就是每个文件的文件名和对应的文件中的第一行的第三列值，也就是
file1,c
file2,ggg
请问如何写这个脚本，偶不是高手，越简单越好！是不是awk可以实现啊？
|
#!/usr/bin/perl -w
foreach my $file (@ARGV)
{
open ( FILE, $file ) or die( "can't open file $file." );
binmode( FILE );
while( )
{
chomp;
if( $_ =~ /([^,]+),([^,]+),([^,]+)/ )
{
print "$file,$3n";
}
else
{
print "$file error formatn";
}
}
close( FILE );
}
foreach my $file (@ARGV)
{
open ( FILE, $file ) or die( "can't open file $file." );
binmode( FILE );
while( )
{
chomp;
if( $_ =~ /([^,]+),([^,]+),([^,]+)/ )
{
print "$file,$3n";
}
else
{
print "$file error formatn";
}
}
close( FILE );
}
您可能感兴趣的文章:
本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术，将尽最大努力为读者提供更好的信息聚合和浏览方式。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。