search and replace

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 [at] slashes;
my $slashes;

open (OUT1, "<$file1") or die "open '$file1: failed $! ($^E)";
open (OUT2, ">$file2") or die "open '$file2: failed $! ($^E)";
[at] slashes = <OUT1>;
close OUT1;

for my $i ( [at] slashes) {
$slashes =~ s/\/{1,5}/9{1,5}/g;
}

print OUT2 " [at] slashes";
close OUT2;

unlink $file1 or die "Failed to delede $file1: $!\n";

__END__

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

zilore mumba wrote:
> 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;".
....
> open (OUT1,
> open (OUT2,

I'd change OUT1 and OUT2 to IN and OUT.

> for my $i ( [at] slashes) {
> $slashes =~ s/\/{1,5}/9{1,5}/g;
> }

$slashes isn't set anywhere.
$_ contains each line of [at] slashes by default, so:

for ( [at] slashes) {
s/\//9/g;
}

would be apropos.
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Bill,
thanks very much, the solution you gave me works very fine.
Good Day
Zilore

--- On Fri, 5/8/09, Bill Luebkert <dbecoll [at] roadrunner.com> wrote:

> From: Bill Luebkert <dbecoll [at] roadrunner.com>
> Subject: Re: search and replace
> To: zmumba [at] yahoo.com
> Cc: activeperl [at] listserv.activestate.com
> Date: Friday, May 8, 2009, 11:50 AM
> zilore mumba wrote:
> > 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;".
> ...
> > open (OUT1,
> > open (OUT2,
>
> I'd change OUT1 and OUT2 to IN and OUT.
>
> > for my $i ( [at] slashes) {
> > $slashes =~ s/\/{1,5}/9{1,5}/g;
> > }
>
> $slashes isn't set anywhere.
> $_ contains each line of [at] slashes by default, so:
>
> for ( [at] slashes) {
> s/\//9/g;
> }
>
> would be apropos.
> _______________________________________________
> ActivePerl mailing list
> ActivePerl [at] listserv.ActiveState.com
> To unsubscribe:
> http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Deane,
Thanks very much for your suggestion. It works and it is very similar to what Bill gave. Thanks all for the effort.
Zilore

--- On Fri, 5/8/09, Deane.Rothenmaier [at] walgreens.com <Deane.Rothenmaier [at] walgreens.com> wrote:

> From: Deane.Rothenmaier [at] walgreens.com <Deane.Rothenmaier [at] walgreens.com>
> Subject: Re: search and replace
> To: zmumba [at] yahoo.com
> Date: Friday, May 8, 2009, 3:58 PM
> >for my $i ( [at] slashes) {
> > $slashes =~ s/\/{1,5}/9{1,5}/g;
> > }
>
> Your problem is this: You're pacing through the array
> and slapping each
> member into the variable $i, then doing the substitution on
> the
> (uninitialized) $slashes. Suggestion: remove the "my
> $i" from the for
> loop, viz.:
>
> for ( [at] slashes) {
> $_ =~ s/\/{1,5}/9{1,5}/g;
> }
>
> One thing I'm not certain about is whether the {1,5} is
> even necessary--or
> if it will DWIM, since you're doing a global
> substitution. Better might be
> just:
>
> for ( [at] slashes) {
> $_ =~ s/\//9/g;
> }
>
> HTH.
>
> Deane Rothenmaier
> Programmer/Analyst
> Walgreens Corp.
> 224-542-5150
>
> I look forward to the invention of faster-than-light
> travel. What I do not
> look forward to is the long wait in the dark once I arrive
> at my
> destination. - Marc Beland

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

--===============1050293803==
Content-Type: multipart/alternative; boundary=001636c5b1fae2f6d404696a8d7f

--001636c5b1fae2f6d404696a8d7f
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

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 <zmumba [at] yahoo.com>

>
> 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 [at] slashes;
> my $slashes;
>
> open (OUT1, "<$file1") or die "open '$file1: failed $! ($^E)";
> open (OUT2, ">$file2") or die "open '$file2: failed $! ($^E)";
> [at] slashes = <OUT1>;
> close OUT1;
>
> for my $i ( [at] slashes) {
> $slashes =~ s/\/{1,5}/9{1,5}/g;
> }
>
> print OUT2 " [at] slashes";
> close OUT2;
>
> unlink $file1 or die "Failed to delede $file1: $!\n";
>
> __END__
>
>
>
>
>
> _______________________________________________
> ActivePerl mailing list
> ActivePerl [at] listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>

--001636c5b1fae2f6d404696a8d7f
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

My understanding with Perl as well as my editor of choice ViM or gvim, and =
other tools,=A0 is to use a character not in your search=A0 or replace set=
=A0 as your pattern delimiter rather than /, such as # or !. It makes your =
code much more readable. 
 -- Andrew in Edinburgh <div class=3D"gmail_quote">2009/5/8 zi=
lore mumba <<a href=3D"mailto:zmumba [at] yahoo.com">zmumba=
[at] yahoo.com</a>> <blockquote class=3D"gmail_quote" style=3D"bor=
der-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-=
left: 1ex;">
 
Hello Perl community, 
Once more excuse me for asking something very basic. I have a file which ha=
s five-digit strings. Some of the groups may contains from one to five slas=
hes, as below. 
///// ///// 92765 15426 679// 28011 10660 831// 
 
In the code below I am reading from file1, replacing every occurence of / b=
y 9 and rewriting the strings in file2, and deleting original file1. I am g=
etting an error as "use of uninitialised value is substitution s///&qu=
ot; indicating the error is on the line with "$slashes =3D~ 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 b=
e appreciated. 
 
Zilore. 
 
#!/usr/bin/perl -- 
 
use strict; 
use warnings; 
use POSIX; 
use File::Path; 
use File::Copy; 
 
# Variable declaration 
my $debug =3D 1; 
 
my $file1 =3D "file1.txt"; 
print "file1=3D'$file1'\n" if $debug; 
my $file2 =3D "file2.txt"; 
print "file2=3D'$file2'\n" if $debug; 
 
=A0 =A0my [at] slashes; 
=A0 =A0my $slashes; 
 
=A0 =A0open (OUT1, "<$file1") or die "open '$file1: =
failed $! ($^E)"; 
=A0 =A0open (OUT2, ">$file2") or die "open '$file2: =
failed $! ($^E)"; 
=A0 =A0 =A0 =A0 [at] slashes =3D <OUT1>; 
=A0 =A0close OUT1; 
 
for my $i ( [at] slashes) { 
=A0 $slashes =3D~ s/\/{1,5}/9{1,5}/g; 
=A0 } 
 
print OUT2 " [at] slashes"; 
close OUT2; 
 
unlink $file1 or die "Failed to delede $file1: $!\n"; 
 
__END__ 
 
 
 
 
 
_______________________________________________ 
ActivePerl mailing list 
<a href=3D"mailto:ActivePerl [at] listserv.ActiveState.com">ActivePerl [at] listserv.=
ActiveState.com</a> 
To unsubscribe: <a href=3D"http://listserv.ActiveState.com/mailman/mysubs" =
target=3D"_blank">http://listserv.ActiveState.com/mailman/my subs</a> 
</blockquote></div> 

--001636c5b1fae2f6d404696a8d7f--

--===============1050293803==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1050293803==--

--============== 36614742==
Content-Type: multipart/alternative;
boundary="part1_c23.5effad00.3735cff6_boundary"

--part1_c23.5effad00.3735cff6_boundary
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit

hi deane --

In a message dated 5/8/2009 12:31:27 PM Eastern Standard Time,
zmumba [at] yahoo.com writes:

> > for ( [at] slashes) {
> > $_ =~ s/\/{1,5}/9{1,5}/g;
> > }
> >
> > One thing I'm not certain about is whether the {1,5} is
> > even necessary--or
> > if it will DWIM, since you're doing a global
> > substitution. Better might be
> > just:
> >
> > for ( [at] slashes) {
> > $_ =~ s/\//9/g;
> > }

the invocation of s/// is s/SEARCH/REPLACE/modifiers;
where SEARCH is a regex and REPLACE is (in the
absence of the /e modifier) a double-quote interpolated
string (unless the delimiters are ' single quotes).
so the replacement string /9{1,5}/ would be a literal
'9{1,5}' - probably not what is wanted. the '{1,5}' part
has no special meta-meaning when interpolated in a
double-quoted string; it is not some kind of quantifier.

see: 'Regexp Quote-like Operators' in perlop; perlre;
perlrequick.

hth -- bill walters
 ************** Remember Mom this Mother's Day! Find a florist near you now.
(http://yellowpages.aol.com/search?query=florist&ncid=em lcntusyelp00000006)</HTML>

--part1_c23.5effad00.3735cff6_boundary
Content-Type: text/html; charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable

<HTML>hi deane --=

 
 In a message dated 5/8/2009 12:31:27 PM Eastern Standard Time, zmumba [at] =
yahoo.com writes:
 
 > > for ( [at] slashes) {
 > > $_ =3D~ s/\/{1,5}/9{1,5}/g;
 > > }
 > >
 > > One thing I'm not certain about is whether the {1,5} is
 > > even necessary--or
 > > if it will DWIM, since you're doing a global
 > > substitution. Better might be
 > > just:
 > >
 > > for ( [at] slashes) {
 > > $_ =3D~ s/\//9/g;
 > > }
 
 the invocation of s/// is s/SEARCH/REPLACE/modifiers=
;
 where SEARCH is a regex and REPLACE is (in the=

 absence of the /e modifier) a double-quote interpolated
 string (unless the delimiters are ' single quotes). =

 so the replacement string /9{1,5}/ would be a literal
 '9{1,5}' - probably not what is wanted. the &n=
bsp;'{1,5}' part
 has no special meta-meaning when interpolated in a
 double-quoted string; it is not some kind of quantifier.
 
 see: 'Regexp Quote-like Operators' in perlop; perlre;
 perlrequick.
 
 hth -- bill walters
 ************** Remember Mom this Mother's Day! Find=
a florist near you now. (http://yellowpages.aol.com/search?query=3Dfloris=
t&ncid=3Demlcntusyelp00000006)</HTML>

--part1_c23.5effad00.3735cff6_boundary--

--============== 36614742==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--============== 36614742==--

This is a multi-part message in MIME format.

--===============1380702614==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C9D8D3.EBC22130"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C9D8D3.EBC22130
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

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 <david.fish [at] marriott.com>

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 <david.fish [at] marriott.com>

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
david.fish [at] marriott.com

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: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of A
Smith
Sent: Friday, May 08, 2009 2:11 PM
To: zmumba [at] yahoo.com
Cc: activeperl [at] listserv.activestate.com
Subject: Re: search and replace
=09
=09
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.
=09
--
Andrew in Edinburgh
=09
=09
2009/5/8 zilore mumba <zmumba [at] yahoo.com>
=09

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//
=09
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 =3D~ s/\/{1,5}/9{1,5}/g;".
=09
am working on Windows with Cygwin.
=09
My reading of the literature does not yield any
solution. Assistance will be appreciated.
=09
Zilore.
=09
#!/usr/bin/perl --
=09
use strict;
use warnings;
use POSIX;
use File::Path;
use File::Copy;
=09
# Variable declaration
my $debug =3D 1;
=09
my $file1 =3D "file1.txt";
print "file1=3D'$file1'\n" if $debug;
my $file2 =3D "file2.txt";
print "file2=3D'$file2'\n" if $debug;
=09
my [at] slashes;
my $slashes;
=09
open (OUT1, "<$file1") or die "open '$file1: failed
$! ($^E)";
open (OUT2, ">$file2") or die "open '$file2: failed
$! ($^E)";
[at] slashes =3D <OUT1>;
close OUT1;
=09
for my $i ( [at] slashes) {
$slashes =3D~ s/\/{1,5}/9{1,5}/g;
}
=09
print OUT2 " [at] slashes";
close OUT2;
=09
unlink $file1 or die "Failed to delede $file1: $!\n";
=09
__END__
=09
=09
=09
=09
=09
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs
=09

------_=_NextPart_001_01C9D8D3.EBC22130
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<META content=3D"MSHTML 6.00.2900.3527" name=3DGENERATOR></HEAD>
<BODY>
<DIV dir=3Dltr align=3Dleft>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.</DIV>
<DIV dir=3Dltr align=3Dleft> </DIV>
<DIV>####
test.pl ########</DIV>
<DIV>PerlApp 8.0.1 build
289861 Copyright (C) 1998-2009 ActiveState Software Inc. All rights
reserved. Standard license for David Fish <<A
href=3D"mailto:david.fish [at] marriott.com">david.fish [at] marriott. com</A>></=
FONT></DIV>
<DIV> </DIV>
<DIV>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.</DIV>
<DIV>BEGIN failed--compilation aborted =
at test.pl line 129. 'test.pl' had compilation
errors.</DIV>
<DIV> </DIV>
<DIV>####
test2.pl #########</DIV>
<DIV>PerlApp 8.0.1 build 289861 Copyright (C) =
1998-2009
ActiveState Software Inc. All rights reserved. Standard license for =
David
Fish <<A
href=3D"mailto:david.fish [at] marriott.com">david.fish [at] marriott. com</A>></=
SPAN></DIV>
<DIV> </DIV>
<DIV>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. #######################</DIV>
<DIV> </DIV>
<DIV>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.</DIV>
<DIV> </DIV>
<DIV>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.</DIV>
<DIV> </DIV>
<DIV>Thanks
for any assistance with this.</DIV>
<DIV> </DIV>
David =
Fish Senior Systems =
Analyst
 Property Systems
Services Work (301)
380-3331 Fax (301)
644-7521 BlackBerry
(301) 646-8985 david.fish [at] marriott.com 
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. 
<DIV> </DIV> 
<BLOCKQUOTE style=3D"MARGIN-RIGHT: 0px">
<DIV class=3DOutlookMessageHeader lang=3Den-us dir=3Dltr align=3Dleft>
<HR tabIndex=3D-1>
From:
activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of =
A
Smith Sent: Friday, May 08, 2009 2:11 PM To:
zmumba [at] yahoo.com Cc:
activeperl [at] listserv.activestate.com Subject: Re: search and
replace </DIV>
<DIV></DIV>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 
<DIV class=3Dgmail_quote>2009/5/8 zilore mumba <<A
href=3D"mailto:zmumba [at] yahoo.com">zmumba [at] yahoo.com</A>> 
<BLOCKQUOTE class=3Dgmail_quote
style=3D"PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: =
rgb(204,204,204) 1px solid"> 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 =3D~
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 =3D =
1; my $file1
=3D "file1.txt"; print "file1=3D'$file1'\n" if $debug; my =
$file2 =3D
"file2.txt"; print "file2=3D'$file2'\n" if $debug; =
my
[at] slashes; my $slashes; open =
(OUT1,
"<$file1") or die "open '$file1: failed $! ($^E)"; =
open
(OUT2, ">$file2") or die "open '$file2: failed $! =
($^E)"; 
[at] slashes =3D <OUT1>; close =

OUT1; for my $i ( [at] slashes) { $slashes =3D~
s/\/{1,5}/9{1,5}/g; } print OUT2 =
" [at] slashes"; close
OUT2; unlink $file1 or die "Failed to delede $file1:
=
$!\n"; __END__ ____________________________=
___________________ ActivePerl
mailing list <A
=
href=3D"mailto:ActivePerl [at] listserv.ActiveState.com">ActivePe rl [at] listserv.A=
ctiveState.com</A> To
unsubscribe: <A =
href=3D"http://listserv.ActiveState.com/mailman/mysubs"
=
target=3D_blank>http://listserv.ActiveState.com/mailman/mysu bs</A> </B=
LOCKQUOTE></DIV> </BLOCKQUOTE></BODY></HTML>

------_=_NextPart_001_01C9D8D3.EBC22130--

--===============1380702614==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1380702614==--

This is a multi-part message in MIME format.

--===============0199814030==
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_01F8_01C9D89E.2FA9F670"
Content-Language: en-us

This is a multi-part message in MIME format.

------=_NextPart_000_01F8_01C9D89E.2FA9F670
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit

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: activeperl-bounces [at] listserv.ActiveState.com [mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of Fish, David
Sent: Tuesday, May 19, 2009 3:48 PM
To: activeperl [at] listserv.activestate.com
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 <david.fish [at] marriott.com>

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 <david.fish [at] marriott.com>

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
david.fish [at] marriott.com

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: activeperl-bounces [at] listserv.ActiveState.com [mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of A Smith
Sent: Friday, May 08, 2009 2:11 PM
To: zmumba [at] yahoo.com
Cc: activeperl [at] listserv.activestate.com
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 <zmumba [at] yahoo.com>

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 [at] slashes;
my $slashes;

open (OUT1, "<$file1") or die "open '$file1: failed $! ($^E)";
open (OUT2, ">$file2") or die "open '$file2: failed $! ($^E)";
[at] slashes = <OUT1>;
close OUT1;

for my $i ( [at] slashes) {
$slashes =~ s/\/{1,5}/9{1,5}/g;
}

print OUT2 " [at] slashes";
close OUT2;

unlink $file1 or die "Failed to delede $file1: $!\n";

__END__

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

------=_NextPart_000_01F8_01C9D89E.2FA9F670
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<html xmlns:v=3D"urn:schemas-microsoft-com:vml" =
xmlns:o=3D"urn:schemas-microsoft-com:office:office" =
xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" =
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">
<meta name=3DGenerator content=3D"Microsoft Word 12 (filtered medium)">

<style>

</style>

</head>

<body lang=3DEN-US link=3Dblue vlink=3Dpurple>

<div class=3DSection1>

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.<o:p></o:p>

<o:p> </o:p>

Cheers,<o:p></o:p>

-Jan<o:p></o:p>

<o:p> </o:p>

<div style=3D'border:none;border-left:solid blue 1.5pt;padding:0in 0in =
0in 4.0pt'>

<div>

<div style=3D'border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt =
0in 0in 0in'>

From:=
 =
activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of =
Fish,
David 
Sent: Tuesday, May 19, 2009 3:48 PM 
To: activeperl [at] listserv.activestate.com 
Subject: Upgrading Active Perl from 5.8 to 5.10 and upgrading PDK =
5.3 to
8.0<o:p></o:p>

</div>

</div>

<o:p> </o:p>

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.<o:p></o:p>

 <o:p></o:p>

<div>

#### test.pl ########<o:p></o:p>

</div>

<div>

PerlApp 8.0.1 build 289861 
Copyright (C) 1998-2009 ActiveState Software Inc. All rights =
reserved. 
Standard license for David Fish <<a =
href=3D"mailto:david.fish [at] marriott.com">david.fish [at] marriott. com</a>></=
span><o:p></o:p>

</div>

<div>

 <o:p></o:p>

</div>

<div>

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.<o:p></o:p>

</div>

<div>

BEGIN failed--compilation aborted at test.pl line =
129. 
'test.pl' had compilation errors.<o:p></o:p>

</div>

<div>

 <o:p></o:p>

</div>

<div>

#### test2.pl #########<o:p></o:p>

</div>

<div>

PerlApp 8.0.1 build 289861 
Copyright (C) 1998-2009 ActiveState Software Inc. All rights =
reserved. 
Standard license for David Fish <<a =
href=3D"mailto:david.fish [at] marriott.com">david.fish [at] marriott. com</a>></=
span><o:p></o:p>

</div>

<div>

 <o:p></o:p>

</div>

<div>

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. 
#######################<o:p></o:p>

</div>

<div>

 <o:p></o:p>

</div>

<div>

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.<o:p></o:p>

</div>

<div>

 <o:p></o:p>

</div>

<div>

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.<o:p></o:p>

</div>

<div>

 <o:p></o:p>

</div>

<div>

Thanks for any assistance with this.<o:p></o:p>

</div>

<div>

<o:p> </o:p>

</div>

 David =
Fish
 
Senior =
Systems
Analyst 
 Property
Systems Services 
Work =
(301)
380-3331 
Fax =
(301)
644-7521 
 BlackBerry
(301) 646-8985 
 david.fish [at] ma=
rriott.com
<o:p></o:p>

Th=
is
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.<o:p></o:p>

<o:p> </o:p>

<div>

 <o:p></o:p>

</div>

<blockquote =
style=3D'margin-top:5.0pt;margin-right:0in;margin-bottom:5.0 pt'>

<o:p> </o:p>

<div class=3DMsoNormal align=3Dcenter style=3D'text-align:center'>

<hr size=3D2 width=3D"100%" align=3Dcenter>

</div>

From: =
activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of =
A
Smith 
Sent: Friday, May 08, 2009 2:11 PM 
To: zmumba [at] yahoo.com 
Cc: activeperl [at] listserv.activestate.com 
Subject: Re: search and replace<o:p></o:p>

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<o:p></o:p>

<div>

2009/5/8 zilore mumba <<a =
href=3D"mailto:zmumba [at] yahoo.com">zmumba [at] yahoo.com</a>><o:p></o:p>

 
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 =3D~
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 =3D 1; 
 
my $file1 =3D "file1.txt"; 
print "file1=3D'$file1'\n" if $debug; 
my $file2 =3D "file2.txt"; 
print "file2=3D'$file2'\n" if $debug; 
 
my [at] slashes; 
my $slashes; 
 
open (OUT1, "<$file1") or die "open =
'$file1:
failed $! ($^E)"; 
open (OUT2, ">$file2") or die "open =
'$file2:
failed $! ($^E)"; 
[at] slashes =3D <OUT1>; 
close OUT1; 
 
for my $i ( [at] slashes) { 
$slashes =3D~ s/\/{1,5}/9{1,5}/g; 
} 
 
print OUT2 " [at] slashes"; 
close OUT2; 
 
unlink $file1 or die "Failed to delede $file1: $!\n"; 
 
__END__ 
 
 
 
 
 
_______________________________________________ 
ActivePerl mailing list 
<a =
href=3D"mailto:ActivePerl [at] listserv.ActiveState.com">ActivePe rl [at] listserv.A=
ctiveState.com</a> 
To unsubscribe: <a =
href=3D"http://listserv.ActiveState.com/mailman/mysubs"
target=3D"_blank">http://listserv.ActiveState.com/mailman/my subs</a><o:p>=
</o:p>

</div>

<o:p> </o:p>

</blockquote>

</div>

</div>

</body>

</html>

------=_NextPart_000_01F8_01C9D89E.2FA9F670--

--===============0199814030==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0199814030==--

This is a multi-part message in MIME format.

--============== 98128270==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C9D948.7A8C93A0"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C9D948.7A8C93A0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

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
david.fish [at] marriott.com

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:jand [at] activestate.com]
Sent: Tuesday, May 19, 2009 7:24 PM
To: Fish, David; activeperl [at] listserv.activestate.com
Subject: RE: Upgrading Active Perl from 5.8 to 5.10 and
upgrading PDK 5.3 to 8.0
=09
=09

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: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of Fish,
David
Sent: Tuesday, May 19, 2009 3:48 PM
To: activeperl [at] listserv.activestate.com
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 <david.fish [at] marriott.com>

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 <david.fish [at] marriott.com>

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
david.fish [at] marriott.com

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: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of A
Smith
Sent: Friday, May 08, 2009 2:11 PM
To: zmumba [at] yahoo.com
Cc: activeperl [at] listserv.activestate.com
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.
=09
--
Andrew in Edinburgh

2009/5/8 zilore mumba <zmumba [at] yahoo.com>

=09
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//
=09
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 =3D~ s/\/{1,5}/9{1,5}/g;".
=09
am working on Windows with Cygwin.
=09
My reading of the literature does not yield any
solution. Assistance will be appreciated.
=09
Zilore.
=09
#!/usr/bin/perl --
=09
use strict;
use warnings;
use POSIX;
use File::Path;
use File::Copy;
=09
# Variable declaration
my $debug =3D 1;
=09
my $file1 =3D "file1.txt";
print "file1=3D'$file1'\n" if $debug;
my $file2 =3D "file2.txt";
print "file2=3D'$file2'\n" if $debug;
=09
my [at] slashes;
my $slashes;
=09
open (OUT1, "<$file1") or die "open '$file1: failed
$! ($^E)";
open (OUT2, ">$file2") or die "open '$file2: failed
$! ($^E)";
[at] slashes =3D <OUT1>;
close OUT1;
=09
for my $i ( [at] slashes) {
$slashes =3D~ s/\/{1,5}/9{1,5}/g;
}
=09
print OUT2 " [at] slashes";
close OUT2;
=09
unlink $file1 or die "Failed to delede $file1: $!\n";
=09
__END__
=09
=09
=09
=09
=09
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe:
http://listserv.ActiveState.com/mailman/mysubs

------_=_NextPart_001_01C9D948.7A8C93A0
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns=3D"http://www.w3.org/TR/REC-html40" xmlns:v =3D
"urn:schemas-microsoft-com:vml" xmlns:o =3D
"urn:schemas-microsoft-com:office:office" xmlns:w =3D
"urn:schemas-microsoft-com:office:word" xmlns:m =3D
"http://schemas.microsoft.com/office/2004/12/omml"><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<META content=3D"MSHTML 6.00.2900.3527" name=3DGENERATOR>
<STYLE> [at] font-face {
font-family: Cambria Math;
}
[at] font-face {
font-family: Calibri;
}
[at] font-face {
font-family: Tahoma;
}
[at] page Section1 {size: 8.5in 11.0in; margin: 1.0in 1.0in 1.0in 1.0in; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New =
Roman","serif"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New =
Roman","serif"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0in 0in 0pt; FONT-FAMILY: "Times New =
Roman","serif"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline; mso-style-priority: 99
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline; mso-style-priority: 99
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline; mso-style-priority: 99
}
P {
FONT-SIZE: 12pt; MARGIN-LEFT: 0in; MARGIN-RIGHT: 0in; FONT-FAMILY: =
"Times New Roman","serif"; mso-style-priority: 99; mso-margin-top-alt: =
auto; mso-margin-bottom-alt: auto
}
SPAN.EmailStyle18 {
COLOR: #1f497d; FONT-FAMILY: "Calibri","sans-serif"; mso-style-type: =
personal-reply
}
..MsoChpDefault {
FONT-SIZE: 10pt; mso-style-type: export-only
}
DIV.Section1 {
page: Section1
}
</STYLE>
</HEAD>
<BODY lang=3DEN-US vLink=3Dpurple link=3Dblue>
<DIV dir=3Dltr align=3Dleft>Thanks! That is what I was going to try =
today.
I will reply with the results.</DIV>
<DIV dir=3Dltr align=3Dleft> </DIV>
<DIV> </DIV>
David =
Fish Senior Systems =
Analyst
 Property Systems
Services Work (301)
380-3331 Fax (301)
644-7521 BlackBerry
(301) 646-8985 david.fish [at] marriott.com 
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. 
<DIV> </DIV> 
<BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px">
<DIV class=3DOutlookMessageHeader lang=3Den-us dir=3Dltr align=3Dleft>
<HR tabIndex=3D-1>
From: Jan Dubois =
[mailto:jand [at] activestate.com]
 Sent: Tuesday, May 19, 2009 7:24 PM To: Fish, =
David;
activeperl [at] listserv.activestate.com Subject: RE: Upgrading =
Active
Perl from 5.8 to 5.10 and upgrading PDK 5.3 to =
8.0 </DIV>
<DIV></DIV>
<DIV class=3DSection1>
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.<o:p></o:p>
<o:p> </o:p>
Cheers,<o:p></o:p>
-Jan<o:p></o:p>
<o:p> </o:p>
<DIV
style=3D"BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: =
medium none; PADDING-LEFT: 4pt; PADDING-BOTTOM: 0in; BORDER-LEFT: blue =
1.5pt solid; PADDING-TOP: 0in; BORDER-BOTTOM: medium none">
<DIV>
<DIV
style=3D"BORDER-RIGHT: medium none; PADDING-RIGHT: 0in; BORDER-TOP: =
#b5c4df 1pt solid; PADDING-LEFT: 0in; PADDING-BOTTOM: 0in; BORDER-LEFT: =
medium none; PADDING-TOP: 3pt; BORDER-BOTTOM: medium none">
From:
activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of =
Fish,
David Sent: Tuesday, May 19, 2009 3:48 PM To:
activeperl [at] listserv.activestate.com Subject: Upgrading =
Active Perl
from 5.8 to 5.10 and upgrading PDK 5.3 to
8.0<o:p></o:p></DIV></DIV>
<o:p> </o:p>
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.<o:p></o:p>
 <o:p></o:p>
<DIV>
####
test.pl ########<o:p></o:p></DIV>
<DIV>
PerlApp
8.0.1 build 289861 Copyright (C) 1998-2009 ActiveState Software =
Inc. All
rights reserved. Standard license for David Fish <<A
=
href=3D"mailto:david.fish [at] marriott.com">david.fish [at] marriott. com</A>></=
SPAN><o:p></o:p></DIV>
<DIV>
 <o:p></o:p></DIV>
<DIV>
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.<o:p></o:p></DIV>
<DIV>
BEGIN
failed--compilation aborted at test.pl line 129. 'test.pl' had =

compilation errors.<o:p></o:p></DIV>
<DIV>
 <o:p></o:p></DIV>
<DIV>
####
test2.pl #########<o:p></o:p></DIV>
<DIV>
PerlApp
8.0.1 build 289861 Copyright (C) 1998-2009 ActiveState Software =
Inc. All
rights reserved. Standard license for David Fish <<A
=
href=3D"mailto:david.fish [at] marriott.com">david.fish [at] marriott. com</A>></=
SPAN><o:p></o:p></DIV>
<DIV>
 <o:p></o:p></DIV>
<DIV>
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. #######################<o:p></o:p></DIV>
<DIV>
 <o:p></o:p></DIV>
<DIV>
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.<o:p></o:p></DIV>
<DIV>
 <o:p></o:p></DIV>
<DIV>
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.<o:p></o:p></DIV>
<DIV>
 <o:p></o:p></DIV>
<DIV>
Thanks
for any assistance with this.<o:p></o:p></DIV>
<DIV>
<o:p> </o:p></DIV>
David
Fish Senior =
Systems
Analyst Property =
Systems
Services Work =
(301)
380-3331 Fax (301) =

644-7521 BlackBerry (301)
646-8985 david.fish [at] marriott.com
<o:p></o:p>
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.<o:p></o:p>
<o:p> </o:p>
<DIV>
 <o:p></o:p></DIV>
<BLOCKQUOTE style=3D"MARGIN-TOP: 5pt; MARGIN-BOTTOM: 5pt; =
MARGIN-RIGHT: 0in">
<o:p> </o:p>
<DIV class=3DMsoNormal style=3D"TEXT-ALIGN: center" align=3Dcenter>
<HR align=3Dcenter width=3D"100%" SIZE=3D2>
</DIV>
From:
activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of =
A
Smith Sent: Friday, May 08, 2009 2:11 PM To:
zmumba [at] yahoo.com Cc:
activeperl [at] listserv.activestate.com Subject: Re: search =
and
replace<o:p></o:p>
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<o:p></o:p>
<DIV>
2009/5/8 zilore mumba <<A
=
href=3D"mailto:zmumba [at] yahoo.com">zmumba [at] yahoo.com</A>><o:p></o:p>
 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 =3D~ 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 =3D =
1; my $file1
=3D "file1.txt"; print "file1=3D'$file1'\n" if $debug; my =
$file2 =3D
"file2.txt"; print "file2=3D'$file2'\n" if $debug; =
my
[at] slashes; my $slashes; open =
(OUT1,
"<$file1") or die "open '$file1: failed $! ($^E)"; =
open
(OUT2, ">$file2") or die "open '$file2: failed $! =
($^E)"; 
[at] slashes =3D <OUT1>; close =

OUT1; for my $i ( [at] slashes) { $slashes =3D~
s/\/{1,5}/9{1,5}/g; } print OUT2 =
" [at] slashes"; close
OUT2; unlink $file1 or die "Failed to delede $file1:
=
$!\n"; __END__ ____________________________=
___________________ ActivePerl
mailing list <A
=
href=3D"mailto:ActivePerl [at] listserv.ActiveState.com">ActivePe rl [at] listserv.A=
ctiveState.com</A> To
unsubscribe: <A =
href=3D"http://listserv.ActiveState.com/mailman/mysubs"
=
target=3D_blank>http://listserv.ActiveState.com/mailman/mysu bs</A><o:p></=
o:p></DIV>
<o:p> </o:p></BLOCKQUOTE></DIV></DIV></BLOCKQU=
OTE></BODY></HTML>

------_=_NextPart_001_01C9D948.7A8C93A0--

--============== 98128270==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--============== 98128270==--

search and replace

Re: search and replace

Re: search and replace

Re: search and replace

Re: search and replace

Re: search and replace

Upgrading Active Perl from 5.8 to 5.10 and upgrading PDK 5.3 to 8.0

RE: Upgrading Active Perl from 5.8 to 5.10 and upgrading PDK 5.3 to

RE: Upgrading Active Perl from 5.8 to 5.10 and upgrading PDK 5.3 to