- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我编写了一个脚本来解析一个输入文本文件并输出三个新的文本文件。输入文件有一个标题行,三个输出文件中的每一个都省略了该标题行。输出文件的每一行获取每个输入文件行的前三个条目,然后仅获取输入行中的一部分条目。所有文件都是制表符分隔的。
我的问题是我在输出行的末尾不断得到一个额外的空白。在 VIM 中查看时,我可以在输出文件的行尾看到这个空白。在 Excel 中查看时,我看不到这些额外的空格。
以前,使用我的脚本的早期版本,我可以使用 excel 在行尾看到额外的空白,但只能使用“全选”功能。 excel 中显示的数据是我的 perl 脚本打印一个数组的结果,我在其中编码了 print $outfile "@array"
.我在 stackoverflow 的其他地方了解到输入 print "@array"
导致一种在我的行中添加空格的插值。此插值产生的空白在 Excel 中不会立即可见,但在使用“全选”突出显示数据时可以看到。因此,我将代码从 print $outfile "@array"
更改为至print $outfile @array
.此更改导致输出文件在每个输出行的末尾仍保留一个空格,该空格在 VIM 中可见但在 excel 中不可见。这就是我卡住的地方。
下面是我的脚本。第一部分只是打开并读取输入文件。然后声明一些数组。接下来,一个for loop
开始逐行解析输入文件,并将适当的内容推送到适当的数组中。对一个数组进行替换。同样,所有文件都是制表符分隔的。最后,将数组打印到三个输出文件,使用措辞 print $outfile @array
而不是 print $outfile "@array"
.
你看到问题了吗?谢谢!
#!/usr/bin/perl
use strict; use warnings;
die "usage: [ imputed genotype.file ]\n" unless @ARGV == 1;
my $imputed = $ARGV[ 0 ];
open ( my $FILE, "<$imputed" );
my @data = <$FILE>;
my @ADD = ();
my @DOM = ();
my @IMP = ();
for ( my $i = 1; $i < scalar @data; $i++ ) ### for each line data[i], and use $i = 1 to
### skip header, 0 to include it output
{
my $line = $data[ $i ];
chomp $line;
my @entries = split( '\t', $data[ $i ] );
push( @ADD, "$entries[ 0 ]\t$entries[ 1 ]\t$entries[ 2 ]\t" );
push( @DOM, "$entries[ 0 ]\t$entries[ 1 ]\t$entries[ 2 ]\t" );
push( @IMP, "$entries[ 0 ]\t$entries[ 1 ]\t$entries[ 2 ]\t" );
for ( my $i = 3; $i < scalar @entries - 1 ; $i+=3 ) ### for each entry per line
{
push( @ADD, "$entries[ $i ]\t" );
push( @DOM, "$entries[ $i + 1 ]\t" );
if ( $entries[ $i + 2 ] eq 'NA' ) ### to replace any occuring "NA"s with blanks
{
$entries[ $i + 2 ] =~ s/NA//;
}
push( @IMP, "$entries[ $i + 2 ]\t" );
}
push( @ADD, "\n" );
push( @DOM, "\n" );
push( @IMP, "\n" );
} ### for loop
open my $Afile, ">$imputed" . "_ADD.txt" or die $!;
print $Afile @ADD;
close $Afile;
open my $Dfile, ">$imputed" . "_DOM.txt" or die $!;
print $Dfile @DOM;
close $Dfile;
open my $Ifile, ">$imputed" . "_IMP.txt" or die $!;
print $Ifile @IMP;
close $Ifile;
最佳答案
您在数组元素末尾使用\t 的问题。使用功能
join( "\t", ...)
print join "\t", @output;
#!/usr/bin/perl
use strict; use warnings;
die "usage: [ imputed genotype.file ]\n" unless @ARGV == 1;
open my $Afile, ">$imputed" . "_ADD.txt" or die $!;
open my $Dfile, ">$imputed" . "_DOM.txt" or die $!;
open my $Ifile, ">$imputed" . "_IMP.txt" or die $!;
<>; #skip header
while(<>){
chomp;
my @entries = split( '\t', $_ );
my @ADD = ();
my @DOM = ();
my @IMP = ();
push( @ADD, $entries[ 0 ], $entries[ 1 ], $entries[ 2 ]);
push( @DOM, $entries[ 0 ], $entries[ 1 ], $entries[ 2 ]);
push( @IMP, $entries[ 0 ], $entries[ 1 ], $entries[ 2 ]);
for ( my $i = 3; $i < scalar @entries - 1 ; $i+=3 ) { ### for each entry per line
push( @ADD, $entries[ $i ] );
push( @DOM, $entries[ $i + 1 ] );
$entries[ $i + 2 ] =~ s/^NA$//;
push( @IMP, $entries[ $i + 2 ] );
}
print $Afile join( "\t", @ADD) , "\n";
print $Dfile join( "\t", @DOM) , "\n";
print $Ifile join( "\t", @IMP) , "\n";
} ### for loop
close $Afile;
close $Dfile;
close $Ifile;
关于perl - 打印数组后不需要的空格。我正在使用 perl,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13996768/
有没有更好的方法用 PHP 将数据输出到 html 页面? 如果我想在 php 中用一些 var 制作一个 div,我会写类似的东西 print (''.$var.''); 或 echo "''.$v
我可以使用 java awt print 来打印文档/文件而不是使用 javax print 吗?我发现在 java awt print 中有一个选项可以使用 AttributedString 将内容
目前我通过以下方式运行 R 脚本: R --slave argument1 argument2 ... 我想知道 R 中关于如何退出脚本并发出警告的最佳实践,q() 会这样做吗? if(!file.
谁能告诉我如何编写一个程序,用 gcc 编译时打印 c ,用 g++ 编译时打印 c++? 最佳答案 #ifdef __cplusplus printf("c++\n"); #else
我需要支持在 KitKat 设备上打印,但我的目标 SDK 是 13(无法更改)。 特别是我需要打印一个 webview。 这是用于打印 webview 的 API: http://developer
我正在尝试创建一个简单的函数,其中 python 将根据您的年份输入计算年龄。我已经尝试了几种方法,但我没有运气 atm。 附:对不起,我是新手。 ame = input(" Enter your n
JavaFX 2.0 是否支持打印?我有一个文本区域,我从中获取文本然后我想打印它,但似乎没有这个功能。 当然,这里我说的是打印到打印机。 :) 最佳答案 尚不支持。作为一种解决方法,您可以使用 Ja
我试图找出printOn的重点。我查看了一些实现它的类,看起来它只是帮助打印不同数据类型的单位。这是准确的吗? 如果是这样,有人能指出我如何为我自己的类(class)实现这一点的正确方向吗?我将在可能
我无法让 IE 打印我的 Canvas (使用 excanvas 生成)...我使用的是最新版本的 excanvas。 http://dl.dropbox.com/u/997831/canvas.ht
我搜索了很多但没有人回答我的问题,我读到在这样的信号处理程序中使用 cout 是不安全的: void ctrlZHandler(int sig_num) { //SIGTSTP-18
我有兴趣打印一系列查询。我有以下代码。 start = datetime.datetime(2012, 2, 2, 6, 35, 6, 764) end = datetime.datetime(201
public class javaClass { public static void main(String [] arg) { String row1 = "A____A"
我需要写入前一行的命令,例如不带\n 的 print()。 下面是一些示例代码: a=0 print("Random string value") if a==0: print_to_prev
我有一个使用 UIKit 和 Objective C 的旧 iOS 应用程序,我目前正在将其移植到 SwiftUI 和 Swift。一切都很顺利,我喜欢 Swift 和 SwiftUI。该应用程序已经
我创建了一个求和函数,它接受一个开始编号和一个结束编号,并返回这两点之间的总和答案 def print_sum_equations(start_number,end_number):
在 Perl 6 中,print 和有什么区别? , put和 say ? 我怎么看 print 5不同,但 put 5和 say 5看起来一样。 最佳答案 put $a就像 print $a.Str
我正在使用 here 中的 getOrgChart 库,我正在尝试打印整个图表,而不仅仅是可见部分。不幸的是,当使用标准库打印功能时,它只会打印出第一部分,而我不知道如何打印整个图表(该图表相当宽,大
我制作了一个非常适合 A4 页面的 View 。现在我想打印它。请注意,我没有使用drawRect或类似的东西,只是一个带有 subview 和文本标签的普通 View 。我的问题是,我对该 View
由于 Cocoa-Java 已弃用,我正在将 Cocoa-Java 代码迁移到 Cocoa + JNI。该代码打印存储在文件中的图像。新的 Cocoa 代码基本上是: NSImage *image =
这个问题已经有答案了: Printing a TDBGrid (4 个回答) 已关闭 6 年前。 如何在不安装或下载组件的情况下打印 DBGrid? 或者 如何将 DBGrid 的数据放入 RichE
我是一名优秀的程序员,十分优秀!