in reply to Re^10: tab delimited extraction, formatting the output
in thread tab delimited extraction, formatting the output
That's the order you are printing in, isn't it?
if ($mc_value) { print "\t" . ' ' x length $p_value;} $mc_value=$line; print "\t$mc_value";
Yes, or you can select OUT; before your first print statement. That selects OUT as the default filehandle for output.
Another suggestion. You have instances like this:
} elsif ($line=~/\bProcessing\s/) { $line=~s/\bProcessing\s\d+\.tx\.\d+: //; $u_value = $line;
Which could be simplified:
} elsif ($line=~s/\bProcessing\s\d+\.tx\.\d+: //){ $u_value = $line;
And you could simplify throughout with $_ instead of $line, but that's a matter of preference.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^12: tab delimited extraction, formatting the output
by zzgulu (Novice) on Feb 13, 2009 at 21:19 UTC | |
by hbm (Hermit) on Feb 13, 2009 at 21:32 UTC | |
by zzgulu (Novice) on Feb 13, 2009 at 21:50 UTC |