RE: Strange change in WinNT environment: File association to .PL now give error message
Title: RE: Strange change in WinNT environment: File association to .PL now give error message Fernando, Thanks for the suggestion. Unfortunately, the associations and file typing are correct: D:\Projects\PerlASSOC .PL.PL=Perl D:\Projects\PerlFTYPE PERLPERL="D:\BIN\Perl\bin\perl.exe" "%1" %* And I'm still getting that weird error: "The Windows Installer failed to install the program associated withthis file. Please contact your system administrator." James. -Original Message-From: Fernando Madruga [mailto:[EMAIL PROTECTED]]Sent: Friday, July 12, 2002 19:25To: 'Perl Win32 Users (E-mail)'Subject: RE: Strange change in WinNT environment: File association to .PL now give error message Try:ASSOC .PL=PerlFTYPE Perl="C:\Perl\bin\perl.exe" "%1" %*Before actually doing that, just check what the current values are:ASSOC .PLFTYPE WhateverYouGetAsTheResultOfThePreviousLineHTH, Fernando Madruga-Original Message-From: [EMAIL PROTECTED][mailto:[EMAIL PROTECTED]] On Behalf OfCutts III, James H.Sent: sexta-feira, 12 de Julho de 2002 13:42To: Perl Win32 Users (E-mail)Subject: Strange change in WinNT environment: File association to .PLnow give error messageThe other day, I was working with PPM3 getting the libwww-perl moduleand familiarizing myself with PPM3. Everything worked fine. However,and it may not be actually related to PPM3, when I finished working withPPM3 and returned to the DOS prompt, I found that I could not longer runPERL scripts directly from the command line. Prior to my excursion intothe world of PPM3, I would type, for example, Question_load.pl at thecommand prompt and Question_load.pl would compile and run. Now itdoesn't. Instead I get an error dialog message box with the message:"The Windows Installer failed to install the program associated withthis file. Please contact your system administrator." After clickingthe OK button, I get in the DOS window, "Access Denied". However,fortunately, and strangely, typing: perl Question_load.pl worksperfectly.Any suggestions on what happened and how to fix it? I liked being ableto just type the script name again.BTW, I'm using v5.6.1 Build 631 for MSWin32-x86-multi-thread on an WinNT4 SP6James H. Cutts III Integrated Technology ServicesComputer Project Manager Research and Education SupportPhone: (573) 882-6181 University of Missouri - ColumbiaFAX: [573] 884=8192 DC017.00, 265H Quarterdeck Columbia, MO 65212E-Mail: [EMAIL PROTECTED]___Perl-Win32-Users mailing list [EMAIL PROTECTED]To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs___Perl-Win32-Users mailing list[EMAIL PROTECTED]To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
FILEHANDLE Problem
This is going to drive me nuts I have my test snippet below #!/Perl When I run this as shown below, I get the error: Invalid argument. open(FILE, d:\path_to\textfiles\test.txt) or die Can't open $!; if(eof(FILE)) { print IM EMPTY; } else { while (FILE) { chomp; print; } } When I run it as: open(File, ../textfiles/test.txt) I get file or directory not found. Now I know that all is well and the file exists. I come out of the cgi-bin, and into the textfiles directory, and get the test.txt file. But to no prevail. Any suggestions greatly appreciated. Steve. _ MSN Photos is the easiest way to share and print your photos: http://photos.msn.com/support/worldwide.aspx ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: FILEHANDLE Problem
steve silvers [mailto:[EMAIL PROTECTED]] wrote: open(FILE, d:\path_to\textfiles\test.txt) or die Can't open $!; So, um, you do know that \t is a tab in double-quoted text? Try: open(my $file, d:/path/to/your/test.txt) or die(Can't open: $!) or: open(my $file, d:\\path\\to\\your\\text.txt) or die(Can't open: $!) HTH, Ricky ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: FILEHANDLE Problem
Try this... open(FILE, d:\\path_to\\textfiles\\test.txt) or die Can't open $!; Or, open(FILE, 'd:\path_to\textfiles\test.txt') or die Can't open $!; -Henry -Original Message- From: steve silvers [mailto:[EMAIL PROTECTED]] Sent: Mon 7/15/2002 12:58 PM To: [EMAIL PROTECTED] Cc: Subject: FILEHANDLE Problem This is going to drive me nuts I have my test snippet below #!/Perl When I run this as shown below, I get the error: Invalid argument. open(FILE, d:\path_to\textfiles\test.txt) or die Can't open $!; if(eof(FILE)) { print IM EMPTY; } else { while (FILE) { chomp; print; } } When I run it as: open(File, ../textfiles/test.txt) I get file or directory not found. Now I know that all is well and the file exists. I come out of the cgi-bin, and into the textfiles directory, and get the test.txt file. But to no prevail. Any suggestions greatly appreciated. Steve. _ MSN Photos is the easiest way to share and print your photos: http://photos.msn.com/support/worldwide.aspx ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs z¹V}öRÇ«²f¢)à+-=êåZ)÷ÙK®Éb²Û®ð¶+ÞJÖyÊN§²æìr¸zm§ÿåËlz»Àrدy+Zµç(ùYù²²æì
Split function
Forwarded on behalf of Moshe: I would like to know if this is OK? @array = split(/(--|;)/,$var); I would like to split on either a double dash or a semi colon with one split using ( | ). Is that viable, or do I have to test for either one, and split accordingly. Thanks. A friend of Mangesh
Re: Split function
I would like to split on either a double dash or a semi colon with one split using ( | ). $_ = 'Hello-world;how--are--you;today'; print join \n, split /--|;/; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Split function
Would it be only semantic to escape the semicolon, or could it cause a problem not to do so? I'm not asking to be picky, I really don't know. :) Scot R. inSite -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of Ron Grabowski Sent: Monday, July 15, 2002 1:20 PM To: [EMAIL PROTECTED] Subject: Re: Split function I would like to split on either a double dash or a semi colon with one split using ( | ). $_ = 'Hello-world;how--are--you;today'; print join \n, split /--|;/; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.372 / Virus Database: 207 - Release Date: 6/20/2002 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.372 / Virus Database: 207 - Release Date: 6/20/2002 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: FILEHANDLE Problem
This is going to drive me nuts I have my test snippet below When I run this as shown below, I get the error: Invalid argument. open(FILE, d:\path_to\textfiles\test.txt) or die Can't open $!; You need to replace each \ with \\ as a single \ will be interpreted as an escape character. Alternatively, use ' (single quotes) instead of (double quotes) as single quotes don't interpolate. When I run it as: open(File, ../textfiles/test.txt) Are you sure that the starting directory is correct? That the user account your script runs under has access to it? HTH, Fernando Madruga ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Strange change in WinNT environment: File association to .PL now give error message
Fernando, Thanks for the suggestion. Unfortunately, the associations and file typing are correct: Well, I'm out of sugestions here. Other than trying to upgrade your current version to the same one, that is, reinstalling ActivePerl, but that you probably already tried... Bye, Fernando Madruga ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Split function
Mangesh Paranjape wrote: Forwarded on behalf of Moshe: I would like to know if this is OK? @array = split(/(--|;)/,$var); I would like to split on either a double dash or a semi colon with one split using ( | ). Is that viable, or do I have to test for either one, and split accordingly. To Moshe and other newbie posters: This is kind of a silly question. Why ? Because it would take but 2-3 minutes to test the premise instead of waiting for hours for a list response. You need to take a little initiative and test these things on your own. Plus you'll learn more by a little trial and error and save a lot of bandwidth. Try your code above and use Data:Dumper (or just print the @array in quotes) to determine what results you got. Everyone posting to the list should weigh the time involved to test something against the amount of time for thousands of list members to read/delete your message. I've never posted to the list for core Perl help and never had a Perl class, but somehow I manage to write Perl programs that get the job done. Sometimes it can take hours to work out a problem and you have to at least make the effort before asking for help. If you've already tested several ways and are still stumped, then by all means ask the list for help - that's what it's there for. I don't think it's there to do your learning/testing for you though - we all need to do a lot of that on our own to become proficient. Also consider the Perl beginners list at Yahoo groups until you get comfortable with Perl. -- ,-/- __ _ _ $Bill Luebkert ICQ=162126130 (_/ / )// // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /-- o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/__/_/_ Castle of Medieval Myth Magic http://www.todbe.com/ ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
DBI::XBase
Hello, I am getting unreliable behavior from using DBI::XBase and am trying to get to the bottom of it. Besides the .dbf files, should any other files be in the directory that I am pointing to (such as .cdx, etc.)? Any pointers in working with XBase? The behavior I am getting is that the computer freezes and I have to reset the machine. Thanks in advance. Kevin. [EMAIL PROTECTED] ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Passing a GUID to Win32::OLE
On Sun, 14 Jul 2002 15:56:07 +0100, [EMAIL PROTECTED] wrote: Anybody know a way to call a method which takes a REFCLSID, like this: HRESULT foo( REFCLSID bar ); The OLE browser shows this as Sub foo( bar as GUID ) method foo; Unfortunately, Win32::GuidGen seems to return a GUID in string form, and calling foo results in an Invalid parameter 0x80070057 :-( There isn't a predefined VARIANT type for GUIDs, so I wouldn't know how this parameter needs to be passed by OLE Automation. Looking at the native interface is no use; you have to check the IDispatch interface to see what parameters foo() expects. Or does the application also define a GUID object? In that case you need to create an instance of that and pass a reference to it. Cheers, -Jan ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Split function
Would it be only semantic to escape the semicolon, or could it cause a problem not to do so? I'm not asking to be picky, I really don't know. :) The semi-colon is not special unless you do something like this: m;foo|bar|\;; ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: ActiveState's Archive-Zip.zip doesn't (?!) support Windows
On Mon, 15 Jul 2002 11:46:51 -0400, Thomas R Wyant_III [EMAIL PROTECTED] wrote: I believe from previous traffic on this list that ActiveState's PPM archive is built automagically from CPAN. So who do I see to get this one module, last built in 2000, corrected? I've told Neil about this just now and he'll look into it (eventually). In general, messages about the PPM repository should go to [EMAIL PROTECTED] Cheers, -Jan ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: (was Re: win32 and win32::Lanman conflicting?)
On Mon, 15 Jul 2002 13:21:48 +0100, Michael D. Smith [EMAIL PROTECTED] wrote: This brings up something I've been wondering about, but it worked so not to much:) When you code, use Win32::whatever; does use Win32; become available also? No, it doesn't! Please read `perldoc Win32`. I've put little [CORE] and [EXT] markers in there to mark which ones are always available and which ones require a use Win32; statement in your program. The external subs are all defined in Win32.xs from the libwin32 package. You can see the corresponding Win32.pm file in \Perl\site\lib\Win32.pm. Cheers, -Jan ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: (was Re: win32 and win32::Lanman conflicting?)
Hey Jan (and anyone else with thoughts), So I did what you said. Completely uninstalled activeperl, removed the Perl tree, and then reinstalled activeperl (5.6.1 build 633) and lanman (1.0.9.2). I still get the mess at the end of this e-mail. My program consists of only this much code: #! perl -w use strict; use diagnostics; use Win32; use Win32::Lanman; Do you have any other thoughts? Thanks Jason Heres the gook: Constant subroutine DACL_SECURITY_INFORMATION redefined at C:/Perl/lib/Exporter. pm line 57. Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION', 'SERV ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS', 'SERVICE_CONTROLS', 'SE RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...) called at C:\Perl\scripts\testprog.pl line 7 main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7 eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7 Prototype mismatch: sub main::DACL_SECURITY_INFORMATION () vs none at C:/Perl/li b/Exporter.pm line 57. Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION', 'SERV ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS', 'SERVICE_CONTROLS', 'SE RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...) called at C:\Perl\scripts\testprog.pl line 7 main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7 eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7 Constant subroutine GROUP_SECURITY_INFORMATION redefined at C:/Perl/lib/Exporter .pm line 57. Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION', 'SERV ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS', 'SERVICE_CONTROLS', 'SE RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...) called at C:\Perl\scripts\testprog.pl line 7 main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7 eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7 Prototype mismatch: sub main::GROUP_SECURITY_INFORMATION () vs none at C:/Perl/l ib/Exporter.pm line 57. Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION', 'SERV ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS', 'SERVICE_CONTROLS', 'SE RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...) called at C:\Perl\scripts\testprog.pl line 7 main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7 eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7 Constant subroutine OWNER_SECURITY_INFORMATION redefined at C:/Perl/lib/Exporter .pm line 57. Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION', 'SERV ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS', 'SERVICE_CONTROLS', 'SE RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...) called at C:\Perl\scripts\testprog.pl line 7 main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7 eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7 Prototype mismatch: sub main::OWNER_SECURITY_INFORMATION () vs none at C:/Perl/l ib/Exporter.pm line 57. Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION', 'SERV ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS', 'SERVICE_CONTROLS', 'SE RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...) called at C:\Perl\scripts\testprog.pl line 7 main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7 eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7 Constant subroutine SACL_SECURITY_INFORMATION redefined at C:/Perl/lib/Exporter. pm line 57. Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION', 'SERV ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS', 'SERVICE_CONTROLS', 'SE RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...) called at C:\Perl\scripts\testprog.pl line 7 main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7 eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7 Prototype mismatch: sub main::SACL_SECURITY_INFORMATION () vs none at C:/Perl/li b/Exporter.pm line 57. Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION', 'SERV ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS', 'SERVICE_CONTROLS', 'SE RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...) called at C:\Perl\scripts\testprog.pl line 7 main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7 eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7 -Original Message- From: Jan Dubois [mailto:[EMAIL PROTECTED]] Sent: Monday, July 15, 2002 6:32 PM To: Jason Hemak Cc: [EMAIL PROTECTED] Subject: Re: (was Re: win32 and win32::Lanman conflicting?) On Mon, 15 Jul 2002 22:22:42 GMT, Jason Hemak [EMAIL PROTECTED] wrote: Hi Jason, Well now i'm more confused about my original problem. If you need to use Win32 to use all of that functionality, how do you use both