RE: PerlScript - FileSystemObject - Windows Scrpting Host [SEC=UNCLASSIFIED]

-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jenda Krynicky Sent: Thursday, 3 April 2008 08:55 AM To: ActivePerl@listserv.ActiveState.com; [EMAIL PROTECTED] Subject: Re: PerlScript - FileSystemObject - Windows Scrpting Host From: oscar gil <[EMAIL PR

RE: Testing Columns with DBI

use.       Ken Barker IT Lead Tel: 314-213-7927 1100 Corporate Square St. Louis, MO 63132 [EMAIL PROTECTED] From: [EMAIL PROTECTED] on behalf of Daniel RychlikSent: Fri 6/16/2006 10:11 AMTo: activeperl@listserv.ActiveState.comSubject: Testing Columns with DBI Morning guys,   How would one

RE: Sql Server 2000 and Perl connectivity. Is it possible??

the ODBC set up properly under control panel/administrative tools   Good luck!     Ken Barker IT Lead Tel: 314-213-7927 1100 Corporate Square St. Louis, MO 63132 [EMAIL PROTECTED] From: [EMAIL PROTECTED] on behalf of ukhas jeanSent: Wed 6/14/2006 8:51 AMTo: activeperl@listserv.ActiveState.

RE: Image - Audio file

Thanks - but Martin Thurn provided me with the necessary fix.  After opening the file for write the next line of code needs to be   binmode(FILE1); With this in place - all works as expected.   Thanks Martin!       Ken Barker IT Lead Tel: 314-213-7927 1100 Corporate Square St. Louis, MO

Image - Audio file

m select\n"; my $var = $sth0->fetchrow; my $file = "rec.asf";open(FILE1,">$file") || die "Can't open $file\n";print FILE1 "$var";close FILE1; $sth0->finish;     Ken Barker IT Lead Tel: 314-213-7927 1100 Corporate Square St. Louis, MO 63132 [EMA

Re: Extracting numbers from a string

How about using a regex if($string =~ /PT(\d+)H(\d+)M(\d+).(\d+)/){ $1=$hr; $2=$min; $3=$sec; $time = ($hr*3600)+($min*60)+$sec; } untested At 07:28 PM 3/21/2006, Naresh Bajaj wrote: Hello all, I have one string PT2H46M7.815S. It is in hours, minutes a

RE: Importing into Excel

The way I accomplish this is to write the data to an SQL table and then do queries for the specific tab of the desired worksheet.  Depending upon how many tabs it can get a bit messy with all of the while loops - but it eliminates the manual process of pasting.   Ken     Ken Barker IT

Re: Breaking Up A Date.

Try this: $now = time; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($epoch); $mon = $mon += 1; $year = $year += 1900; $yesterday = sprintf("%02d%02d%04d",$mday,$mon,year); enjoy. At 08:24 PM 2/6/2006, Jonathan Dudson wrote: I am pretty much a newbie when it comes to perl.   I

RE: Spreadsheet::WriteExcel

Title: Re: Spreadsheet::WriteExcel Highly possible - these csv files are a mess.  Thanks for the tip - I will strip spaces and retry.   Ken     Ken Barker IT Lead Tel: 314-213-7927 1100 Corporate Square St. Louis, MO 63132 [EMAIL PROTECTED] From: Lynn. Rickards [mailto:[EMAIL PROTECTED

Spreadsheet::WriteExcel

as text.  I have changed my format to include num_format =>'0' with no help.   Has anyone else encountered this and knows of a work around?   All help is much appreciated!   Ken     Ken Barker IT Lead Tel: 314-213-7927 1100 Corporate Square St. Louis, MO 63132 [EMAIL PROTECTED]The i

Spreadsheet::WriteExcel

Has anybody used the Excel "Group By Rows" using the Spreadsheet::WriteExcel module?   Also setting the "Zoom" for the spreadsheet?   Any examples would be appreciated much.   Thanks!   Ken     Ken Barker IT Lead Tel: 314-213-7927 1100 Corporate Square St. Louis, MO 63

Net::FTP::Common

#x27; #default; ); $ez = Net::FTP::Common->new(\%common_cfg, \%netftp_cfg); $ez->put($outfile1) || warn ($fail1 = "FTP of $outfile1 failed\n"); I would like to capture any error message as text and save them to a variable f

RE: Array slicing applied to localtime?

Try     my $now1 = time;my $epoch = $now1; (my $sec,my $min,my $hour,my $mday,my $mon+1,my $year+1900,my $wday,my $yday,my $isdst)=localtime($epoch);-- Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] (undef, undef, undef, $dd, $mm, $yy, undef) = localtime; What

Warnings error message

concatenation (.) or string at campmaster2.pl line 113. I have initialized all variables prior to the while loop as NULL. Is there a way to initialize these in such a way to eliminate these errors - as NULL values are valid in this table. TIA -- Ken Barker IT Lead Americall Group, Inc 314-213-7927

RE: :ODBC

Sent this too early sorry. The error was: $sth0->$dbh1->prepare($sql0); the correction is: $sth0=$dbh1->prepare($sql0); Syntax is kicking my butt today. No matter how long I stare at it - the more I oversee it. Thanks all. Ken Ken Barker IT Lead Americall Group, Inc 314-213-79

DBI::ODBC

$sth0->execute || die "Can't update LeadManager2\n"; $sth0->finish; } All help is greatly appreciated. Ken Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] ___ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Trouble with defined()

