diff options
Diffstat (limited to 'messages.pl')
-rw-r--r-- | messages.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/messages.pl b/messages.pl index fe94a35..0d68f4d 100644 --- a/messages.pl +++ b/messages.pl @@ -35,10 +35,10 @@ while(<DATA>) { s/^\w+\s+//; my $orig = $_; + #warn "msg: $_\n"; s/"//g; s/\\r//g; s/\\n/\n/g; - #warn "msg: $_\n"; $total_in += (1 + length); @@ -49,7 +49,9 @@ while(<DATA>) { } } - #warn "'$_'\n" if $label eq 'do_you_want'; + my $w = $_; + $w =~ s/\n/\\n/g; + #warn "got: \"$w\"\n"; open my $out, ">msg.out" or die $!; print $out $_; close $out; |