perl script with db query output to file

solidbulk · 08-24-2022, 09:31 PM

Hello, I would like to setup a perl script that connects to a microsoft sql database server executes a query then outputs to a specified file on the machine that runs the perl without the column header. I would like it to overwrite the file each time it is run.

example file contents starting with first line
cow
dog
mouse
horse
boar

Any pointers would be greatly appreciated.

I am running perl 5.16.

Thanks in advance.

NevemTeve · 08-24-2022, 11:20 PM

Have you got MsSql client programs (sqlcmd) installed?
https://docs.microsoft.com/en-us/sql...l-server-ver16

solidbulk · 08-25-2022, 01:20 AM

Quote:

Originally Posted by NevemTeve

Have you got MsSql client programs (sqlcmd) installed?
https://docs.microsoft.com/en-us/sql...l-server-ver16

How can I check what version is installed if any?

NevemTeve · 08-25-2022, 01:26 AM

As a start, try command `sqlcmd -?`

pan64 · 08-25-2022, 03:18 AM

Quote:

Originally Posted by solidbulk

How can I check what version is installed if any?

looks like you need to learn a lot. Why do you want to connect at all (is this some kind of homework)? Where is this database running?
There are a lot of different ways to connect to a database and retrieve some data, but without details hard to say anything.
this is probably a way: https://www.easysoft.com/developer/l..._dbd_odbc.html

solidbulk · 08-25-2022, 10:08 AM

Quote:

Originally Posted by NevemTeve

As a start, try command `sqlcmd -?`

Yes this (MsSql client programs (sqlcmd) is available on the machine.

Turbocapitalist · 08-25-2022, 11:16 AM

Quote:

Originally Posted by solidbulk

I am running perl 5.16.

And which distro is this on, including version?

solidbulk · 08-25-2022, 12:28 PM

Quote:

Originally Posted by Turbocapitalist

And which distro is this on, including version?

rhels 7.9

solidbulk · 08-26-2022, 10:33 AM

@NevemTeve I was able to output cmdline query to a file. I removed the header using -h -1 option , and placed set no count on in the beginning of the query to remove the (rows affected).

sundialsvcs · 08-26-2022, 12:04 PM

As others have observed, you do not have to "write a Perl script" in order to do something so trivial, especially if it is a "one-off one-time" requirement. There are plenty of both command-line and GUI tools which can run a query and send the query output to a file (in a variety of formats, with or without headers).