file. Any suggestions? TIA Ken Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] ___ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: .bat to .pl

All you need to do is use the system command. Like: use strict; use warnings; my $command = (copy file1.txt c:\somepath\newfile); system ($command); Then repeat for each of your commands. You can then be more elaborate to test to see that each item on your list completes successfully and ba

Spreadsheet:WriteExcel

-border => 1)); Tthe error I get back is: Couldn't parse formula: =sum(b3:b163) at program.pl line 669 Any ideas? Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] ___

RE: Metacharacters

You need to enclose your variables on the left in parenthesis.   ($Activity_Date,$Activity_ID,$Activity_Owner,$Activity_Name) = split (/\s+/,$Activity_Detail_Line);   Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] -Original Message-From: [EMAIL

Net::SMTP and MIME::Base64

it send what appeared to be two attachments but they were not encoded properly. I could see the filenames in the encoded area. Does anyone have an example of sending multiple attachments. TIA Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] ___ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Spreadsheet:WriteExcel - Merge Cells

Sorry group - too fast on the request. I have figured it out. Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Ken Barker Sent: Thursday, August 25, 2005 11:39 AM To: activeperl

Spreadsheet:WriteExcel - Merge Cells

e of code looks like: merge_range(0, 0, 0,10,"OVERALL DAILY SNAPSHOT", $format); Any ideas? Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] ___ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To uns

Spreadsheet:WriteExcel Question

In looking through the documentation for Spreadsheet:WriteExcel - there are many examples in creating a new worksheet. Is it possible for this module to open an existing spreadsheet and add to it? Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED

Net::FTP

I am using Net:FTP:Common - the documentation indicates that the default send is Binary - yet with debug turned on it shows ASCII. I am unsure of how to change this. Can someone provide a line of code to illustrate a force to Binary. All help is appreciated. Ken Barker IT Lead Americall

DBD::ODBC

at a time? Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] ___ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Sendmail

It appears that the SMTP server is not enabled to relay. Check the server's configuration. Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Moreno, Javier Sent: Tuesday, Ju

NET::SMTP attachments

Does anyone have an example of sending attachments using NET::SMTP. TIA Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] ___ ActivePerl mailing list ActivePerl@listserv.ActiveState.com To unsubscribe: http

Spreadsheet:WriteExcel

All, Has anyone found a way to copy formulas use this module? I see repeat_formula - but it does not change the columns/rows as it is copied. TIA Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] ___ ActivePerl mailing list

DBD::ODBC

LongTruncOk not set and/or LongReadLen too small) err=-1) at vsamfix.pl line 10 5, <> line 2. I guess the question is - how do I set LongReadLen. Any help is greatly appreciated. Ken Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PRO

RE: :SMTP on a Windows Server

Your script does in fact work. I just changed to my email and smtp server and it worked fine. Are you sure your smtp will allow relays? Ken Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED

RE: Spreadsheet:WriteExcel

List, I was too quick to throw this out - I have found the answer. $format01 = $workbook->add_format(); $format01->set_align('center'); $ws1->keep_leading_zeros(); $ws1->write_row($rowcnt,0,[EMAIL PROTECTED], $format01); Ke

Spreadsheet:WriteExcel

umn is forced into scientific notation. I do have successful formats for the header row - which is raw text. Got any ideas on what is going on? Ken Ken Barker IT Lead Americall Group, Inc 314-213-7927 [EMAIL PROTECTED] -Original Message- From: Cordoni, Ray [mailto:[EMAIL PROTECTED] S

Re: Mismatching matches?

your comparison operator is not correct, try "if($str =~ /$str2/)" At 07:31 15/12/2004, [EMAIL PROTECTED] wrote: Hi. How can I isolate stuff inside a string so that two identical strings will match when they ought to?  Sample code: $str1 = "    3.04 (build 14)"; $str2 = "3.04 (build 14)"; if