在字符匹配之前删除数据

Question

如何在使用Perl或sed的字符串中删除＆＃34; /＆＃34;之前的字符，包括＆＃34; /＆＃34;？

例如，这个：

ad9a91/FFFF0000

会变成

FFFF0000

Answer 1

Sed解决方案

sed 's|[^/]*/||' file

将删除所有内容，包括第一个/

或

sed 's|.*/||' file

将删除所有内容，包括最后/。

我添加了两个，因为问题并不完全清楚每次字符串的格式是什么。

<强> awk中

awk -F/ '{$0=$NF}1' file

这会将整行替换为最后一行/

之后的内容

Answer 2

您可以使用替换，

my $str = "ad9a91/FFFF0000";
$str =~ s|^.+?/||;

或正则表达式捕获，

$str = $1 if $str =~ m|/(.+)|s;

Answer 3

使用替换：

my $string = "ad9a91/FFFF0000";
$string =~ s|\.+/||;

Answer 4

my $string = qq(sjdflksdjfsdj ad9a91/FFFF0000 slodjfsdf s);
$string =~ s{\b(\s).*?\b/}{$1}ig;
print $string;exit;

你也可以尝试使用任何空格或任何标签进行拆分。