How do you add .RTF to a file

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

Hello Monks, I don't know how to add an extension to a file that doesn't have one. I tried pattern matching but it doesn't do anything. Do you have any ideas? For example: "file1" needs to change to "file1.rtf"

$newfile =~ s/\^$/.rtf/;
[download]

Comment on How do you add .RTF to a file Download Code

Replies are listed 'Best First'.
Re: How do you add .RTF to a file by hmerrill (Friar) on Jun 05, 2003 at 13:54 UTC
Try to be more clear - do you actually want to rename an existing file from "file1" to "file1.rtf"? If you do, than perl's 'rename' function should work. Do `perldoc -f rename` [download] at a command prompt to read the perldocs on how to use 'rename' - it's pretty much what you would expect. Also, you are not using the substitution operator properly - do `perldoc perlop` [download] at a command prompt and search (using the forward slash "/") for 'subst' - you'll see all the info you need. HTH.	[reply] [d/l] [select]
Re: How do you add .RTF to a file by hardburn (Abbot) on Jun 05, 2003 at 13:51 UTC
You append the string: `my $oldfile = 'file1'; my $newfile = $oldfile . '.rtf';` [download] No pattern matching required. ---- I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident. -- Schemer Note: All code is untested, unless otherwise stated	[reply] [d/l]
Re: How do you add .RTF to a file by arthas (Hermit) on Jun 05, 2003 at 14:32 UTC
If you need to rename a file with no extension you just need to say: `rename $myfile, $myfile.'.rtf';` [download] If you just need to append .rtf to a string containing a filename then write: `$myfile = $myfile.'.rtf';` [download] Michele.	[reply] [d/l] [select]
Re: How do you add .RTF to a file by RollyGuy (Chaplain) on Jun 05, 2003 at 13:53 UTC
You simply need concatination, not pattern matching. To concat two strings, you can use the "." operator as follows: `$file = "File1"; $file .= ".rtf"; or something more like $basename = "File1"; $file = $basename . ".rtf";` [download]	[reply] [d/l]
Re: How do you add .RTF to a file by Missing Words (Scribe) on Jun 05, 2003 at 14:47 UTC
Do you want to change just one specific file? If that is so just use the methods already explained to you. However, if you want to look through a directory and then change any files that don't have an extension on them you could try something like this: `#!perl use strict; my @file = glob "*"; foreach(@file){ if(/\./){next;} else{ rename $_ , $_ . ".rtf"; } }` [download] If you need to change the files in different directories you could simply recieve a command line argument that would contain the directory you need to evaluate and the do a chdir $ARGV[0], or the equivalent.	[reply] [d/l]
Re: Re: How do you add .RTF to a file by Missing Words (Scribe) on Jun 05, 2003 at 14:50 UTC
Sorry, it's my first time posting here. Forgot to put the code tags around the chdir suggestion it should look like this: `chdir "$ARGV[0]";` [download]	[reply] [d/l]
Re: How do you add .RTF to a file by jonnyfolk (Vicar) on Jun 05, 2003 at 14:00 UTC
rename? Addenda: Hmmm - said (0 replies)!	[reply]
Re: How do you add .RTF to a file by young_david (Friar) on Jun 05, 2003 at 14:30 UTC
If you wanted to do pattern matching: `my $oldfile = 'file1'; my $newfile =~ s/$/.rtf/; # Search for the end of a string and # replace it with the extension` [download]	[reply] [d/l]
Re: Re: How do you add .RTF to a file by young_david (Friar) on Jun 05, 2003 at 14:41 UTC
UPDATE: Sorry, I just realized I made a mistake, should have written like this: `my $file = 'file1'; $file =~ s/$/.rtf/; # $file will now contain the .rtf extension` [download]	[reply] [d/l]

Back to Seekers of Perl Wisdom