第三列反向文本

我已经将SQL数据导出为Tab separted或逗号分隔格式的文本。第三列反向文本

2  AX  Mariehamn  Mariehamn  ACTIVE 2011-03-15 17:23:12  2011-03-15 17:23:12  SYSTEM Al-Ma 
4  DZ  Adrar Adrar ACTIVE 2011-03-15 17:23:12  2011-03-15 17:23:12  SYSTEM Al-Ad 
6  DZ  Ain Defla  Ain Defla  ACTIVE 2011-03-15 17:23:12  2011-03-15 17:23:12  SYSTEM Al-Ai 
8  DZ  Ain Temchent Ain Temchent ACTIVE 2011-03-15 17:23:12  2011-03-15 17:23:12  SYSTEM Al-Ai 
10  DZ  Shantanu Shantanu ACTIVE 2011-03-15 17:23:12  2011-03-15 17:23:12  SYSTEM Al-Al 

2,"AX","Mariehamn","Mariehamn","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ma" 
4,"DZ","Adrar","Adrar","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ad" 
6,"DZ","Ain Defla","Ain Defla","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ai" 
8,"DZ","Ain Temchent","Ain Temchent","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ai" 
10,"DZ","Shantanu","Shantanu","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Al"

我需要如下所示颠倒第三列中的文本，同时保持其他列不变。

nmaheiraM 
rardA 
alfeD niA 
tnehcmeT niA 
unatnahS

可以使用上述任何一种（TAB或CSV）格式。

来源

2011-03-17 shantanuo

您可以使用AWK。对于CSV，

$ awk -F"," '{for(i=length($3);i>=1;i--){s=s substr($3,i,1)};$3=s;s=""}1' OFS="," file 
2,"AX","nmaheiraM","Mariehamn","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ma" 
4,"DZ","rardA","Adrar","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ad" 
6,"DZ","alfeD niA","Ain Defla","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ai" 
8,"DZ","tnehcmeT niA","Ain Temchent","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ai" 
10,"DZ","unatnahS","Shantanu","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Al"

，或者如果你有红宝石（1.9+）

$ ruby -i.bak -F"," -nae '$F[2].reverse! if $F[2];print $F.join(",")' file

更新：如果你想保存文件，在AWK只是重定向到一个临时文件

如

awk -F"," '{for(i=length($3);i>=1;i--){s=s substr($3,i,1)};$3=s;s=""}1' OFS="," file > temp && mv temp file

顺便提一句，在sed，其-i来保存文件 “就地”

来源

2011-03-17 08:44:48 kurumi

谢谢。在sed中＃我可以使用-e替换文件。 awk中可能有类似的东西吗？或者我必须保存> to.file，然后将文件移回？ – shantanuo 2011-03-17 09:08:52

'perl -i.bak -F，-lape'$ F [2] = reverse $ F [2]; $ _ =加入“，”，@F'文件' – ikegami 2011-03-17 13:53:48

@ikegami，请将您的Perl解决方案作为您自己的答案。 – kurumi 2011-03-17 14:54:02

我可以建议


perl -pe "@_=split ',',$_;$_[2]=scalar reverse $_[2];$_=join ',',@_;" <1.csv >2.csv

它大概也可以使用awk做的，但我从来没有使用过它。

更新：对不起，它在cmd中工作，我没有检查bash。对于bash它应该是这样的：

perl -aF/,/ -pe "\$F[2]=scalar reverse \$F[2];\$_=join ',',@F;" <1.csv

来源

2011-03-17 08:03:26 Shelwien

＃语法错误##执行-e因编译错误而中止。 – shantanuo 2011-03-17 08:11:15

使用perl的'-a'和'-F'选项为你分割（数组'@ F'） - http://perldoc.perl.org/perlrun.html#Command-Switches – 2011-03-17 10:43:45

没有必要用<重定向输入。只需将文件名作为参数传递给perl即可。一般来说，这是一个更好的做法，因为它可以让perl访问文件名。 – 2011-03-17 13:46:18

看到Text::CSV - 逗号分隔值操盘一样，

use strict; 
use warnings; 
use Text::CSV; 
use Data::Dumper; 
my @mydata; 
my $csv = Text::CSV->new ({ binary => 1 }) # should set binary attribute. 
       or die "Cannot use CSV: ".Text::CSV->error_diag(); 
open my $fh, "<:encoding(utf8)", "test.csv" or die "test.csv: $!"; 
while (my $row = $csv->getline($fh)) { 
my $data = reverse($row->[2]); 
push(@mydata, $data); 
} 
print Dumper(\@mydata); 
$csv->eof or $csv->error_diag(); 
close $fh;

输出：

$VAR1 = [ 
      'nmaheiraM', 
      'rardA', 
      'alfeD niA', 
      'tnehcmeT niA', 
      'unatnahS' 
     ];

来源

2011-03-17 08:42:49

处理与逗号或制表符的文件，你可以尝试：

#!/usr/bin/perl 
use Modern::Perl; 
use Data::Dumper; 

my @rows; 
while(<DATA>) { 
    chomp; 
    my ($delim) = $_ =~ /(,|\t)/; 
    my @fields = split/,|\t/; 
    $fields[2] = reverse $fields[2]; 
    push @rows, join $delim, @fields; 
} 
say Dumper \@rows; 


__DATA__ 
2 AX Mariehamn Mariehamn ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Ma 
4 DZ Adrar Adrar ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Ad 
6 DZ Ain Defla Ain Defla ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Ai 
8 DZ Ain Temchent Ain Temchen ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Ai 
10 DZ Shantanu Shantanu ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Al 

2,"AX","Mariehamn","Mariehamn","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ma" 
4,"DZ","Adrar","Adrar","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ad" 
6,"DZ","Ain Defla","Ain Defla","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ai" 
8,"DZ","Ain Temchent","Ain Temchent","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ai" 
10,"DZ","Shantanu","Shantanu","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Al"

输出：在-e 1号线，靠近 “TXT [”

$VAR1 = [ 
      '2 AX nmaheiraM Mariehamn ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Ma', 
      '4 DZ rardA Adrar ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Ad', 
      '6 DZ alfeD niA Ain Defla ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Ai', 
      '8 DZ tnehcmeT niA Ain Temchen ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Ai', 
      '10 DZ unatnahS Shantanu ACTIVE 2011-03-15 17:23:12 2011-03-15 17:23:12 SYSTEM Al-Al', 
      '', 
      '2,"AX","nmaheiraM","Mariehamn","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ma"', 
      '4,"DZ","rardA","Adrar","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ad"', 
      '6,"DZ","alfeD niA","Ain Defla","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ai"', 
      '8,"DZ","tnehcmeT niA","Ain Temchent","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Ai"', 
      '10,"DZ","unatnahS","Shantanu","ACTIVE","2011-03-15 17:23:12","2011-03-15 17:23:12","SYSTEM","Al-Al"' 
     ];

来源

2011-03-17 09:32:01 Toto

第三列反向文本

回答

相关问题