Thanks!  That is what I was going to try today.  I will reply with the
results.
 
 

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: Jan Dubois [mailto:[email protected]] 
        Sent: Tuesday, May 19, 2009 7:24 PM
        To: Fish, David; [email protected]
        Subject: RE: Upgrading Active Perl from 5.8 to 5.10 and
upgrading PDK 5.3 to 8.0
        
        

        Installing Perl 5.10 on top of a 5.8 installation is not
supported.  It is best to install into a clean tree and then reinstall
the PPM modules because the 5.8 versions are not binary compatible with
5.10.

         

        Cheers,

        -Jan

         

        From: [email protected]
[mailto:[email protected]] On Behalf Of Fish,
David
        Sent: Tuesday, May 19, 2009 3:48 PM
        To: [email protected]
        Subject: Upgrading Active Perl from 5.8 to 5.10 and upgrading
PDK 5.3 to 8.0

         

        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

Reply via email to