在每个字符处分割字符串

Question

我想分割字符串中的每个字符并将其输出为逗号或制表符分隔字符：我需要使用file_inandfile_out因为我有很多行。

输入

TTTGGC
TTTG
TGCAATGG
....
....

输出

T,T,T,G,G,C
T,T,T,G
T,G,C,A,A,T,G,G

我已经使用过这个，但它垂直打印每个字符：

  /usr/bin/perl
   use strict;
   use warnings;

    my $data = 'Becky Alcorn';

   my @values = split(undef,$data);

  foreach my $val (@values) {
   print "$val\n";
  }

  exit 0;

Answer 1

在 R 中，您可以使用strsplitand paste：

Strings <- c("TTTGGC","TTTG","TGCAATGG")
vapply(strsplit(Strings, ""), function(x) paste(x, collapse=","), character(1L))
# [1] "T,T,T,G,G,C"     "T,T,T,G"         "T,G,C,A,A,T,G,G"

您可以使用 编写输出writeLines，并根据sep = "\n"需要指定。