Regex: matching any Number then a hyphen

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have lines of data, all begin with a number. For lines which have a " - " or " – " after the number, but before the next piece of text I'd like to replace this with a ". ". example data

1234 - Foo
56778 – Bar
9999. Baz
[download]

desired output

1234. Foo
56778. Bar
9999. Baz
[download]

Comment on Regex: matching any Number then a hyphen Select or Download Code

Replies are listed 'Best First'.
Re: Regex: matching any Number then a hyphen by 1nickt (Canon) on Nov 27, 2022 at 15:42 UTC
Hi, What did you try? How did it fail? `use strict; use warnings; use utf8; use Test::More tests => 3; for my $line(<DATA>) { chomp $line; my ($string, $wanted) = split '#', $line; $string =~ s/^(\d+)\s[–-](.)/$1.$2/; is $string, $wanted; } __END__ 1234 - Foo#1234. Foo 56778 – Bar#56778. Bar 9999. Baz#9999. Baz` [download] Output: `1..3 ok 1 ok 2 ok 3` [download] Hope this helps! The way forward always starts with a minimal test.	[reply] [d/l] [select]
Re: Regex: matching any Number then a hyphen by Anonymous Monk on Nov 27, 2022 at 13:32 UTC
here u go u lazy bum `perl -CSD -pe 's/^\d+\K\s*[-.\x{2013}]/./'` [download]	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.