Re: perl to query informix
On Thu, 9 Jul 1998, Edward Villalovoz wrote:
> Can anyone tell me how to convert this csh script into a perl script? I
> would rather not use dbi or any other add-ons. Thanks
>
> #!/bin/csh
>
> setenv INFORMIXSERVER n36_shm> dbaccess << eof
> database pmsys@n36;
> UNLOAD TO '/net/n28/u1/out/share/edv/Ebase/c04b.txt' DELIMITER '|'
> SELECT EXTEND (start, YEAR to DAY), EXTEND (start, HOUR to MINUTE), subj1,
> subj3, switchid,
> dr_cand, dr_out, dr_in,
> ra_total_value, ra_false_value, ra_vox_value, ravox_fls_value,
> ir_cel_ho_req, ir_cel_ho_scomp, ir_cel_ho_sfail, ir_cel_ho_tcomp,
> ir_cel_ho_tfail,
> ir_sw_ho_scomp, ir_sw_ho_sfail, ir_sw_ho_tcomp, ir_sw_ho_talloc,
> ir_sec_ho_req, ir_sec_ho_scomp, ir_sec_ho_sfail, ir_sec_ho_tcomp,
> ir_sec_ho_tfail,
> ia_sec_ho_req, ia_sec_ho_comp, ia_sec_ho_sfail, ia_sec_ho_tfail,
> ir_tier_ho_comp, ir_tier_ho_fail,
> em_ho_req, em_ho_comp, em_ho_fail,
> ci_ho_dcomp, ci_ho_dfail, ci_ho_ucomp, ci_ho_ufail,
> fast_ho_req
> FROM tmmc0_4b_980708
> WHERE EXTEND (start, HOUR to MINUTE) = "12:00";> eof
#!/usr/bin/perl -w
$ENV{INFORMIXSERVER} = "n36_shm";
system q{
dbaccess << 'eof'
database pmsys@n36;
UNLOAD TO '/net/n28/u1/out/share/edv/Ebase/c04b.txt' DELIMITER '|'
SELECT EXTEND (start, YEAR to DAY), EXTEND (start, HOUR to MINUTE), subj1,
subj3, switchid,
dr_cand, dr_out, dr_in,
ra_total_value, ra_false_value, ra_vox_value, ravox_fls_value,
ir_cel_ho_req, ir_cel_ho_scomp, ir_cel_ho_sfail, ir_cel_ho_tcomp,
ir_cel_ho_tfail, ir_sw_ho_scomp, ir_sw_ho_sfail, ir_sw_ho_tcomp,
ir_sw_ho_talloc, ir_sec_ho_req, ir_sec_ho_scomp, ir_sec_ho_sfail,
ir_sec_ho_tcomp, ir_sec_ho_tfail, ia_sec_ho_req, ia_sec_ho_comp,
ia_sec_ho_sfail, ia_sec_ho_tfail, ir_tier_ho_comp, ir_tier_ho_fail,
em_ho_req, em_ho_comp, em_ho_fail,
ci_ho_dcomp, ci_ho_dfail, ci_ho_ucomp, ci_ho_ufail,
fast_ho_req
FROM tmmc0_4b_980708
WHERE EXTEND (start, HOUR to MINUTE) = "12:00";eof
};
Yours,
Jonathan Leffler (jleffler@informix.com) #include <witticism.h>
Guardian of DBD::Informix -- see http://www.perl.com/CPAN