remove characters after a certain character

Question

How can I remove characters from a string after a certain character (for ex:".")?

I have the next string 12345.678. I want to remove all the characters after "." and get 12345. The number of characters after "." is variable.

Thank you.

what do you mean by "next string"? is this part of a bigger string? — ysth, Jul 08 '16 at 14:16

score 1 · Answer 1 · answered Jul 08 '16 at 14:11

1

Just try this:

 /\b([^\.]*)\.([0-9a-z]*)\b/$1/;

answered Jul 08 '16 at 14:11

ssr1012

2,573
1
18
30

score 1 · Answer 2 · answered Jul 08 '16 at 14:12

1

See perldoc -f index:

$x = "12345.678";

$y = substr($x, 0, index($x, '.'));

answered Jul 08 '16 at 14:12

Ivan P

111
1

1

you should always check if index succeeds; because it returns -1 on failure, it doesn't work well otherwise. for instance, if `$x` is `'12345'`, `$y` will be `'1234'`. – ysth Jul 08 '16 at 14:15

score 1 · Answer 3 · answered Jul 08 '16 at 14:17

1

One solution using regexps (please, study that document, so you can learn doing it yourself...):

my $num = "12345.678";
$num =~ /(.*)\.+/;
print $1;

answered Jul 08 '16 at 14:17

MarcoS

17,323
24
96
174

ysth · Accepted Answer · 2016-07-08T16:08:03.283

1

$string = '12345.678';

# remove everything from . on
$string =~ s/\..*//s;

\. matches a literal .; .* matches anything remaining in the string (with the /s flag to make it include newlines, which by default it doesn't).

It is also possible you are looking for:

$number = 12345.678;
$number = int $number;

If you want to get what's after the . also, do:

my ($before, $after) = split /\./, $string, 2;

edited Jul 08 '16 at 16:08

answered Jul 08 '16 at 14:17

ysth

96,171
6
121
214

thank you, I have another question, how can I do to get the number after "." (to get 678)? – tchike Jul 08 '16 at 15:40

score 0 · Answer 5 · answered Jul 08 '16 at 14:10

0

depends what environment you're using and tools you have available but something like this would work in bash

sed -e "s/\..*$//"

would work. . is escaped "." second . the matches anything and * matches 0 or more times, $ matches end of line

answered Jul 08 '16 at 14:10

Jonathan Widdicombe

11

Ah, I only answer questions when drunk. They should use system then to run sed – Jonathan Widdicombe Jul 08 '16 at 14:23
Yes, you should be really drunk to use `system` and `sed` to cut a piece from a string with Perl... :-))) – MarcoS Jul 08 '16 at 14:25
You need to be drunk to use Perl don't you? I thought that was a system requirement – Jonathan Widdicombe Jul 11 '16 at 10:01

score 0 · Answer 6 · answered Jul 08 '16 at 15:03

0

Using split:

my ($num) = split(/\./, "12345.678");

answered Jul 08 '16 at 15:03

fugu

6,417
5
40
75

remove characters after a certain character

6 Answers6

Linked