Substitution or removing characters from a file

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

Hello Friends, This is my first post and I just recently started coding in Perl.

I am trying to remove some characters from a file in a pattern described below. I have accomplished the goal, but it takes two lines of code. I am wondering, if this can be reduced to a single line.

I have a file with a single line in it as follows: /Users/name/Desktop/Reprocess_120509_171210/Name1/Name2/RDLy_XXXX_2012_03_25_1850.ruv I am trying to modify this line so that I have only RDLy_XXXX_2012_03_25_1850 remaining, which I am then going to use as a name for a picture file by appending .png to the above name. Here is what I did:

open (FIDR, "< $radFile");
chomp($basename = <FIDR>);
$basename =~ s/\S*RDL/RDL/; ## this removes everything before RDL but 
+has ".ruv"extension
$basename =~ s/.ruv$//; ##this removes the .ruv extension.
[download]

I am wondering, can the above substitution task(of 2 lines) be accomplished in a single line? If yes, how? Thanks a lot in advance.

Comment on Substitution or removing characters from a file Download Code

Replies are listed 'Best First'.
Re: Substitution or removing characters from a file by NetWallah (Canon) on May 10, 2012 at 03:19 UTC
Try this: `my ($NameWithoutExtension)=$basename=~/(RDL.+)\.\w+/;` [download] I hope life isn't a big joke, because I don't get it. -SNL	[reply] [d/l]
Re^2: Substitution or removing characters from a file by hary536 (Novice) on May 17, 2012 at 22:59 UTC
Hello, Thanks for the reply. Am late in acknowledging it, was on travel. Thanks, it worked.	[reply]
Re: Substitution or removing characters from a file by JavaFan (Canon) on May 10, 2012 at 06:37 UTC
Sure, just remove the newline: `$basename =~ s/\SRDL/RDL/; $basename =~ s/.ruv$//;` [download] Or `s/\SRDL/RDL/, s/.ruv$// for $basename;` [download] Or `$basename =~ s/\SRDL((?s:.)).ruv$/RDL$1/;` [download] but why would you? The two lines are easy to understand, and certainly more efficient that the latter single substitution.	[reply] [d/l] [select]
Re^2: Substitution or removing characters from a file by Anonymous Monk on May 17, 2012 at 22:58 UTC
Hello, Thanks for the reply. Am late in acknowledging it, was on travel. Thanks for your above suggestions. You said that two lines are more efficient than the single substitution. How can I tell, which part of my code is more efficient than other. I thought that 1 line would be more efficient than 2 lines, hence I posted this question. You have any suggestion/reading link for reading on writing efficient code in perl? Thanks.	[reply]
Re^3: Substitution or removing characters from a file by hary536 (Novice) on May 17, 2012 at 23:02 UTC
It was me who posted above msg. Not sure, how I got logged out in the process before posting that msg.	[reply]
Re: Substitution or removing characters from a file by jwkrahn (Abbot) on May 10, 2012 at 04:02 UTC
`open my $FIDR, '<', $radFile or die "Cannot open '$radFile' because: $ +!"; my ( $basename ) = <$FIDR> =~ m{/([^/]+)\.ruv$};` [download] Update: fixed filehandle.	[reply] [d/l]
Re^2: Substitution or removing characters from a file by hary536 (Novice) on May 17, 2012 at 23:01 UTC
Hello, Thanks for the reply. Am late in acknowledging it, was on travel. I will try it out and let you know, how it went. Thanks.	[reply]