Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (7)
As of 2020-09-30 10:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If at first I donít succeed, I Ö










    Results (160 votes). Check out past polls.

    Notices?