Easy One

2006-05-01 Thread Ng, Bill
Real simple, I have a string, $a for arguments sake, that contains a single word. The word will always have exactly 8 characters in it, most likely something like ABCD1234. I need to split this up into two strings ($b $c), the first string needs to contain all the characters before the

Re: Tk beep on Win2K?

2006-05-01 Thread Lyle Kopnicky
$Bill Luebkert wrote: Lyle Kopnicky wrote: No, it's a rackmount server, they tend not to have these things. But now I'm using an ICA session, and if I open a browser, and view flash files, I get sound. I get sound when I log into the server. But I don't get those beeps. The normal

RE: Easy One

2006-05-01 Thread Wagner, David --- Senior Programmer Analyst --- WGO
[EMAIL PROTECTED] wrote: Real simple, I have a string, $a for arguments sake, that contains a single word. The word will always have exactly 8 characters in it, most likely something like ABCD1234. I need to split this up into two strings ($b $c), the first string needs to contain

Returning to a Worksheet where a hyperlink was used - in Excel with Win32::OLE

2006-05-01 Thread Glen Plantz
Title: Returning to a Worksheet where a hyperlink was used - in Excel with Win32::OLE Hi Folks, We have a set of Excel Workbooks that are constructed by Perl Win32::OLE scripts. The Workbooks consist of reports in the form of Worksheets. Each Worksheet has a column of Hyperlink Objects

Re: Tk beep on Win2K?

2006-05-01 Thread Luke Bakken
The normal beep that you get when you do ^G is from the speaker inside the case of your PC. With a rackmount, you may be getting a beep, but not be able to hear it since it's coming from the case in the rack (if it even has a speaker). Apparently what you need to do is get the PC or

Re: Tk beep on Win2K?

2006-05-01 Thread Luke Bakken
Interestingly, MessageBeep() doesn't work on my XP machine but Beep() does. use strict; use Win32::API; my $msgBeep = Win32::API-new('user32', 'MessageBeep', 'N', 'N') or die Can't create a beep function: $^E\n; my $beep= Win32::API-new('kernel32', 'Beep', 'NN', 'N') or die Can't create a

Re: Easy One

2006-05-01 Thread Luke Bakken
On 5/1/06, Ng, Bill [EMAIL PROTECTED] wrote: Real simple, I have a string, $a for arguments sake, that contains a single word. The word will always have exactly 8 characters in it, most likely something like ABCD1234. I need to split this up into two strings ($b $c), the first string

Re: Tk beep on Win2K?

2006-05-01 Thread Luke Bakken
The normal beep that you get when you do ^G is from the speaker inside the case of your PC. With a rackmount, you may be getting a beep, but not be able to hear it since it's coming from the case in the rack (if it even has a speaker). Apparently what you need to do is get the PC or

RE: Easy One

2006-05-01 Thread Timothy Johnson
How about something like this? #Check the length unless(length($myScalar) != 8){ die(Bad Scalar! Bad!\n); } #Get the parts if($myScalar =~ /^([^0-9]*)(\d+.*)$/ ){ print $1 $2\n; } NOTE: NEVER name your variable $a. $a

RE: Returning to a Worksheet where a hyperlink was used - in Excel withWin32::OLE

2006-05-01 Thread Timothy Johnson
Title: Returning to a Worksheet where a hyperlink was used - in Excel with Win32::OLE I cant test this, but have you tried Alt + ? From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Glen Plantz Sent: Monday, May 01, 2006 1:47 PM To:

Re: [perl-win32] Re: Tk beep on Win2K?

2006-05-01 Thread Robert May
Lyle Kopnicky wrote: $Bill Luebkert wrote: [snipped stuff about using an ICA session and not getting beeps] Apparently what you need to do is get the PC or whatever you are logging in from to generate the beep rather than the MB speaker. I can do that, by typing ^G in the console and

Perl and Excel

2006-05-01 Thread Eric Edwards
Hello List, I am looking for information on using Perl with Excel spread-sheets. I have found several articles on the subject, but not a book. Is anyone aware of a good book on using Perl with Excel(to create and maintain excel fields and spread-sheets)? Thanks, Eric

Debugging Error

2006-05-01 Thread Nelson R. Pardee
I'm calling one perl script from another, with the second having debugging enabled. Upon starting the second script, I immediately get the following. If I disable debugging, it's fine. This script has been running a LONG time, and I'm now trying to port from unix to Win32. I see a bug in cpan back

RE: Easy One

2006-05-01 Thread Timothy Johnson
-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Luke Bakken Sent: Monday, May 01, 2006 2:50 PM To: Ng, Bill Cc: perl-win32-users@listserv.ActiveState.com Subject: Re: Easy One On 5/1/06, Ng, Bill [EMAIL PROTECTED] wrote: Real simple, I have a

RE: Easy One

2006-05-01 Thread Leigh Sharpe
This appears to work: use strict; use warnings; my @input=(abcd1234,abc12345,abcde123); foreach my $sample(@input) { print $sample:\n; $sample=~m/([a-zA-Z]*)([0-9]*)/; my $letters=$1; my $numbers=$2; print Letters $letters\tNumbers $numbers\n; } Regards,

RE: Perl and Excel

2006-05-01 Thread Ken Barker
Try this link. http://search.cpan.org/~jmcnamara/Spreadsheet-WriteExcel-2.16/lib/Spreadsheet/WriteExcel.pm#set_header(%24string%2C_%24margin Ken Barker IT Lead Tel: 314-213-7927 1100 Corporate Square St. Louis, MO 63132 [EMAIL PROTECTED] From: [EMAIL PROTECTED] on behalf of Eric

Re: Tk beep on Win2K?

2006-05-01 Thread Sisyphus
- Original Message - From: Luke Bakken . . Interestingly, MessageBeep() doesn't work on my XP machine but Beep() does. use strict; use Win32::API; my $msgBeep = Win32::API-new('user32', 'MessageBeep', 'N', 'N') or die Can't create a beep function: $^E\n; my $beep=

RE: Easy One

2006-05-01 Thread John Serink
REGEX! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Ng, Bill Sent: Tuesday, May 02, 2006 3:55 AM To: perl-win32-users@listserv.ActiveState.com Subject: Easy One Real simple, I have a string, $a for arguments sake, that contains

RE: Perl and Excel

2006-05-01 Thread Eric Edwards
Hey Ken, Thanks a lot! That looks like the whole thing, right there. I believe that is all I will need. I had no idea that existed. Thanks again, Eric -Original Message- From: Ken Barker [mailto:[EMAIL PROTECTED] Sent: Monday, May 01, 2006 7:36 PM To: Eric Edwards;

Re: Easy One

2006-05-01 Thread Nelson R. Pardee
Is there a reason you don't write it my ($characterString, $numberString) = $string =~ /^([^\d]+)(.*)$/o; This will assure the values are not defined if the regex fails. I also added o. On Mon, 1 May 2006, Luke Bakken wrote: if (length $string == 8) # might as well check eh? { $string