Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re^5: converting txt to csv and formatting

by Jim (Curate)
on Jul 06, 2014 at 02:42 UTC ( #1092423=note: print w/replies, xml ) Need Help??

in reply to Re^4: converting txt to csv and formatting
in thread converting txt to csv and formatting

I recommend you clearly separate the parsing of the input from the formatting and outputting of the CSV records. This is a more maintainable and less error-prone technique than inputting/parsing and formatting/outputting simultaneously. I also think using modular arithmetic with $. ($INPUT_LINE_NUMBER) is less clear than simply reading each trio of lines explicitly as AppleFritter demonstrated here.

I also recommend you use autodie, explicitly specify the character encodings of the two text files, and explicitly close both file handles.

use autodie qw( open close ); my $input_file = 'clients.txt'; my $output_file = 'clients.csv'; open my $input_fh, '<encoding(UTF-8)', $input_file; open my $output_fh, '>encoding(UTF-8)', $output_file; # Process the client data file... close $input_fh; close $output_fh; exit 0;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1092423]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2021-01-17 13:20 GMT
Find Nodes?
    Voting Booth?