Re^10: tab delimited extraction, formatting the output

can someone help me understand why in the following code $mc_value being printed a line after $p_value and not infront of it with a tab distance of $p_value? Removing "\n" didn't help.
Also, if I want to send the ouput to a file, should I put OUT infront of every print function? Thank you so much for your hints

#!/usr/bin/perl
use strict;
use warnings;

my $file = "c:/ubuntu/regular.txt";
#open OUT,">C:/output/filded_processed.txt";
open my $fh, "<", $file or die "Unable to open $file: $!";
my($u_value, $p_value, $mc_value) = (undef) x 3;
while (my $line=<$fh>) {
    if ($line=~/\n\n\n/){
        ($u_value, $p_value, $mc_value) = (undef) x 3;
        print "\n";
    } elsif ($line=~/\bProcessing\s/) {
       $line=~s/\bProcessing\s\d+\.tx\.\d+: //;
       $u_value = $line;
        print "\n$u_value\n";
        undef $p_value;
    } elsif ($line=~/\bPhrase/) {
        $line=~s/\bPhrase: //;
        $line=~s/\"//g;
        if ($p_value) {
        print "\n" . ' ' x length $u_value;}
        $p_value=$line;
        print "\t$p_value";
        undef $mc_value;
     } elsif ($line=~/\s\s/ ) {
        if ($mc_value) {
        print "\t" . ' ' x length $p_value;}
        $mc_value=$line;
        print "\t$mc_value";
       } else {
        #die "Unexpected line format encountered, $file, @data";
    }
}
close $fh;
[download]

Comment on Re^10: tab delimited extraction, formatting the output Download Code

Replies are listed 'Best First'.
Re^11: tab delimited extraction, formatting the output by hbm (Hermit) on Feb 13, 2009 at 20:55 UTC
why ... $mc_value being printed ... after $p_value and not infront ... 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";` [download] should I put OUT infront of every print 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;` [download] Which could be simplified: `} elsif ($line=~s/\bProcessing\s\d+\.tx\.\d+: //){ $u_value = $line;` [download] And you could simplify throughout with `$_` instead of `$line`, but that's a matter of preference.	[reply] [d/l] [select]
Re^12: tab delimited extraction, formatting the output by zzgulu (Novice) on Feb 13, 2009 at 21:19 UTC
yes, that's the order and I get $u_value <tab>$p_value <tab>$mc_value while I want to get $u_value <tab>$p_value<tab>$mc_value Thanks	[reply]
Re^13: tab delimited extraction, formatting the output by hbm (Hermit) on Feb 13, 2009 at 21:32 UTC
Try adding `chomp $line;` after your `while` statement.	[reply]
Re^14: tab delimited extraction, formatting the output by zzgulu (Novice) on Feb 13, 2009 at 21:50 UTC
Re^11: tab delimited extraction, formatting the output by zzgulu (Novice) on Feb 13, 2009 at 22:29 UTC
I apologize to bug you again, how can I print $p_value only if there is $mc_value in front of it? I tried (if $mc_value ne "") before print $p-value but obviously it doesn't work since the value of $mc_value is assigned after I print $p_value...	[reply]