perl横竖转换
发布时间:2020-12-16 00:14:25 所属栏目:大数据 来源:网络整理
导读:#system 'cat 11.csv | perl -nale 'for (0 .. $#F) { $r[$_] .= $F[$_] . " " }; END { print for @r }' 11.txt';#system 'cat 12.csv | perl -nale 'for (0 .. $#F) { $r[$_] .= $F[$_] . " " }; END { print for @r }' 12.txt';#system 'cat 13.csv | per
#system 'cat 11.csv | perl -nale 'for (0 .. $#F) { $r[$_] .= $F[$_] . " " }; END { print for @r }' > 11.txt'; #system 'cat 12.csv | perl -nale 'for (0 .. $#F) { $r[$_] .= $F[$_] . " " }; END { print for @r }' > 12.txt'; #system 'cat 13.csv | perl -nale 'for (0 .. $#F) { $r[$_] .= $F[$_] . " " }; END { print for @r }' > 13.txt'; #system 'cat 14.csv | perl -nale 'for (0 .. $#F) { $r[$_] .= $F[$_] . " " }; END { print for @r }' > 14.txt'; #system 'cat 15.csv | perl -nale 'for (0 .. $#F) { $r[$_] .= $F[$_] . " " }; END { print for @r }' > 15.txt'; #system 'cat 16.csv | perl -nale 'for (0 .. $#F) { $r[$_] .= $F[$_] . " " }; END { print for @r }' > 16.txt'; open my $fh,"aaa.txt" or die $!; while (<$fh>) { chomp; my @F = split / /; for (0 .. $#F) { $r[$_] .= $F[$_] . " "; } } close $fh; open $fh2,">bbb.txt" or die $!; print $fh2 $_,"n" for @r; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |