How to get substring between first and second character

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

Given strings like "Database_Test_Access_DB" and "Database_Development_Access_DB", I wish to get just "Test" and "Development" from the above-mentioned strings. In other words, I would like to get the string that starts after the first '_' and ends with the next (second) '_'. I would believe that a regex would be do the trick but would like your input. I respectfully ask for eternal guidance from those monks of the Perl monastery. Thank you.

Comment on How to get substring between first and second character

Replies are listed 'Best First'.
Re: How to get substring between first and second character by choroba (Cardinal) on Jan 17, 2013 at 17:49 UTC
You can use split, which uses a regular expression to specify the separator. Only retrieve the second field: `for my $string ("Database_Test_Access_DB", "Database_Development_Access_DB", ) { print((split /_/, $string)[1], "\n"); }` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re: How to get substring between first and second character by BillKSmith (Monsignor) on Jan 17, 2013 at 18:38 UTC
A regex will "do the trick". `use strict; use warnings; my $DB_string = "Database_Test_Access_DB"; my ($get) = $DB_string =~ /_(.+?)_/; print $get, "\n";` [download] Bill	[reply] [d/l]
Re^2: How to get substring between first and second character by tale103108 (Novice) on Jan 17, 2013 at 19:51 UTC
Oh wise Bill... your solution worked. One more related question. I need to trim the last few characters which could be either CISD or ISD, so that 'TestISD' becomes 'Test' and 'DevelopmentCISD' becomes 'Development'. What wisdom can you impart upon this poor soul?	[reply]
Re^3: How to get substring between first and second character by Kenosis (Priest) on Jan 17, 2013 at 20:52 UTC
`s/C?ISD$//` on the captured string, or modifying BillKSmith's regex (assuming those endings are in the the original strings) to `/_(.+?)C?ISD_/` would work.	[reply] [d/l] [select]
Re: How to get substring between first and second character by pvaldes (Chaplain) on Jan 18, 2013 at 16:53 UTC
Err..., a substring between two adjacent characters is always "". Probably, not the best title chosen for your problem. As said, a regex solves your problem easily: `while (<DATA>){ if (/^.?\_(.?)(CI\|I)SD\_.?$/) {print $1,"\n"} } __DATA__ my_firstmachISD_blah_blah the_secondCISD_blah_blah_blah` [download] Updated: I need to trim the last few characters which could be either CISD or ISD* Updated again: yes, C?ISD is better than (CI\|I)SD	[reply] [d/l]