1#! @PERL@ 2 3##--------------------------------------------------------------------## 4##--- Massif's results printer ms_print.in ---## 5##--------------------------------------------------------------------## 6 7# This file is part of Massif, a Valgrind tool for profiling memory 8# usage of programs. 9# 10# Copyright (C) 2007-2013 Nicholas Nethercote 11# njn@valgrind.org 12# 13# This program is free software; you can redistribute it and/or 14# modify it under the terms of the GNU General Public License as 15# published by the Free Software Foundation; either version 2 of the 16# License, or (at your option) any later version. 17# 18# This program is distributed in the hope that it will be useful, but 19# WITHOUT ANY WARRANTY; without even the implied warranty of 20# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 21# General Public License for more details. 22# 23# You should have received a copy of the GNU General Public License 24# along with this program; if not, write to the Free Software 25# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 26# 02111-1307, USA. 27# 28# The GNU General Public License is contained in the file COPYING. 29 30use warnings; 31use strict; 32 33#---------------------------------------------------------------------------- 34# Global variables, main data structures 35#---------------------------------------------------------------------------- 36 37# Command line of profiled program. 38my $cmd; 39 40# Time unit used in profile. 41my $time_unit; 42 43# Threshold dictating what percentage an entry must represent for us to 44# bother showing it. 45my $threshold = 1.0; 46 47# Graph x and y dimensions. 48my $graph_x = 72; 49my $graph_y = 20; 50 51# Input file name 52my $input_file = undef; 53 54# Where to create tmp files. See also function VG_(tmpdir) in m_libcfile.c. 55my $tmp_dir = $ENV{"TMPDIR"}; 56$tmp_dir = "@VG_TMPDIR@" if (! $tmp_dir); 57$tmp_dir = "/tmp" if (! $tmp_dir); 58 59# Tmp file name. 60my $tmp_file = "$tmp_dir/ms_print.tmp.$$"; 61 62# Version number. 63my $version = "@VERSION@"; 64 65# Args passed, for printing. 66my $ms_print_args; 67 68# Usage message. 69my $usage = <<END 70usage: ms_print [options] massif-out-file 71 72 options for the user, with defaults in [ ], are: 73 -h --help show this message 74 --version show version 75 --threshold=<m.n> significance threshold, in percent [$threshold] 76 --x=<4..1000> graph width, in columns [72] 77 --y=<4..1000> graph height, in rows [20] 78 79 ms_print is Copyright (C) 2007-2013 Nicholas Nethercote. 80 and licensed under the GNU General Public License, version 2. 81 Bug reports, feedback, admiration, abuse, etc, to: njn\@valgrind.org. 82 83END 84; 85 86# Used in various places of output. 87my $fancy = '-' x 80; 88my $fancy_nl = $fancy . "\n"; 89 90# Returns 0 if the denominator is 0. 91sub safe_div_0($$) 92{ 93 my ($x, $y) = @_; 94 return ($y ? $x / $y : 0); 95} 96 97#----------------------------------------------------------------------------- 98# Argument and option handling 99#----------------------------------------------------------------------------- 100sub process_cmd_line() 101{ 102 my @files; 103 104 # Grab a copy of the arguments, for printing later. 105 for my $arg (@ARGV) { 106 $ms_print_args .= " $arg"; # The arguments. 107 } 108 109 for my $arg (@ARGV) { 110 111 # Option handling 112 if ($arg =~ /^-/) { 113 114 # --version 115 if ($arg =~ /^--version$/) { 116 die("ms_print-$version\n"); 117 118 # --threshold=X (tolerates a trailing '%') 119 } elsif ($arg =~ /^--threshold=([\d\.]+)%?$/) { 120 $threshold = $1; 121 ($1 >= 0 && $1 <= 100) or die($usage); 122 123 } elsif ($arg =~ /^--x=(\d+)$/) { 124 $graph_x = $1; 125 (4 <= $graph_x && $graph_x <= 1000) or die($usage); 126 127 } elsif ($arg =~ /^--y=(\d+)$/) { 128 $graph_y = $1; 129 (4 <= $graph_y && $graph_y <= 1000) or die($usage); 130 131 } else { # -h and --help fall under this case 132 die($usage); 133 } 134 } else { 135 # Not an option. Remember it as a filename. 136 push(@files, $arg); 137 } 138 } 139 140 # Must have chosen exactly one input file. 141 if (scalar @files) { 142 $input_file = $files[0]; 143 } else { 144 die($usage); 145 } 146} 147 148#----------------------------------------------------------------------------- 149# Reading the input file: auxiliary functions 150#----------------------------------------------------------------------------- 151 152# Gets the next line, stripping comments and skipping blanks. 153# Returns undef at EOF. 154sub get_line() 155{ 156 while (my $line = <INPUTFILE>) { 157 $line =~ s/#.*$//; # remove comments 158 if ($line !~ /^\s*$/) { 159 return $line; # return $line if non-empty 160 } 161 } 162 return undef; # EOF: return undef 163} 164 165sub equals_num_line($$) 166{ 167 my ($line, $fieldname) = @_; 168 defined($line) 169 or die("Line $.: expected \"$fieldname\" line, got end of file\n"); 170 $line =~ s/^$fieldname=(.*)\s*$// 171 or die("Line $.: expected \"$fieldname\" line, got:\n$line"); 172 return $1; 173} 174 175sub is_significant_XPt($$$) 176{ 177 my ($is_top_node, $xpt_szB, $total_szB) = @_; 178 ($xpt_szB <= $total_szB) or die; 179 # Nb: we always consider the alloc-XPt significant, even if the size is 180 # zero. 181 return $is_top_node || 0 == $threshold || 182 ( $total_szB != 0 && $xpt_szB * 100 / $total_szB >= $threshold ); 183} 184 185#----------------------------------------------------------------------------- 186# Reading the input file: reading heap trees 187#----------------------------------------------------------------------------- 188 189# Forward declaration, because it's recursive. 190sub read_heap_tree($$$$$); 191 192# Return pair: if the tree was significant, both are zero. If it was 193# insignificant, the first element is 1 and the second is the number of 194# bytes. 195sub read_heap_tree($$$$$) 196{ 197 # Read the line and determine if it is significant. 198 my ($is_top_node, $this_prefix, $child_midfix, $arrow, $mem_total_B) = @_; 199 my $line = get_line(); 200 (defined $line and $line =~ /^\s*n(\d+):\s*(\d+)(.*)$/) 201 or die("Line $.: expected a tree node line, got:\n$line\n"); 202 my $n_children = $1; 203 my $bytes = $2; 204 my $details = $3; 205 my $perc = safe_div_0(100 * $bytes, $mem_total_B); 206 # Nb: we always print the alloc-XPt, even if its size is zero. 207 my $is_significant = is_significant_XPt($is_top_node, $bytes, $mem_total_B); 208 209 # We precede this node's line with "$this_prefix.$arrow". We precede 210 # any children of this node with "$this_prefix$child_midfix$arrow". 211 if ($is_significant) { 212 # Nb: $details might have '%' in it, so don't embed directly in the 213 # format string. 214 printf(TMPFILE 215 "$this_prefix$arrow%05.2f%% (%sB)%s\n", $perc, commify($bytes), 216 $details); 217 } 218 219 # Now read all the children. 220 my $n_insig_children = 0; 221 my $total_insig_children_szB = 0; 222 my $this_prefix2 = $this_prefix . $child_midfix; 223 for (my $i = 0; $i < $n_children; $i++) { 224 # If child is the last sibling, the midfix is empty. 225 my $child_midfix2 = ( $i+1 == $n_children ? " " : "| " ); 226 my ($is_child_insignificant, $child_insig_bytes) = 227 # '0' means it's not the top node of the tree. 228 read_heap_tree(0, $this_prefix2, $child_midfix2, "->", 229 $mem_total_B); 230 $n_insig_children += $is_child_insignificant; 231 $total_insig_children_szB += $child_insig_bytes; 232 } 233 234 if ($is_significant) { 235 # If this was significant but any children were insignificant, print 236 # the "in N places" line for them. 237 if ($n_insig_children > 0) { 238 $perc = safe_div_0(100 * $total_insig_children_szB, $mem_total_B); 239 printf(TMPFILE "%s->%05.2f%% (%sB) in %d+ places, all below " 240 . "ms_print's threshold (%05.2f%%)\n", 241 $this_prefix2, $perc, commify($total_insig_children_szB), 242 $n_insig_children, $threshold); 243 print(TMPFILE "$this_prefix2\n"); 244 } 245 246 # If this node has no children, print an extra (mostly) empty line. 247 if (0 == $n_children) { 248 print(TMPFILE "$this_prefix2\n"); 249 } 250 return (0, 0); 251 252 } else { 253 return (1, $bytes); 254 } 255} 256 257#----------------------------------------------------------------------------- 258# Reading the input file: main 259#----------------------------------------------------------------------------- 260 261sub max_label_2($$) 262{ 263 my ($szB, $szB_scaled) = @_; 264 265 # For the label, if $szB is 999B or below, we print it as an integer. 266 # Otherwise, we print it as a float with 5 characters (including the '.'). 267 # Examples (for bytes): 268 # 1 --> 1 B 269 # 999 --> 999 B 270 # 1000 --> 0.977 KB 271 # 1024 --> 1.000 KB 272 # 10240 --> 10.00 KB 273 # 102400 --> 100.0 KB 274 # 1024000 --> 0.977 MB 275 # 1048576 --> 1.000 MB 276 # 277 if ($szB < 1000) { return sprintf("%5d", $szB); } 278 elsif ($szB_scaled < 10) { return sprintf("%5.3f", $szB_scaled); } 279 elsif ($szB_scaled < 100) { return sprintf("%5.2f", $szB_scaled); } 280 else { return sprintf("%5.1f", $szB_scaled); } 281} 282 283# Work out the units for the max value, measured in instructions. 284sub i_max_label($) 285{ 286 my ($nI) = @_; 287 288 # We repeat until the number is less than 1000. 289 my $nI_scaled = $nI; 290 my $unit = "i"; 291 # Nb: 'k' is the "kilo" (1000) prefix. 292 if ($nI_scaled >= 1000) { $unit = "ki"; $nI_scaled /= 1024; } 293 if ($nI_scaled >= 1000) { $unit = "Mi"; $nI_scaled /= 1024; } 294 if ($nI_scaled >= 1000) { $unit = "Gi"; $nI_scaled /= 1024; } 295 if ($nI_scaled >= 1000) { $unit = "Ti"; $nI_scaled /= 1024; } 296 if ($nI_scaled >= 1000) { $unit = "Pi"; $nI_scaled /= 1024; } 297 if ($nI_scaled >= 1000) { $unit = "Ei"; $nI_scaled /= 1024; } 298 if ($nI_scaled >= 1000) { $unit = "Zi"; $nI_scaled /= 1024; } 299 if ($nI_scaled >= 1000) { $unit = "Yi"; $nI_scaled /= 1024; } 300 301 return (max_label_2($nI, $nI_scaled), $unit); 302} 303 304# Work out the units for the max value, measured in bytes. 305sub B_max_label($) 306{ 307 my ($szB) = @_; 308 309 # We repeat until the number is less than 1000, but we divide by 1024 on 310 # each scaling. 311 my $szB_scaled = $szB; 312 my $unit = "B"; 313 # Nb: 'K' or 'k' are acceptable as the "binary kilo" (1024) prefix. 314 # (Strictly speaking, should use "KiB" (kibibyte), "MiB" (mebibyte), etc, 315 # but they're not in common use.) 316 if ($szB_scaled >= 1000) { $unit = "KB"; $szB_scaled /= 1024; } 317 if ($szB_scaled >= 1000) { $unit = "MB"; $szB_scaled /= 1024; } 318 if ($szB_scaled >= 1000) { $unit = "GB"; $szB_scaled /= 1024; } 319 if ($szB_scaled >= 1000) { $unit = "TB"; $szB_scaled /= 1024; } 320 if ($szB_scaled >= 1000) { $unit = "PB"; $szB_scaled /= 1024; } 321 if ($szB_scaled >= 1000) { $unit = "EB"; $szB_scaled /= 1024; } 322 if ($szB_scaled >= 1000) { $unit = "ZB"; $szB_scaled /= 1024; } 323 if ($szB_scaled >= 1000) { $unit = "YB"; $szB_scaled /= 1024; } 324 325 return (max_label_2($szB, $szB_scaled), $unit); 326} 327 328# Work out the units for the max value, measured in ms/s/h. 329sub t_max_label($) 330{ 331 my ($szB) = @_; 332 333 # We scale from millisecond to seconds to hours. 334 # 335 # XXX: this allows a number with 6 chars, eg. "3599.0 s" 336 my $szB_scaled = $szB; 337 my $unit = "ms"; 338 if ($szB_scaled >= 1000) { $unit = "s"; $szB_scaled /= 1000; } 339 if ($szB_scaled >= 3600) { $unit = "h"; $szB_scaled /= 3600; } 340 341 return (max_label_2($szB, $szB_scaled), $unit); 342} 343 344# This prints four things: 345# - the output header 346# - the graph 347# - the snapshot summaries (number, list of detailed ones) 348# - the snapshots 349# 350# The first three parts can't be printed until we've read the whole input file; 351# but the fourth part is much easier to print while we're reading the file. So 352# we print the fourth part to a tmp file, and then dump the tmp file at the 353# end. 354# 355sub read_input_file() 356{ 357 my $desc = ""; # Concatenated description lines. 358 my $peak_mem_total_szB = 0; 359 360 # Info about each snapshot. 361 my @snapshot_nums = (); 362 my @times = (); 363 my @mem_total_Bs = (); 364 my @is_detaileds = (); 365 my $peak_num = -1; # An initial value that will be ok if no peak 366 # entry is in the file. 367 368 #------------------------------------------------------------------------- 369 # Read start of input file. 370 #------------------------------------------------------------------------- 371 open(INPUTFILE, "< $input_file") 372 || die "Cannot open $input_file for reading\n"; 373 374 # Read "desc:" lines. 375 my $line; 376 while ($line = get_line()) { 377 if ($line =~ s/^desc://) { 378 $desc .= $line; 379 } else { 380 last; 381 } 382 } 383 384 # Read "cmd:" line (Nb: will already be in $line from "desc:" loop above). 385 ($line =~ /^cmd:\s*(.*)$/) or die("Line $.: missing 'cmd' line\n"); 386 $cmd = $1; 387 388 # Read "time_unit:" line. 389 $line = get_line(); 390 ($line =~ /^time_unit:\s*(.*)$/) or 391 die("Line $.: missing 'time_unit' line\n"); 392 $time_unit = $1; 393 394 #------------------------------------------------------------------------- 395 # Print snapshot list header to $tmp_file. 396 #------------------------------------------------------------------------- 397 open(TMPFILE, "> $tmp_file") 398 || die "Cannot open $tmp_file for writing\n"; 399 400 my $time_column = sprintf("%14s", "time($time_unit)"); 401 my $column_format = "%3s %14s %16s %16s %13s %12s\n"; 402 my $header = 403 $fancy_nl . 404 sprintf($column_format 405 , "n" 406 , $time_column 407 , "total(B)" 408 , "useful-heap(B)" 409 , "extra-heap(B)" 410 , "stacks(B)" 411 ) . 412 $fancy_nl; 413 print(TMPFILE $header); 414 415 #------------------------------------------------------------------------- 416 # Read body of input file. 417 #------------------------------------------------------------------------- 418 $line = get_line(); 419 while (defined $line) { 420 my $snapshot_num = equals_num_line($line, "snapshot"); 421 my $time = equals_num_line(get_line(), "time"); 422 my $mem_heap_B = equals_num_line(get_line(), "mem_heap_B"); 423 my $mem_heap_extra_B = equals_num_line(get_line(), "mem_heap_extra_B"); 424 my $mem_stacks_B = equals_num_line(get_line(), "mem_stacks_B"); 425 my $mem_total_B = $mem_heap_B + $mem_heap_extra_B + $mem_stacks_B; 426 my $heap_tree = equals_num_line(get_line(), "heap_tree"); 427 428 # Print the snapshot data to $tmp_file. 429 printf(TMPFILE $column_format, 430 , $snapshot_num 431 , commify($time) 432 , commify($mem_total_B) 433 , commify($mem_heap_B) 434 , commify($mem_heap_extra_B) 435 , commify($mem_stacks_B) 436 ); 437 438 # Remember the snapshot data. 439 push(@snapshot_nums, $snapshot_num); 440 push(@times, $time); 441 push(@mem_total_Bs, $mem_total_B); 442 push(@is_detaileds, ( $heap_tree eq "empty" ? 0 : 1 )); 443 $peak_mem_total_szB = $mem_total_B 444 if $mem_total_B > $peak_mem_total_szB; 445 446 # Read the heap tree, and if it's detailed, print it and a subsequent 447 # snapshot list header to $tmp_file. 448 if ($heap_tree eq "empty") { 449 $line = get_line(); 450 } elsif ($heap_tree =~ "(detailed|peak)") { 451 # If "peak", remember the number. 452 if ($heap_tree eq "peak") { 453 $peak_num = $snapshot_num; 454 } 455 # '1' means it's the top node of the tree. 456 read_heap_tree(1, "", "", "", $mem_total_B); 457 458 # Print the header, unless there are no more snapshots. 459 $line = get_line(); 460 if (defined $line) { 461 print(TMPFILE $header); 462 } 463 } else { 464 die("Line $.: expected 'empty' or '...' after 'heap_tree='\n"); 465 } 466 } 467 468 close(INPUTFILE); 469 close(TMPFILE); 470 471 #------------------------------------------------------------------------- 472 # Print header. 473 #------------------------------------------------------------------------- 474 print($fancy_nl); 475 print("Command: $cmd\n"); 476 print("Massif arguments: $desc"); 477 print("ms_print arguments:$ms_print_args\n"); 478 print($fancy_nl); 479 print("\n\n"); 480 481 #------------------------------------------------------------------------- 482 # Setup for graph. 483 #------------------------------------------------------------------------- 484 # The ASCII graph. 485 # Row 0 ([0..graph_x][0]) is the X-axis. 486 # Column 0 ([0][0..graph_y]) is the Y-axis. 487 # The rest ([1][1]..[graph_x][graph_y]) is the usable graph area. 488 my @graph; 489 my $x; 490 my $y; 491 492 my $n_snapshots = scalar(@snapshot_nums); 493 ($n_snapshots > 0) or die; 494 my $end_time = $times[$n_snapshots-1]; 495 ($end_time >= 0) or die; 496 497 # Setup graph[][]. 498 $graph[0][0] = '+'; # axes join point 499 for ($x = 1; $x <= $graph_x; $x++) { $graph[$x][0] = '-'; } # X-axis 500 for ($y = 1; $y <= $graph_y; $y++) { $graph[0][$y] = '|'; } # Y-axis 501 $graph[$graph_x][0] = '>'; # X-axis arrow 502 $graph[0][$graph_y] = '^'; # Y-axis arrow 503 for ($x = 1; $x <= $graph_x; $x++) { # usable area 504 for ($y = 1; $y <= $graph_y; $y++) { 505 $graph[$x][$y] = ' '; 506 } 507 } 508 509 #------------------------------------------------------------------------- 510 # Write snapshot bars into graph[][]. 511 #------------------------------------------------------------------------- 512 # Each row represents K bytes, which is 1/graph_y of the peak size 513 # (and K can be non-integral). When drawing the column for a snapshot, 514 # in order to fill the slot in row y (where the first row drawn on is 515 # row 1) with a full-char (eg. ':'), it must be >= y*K. For example, if 516 # K = 10 bytes, then the values 0, 4, 5, 9, 10, 14, 15, 19, 20, 24, 25, 517 # 29, 30 would be drawn like this (showing one per column): 518 # 519 # y y * K 520 # - ----------- 521 # 30 | : 3 3 * 10 = 30 522 # 20 | ::::: 2 2 * 10 = 20 523 # 10 | ::::::::: 1 1 * 10 = 10 524 # 0 +------------- 525 526 my $peak_char = '#'; 527 my $detailed_char = '@'; 528 my $normal_char = ':'; 529 530 # Work out how many bytes each row represents. If the peak size was 0, 531 # make it 1 so that the Y-axis covers a non-zero range of values. 532 # Likewise for end_time. 533 if (0 == $peak_mem_total_szB) { $peak_mem_total_szB = 1; } 534 if (0 == $end_time ) { $end_time = 1; } 535 my $K = $peak_mem_total_szB / $graph_y; 536 537 $x = 0; 538 my $prev_x = 0; 539 my $prev_y_max = 0; 540 my $prev_char = ':'; 541 542 for (my $i = 0; $i < $n_snapshots; $i++) { 543 544 # Work out which column this snapshot belongs to. 545 $prev_x = $x; 546 my $x_pos_frac = ($times[$i] / ($end_time)) * $graph_x; 547 $x = int($x_pos_frac) + 1; # +1 due to Y-axis 548 # The final snapshot will spill over into the n+1th column, which 549 # doesn't get shown. So we fudge that one and pull it back a 550 # column, as if the end_time was actually end_time+epsilon. 551 if ($times[$i] == $end_time) { 552 ($x == $graph_x+1) or die; 553 $x = $graph_x; 554 } 555 556 # If there was a gap between the previous snapshot's column and this 557 # one, we draw a horizontal line in the gap (so long as it doesn't 558 # trash the x-axis). Without this, graphs with a few sparse 559 # snapshots look funny -- as if the memory usage is in temporary 560 # spikes. 561 if ($prev_y_max > 0) { 562 for (my $x2 = $prev_x + 1; $x2 < $x; $x2++) { 563 $graph[$x2][$prev_y_max] = $prev_char; 564 } 565 } 566 567 # Choose the column char. 568 my $char; 569 if ($i == $peak_num) { $char = $peak_char; } 570 elsif ($is_detaileds[$i]) { $char = $detailed_char; } 571 else { $char = $normal_char; } 572 573 # Grow this snapshot bar from bottom to top. 574 my $y_max = 0; 575 for ($y = 1; $y <= $graph_y; $y++) { 576 if ($mem_total_Bs[$i] >= $y * $K) { 577 # Priority order for chars: peak > detailed > normal 578 my $should_draw_char = 579 (($char eq $peak_char) 580 or 581 ($char eq $detailed_char and 582 $graph[$x][$y] ne $peak_char 583 ) 584 or 585 ($char eq $normal_char and 586 $graph[$x][$y] ne $peak_char and 587 $graph[$x][$y] ne $detailed_char 588 ) 589 ); 590 591 if ($should_draw_char) { 592 $graph[$x][$y] = $char; 593 } 594 $y_max = $y; 595 } 596 } 597 $prev_y_max = $y_max; 598 $prev_char = $char; 599 } 600 601 #------------------------------------------------------------------------- 602 # Print graph[][]. 603 #------------------------------------------------------------------------- 604 my ($y_label, $y_unit) = B_max_label($peak_mem_total_szB); 605 my ($x_label, $x_unit); 606 if ($time_unit eq "i") { ($x_label, $x_unit) = i_max_label($end_time) } 607 elsif ($time_unit eq "ms") { ($x_label, $x_unit) = t_max_label($end_time) } 608 elsif ($time_unit eq "B") { ($x_label, $x_unit) = B_max_label($end_time) } 609 else { die "bad time_unit: $time_unit\n"; } 610 611 printf(" %2s\n", $y_unit); 612 for ($y = $graph_y; $y >= 0; $y--) { 613 if ($graph_y == $y) { # top row 614 print($y_label); 615 } elsif (0 == $y) { # bottom row 616 print(" 0 "); 617 } else { # anywhere else 618 print(" "); 619 } 620 621 # Axis and data for the row. 622 for ($x = 0; $x <= $graph_x; $x++) { 623 printf("%s", $graph[$x][$y]); 624 } 625 if (0 == $y) { 626 print("$x_unit\n"); 627 } else { 628 print("\n"); 629 } 630 } 631 printf(" 0%s%5s\n", ' ' x ($graph_x-5), $x_label); 632 633 #------------------------------------------------------------------------- 634 # Print snapshot numbers. 635 #------------------------------------------------------------------------- 636 print("\n"); 637 print("Number of snapshots: $n_snapshots\n"); 638 print(" Detailed snapshots: ["); 639 my $first_detailed = 1; 640 for (my $i = 0; $i < $n_snapshots; $i++) { 641 if ($is_detaileds[$i]) { 642 if ($first_detailed) { 643 printf("$i"); 644 $first_detailed = 0; 645 } else { 646 printf(", $i"); 647 } 648 if ($i == $peak_num) { 649 print(" (peak)"); 650 } 651 } 652 } 653 print("]\n\n"); 654 655 #------------------------------------------------------------------------- 656 # Print snapshots, from $tmp_file. 657 #------------------------------------------------------------------------- 658 open(TMPFILE, "< $tmp_file") 659 || die "Cannot open $tmp_file for reading\n"; 660 661 while (my $line = <TMPFILE>) { 662 print($line); 663 } 664 unlink($tmp_file); 665} 666 667#----------------------------------------------------------------------------- 668# Misc functions 669#----------------------------------------------------------------------------- 670sub commify ($) { 671 my ($val) = @_; 672 1 while ($val =~ s/^(\d+)(\d{3})/$1,$2/); 673 return $val; 674} 675 676 677#---------------------------------------------------------------------------- 678# "main()" 679#---------------------------------------------------------------------------- 680process_cmd_line(); 681read_input_file(); 682 683##--------------------------------------------------------------------## 684##--- end ms_print.in ---## 685##--------------------------------------------------------------------## 686