在每个字符处拆分字符串 [英] split string at every character

问题描述

我想拆分字符串中的每个字符并将其输出为逗号或制表符分隔的字符:我需要使用 file_in 和 file_out 因为我有很多行.

I want to split every character in a string and output it as comma or tab separated characters: I need to use file_in and file_out since I have very many lines.

输入

TTTGGC
TTTG
TGCAATGG
....
....

输出

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

我用过这个，但它垂直打印每个字符:

I have used this, but it prints every character vertically:

  /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;

推荐答案

在R中，你可以使用strsplit和paste:

In R, you can use strsplit and 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".

You can write the output using writeLines, specifying sep = "\n" if required.

这篇关于在每个字符处拆分字符串的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！