How to remove underscore at the end of the line?

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

Replies are listed 'Best First'.
Re: How to remove underscore at the end of the line? by afoken (Chancellor) on Mar 17, 2017 at 07:47 UTC
Would you please STOP creating new threads for the same problem? This is not helpful, and you were told that, several times. Stay in the existing threads, don't waste our time with useless and stupid new threads. How to remove underscore at the end of the line? [OT] How to take only the links of files which has high prirority links using perl? How to remove underscore before every dot using perl? renaming the file using perl How to remove the words before the dot using perl? why th efollowing error occurs in perl? Why am unable to create another directory using perl? How to rename the files its directory structure using perl? following if condition fails to print its variable using perl? How to write the perl script for the following linux command? Unable to rename the contents of the file using perl? How to write the following code with comamnd line arguments using perl? Remove hyperlinks from the lines which have special character? How to match the file and rename the contents in the .config files of directories and subdirectories using perl? How to add hyperlink for every table data using perl? Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply]
Re: How to remove underscore at the end of the line? by Anonymous Monk on Mar 17, 2017 at 04:39 UTC
`s/_$//`	[reply] [d/l]
Re^2: How to remove underscore at the end of the line? by Anonymous Monk on Mar 17, 2017 at 04:47 UTC
Also, the "code you tried" does NOT produce the "output you obtained," so I'm not sure what you're actually doing.	[reply]
Re^2: How to remove underscore at the end of the line? by finddata (Sexton) on Mar 17, 2017 at 05:04 UTC
But it is not displaying the expected output as per you mentioned.	[reply]
Re^3: How to remove underscore at the end of the line? by davido (Cardinal) on Mar 17, 2017 at 05:12 UTC
Then you must be using it wrong. Show us how you used the solution posted. I am confident that `s/_$//` works for the sample data you posted. Show us your code. Dave	[reply] [d/l]
Re^4: How to remove underscore at the end of the line? by madtoperl (Hermit) on Mar 17, 2017 at 13:06 UTC
Re^4: How to remove underscore at the end of the line? by finddata (Sexton) on Mar 17, 2017 at 06:21 UTC
Re^5: How to remove underscore at the end of the line? by davido (Cardinal) on Mar 17, 2017 at 06:42 UTC
Re^5: How to remove underscore at the end of the line? by huck (Prior) on Mar 17, 2017 at 06:52 UTC
Some notes below your chosen depth have not been shown here
Re^5: How to remove underscore at the end of the line? by Anonymous Monk on Mar 17, 2017 at 06:39 UTC
Re^5: How to remove underscore at the end of the line? by Anonymous Monk on Mar 17, 2017 at 06:51 UTC
Re^3: How to remove underscore at the end of the line? by AnomalousMonk (Archbishop) on Mar 17, 2017 at 06:07 UTC
Just to drive davido's point home: `c:\@Work\Perl\monks>perl -wMstrict -le "for my $s (qw( DCMS_DEMO_ DCMS_DEMO_new_block2_ DCMS_DEMO_new_block2_checklist_tmp_ DCMS_DEMO_new_block2_checklist_tmp_rev1_ )) { my $subject = $s; print qq{'$subject'}; $subject =~ s/_(?=[^_]*$)//; print qq{'$subject' \n}; } " 'DCMS_DEMO_' 'DCMS_DEMO' 'DCMS_DEMO_new_block2_' 'DCMS_DEMO_new_block2' 'DCMS_DEMO_new_block2_checklist_tmp_' 'DCMS_DEMO_new_block2_checklist_tmp' 'DCMS_DEMO_new_block2_checklist_tmp_rev1_' 'DCMS_DEMO_new_block2_checklist_tmp_rev1'` [download] That's with your original regex, and I get the same output with `s/_$//` also. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]