Why would this be a problem?
You can replace $f[4] with with int($f[4]) . " " x (length $f[4] - length int($f[4]));
Or you could use a regex instead of split...
Regex you could use:
Compact form: s/(\d+(?:\.\d+)?)(?=(?:\s+\S+){4}$)/int ($1) . " " x (length($1) - length(int($1)))/eg;
Long way:
s/
( # Capture group $1
\d+ # Digits
(?: # Group (no capturing) (optional group)
\. # a dot
\d+ # Digits
)?
) # End capture $1
(?= # Open look-ahead
(?: # Group (no capturing)
\s+ # Whitespace
\S+ # Non-whitespace
)
{4} # Match previous group exactly four times
$ # Match end of line
)
/int ($1) . " " x (length($1) - length(int($1)))/egx;
Note: small version tested, big version untested
Update: forgot length, added a possible regex
-
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.
|