The following script is to read 4 consecutive lines at a time from a
file, concatenate the first 3 lines
(with a ", "), and print the result to STDOUT. If the 3 lines aren't
concatenated they print correctly, however
if they are, the result is gibberish. Any suggestions. thx., EC.
--------------------------------------------------------------------------------------------------------------------------------------------------
#!/bin/perl
# Read a series of 4 rows from a file and print the first 3 on
# the same line.
$file = 'example.txt'; # Name the file
open(INFO, $file); # Open the file
$row_num = 0;
while (<INFO>) {
$i = $row_num%4;
if ($i <= 2) {
$col[$i] = "$_";
}
if ($i <= 1) {
chomp ($col[$i]);
}
if ($i == 2) {
#$row = join (', ', @col);
printf ("%s", $col[0]);
printf (", ");
printf "%s, ", $col[1];
printf "%s\n", $col[2];
}
$row_num++;
}
close(INFO); # Close the file
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
