Strip first few characters form a string

[DB]

I want to remove all characters from a string which come before the
first hyphen. For example I want AB-CDE-FGH to become CDE-FGH Can
anyone suggest a way to do that with perl?

DB

 

[Matt Garrish]

I want to remove all characters from a string which come before the
first hyphen. For example I want AB-CDE-FGH to become CDE-FGH Can
anyone suggest a way to do that with perl?

$string =~ s/^[^-]+-//;

Matt

 

[Jürgen Exner]

I want to remove all characters from a string which come before the
first hyphen. For example I want AB-CDE-FGH to become CDE-FGH

Your example does not match your description.

Can anyone suggest a way to do that with perl?

TIMTOWTDI:
s/.*-/-/; #matches your description
s/.*-//; #matches your example
(undef, $_) = split /-/, $_, 2; # matches your example
substr($_, 0, index ($_, '-'), ''); #matches your description
substr($_, 0, index ($_, '-')+1, ''); #matches your example

I am sure others will come up with more possibilities.

jue

 

[Xaonon]

Your example does not match your description.


TIMTOWTDI:
s/.*-/-/; #matches your description
s/.*-//; #matches your example

ITYM:

s/^.*?-/-/;
s/^.*?-//;

since the * is normally greedy. Or perhaps:

s/^[^-]*-/-/;
s/^[^-]*-//;

 

[Joe Smith]

s/.*-/-/; #matches your description
s/.*-//; #matches your example

The first returns "-FGH" and the second returns "FGH" because * is greedy.

s/.*?-/-/; # Remove up to but no including first hyphen
s/.*?-//; # Remove first hyphen and everything before it.

-Joe

 

[Jürgen Exner]

The first returns "-FGH" and the second returns "FGH" because * is
greedy.

Oooops, you are right.
But
s/[^-]*//;
s/[^-]*-//;
should work.

jue