Removing dots

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

Replies are listed 'Best First'.
Re: Removing dots by tlm (Prior) on May 08, 2005 at 14:06 UTC
It's hard to say what the best solution would be without knowing exactly what dots you don't want removed, but for the example you give, `s/\.//;` [download] does the job. Or `s/\.(?!txt$)//g` [download] ...or `s/\.(?![^.]+$)//g` [download] the lowliest monk	[reply] [d/l] [select]
Re^2: Removing dots by Anonymous Monk on May 08, 2005 at 14:52 UTC
ok let's say if i want it to look like Hello.1txt would s/\.(?=txt$)//g do the job?	[reply]
Re^3: Removing dots by tlm (Prior) on May 08, 2005 at 15:17 UTC
You can get your answer more quickly by firing up the debugger and just trying it out: `% perl -de 1 DB<1> $s = 'Hello.1.txt' DB<2> $s =~ s/\.(?=txt$)//g # in this case the /g is superfluous DB<3> p $s Hello.1txt` [download] And faster still (in the long run) if you just study `perlre`. the lowliest monk	[reply] [d/l]
Re^3: Removing dots by eibwen (Friar) on May 08, 2005 at 19:38 UTC
If you really want to remove all but the first occurance: `$filename =~ /\./; substr($filename, $-[0]+1) =~ s/\.//g if @-;` [download]	[reply] [d/l]
Re: Removing dots by Dietz (Curate) on May 08, 2005 at 14:11 UTC
This would remove all dots except the rightmost one: `s/\.(?=.*\.)//g;` A single dot occuring only once in the string will not be removed.	[reply] [d/l]
Re: Removing dots by davidrw (Prior) on May 08, 2005 at 14:47 UTC
If it's just the base name you need to manipulate (i.e. leave the '.txt. intact), can take advantage of File::Basename to parse that section for you, then do what you want with it. That way the regex is simple because it doesn't have to deal w/the exception of the extension. `# given: $fullname, @suffixlist (see pod for latter) use File::Basename; my ($name,$path,$suffix) = fileparse($fullname,@suffixlist); $name =~ s/\.//g; my $new_fullname = $path . $name . $suffix;` [download]	[reply] [d/l]
Re: Removing dots by ambrus (Abbot) on May 08, 2005 at 16:09 UTC
If you want to remove all but the last dot, this node is about a very similar question: Replace all occurrences but the last.	[reply]
Re: Removing dots by Angharad (Pilgrim) on May 08, 2005 at 14:53 UTC
How about using a combination of substring and then cat the resulting variables together?	[reply]
Re^2: Removing dots by ambrus (Abbot) on May 08, 2005 at 16:13 UTC
That's what I thought of too. See Re: Replace all occurrences but the last.	[reply]
Re: Removing dots by mattk (Pilgrim) on May 08, 2005 at 23:15 UTC
Just because I felt like doing something different than an RE: `$origfile = shift; @chunks = split(/\./, $origfile); $ext = pop @chunks; $filename = join("", @chunks, ".$ext"); rename $origfile, $filename;` [download]	[reply] [d/l]