String Replacement

[Newbee21369]

I'm trying to look for files that contain and ".". If so replace "." with * (wilcard) and remove all text after it.
for example if I have:

INPUT:
FileName1.Doc
FileName2.xls
FileName3.txt

OUTPUT:
FileName1*
FileName2*
FileName3*


Any Ideas on how I can do this?
Thanks in Advance.

 

[PaulTEG]

You could use a regex for this, but I'd go with a split

($filename, $extension)=split /\./, $file;
$file.="*"; # the asterisk may need escaping if so try \*

HTH
--Paul

cigless ...

 

[TrojanWarBlade]

A split uses a regex anyway!
:-D
I'd go for the one liner:

perl -lne 's/\.*$/\*/;print' INPUT > OUTPUT

Trojan.

 

[mlibeson]

I agree with TrojanWarBlade. Sorry PaulTeg, but yours falls short if there is no "." in the name. Also, here is a correction to TrojanWarBlade's

s/\..*$/\*/;

There was a missing period to match any character and any numnber of characters after the ".".


Michael Libeson

 

[Newbee21369]

what does this mean and where does file $file string fit into this? I forgot to mention I need to return a new string with the formatted file. Thanks again.

 

[PaulTEG]

valid point, note to self, don't do this before coffee

cigless ...

 

[Newbee21369]

Paul,
The extension will vary, how could this be written to take that in consideration?

($filename, $extension)=split /\./, $file;
$file.="*"; # the asterisk may need escaping if so try

 

[PaulTEG]

What my code above does is split the value into two vars either side of the full stop/period.

So extensions are ignored, and the same is also true of the regexes provided by TWB and Mike, and the regex would by my preferred choice had I been sufficiently caffeinated ;-)

--Paul


cigless ...

 

[Newbee21369]

This works!! Thanks!!!

($outfilename, $extension)=split /\./, $inputfile;
outfilename.="*";

 

[TrojanWarBlade]

Sorry guys,
I was in a rush to go out.
You're right, I missed the "."
:-$

Oh well, glad you picked up my deliberate mistake! ;-)

Thanks.

Trojan.