Re: Problem with DBI and placeholders

, @row;     if ( ($#insert_rows % $#row ) == ($chunksize - 1) ){   $dst_sth->execute( @insert_rows );   undef @insert_rows;     };   }; [...] the @insert_rows array seems to consume inordinate amount of memory. Where can I be making the mistake?   On Saturday, April 10, 2021, 1

Re: Problem with DBI and placeholders

SELECT * FROM "test"; rather than  SELECT * FROM test; This isn't a problem for Postgres but MySQL doesn't accept quoted table names. On Fri, Apr 9, 2021 at 1:25 PM mailing lists via beginners wrote: I'm using: CentOS Linux release 7.9.2009 (Core) perl 5.16.3 perl-DBD

Re: Problem with DBI and placeholders

OM $table"); $sth->execute() && say "OK 2"; Em April 9, 2021 12:25:18 PM UTC, mailing lists via beginners escreveu: I'm using: CentOS Linux release 7.9.2009 (Core) perl 5.16.3 perl-DBD-MySQL-4.023 perl-DBI-1.627 On Friday, April 9, 2021, 2:19:13 PM GMT+2, mailing l

Re: Problem with DBI and placeholders

I'm using: CentOS Linux release 7.9.2009 (Core) perl 5.16.3 perl-DBD-MySQL-4.023 perl-DBI-1.627 On Friday, April 9, 2021, 2:19:13 PM GMT+2, mailing lists via beginners wrote: without using the variable $table it also fails with the same error $sth = $dbh->prepare("

Re: Problem with DBI and placeholders

without using the variable $table it also fails with the same error $sth = $dbh->prepare("SELECT * FROM ?");$sth->execute("test") && say "OK"; On Friday, April 9, 2021, 2:12:01 PM GMT+2, mailing lists via beginners wrote: thanks Andrew

Re: Problem with DBI and placeholders

e" is probably what you want. On Fri, Apr 9, 2021 at 12:49 PM mailing lists via beginners wrote: Hello, I am having a problem with a very simple task and I don't see where the fault is. The first query works with problem but the second one fails with this error:  ./test.pl OK 1 DBD::my

Problem with DBI and placeholders

Hello, I am having a problem with a very simple task and I don't see where the fault is. The first query works with problem but the second one fails with this error:  ./test.pl OK 1 DBD::mysql::st execute failed: You have an error in your SQL syntax; check the manual that corresponds to your M

Re: Converting string to float

just to clarify, the real purpose of the script is output the hash to a json object, so the json output for the script: #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use JSON::PP; my ($input_string, %job_task); sub sanitize_data{ my $data = shift; $data->{'work_hours'} = (split

Converting string to float

Helo all, what I am trying to do is convert a value contained whitin a hash from string to float, but I fail to find the error, this is that I have tried: $ cat test.pl #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my ($input_string, %job_task); sub sanitize_data{ my $data = sh

problem with AnyEvent and blocking events

Hello teachers, I'm converting a simple perl multimedia script to an event based one, but it seems that I'm missing something very basic because I'm unable to make it work. The script receives commands from Lirc::Client (1.54) via next_codes() which is in blocking state whilst no data is avai

Re: advice about event programming

Hi Carl, > http://stackoverflow.com/questions/2232471/how-do-i-use-async-programming-in-perl > http://search.cpan.org/~mlehmann/AnyEvent-7.07/lib/AnyEvent.pm > do you think that AnyEvent is better than POE? since I know nothing about both I prefer learn the correct one even if it is a little

advice about event programming

Hello all, I have a little home proyect to learn programming using a raspberry with lirc (Lirc::Client), the music player daemon (Net::MPD) and lcdproc ( Net::LCDproc), each component works individually, but now I need glue all this parts and the problem is that I am not sure on how to do it.

Re: DBD::SQLite::db prepare failed: table turba_shares_2013_10_08 has no column named share_name

The error is the comma before AUTO_INCREMENT. Sorry for the noise. - Mensaje original - De: mailing lists Para: "beginners@perl.org" CC: Enviado: Miércoles 9 de octubre de 2013 11:10 Asunto: DBD::SQLite::db prepare failed: table turba_shares_2013_10_08 has no co

DBD::SQLite::db prepare failed: table turba_shares_2013_10_08 has no column named share_name

Hello, I have to do a simple backup, but I fail to see why this part (see attachment) of my script fails: $ ./test.pl INSERT INTO turba_shares_2013_10_08 (share_id, share_name, share_owner, share_flags, perm_creator, perm_default, perm_guest, attribute_name, attribute_desc, attribute_params

problem with nested regex matchs

Hello, is there any way to extract the queued ID (7BC5A446) from the first line and also match the second with only one regex?? #!/usr/bin/perl use strict; use warnings; use 5.010; while(){     if (/^(?\S+?)\s+?(?\S+?)\s+?(?\S+?)\s+?(?\S+?)\s+?(?\S+?):\s+?(?\S+?):\s+?to=(?\S+?),\s+?relay=(?\

Sending files efficiently with Net::SMTP

Hello all, I have a perl (Ver. 5.10.0) program running over an old machine which send messages with this code:     my $smtp = Net::SMTP->new($dstMailServer, Timeout=>10, Debug=>0,);     unless(defined($smtp)){     syslog LOG_INFO, "id:%s error: unable to connect with %s", $myid, $dstMailS

Re: understanding the ||= operator

>> 12$sheet -> {MaxRow} ||= $sheet -> {MinRow}; > >Line 12 can be written as: >$sheet->{'MaxRow'} = $sheet->{'MaxRow'} || $sheet->{'MinRow'}; then that I don't understand is the program logic :-( what's the purpose of lines 12 and 14?? -- To unsubscribe, e-mail: beginners-unsubscr.

understanding the ||= operator

Hello, for the following program, what is the function of lines 12 and 14 ??? 1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 use 5.010; 6 use Spreadsheet::XLSX; 7 8 my $excel = Spreadsheet::XLSX -> new ('Datos RCP 4_2_11-v2.xlsx'); 9 10 foreach my $sheet (@{$excel -> {W

Re: reading a big file

Slightly off topic but.. I dont know if this possible with your situation, but it may make more sense to put the growing file into a database and write reports out of the database that extract the needed data. Just a thought from a different point of view. On 7/15/05, Octavian Rasnita <[EMAIL PR

Re: Perl module question

Stephen Liu wrote: > Further to my last posting > $ perl wget_window.pl > Can't locate Tk.pm in @INC (@INC contains: > Tk.pm module still could not be found It can't be found because it didn't install: > t/zzScrolled.FAILED tests 66, 94 ... > /usr/bin/make test -- NOT OK >

Re: Need help with script

> Hi again, > Ok, I've got ActiveState on WinXP, 5.8.4 ... I tried and found that I > had the same problems as you. After much playing around, I found it's > a quoting problem on the command line (at least, in my case it was). > I just don't have a good grasp of quoting rules and precedence in D

Re: Need help with script

I am using Cygwin on Win2K and the version of perl on it is v5.8.0 I am using the same input file, but when I run the command you ran, the output looks like Object1 Description1 Object2 Description2 Object3 Description3 Thanks Errin Larsen wrote: > > Thanks for your help guys... > > > >

Re: Need help with script

Paul Johnson wrote: > On Thu, Sep 30, 2004 at 08:00:41AM -0500, Errin Larsen wrote: > > Hi Perlers, > > On 30 Sep 2004 10:11:29 +0100, Jose Alves de Castro > > <[EMAIL PROTECTED]> wrote: > > > On Wed, 2004-09-29 at 21:25, JupiterHost.Net wrote: > > > > perl -l -00pe's/n/t/;s/"//g;' FILENAME >

Need help with script

I have a file with the following format Object1 "Description1" Object2 "Description" Object3 "Description" I would like the output in the following format object1<...tab>Description1 object2<...tab>Description2 object3<...tab>Description3 Thanks -- To unsubscribe, e-mail: [EMAIL

Reading hex data from file.

Hi, Among other data, a binary file contains the bytes "00A5". I am trying to read these four bytes and get the decimal equivalent as follows: .. $buf; $hex_val; $dec_val; read(FD, $buf, 4); $buf -> "00A5" $hex_val = unpack("H*", $buf); $dec_val = hex($hex_val); ... Is there a way in wh

Modifying @INC

I want to add some paths to the @INC array to resolve certain package names at runtime. One of the methods is: "push(@INC,$path) or unshift($path,@INC)" and then say "require package_name;". the problem with this is that we still need to use the "::" operator with the symbols to resolve the packag

Rounding a negative number

$item = sprintf("%0.2f", $item); print $item, "\n"; The above code prints -992.99 if $item = -993, while it prints 993.00, if $item = 993. Why is the rounded number off by 0.01 if the number is negative? Thanks, SU -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail:

different argv behavior in different machines

I am a new perl user and I am running into a problem. I am trying to use argv and it's not returning the correct response on my laptop, but it's working fine on another machine. The only difference between the two machines is that on my laptop, I first installed the perl AS package for windows ra

Importing external data into arrays

I'm just a beginner to perl and am having some beginner type problems. I need to import a external file containing 15 character ID numbers (one per record) into an single dimensional array within perl. Later this array will be used to interrogate other data within the program. Can someone out the

How to readline when using "more" option in script.

Hi, I could use open(STDOUT,"| more") option to more big file. After this, I close STDOUT as if I do not close, readline prints the prompt even when more is not 100%. ### open(STDOUT,"| more") || "Cannot open stdout for more $!"; $status = system("cat report.tx

How to readline when using "more" option in script.

Hi, I could use open(STDOUT,"| more") option to more big file. After this, I close STDOUT as if I do not close, readline prints the prompt even when more is not 100%. ### open(STDOUT,"| more") || "Cannot open stdout for more $!"; $status = system("cat report.tx

Calling "more" in perl script for large files.

Hi There, Any pointers to how to call "more" on a file in perl script. I am writing one script which displays one report to user and then asks some inputs. User need to see complete file. To solve this, I thought I can call `more in the script and continue. But looks loke it is not possible. Any

Extract text between tags

I want the extract the text in between the tags from my htm file. I am using below code its not working Please let me know how to proceed further. use Text::Balanced "gen_extract_tagged"; my @queries = ( qq(QUERY = sdf) ); for (@queries) { my ($extracted, $remainder, $prefix) =

Loading Scalar Vars with Text - Readability

Hi, Adding Perl to the list of languages... and came across a question of loading vars with very long strings... Actually I am modifiying a prior employee's code and want to make it more readable. currently the code is such: my $longlist = "Clause1|Clause2|Clause3|Clause4|...|ClauseN"; I

Digest:MD5 compilation errors...

I'm trying to install Digest:MD5 2.33 on RHES 3 and getting compilation errors: perl Makefile.PL Perl's config says that U32 access must be aligned. Writing Makefile for Digest::MD5 make Makefile:85: *** missing separator. Stop. Here's a snippet of the Makefile starting with line #85: installma

How do you invoke a Clearcase View?

Does anyone know how to call a Clearcase setview from Perl, where you can change directories and move around the vob, and compile files? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

File Monitoring

Hi there, Can anyone recommend a good way to have a perl script that constantly monitors for the creation of new files on UNIX and launches another process? Thanks! Cheers, Ben -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Ntsendmail

Hi, I'm new to this and I'd like to know if anybody knows NTsendmail and how I can add variable that point to a textarea defined in a HTML file? I can run it now but it shows the example text defined in my pl script file. I'd like to replace that message with the content of a textarea of a HTML fi

Re: installing perl module without root permission

take a look at http://www.rcbowen.com/imho/perl/modules.html. Specifically he/she writes: If you do not have root permissions on the machine where you want to install the module, such as if you wish to install a module in your home directory, just change one of those commands. Instead of

installing perl module for mysql driver

Im trying to install the module DBD::mysql so I can connect to a mysql database from a perl script. The instructions for installing told me to run the command: perl -MCPAN -e 'install Bundle::DBD::mysql' this did its thing, downloaded and unzipped some gz gfiles, etc. Then said everything was ok

Re: PERL concatenating directory names

I'm on a Windows 2000 environment - and yes, I agree that using the PERL conventions would be best. Unfortunately, there is a specific request for this command to be used in this basic format. I've used the command in a shell script (.sh) and it works fine, but no luck in PERL. If you have any m

PERL concatenating directory names

I'm having a problem when redirecting output from a system call to a text file. A good example would be: command.com /c dir /O /a-d /s > dir.txt When I run this directly from the command line I will get the full path structure in the output file. When I call this from a perl script in the form:

Capture/Display a program's output in an ASP page

I would like to Capture/Display a program's output in an ASP page. Here's the program:(TestProg.pl) --- print "This line came from my test perl program"; Here is ASP to excute the program that some nice person on this Newgroup gave me. It executes

Perl on WinCE

Hi, This is with regard to deploying Perl on Windows CE. My hardware setup consists of an Intel Celeron Processor, an i830M4 chipset Intel motherboard and I am running WindowsCE .Net 4.2 here. The board is targeted at Notebook devices. This is acting as my Windows CE device while I am using a

New Perl User needs help with POST in perl

I have written my HTML code to where it uses POST to collect information. Where do I start to write a script that collects the data from the web site, places the input into a dbm file, then places a 1 next to it like an array? Some of the data in the file will have zeros, while the ones that are in

Re: How to call perl programs from ASP page

This is what that gets me: Error Type: PerlScript Error (0x80004005) Global symbol "$Server" requires explicit package name > Sounds like perl is not starting automatically. Try this: > my $file_path = $Server->MapPath( "/ASPtoPerl/MakeFile.pl" ); > my $exit_status = system_call

Re: How to call perl programs from ASP page

Hi Charles Still no luck... I tried: system_call_test( 'C:\Inetpub\wwwroot\ASPtoPerl\MakeFile.pl') system_call_test( 'C:/Inetpub/wwwroot/ASPtoPerl/MakeFile.pl') I even moved the File to the "scripts" folder and tried: system_call_test( 'C:\Inetpub\Scripts\MakeFile.pl') Any more ideas ? Thanks f

Re: How to call perl programs from ASP page

Hey Charles, This is what your script returned Executing this: 'MakeFile.pl' 'system' returned: 'No such file or directory' What's the next step ? Pete -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

How to call perl programs from ASP page

Hi, I'm new to Perl and I'm trying to excute/call a perl program from Perl Script in an ASP page. I've loaded ActivePerl v5.6 on my Microsoft Win2000 webserver and I can execute lots of Perl code in my ASP pages with no problem, but I need to call an external program and don't know the correct syst

IO File Problems

hi there, couse of my missing skills with filehandling i would be happy if you provide me help. this is my problem: 1) I´m getting a list of email adresses (strings) from a database into an array - o.k. no problem ... 2) now i have to merge this strings with strings from a file. in this file th

IO File Problems

hi there, couse of my missing skills with filehandling i would be happy if you provide me help. this is my problem: 1) I´m getting a list of email adresses (strings) from a database into an array - o.k. no problem ... 2) now i have to merge this strings with strings from a file. in this file th

CGI: Premature end of script headers

I've installed AM Lite on an HP-UX 11.0 system running Apache 2 with PERL 5.8.0. When accessing http://root/cgi-bin/amadmin.pl, I get the following error: Server error! Error message: Premature end of script headers: /opt/apache2/lib/htdocs/cgi-bin/amadmin.pl If you think this is a server error, p

How to parse Microsoft Outlook Inbox

Hi, I am trying to write a script that will parse Microsoft outlook Inbox to a .txt file. Please let me know if there a way to do that. Thanks in advance for your help. Ron -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Perl module installation problem

Dear Sir/Madam, I am just wondering if anyone can help with this: When I try to install the module, XML::Parser::PerlSAX, I encountered the following error message: Running make test PERL_DL_NONLAZY=1 /usr/bin/perl5.8.1 "-MExtUtils::Command::MM" "-e" "test_harness(0, 'bli

Line by line

Hi, I have a file extremely large in size and length. I want to read the file line by line and worry about matching up each line and running that line through a subroutine instead of opening the entire file (which would take a while). So how do I open a file up and process each line individually?

I am having trouble getting win32::guitest calls. To be recognized by gaming app

The button clicks in win32::guitest::SendKeys({LEFT}); left arrow actually to be recoginized by the game app. Any ideas. Some keys get recognized but other keys dont. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Calling a program in win32 with spaces in the path to the .exe

How do you handle spaces in a system call to an .exe @args = (C:/Program Files/Total War/Medieval - Total War/Medieval_TW.exe"); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Can't locate object method "get" via package "LWP::UserAgent"

#!/usr/bin/perl use strict; use URI; #use HTTP::Request::Common qw(GET); use LWP; #use HTTP::Response; my $browser = LWP::UserAgent->new; $browser->env_proxy(); my $response=$browser->get('http://finance.yahoo.com/d/quotes.csv?s=msft&f=sl1d1t1c1ohgv'); print $response->content; Can someone plea

Can't not locate object method "isadmin" via package "Noc1"

Hello all, I just added a new method called isadmin to existing and working module Noc1.pm And use this new added method in my index.html like this use Noc1; my $noc = new noc1; my public = noc->ispublic(); my $admin = noc->isadmin(); if ($admin) { blah blah blah} When i tried to access ind

logging

My co-worker wrote a perl script on a WIN 2000 Advance server that monitors my E10K 8 Unix domains. It executes every 15 minutes and then the output attempts are logged in the /var/adm/messages on my unix domains each time. How do I redirect this output to another log of its own to keep it from fil

Tokens??

HI, I am brand new to Perl and I am trying to modify a script that someone else wrote. I have this line where primaryntaccount = something like this domainname\userid Token=primaryntaccount:: %ntaccount% = (\\w+).*$ I want to pass a different value for primaryntaccount which I am getting by th

Re: how to read from more than one files at a time

thanks John and Rob for the great enlightenment, they taught me a lot. I wonder why the following is wrong: while (($in1=) && ($in2=)) { .. } Ben Rob Dixon wrote: > <[EMAIL PROTECTED]> wrote: > > > > I need to read from more than one file at a time and do some > > operation on the strings an

how to read from more than one files at a time

Hi, I need to read from more than one file at a time and do some operation on the strings and join them together, and put into one output file. Here is the code. But I noticed the second file never get read. It must be sth very simple to overcome this. Can anyone give me a hint? thanks, Ben # U

Filter::Decrypt2

This is perl, v5.6.1 built for i386-linux This is the file: #!/usr/bin/perl use Filter::decrypt2 ; ÿa8HS#5"W5ybnuFE*]S+ ... and a bunch more garble ... This is the output: "bad encryption format at /usr/bin/client_tools line 3." This is what I did: Not much. Basically just looked for the dec

Searchable Perl Newsgroups

Are these newsgroups searchable from anywhere ??? Thanks for the help! -John -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Inplace file editing with <> operator

I know how it's supposed to be done but when i tried it in a program i'm working on at the moment it isn't working quite how i expected. The program is, in it's simplest form (which still doesn't work): -- #!perl for $file () { push @ARG

Re: help with perl, openbsd and postgres [SOLVED]

Thanks - it is actually what i have done and it works fine! It's a bit tricky, but it doesn't matter, as long as it works! Gabriele. At 09.00 15/02/2003 +, David Nicely wrote: Mailing lists wrote: Dear sirs i need to drive a postgres database using a perl script. I also have t

RE: help with perl, openbsd and postgres

;s where the problem lies. > -Original Message- > From: Mailing lists [mailto:[EMAIL PROTECTED]] > Sent: Friday, February 14, 2003 5:27 PM > To: [EMAIL PROTECTED] > Subject: help with perl, openbsd and postgres > > > Dear sirs > i need to drive a postgres database u

help with perl, openbsd and postgres

Dear sirs i need to drive a postgres database using a perl script. I also have to tell you that i need to run this stuff on a OpenBSD 3.1 box. First of all, i need to ask you which module should i use. Honestly, i tried to install the pgsql_perl5-1.9.0.tar.gz but it didn't pass the "make" step

daemons

Hi ppl... this is my first post, so i really do not know if this one is out of topic... i suppose it ain't anyway. THE TARGET: Well, i gotta write a daemon for my unix box in perl, it must be SUIDed so that it could write in the /etc directory. THE PROBLEM: I haven't ever written any daemon, so i