求正則表達式大神

jiangphoenix

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


我只想要13C55755_L1_I314這部分，前面的/home/jiangs/fastq/這部分可有可無，求大神幫忙，在線等

b114213903

唉，生物相關(guān)專業(yè)的同志傷不起啊……

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

復(fù)制代碼

yestreenstars

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

復(fù)制代碼

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;

復(fù)制代碼

jiangphoenix

謝謝大家了

翠微劍歌

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

復(fù)制代碼