Hello! I am getting the following error when I use the perlapp for 8.0. "This application has failed to start because perl58.dll was not found. Re-installing the application may fix this problem.". This is what I see in dos when I run the perlapp command. #### test.pl ######## PerlApp 8.0.1 build 289861 Copyright (C) 1998-2009 ActiveState Software Inc. All rights reserved. Standard license for David Fish <[email protected]> Can't load 'C:/Perl/site/lib/auto/Crypt/Blowfish/Blowfish.dll' for module Crypt: :Blowfish: load_file:The specified module could not be found at /<C:\Program Fil es\ActiveState Perl Dev Kit 8.0.1\bin\lib\pdkcheck.exe>DynaLoader.pm line 217. at test.pl line 129 Compilation failed in require at test.pl line 129. BEGIN failed--compilation aborted at test.pl line 129. 'test.pl' had compilation errors. #### test2.pl ######### PerlApp 8.0.1 build 289861 Copyright (C) 1998-2009 ActiveState Software Inc. All rights reserved. Standard license for David Fish <[email protected]> Can't load 'C:/Perl/site/lib/auto/Date/Calc/Calc.dll' for module Date::Calc: loa d_file:The specified module could not be found at /<C:\Program Files\ActiveState Perl Dev Kit 8.0.1\bin\lib\pdkcheck.exe>DynaLoader.pm line 217. at test2.pl line 111 Compilation failed in require at test2.pl line 111. BEGIN failed--compilation aborted at test2.pl line 111. 'test2.pl' had compilation errors. ####################### When I did the unistall of 5.8 and reinstall of 5.10 I did not remove the c:\perl directory. I know that all the items I pulled down with ppm are in perl/site/lib folder and it seems those are the .dll it is failing on. Will I need to redownload those libraries even though I type ppm and they are all shown active. Also, there was no uninstall for 5.3 so I had to move the 5.3 related files out of the way. I did not check if it was overwritten with the upgrade to 8.0. Thanks for any assistance with this.
David Fish Senior Systems Analyst Property Systems Services Work (301) 380-3331 Fax (301) 644-7521 BlackBerry (301) 646-8985 [email protected] This communication contains information from Marriott International, Inc. that may be confidential. Except for personal use by the intended recipient, or as expressly authorized by the sender, any person who receives this information is prohibited from disclosing, copying, distributing, and/or using it. If you have received this communication in error, please immediately delete it and all copies, and promptly notify the sender. Nothing in this communication is intended to operate as an electronic signature under applicable law. ________________________________ From: [email protected] [mailto:[email protected]] On Behalf Of A Smith Sent: Friday, May 08, 2009 2:11 PM To: [email protected] Cc: [email protected] Subject: Re: search and replace My understanding with Perl as well as my editor of choice ViM or gvim, and other tools, is to use a character not in your search or replace set as your pattern delimiter rather than /, such as # or !. It makes your code much more readable. -- Andrew in Edinburgh 2009/5/8 zilore mumba <[email protected]> Hello Perl community, Once more excuse me for asking something very basic. I have a file which has five-digit strings. Some of the groups may contains from one to five slashes, as below. ///// ///// 92765 15426 679// 28011 10660 831// In the code below I am reading from file1, replacing every occurence of / by 9 and rewriting the strings in file2, and deleting original file1. I am getting an error as "use of uninitialised value is substitution s///" indicating the error is on the line with "$slashes =~ s/\/{1,5}/9{1,5}/g;". am working on Windows with Cygwin. My reading of the literature does not yield any solution. Assistance will be appreciated. Zilore. #!/usr/bin/perl -- use strict; use warnings; use POSIX; use File::Path; use File::Copy; # Variable declaration my $debug = 1; my $file1 = "file1.txt"; print "file1='$file1'\n" if $debug; my $file2 = "file2.txt"; print "file2='$file2'\n" if $debug; my @slashes; my $slashes; open (OUT1, "<$file1") or die "open '$file1: failed $! ($^E)"; open (OUT2, ">$file2") or die "open '$file2: failed $! ($^E)"; @slashes = <OUT1>; close OUT1; for my $i (@slashes) { $slashes =~ s/\/{1,5}/9{1,5}/g; } print OUT2 "@slashes"; close OUT2; unlink $file1 or die "Failed to delede $file1: $!\n"; __END__ _______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
