使用perl截取指定的字符串(已解决)

linuxnature

修改一个别人写的perl脚本, 运行时想要传入参数name 进去,假设传入的内容为abc_def_123 ,  然后在perl脚本中截取第一个下划线后面的内容, 即在这里截取到 def_123 请问怎么实现呢? 查到了使用substr()函数,但是第一个下划线前面的字符数量是不固定的, 所以也不适用

我是perl小白,还请大家帮忙解答.

补充:
非常感谢大家的回答,但我实在是小白的可以,看不太懂. 给大家贴个例子吧
比如我的代码是
#!/usr/bin/perl
$jobname = $ARGV[0];
print "$jobname\n";

运行perl test.pl abc_def_123
我想要的输出结果为 def_123
那我要怎么修改上面的代码?

使用这种方法解决了,谢谢大家
$jobname1 = $ARGV[1];
my @temp = split "_",$jobname1;
my $jobname = substr($jobname1,length($temp[0])+1);

只是一个红薯

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. use strict;
   
4. use warnings;
   
5. my @a=qw(
   
6.     ad_fs_12
   
7.     asd_sa_sas_12
   
8.     af_uf   
   
9. );
   
10. map {my ( $first,$last)=split /_/,$_,2;say $last} @a;

复制代码

grshrd49

用正则

1. /.*?_(.*)/

复制代码

不用正则

1. $a = "abc_dedfdff_123_fdasfsd";
   
2. @b = split /_/,$a;
   
3. shift @b;
   
4. $c = join "_",@b;
   
5. print $c;

复制代码

mcshell

1. /[^_]_(.*)/;
   
2. 取$1

复制代码