求正则表达式大神

jiangphoenix

/home/jiangs/fastq/13C55755_L1_I314.R1.clean.fastq.gz


我只想要13C55755_L1_I314这部分，前面的/home/jiangs/fastq/这部分可有可无，求大神帮忙，在线等

b114213903

唉，生物相关专业的同志伤不起啊……

1. /^.+\/([^\/\.]+)\..+$/

复制代码

yestreenstars

1. sed -r 's#.*/([^.]+).*#\1#'

复制代码

bikong0411

#!/usr/bin/env perl
$str="/home/jiangs/fastq/13C55755_L1_I314.R1.clean.fastq.gz";
my @ary = split /[\/.]/,$str;
print $ary[4];

yakczh_cu

1. use File::Basename;
   
2. 
   
3. $fullname='/home/jiangs/fastq/13C55755_L1_I314.R1.clean.fastq.gz';
   
4. 
   
5. $name = fileparse($fullname);
   
6. print $name;

复制代码

jiangphoenix

谢谢大家了

翠微剑歌

1. my $str = '/home/jiangs/fastq/13C55755_L1_I314.R1.clean.fastq.gz';
   
2. $str =~ /.*?([^\/]*)$/;
   
3. print "$1\n";

复制代码