perl截取文本的问题

ghostagan

我有一段文本，大致是这样的" abcabcabc #something#12 ，怎么使用perl把两个#号之后的内容截取出来，谢谢。请各位大侠回复的时候能够有个完整的代码就好了，谢谢

黑色阳光_cu

#!/bin/env perl

use strict;
use warnings;

my $string = "abcabcabc #something#12";
die substr($string, ($_ = index($string, "#") + 1, index($string, "#", $_) + 1));

黑色阳光_cu

die + (split("#", $string))[2];

黑色阳光_cu

#!/bin/env perl

use strict;
use warnings;

my $string = "abcabcabc #something#12";

if ($string =~ /#[^#]*#(.+)/)
{
        die $1;
}

黑色阳光_cu

#!/bin/env perl

use strict;
use warnings;
use Tcl;

my $string = "abcabcabc #something#12";
my $interp = Tcl->new();
die $interp->Eval('regexp {#[^#]*#(.+)$} "' . $string . '" match want; set want');

黑色阳光_cu

#!/bin/env perl

use strict;
use warnings;

my $string = "abcabcabc #something#12";
die qx(echo '$string' | awk -F'#' '{print \$3}');

maybenot

方法好多啊。。

liyangole

回复 7# maybenot

方法确实很多！
#!/usr/bin/perl -w
$string="abcabcabc#something#12";
@str=split('#',$string);
print "$str[2].\n";

justlooks

echo " abcabcabc #something#12"|perl -ne 'for my $str (m/#([^#]+)/og){print "$str\n";}'

黑色阳光_cu

有没有用Inline C实现的？