Wow, you don't learn do you.
Do you mean that you need to merge two files by printing alternate lines from each?
To do that you could
- set a $data_left flag to 3
- open both files, checking your opens succeeded
- while the $data_left flag is true
- if you can read from the first file and $data_left%2 = 1
- print out the line you read
- if however you couldn't read from the first file and $data_left%2 = 1
- set the $data_left flag to $data_left - 1
- if you can read from the second file and $data_left >= 2.
- print out the line you read
- if however you couldn't read from the second file and $data_left >= 2
- set the $data_left flag to $data_left - 2
- close the files
This assumes you want to continue adding data after one of the files is empty and that you don't want to insert blank lines as placeholders for the empty file
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."
| [reply]
[d/l]
[select] |
Please, use <c>...</c> tags around the file examples.
How are we to give you another solution if we do not know which one you already have? | [reply] |
please cheeck 1 solution of
http://www.perlmonks.org/?node_id=911696
| [reply] |
If you're running in a *nix environment, there already exists a utility that does what you want: paste.
man paste
'nuff said :) | [reply]
[d/l] |