You should turn on 'use strict' and 'use warnings', this will help lead you to a better solution.
It seems your main problem might be that you are confusing the space character ' ' with the whitespace character class.
In a regex, '\s' matches not only the space character, but ANY whitespace character. See Whitespace.
Your substitutions like 's/\[/\s/' will fail because '\s' is only recognized as whitespace in a regex:
$ perl -wE 'my $str = "JA_PH"; $str =~ s/_/\s/; say $str'
Unrecognized escape \s passed through at -e line 1.
JAsPH
$ perl -wE 'my $str = "JA_PH"; $str =~ s/_/ /; say $str'
JA PH
Also, your regex for substituting whitespace with underscore will only match a whitespace character followed by a space character. I don't think this is quite what you meant.
$ perl -wE 'my $str = "Some text with whitespace"; $str =~ s/\s /_/g;
+ say $str'
Some text with_whitespace
$ perl -wE 'my $str = "Some text with whitespace"; $str =~ s/\s/_/g;
+say $str'
Some_text_with__whitespace
$ perl -wE 'my $str = "Some text with whitespace"; $str =~ s/\s+/_/g;
+ say $str'
Some_text_with_whitespace
Best,
Jim
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|