Regex issues

I have returned values like so:

rtxecx38006_1439
wtxecx380d1_1927
wtxecx38009_0028
ccaecx34000_4430
lcaecx38000_1453
kmohuspvmwo@171.197.27.110
rtxecx38005_2604
wtxecx380d0_0057
[download]

And what I need is for it to be split on the special characters if special characters exist. So that the end results look like so:

rtxecx38006
wtxecx380d1
wtxecx38009
ccaecx34000
lcaecx38000
kmohuspvmwo
rtxecx38005
wtxecx380d0
[download]

Comment on Regex issues Select or Download Code

Replies are listed 'Best First'.
Re: Regex issues by choroba (Chancellor) on Jul 12, 2013 at 21:52 UTC
`my @values = qw( rtxecx38006_1439 wtxecx380d1_1927 wtxecx38009_0028 ccaecx34000_4430 lcaecx38000_1453 kmohuspvmwo@171.197.27.110 rtxecx38005_2604 wtxecx380d0_0057 ); s/[_@].*//, print "$_\n" for @values;` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re: Regex issues by ww (Archbishop) on Jul 12, 2013 at 23:10 UTC
I think (and hope) choroba has hit your definition of "special characters" on the head.... even if it is a specification that is utterly non-standard, arcane, and imprecise. You should have provided that specification because "special characters" has special meanings in certain contexts -- and because the solution offered keeps some numbers and deletes others... in conformity with your example. But defining a spec based on a small example/sample is a risky and often ambiguous process. If I've misconstrued your question or the logic needed to answer it, I offer my apologies to all those electrons which were inconvenienced by the creation of this post.	[reply]
Re: Regex issues by TomDLux (Vicar) on Jul 13, 2013 at 05:16 UTC
I dislike using regexes when simple string functions can handle the job. By extracting the magic delimiter characters into a predefined constant, the code is clearer and more easily extendable. `split` will partition an input string on any of those special characters, and the wrapper `(xx)[0]` extracts the first element from the resulting list. `my @DELIMS = (qw( _ @ )); for my $elem ( @inputs ) { push @result, ( split /[@DELIM]/, $elem )[0]; }` [download] As Occam said: Entia non sunt multiplicanda praeter necessitatem.	[reply] [d/l] [select]
Re^2: Regex issues by AnomalousMonk (Chancellor) on Jul 13, 2013 at 13:05 UTC
`my @DELIMS = (qw( _ @ )); ... ... /[@DELIM]/ ...` [download] If the default value of `$"` is unchanged, the array `@DELIMS` will be interpolated into the regex character class with an extraneous space character, which is then a valid part of the class: a bug waiting to happen. Locally set `$"` to the empty string or, better yet, use join to form the char class string. `>perl -wMstrict -le "my @DELIMS = (qw( _ @ )); ;; my $rx = qr{[@DELIMS]}; print $rx; ;; { local $\" = ''; $rx = qr{[@DELIMS]}; } print $rx; ;; my $cc = join '', @DELIMS; $rx = qr{[$cc]}; print $rx; " (?^:[_ @]) (?^:[_@]) (?^:[_@])` [download] Do not multiply bugs without necessity!	[reply] [d/l] [select]
Re^2: Regex issues by Anonymous Monk on Jul 13, 2013 at 08:02 UTC
... I dislike using regexes.. But your usage of "split" `... split /[@DELIM]/, $elem ..` is still regexes... Or you say otherwise?	[reply] [d/l]


"be consistent"
	PerlMonks