Re: Multiple file handles

using one file to reference zip codes

Instead of Spreadsheet, INI file maybe a lite weight alternative. The content may be look like:

code1 = state 1
code2 = state 2
...
[download]

Then your Perl script:

use strict;
use Config::Tiny;

my $Config = Config::Tiny->read( 'ZipCodes.ini' );

sub check {
 my $code = shift;
 return $Config->{_}{$code} or die "No such code '$code' "; 
}

my $st_name = check ( $code ) ;
[download]

Code not tested, but the idea is like that. CPAN Config::Tiny

Comment on Re: Multiple file handles Select or Download Code

Replies are listed 'Best First'.
Re^2: Multiple file handles by stevieb (Canon) on Feb 03, 2023 at 17:09 UTC
If I were to use a file as opposed to a DB, I'd most definitely use JSON. Cross-platform, cross-language, and web API ready. codes.json `{ "91280": "CA", "61682": "NY", "23823": "WA" }` [download] Perl script: `use warnings; use strict; use JSON; my $file = 'codes.json'; my $data; { local $/; open my $fh, '<', $file or die $!; my $json = <$fh>; $data = decode_json $json; } print "$_: $data->{$_}\n" for sort keys %$data;` [download] Output: `23823: WA 61682: NY 91280: CA` [download]	[reply] [d/l] [select]
Re^3: Multiple file handles by MoodyDreams999 (Beadle) on Apr 07, 2023 at 21:44 UTC
Thats actually a really good idea, We do use alot json stuff here, this might be a simpler way for me to do this, because I'd like to create 2 versions where I can run one on my machine, then use another to reference the database, but still not sure if I could reference mysql database on my local machine. i'll post more data once I get that connection working. This is what I have so far though. `my $database = "asterisk"; my $user = "root"; my $host = 192.168.8.50; my $password = 123; my $dbhA = DBI->connect("DBI:mysql:$database,$host","$password") o +r die "Couldn't connect to database: ".DBI->errstr;` [download] using DBI What would you recommed DBI vs DBD::mysql?	[reply] [d/l]
Re^4: Multiple file handles by 1nickt (Canon) on Apr 08, 2023 at 10:41 UTC
DBI is the plumbing; DBD::mysql is the fitting. You need both. From the doc for DBD::mysql (plus your error handling): `my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port"; my $dbh = DBI->connect($dsn, $user, $password) or die "Couldn't connec +t to database: ".DBI->errstr;` [download] Set up all those variables then use that exact code snippet and it should work for you. Hope this helps! The way forward always starts with a minimal test.	[reply] [d/l]
Re^5: Multiple file handles by MoodyDreams999 (Beadle) on Apr 13, 2023 at 17:26 UTC
Re^2: Multiple file handles by MoodyDreams999 (Beadle) on Apr 07, 2023 at 21:37 UTC
oo thats a nice module, I'm going to try playing around with that idea maybe theres a tiny module I can use to help reference or make a log file too. I've decided to take another crack at connecting to mysql database this time though, but ill definitely use that idea. Thank you	[reply]


Think about Loose Coupling
	PerlMonks