UNIX for Dummies Questions & Answers

Hi all,

I have a pattern matching problem in which i'm not sure how to attack.

Here is my problem:
I have a list of strings that appear in the following format:
String: LE_(1234 ABC)^2^ABC^DEFG

What i need to do is replace all the characters after the first ^ with blank. So the output would look as the following:
LE_(1234 ABC)

Another part of the problem is that the first part of the string will change in length. i.e. LE_(1234 ABC) will not always be 13 characters long. Also ^2^ABC^DEFG will not always be 11 characters longs.

The only thing that is constant is the ^. And I need to remove all characters after that.

I would like to do this in Perl.

Thanks in advance.

If you want to remove all characters (including new-lines) after the first circumflex (^) including circumflex itself:

Code:

$your_var =~ s/\^.*//s;

and if you want to start from the first circumflex and end at the first new-line (excluding the new-line) after that:

Code:

$your_var =~ s/\^.*//;

Thanks elixir!!!