美文网首页
perl,给文件每一个特定位置添加字符

perl,给文件每一个特定位置添加字符

作者: 花生学生信 | 来源:发表于2024-05-05 17:28 被阅读0次

对于mRNA提取特异序列位置,发现提取出的id与mRNA编号存在差异,添加特定字符“.”,使其变成转录本的编号

use strict;
use warnings;

open my $fh, '<', 'LTH.txt' or die "无法打开文件:$!";

while (my $line = <$fh>) {
    chomp $line;
    my $length = length($line);
    
    if ($length >= 2) {
###-1为倒数第一个字符
        my $new_line = substr($line, 0, $length - 1) . '.' . substr($line, $length - 1);
        print $new_line . "\n";
    } else {
        print $line . "\n";
    }
}

close $fh;
完成后的结果

相关文章

  • 给字符串在特定位置添加特殊标识

    eg:11111111 要变成11-11-11-11; var oldStr="11111111"; //str:...

  • 定时复制文件并添加日期的小脚本

    关于windows脚本的日期与时间 日期“date”和时间“time”会返回特定的字符,取用特定位置的字符要看“%...

  • Xcode7下的iOS本地化

    字符串的本地化处理 1.给项目添加多个语言 2.新建strings文件 3.让strings文件支持本地化给字符串...

  • 又一个隐式intent

    在string.xml中添加字符串资源 在布局文件中,添加拨打号码的按钮并把其放于相应位置 在竖直布局fragme...

  • Javascript笔记-string

    javascript学习笔记 String方法 字符方法 charAt():取出特定位置的字符sample: v...

  • 文件测试

    文件测试操作符 Perl提供了一组用于测试文件的操作符,并借此返回特定的文件信息。 -e测试文件是否存在 -M返回...

  • Linux命令记录

    1.sed命令在文件行首行尾添加字符 问题表述:要在文件的每一行行首或行尾添加字符 实例:在每行的头添加字符,比如...

  • 从fasta文件中批量提取特定序列

    如题,目的是从fasta文件中批量提取特定的基因序列.实现办法有几种: perl脚本:CSDN博主「little^...

  • 我的第一个hello linux驱动--Apple的学习笔记

    1, 选择框架 用的是Char字符驱动框架。 2. 放置位置 自己建立一个文件夹,然后将如下2个文件添加即可。 3...

  • 批量修改目录文件名

    脚本可以遍历目录中的特定文件,然后替换、修改特定的字符串。

网友评论

      本文标题:perl,给文件每一个特定位置添加字符

      本文链接:https://www.haomeiwen.com/subject/jkikfjtx.html