Re: Removing dots

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

Comment on Re: Removing dots Select or Download Code

Replies are listed 'Best First'.
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]