[30863] in Perl-Users-Digest
Perl-Users Digest, Issue: 2108 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 9 11:09:47 2009
Date: Fri, 9 Jan 2009 08:09:11 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 9 Jan 2009 Volume: 11 Number: 2108
Today's topics:
Re: Circular lists <ced@blv-sam-01.ca.boeing.com>
Re: Circular lists <gamo@telecable.es>
Re: Circular lists <RedGrittyBrick@spamweary.invalid>
Re: I am needing a gentle introduction to accessing a p <tadmc@seesig.invalid>
Re: I am needing a gentle introduction to accessing a p <lvirden@gmail.com>
Re: I am needing a gentle introduction to accessing a p <lvirden@gmail.com>
Re: I am needing a gentle introduction to accessing a p <lvirden@gmail.com>
Re: I am needing a gentle introduction to accessing a p <RedGrittyBrick@spamweary.invalid>
Installing CPAN module that has no PPM package <noneedto@email.me>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 9 Jan 2009 05:20:48 -0800 (PST)
From: "C.DeRykus" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Circular lists
Message-Id: <a535eaf8-6854-43d9-9b5e-76b41f50e306@r15g2000prh.googlegroups.com>
On Jan 9, 2:45 am, gamo <g...@telecable.es> wrote:
> I want to learn an effient way of handle circular lists.
>
> EXAMPLE:
>
> I have a set of @set = qw(a a b b b c c c c);
>
> In a loop...
>
> @list = shuffle(@set);
>
> and I want to know how many diferent circular lists could be generated.
>
> Thanks, best regards
>
> PS: The way I handle this is doing
>
> $s = join '',@list;
> $string = $s . $s;
>
> and after that comparing $s with all the previous stored substr
> $string,$i,9 for $i (0..9)
>
> BUT this way is very inefficient for a large @set or long loop.
>
See: perldoc -q permute
--
Charles DeRykus
------------------------------
Date: Fri, 9 Jan 2009 14:52:00 +0100
From: gamo <gamo@telecable.es>
Subject: Re: Circular lists
Message-Id: <alpine.LNX.2.00.0901091446160.790@jvz.es>
On Fri, 9 Jan 2009, C.DeRykus wrote:
> On Jan 9, 2:45 am, gamo <g...@telecable.es> wrote:
> > I want to learn an effient way of handle circular lists.
> >
> > EXAMPLE:
> >
> > I have a set of @set = qw(a a b b b c c c c);
> >
> > In a loop...
> >
> > @list = shuffle(@set);
> >
> > and I want to know how many diferent circular lists could be generated.
> >
> > Thanks, best regards
> >
> > PS: The way I handle this is doing
> >
> > $s = join '',@list;
> > $string = $s . $s;
> >
> > and after that comparing $s with all the previous stored substr
> > $string,$i,9 for $i (0..9)
> >
> > BUT this way is very inefficient for a large @set or long loop.
> >
>
> See: perldoc -q permute
>
> --
> Charles DeRykus
>
OK, supposing I have all the permutations,
supposing I remove the redundant ones with a hash,
how I detect the circular - identical ones?
Thanks
--
http://www.telecable.es/personales/gamo/
"Was it a car or a cat I saw?"
perl -E 'say 111_111_111**2;'
------------------------------
Date: Fri, 09 Jan 2009 15:09:12 +0000
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: Circular lists
Message-Id: <49676899$0$27144$fa0fcedb@news.zen.co.uk>
gamo wrote:
> I want to learn an effient way of handle circular lists.
What do you mean by a circular list? AFAIK Perl only knows about plain
lists.
I'd first worry about correctness. I'd only worry about efficiency if
the result is measured to be unacceptably slow.
>
> EXAMPLE:
>
> I have a set of @set = qw(a a b b b c c c c);
>
That isn't what I'd call a set. To me a set can not contain multiple
identical elements. A set might be (a,b,c).
> In a loop...
You can construct a for loop for the range from zero to the length of
@set minus one. Given a set a,b,c - the for loop could be used to yield
a b c
b c a
c a b
This might be the sort of thing you are looking for. I exclude b,c,a
because of the way I have interpreted your mention of "circular list".
>
> @list = shuffle(@set);
>
> and I want to know how many diferent circular lists could be generated.
Assuming you want to rotate an element off the end and prepend it at the
beginning (one interpretation of circularity), I'd maybe use splice.
Read `perldoc -f splice`
>
> Thanks, best regards
>
>
>
> PS: The way I handle this is doing
>
> $s = join '',@list;
> $string = $s . $s;
see `perlfoc -f push`
>
> and after that comparing $s with all the previous stored substr
> $string,$i,9 for $i (0..9)
That seems an unusual approach but unless you show code I'm unsure what
exactly you mean.
>
> BUT this way is very inefficient for a large @set or long loop.
>
>
See above.
--
RGB
------------------------------
Date: Fri, 9 Jan 2009 08:50:33 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: I am needing a gentle introduction to accessing a perl array from a reference
Message-Id: <slrngmep1p.k3m.tadmc@tadmc30.sbcglobal.net>
Larry W. Virden <lvirden@gmail.com> wrote:
> On Jan 8, 4:56 pm, Tad J McClellan <ta...@seesig.invalid> wrote:
>> Larry W. Virden <lvir...@gmail.com> wrote:
>> > # put results of query into single array and return
>> > while (@next_row= $query->fetchrow_array()){
>>
>> > push(@array_result,@next_row);
>> > }
>>
>> > $query->finish;
>> > $dbconn->disconnect();
>> > return \@array_result;
>>
>> That is an awfully strange way to do it, unless your query is selecting
>> only a single column.
> I think the select might very well be one that only returns a single
> row.
Oh. That makes it less strange.
But coding up a loop where you depend on always having a single
interation is kind of silly. It is a non-looping loop!
>> The data structure here is nothing more than (a reference to) a flat array.
>
> That's the real code from the program I'm trying to understand. So,
> when the fetchrow_array returns @next_row, this is a "flat array".
> It's still a hash, right?
No. If the array contained references to hashes (which it does not)
then it would not be "flat", it would be "hierarchical".
So, we still do not know where the hashes are coming from...
... they are certainly not coming from any of the code we've seen thus far.
> With the hash entries (sorry I don't know
> the technical term - the values by which one accesses information in
> the hash)
keys (indexes into a hash)
values (the values associated with particular keys)
> being the names of the columns from the select and the
> information stored in the hash being the values from the columns. And
> fetchrow_array returns ONE row worth of data.
>
> That's what I understood.
That part is mostly correct, though there is nothing creating any
hashes that we can see...
> One point that confused me though was the push(@array_result,
> @next_row); statement. From other statements mentioned here, it sounds
> to me as if, in cases of multiple rows returned, @array_result becomes
> a "mish mash" of information, overwriting previously existing
> values.
>
> Am I understanding that correctly?
mish mash, yes.
overwriting, no.
push() adds to what is already there.
If you had "select name, address from...", then all of the even indexes
in @array_result would be names and all of the odd indexes would be addresses.
That is, alternating names and addresses.
>> > I am trying to figure out a readable approach to
>> > dealing with the value that is returned.
>>
>> To help you with that, we will need rather precise information on what
>> that structure is...
>
> I'm trying to understand the code to the point that I can figure the
> structure out.
Just ask Data::Dumper to show you the data structure, then figure it
out from the output of Data::Dumper.
>> > if ( defined( $super_list->[$staff]{'User_Name'} ) ) {
>>
>> ^ ^
>> ^ ^
>> Eh? Where did the hash come from?
>
> The original documentation for this web services program was spotty. I
> took what was provided, tried to get something to work, talked to some
> people who knew more perl than I did, and that's where I ended up
> getting data back that was expected. The data that was returned to
> $super_list was an array generated by the push
> (@array_result,@next_row) statement after a DBI fetchrow_array. The
> hash index is one of the column names of data returned by the fetch
> from the select handle.
fetchrow_array does not do hashes or include column names, so its
return value must be getting modified somewhere else in the code...
However, you/we probably don't need to find it if only we knew for
certain what data structure you are ending up with.
>> > $super_login = $super_list->[$staff]
>> > {'User_Name'};
>> > The main concern I have here is that if I want to write a "print all
>> > columns of data" type routine, I would have to hand code a series of
>> > if (defined...) type statements, differing depending on what table is
>> > being dumped.
>>
>> > Is there another approach that would allow me to dynamically generate
>> > the columns from the hash and then loop through them?
>>
>> perldoc -f keys
>>
>> Returns a list consisting of all the keys of the named hash.
>
> Ah! That's the concept I was seeking.
Then you can apply "Use Rule 1" from perlreftut.pod to get a list
of keys. I like to apply it in 3 steps:
my @keys = keys %hash; # pretend it is an ordinary hash
my @keys = keys %{ }; # replace the _name_ with a block
# fillin the block with something that returns the right kind of reference
my @keys = keys %{ $super_list->[$staff] };
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Fri, 9 Jan 2009 04:13:55 -0800 (PST)
From: "Larry W. Virden" <lvirden@gmail.com>
Subject: Re: I am needing a gentle introduction to accessing a perl array from a reference
Message-Id: <1135f416-901a-459b-981c-684ef6d18c05@f29g2000vbf.googlegroups.com>
On Jan 8, 4:11=A0pm, Jim Gibson <jimsgib...@gmail.com> wrote:
> In article
> <5ac3764f-75b2-4a7d-96ed-6e36e2248...@a12g2000pro.googlegroups.com>,
> Larry W. Virden <lvir...@gmail.com> wrote:
>
>
> > # put results of query into single array and return
> > =A0 while (@next_row=3D $query->fetchrow_array()){
>
> > =A0 =A0 push(@array_result,@next_row);
> > =A0 }
>
> Are you sure this is your code? The above statements will have the
> unfortunate effect of concatenating all of the rows returned into a
> single array. Perhaps this is what you actually have:
> =A0 =A0while ( my @next_row=3D $query->fetchrow_array()){
>
> =A0 =A0 =A0push(@array_result,\@next_row);
> =A0 =A0}
That was a literal copy and paste from the code. The only thing I can
figure, looking at the code, is that in the most cases, I think there
is only one record satisfying the select, so there's perhaps never
been a time when more than one item was pushed. I just inherited this
system, so I'm still learning about it.
>
> Notice the difference. This loop will produce an array of references to
> arrays, one for each row. This is called an "array-of-arrays".
>
>
>
> > =A0 $query->finish;
> > =A0 $dbconn->disconnect();
> > =A0 return \@array_result;
>
> > I am a perl novice. I am trying to figure out a readable approach to
> > dealing with the value that is returned.
>
> > One piece of code that I've bubble-gummed and bailing wired together
> > basically does this:
>
> > $super_list =3D thefunction($argument);
>
> What is the relationship between thefuncion() and the code you have
> shown above?
The initial code I showed is a small part of a web service "method".
the $super_list line is the call to the web service.
>
> > my $tot =3D scalar(@$super_list);
>
> > if ( $tot_supers >=3D 1 ) {
>
> What is the value of $tot_supers? Do you mean $tot?
yes, that was a mistake in my attempt to translate things into a
simpler form for the posting. I apologize.
>
> > =A0 =A0 =A0 =A0 for (my $staff=3D0; $staff < $tot_supers; $staff++ ) {
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 if ( defined( $super_list->[$staff]{'Us=
er_Name'} ) ) {
>
> Where did the hash %{$super_list->[$staff]} come from?
The web service returns an array reference, assigned to $super_list.
$staff is the attempt to increment through the rows of the array.
>
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0$super_login =3D $super_=
list->[$staff]
> > {'User_Name'};
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0chomp($super_login);
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0print $super_login . "\n=
" ;
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 } else {
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 print "Unable to identi=
fy user $staff \n";
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 }
> > =A0 =A0 =A0 =A0 }
> > =A0 =A0 }
>
> > The main concern I have here is that if I want to write a "print all
> > columns of data" type routine, I would have to hand code a series of
> > if (defined...) type statements, differing depending on what table is
> > being dumped.
>
> Why? Why not use the elements that went into the select statement that
> generated the returned data? You should know what you have asked for.
I was wanting to write some code that would , upon receiving one of
these references to an array, just loop through the array and print
out the column names and values. The web service module that I'm
interacting with has a dozen or more methods. Rather than trying to
figure out what columns are returned by each method, I was hoping a
more generic print function could be written that would just iterate
through the array.
>
>
>
> > Is there another approach that would allow me to dynamically generate
> > the columns from the hash and then loop through them?
>
> > I apologize from the vague description - I'm still working on
> > understanding the data structure , etc.
>
> Please explain in more detail your data structures so that we may
> understand them. Your descriptions are incomplete.
The reference to the array is supposed to be results from select
statements, some of which are "select * from ...." . Certainly I can
do a describe of each table, and then hard code a series of print
statements. I was just hoping there was a streamlined best practice
for that sort of access that would generically apply.
Thank you so much for your time.
------------------------------
Date: Fri, 9 Jan 2009 04:19:23 -0800 (PST)
From: "Larry W. Virden" <lvirden@gmail.com>
Subject: Re: I am needing a gentle introduction to accessing a perl array from a reference
Message-Id: <c34ebb42-b502-429b-b8e3-85284d2a4fdd@w1g2000prk.googlegroups.com>
On Jan 8, 5:25=A0pm, Tim Greer <t...@burlyhost.com> wrote:
> Larry W. Virden wrote:
> > I have some legacy code, the author of whom is no longer available for
> > consultation.
>
> > Here is a piece of the code in question:
>
> > :
> > up here, the DBI connection to the database, the select statement,
> > etc. occurs
>
> Can you either post the fully relevant portions of your code, or
> elaborate on some aspects? =A0Some parts of the code you've posted don't
> seem to relate to the other, so either relevant code is missing, or...?
Thank you for your question. The bit of code was from 1600+ lines of
code in a web services program, as well as parts from a 50+ line
program which invokes one method from the web service, interacts with
other programs, to generate some internal information. I don't have
rights to distribute the whole program, so I was trying to (and
obviously failed at) picking just a small portion to get at a better
understanding at how one would generically access the elements of a
hash given a reference. I need to do more reading, and have some
references elsewhere in this thread I will use to try and learn more.
Thank you all so much for your help.
------------------------------
Date: Fri, 9 Jan 2009 04:35:37 -0800 (PST)
From: "Larry W. Virden" <lvirden@gmail.com>
Subject: Re: I am needing a gentle introduction to accessing a perl array from a reference
Message-Id: <28af5ba7-effb-4919-ac48-40ab8f4bfedf@l33g2000pri.googlegroups.com>
On Jan 8, 4:56=A0pm, Tad J McClellan <ta...@seesig.invalid> wrote:
> Larry W. Virden <lvir...@gmail.com> wrote:
>
> > I have some legacy code, the author of whom is no longer available for
> > consultation.
>
> > Here is a piece of the code in question:
>
> Is the code copy/pasted, or re-typed?
The code dealing with the fetchrow was copy/pasted. The remaining code
was typed with me trying to include just relevant details (without all
the debugging statements, etc.). I failed at some of the retyping. I
apologize.
>
> > up here, the DBI connection to the database, the select statement,
> > etc. occurs
> >:
>
> > # put results of query into single array and return
> > =A0 while (@next_row=3D $query->fetchrow_array()){
>
> > =A0 =A0 push(@array_result,@next_row);
> > =A0 }
>
> > =A0 $query->finish;
> > =A0 $dbconn->disconnect();
> > =A0 return \@array_result;
>
> That is an awfully strange way to do it, unless your query is selecting
> only a single column.
I didn't write the code, and haven't used arrays, references, and DBI
enough to know about it. In the particularly select I was looking at,
I think the select might very well be one that only returns a single
row. I'm still trying to learn about the database and its
characteristics.
>
> Is this your real code?
>
> The data structure here is nothing more than (a reference to) a flat arra=
y.
That's the real code from the program I'm trying to understand. So,
when the fetchrow_array returns @next_row, this is a "flat array".
It's still a hash, right? With the hash entries (sorry I don't know
the technical term - the values by which one accesses information in
the hash) being the names of the columns from the select and the
information stored in the hash being the values from the columns. And
fetchrow_array returns ONE row worth of data.
That's what I understood.
One point that confused me though was the push(@array_result,
@next_row); statement. From other statements mentioned here, it sounds
to me as if, in cases of multiple rows returned, @array_result becomes
a "mish mash" of information, overwriting previously existing
values.
Am I understanding that correctly?
>
> > I am trying to figure out a readable approach to
> > dealing with the value that is returned.
>
> To help you with that, we will need rather precise information on what
> that structure is...
I'm trying to understand the code to the point that I can figure the
structure out. I apologize for my limited vocabulary and
understanding.
>
> > One piece of code that I've bubble-gummed and bailing wired together
> > basically does this:
>
> > $super_list =3D thefunction($argument);
> > my $tot =3D scalar(@$super_list);
> > if ( $tot_supers >=3D 1 ) {
> > =A0 =A0 =A0 =A0 for (my $staff=3D0; $staff < $tot_supers; $staff++ ) {
>
> The Perlish way would be to replace the 3 lines above with:
>
> =A0 =A0if ( @$super_list ) {
> =A0 =A0 =A0 =A0foreach my $staff ( 0 .. $#$super_list ) {
>
> I'm guessing you would benefit by spending some quality time with:
>
> =A0 =A0perldoc perlreftut
>
> and
>
> =A0 =A0perldoc Data::Dumper
Thank you so much for the suggestion. I'll read those and hopefully
have a better comprehension of what is going on.
>
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 if ( defined( $super_list->[$staff]{'Us=
er_Name'} ) ) {
>
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0^ =A0 =A0 =A0 =A0 =A0 ^
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0^ =A0 =A0 =A0 =A0 =A0 ^
> Eh? Where did the hash come from?
The original documentation for this web services program was spotty. I
took what was provided, tried to get something to work, talked to some
people who knew more perl than I did, and that's where I ended up
getting data back that was expected. The data that was returned to
$super_list was an array generated by the push
(@array_result,@next_row) statement after a DBI fetchrow_array. The
hash index is one of the column names of data returned by the fetch
from the select handle.
>
> There is no hash anywhere in your code up at the top...
>
>
The fetchrow_array was from DBI, returning sql rows from an oracle
database.
>
>
>
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0$super_login =3D $super_=
list->[$staff]
> > {'User_Name'};
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0chomp($super_login);
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0print $super_login . "\n=
" ;
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 } else {
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 print "Unable to identi=
fy user $staff \n";
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 }
> > =A0 =A0 =A0 =A0 }
> > =A0 =A0 }
>
> > The main concern I have here is that if I want to write a "print all
> > columns of data" type routine, I would have to hand code a series of
> > if (defined...) type statements, differing depending on what table is
> > being dumped.
>
> > Is there another approach that would allow me to dynamically generate
> > the columns from the hash and then loop through them?
>
> =A0 =A0 perldoc -f keys
>
> =A0 =A0 =A0 =A0 Returns a list consisting of all the keys of the named ha=
sh.
Ah! That's the concept I was seeking.
>
> > I apologize from the vague description - I'm still working on
> > understanding the data structure , etc.
>
> We need an understanding of the (actual) data structure if we are
> to help you suss out how to access it.
>
> Try posting a bit of output from:
>
> =A0 =A0use Data::Dumper;
> =A0 =A0print Dumper $super_list;
>
Thanks - the code diving I am doing is to develop a better
understanding of what this web service is doing, so that I can figure
out how things could be done better. This is, alas, not one of the
primary tasks I have, so I have to eek out time every day or so to dig
in. The feedback here has been quite valuable, and I believe I have
several valuable avenues for learning.
I appreciate everyone's time and patience.
------------------------------
Date: Fri, 09 Jan 2009 14:52:21 +0000
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: I am needing a gentle introduction to accessing a perl array from a reference
Message-Id: <496764a6$0$27144$fa0fcedb@news.zen.co.uk>
Larry W. Virden wrote:
> On Jan 8, 5:25 pm, Tim Greer <t...@burlyhost.com> wrote:
>> Larry W. Virden wrote:
>>> I have some legacy code, the author of whom is no longer available for
>>> consultation.
>>> Here is a piece of the code in question:
>>> :
>>> up here, the DBI connection to the database, the select statement,
>>> etc. occurs
>> Can you either post the fully relevant portions of your code, or
>> elaborate on some aspects? Some parts of the code you've posted don't
>> seem to relate to the other, so either relevant code is missing, or...?
>
> Thank you for your question. The bit of code was from 1600+ lines of
> code in a web services program, as well as parts from a 50+ line
> program which invokes one method from the web service, interacts with
> other programs, to generate some internal information. I don't have
> rights to distribute the whole program, so I was trying to (and
> obviously failed at) picking just a small portion to get at a better
> understanding at how one would generically access the elements of a
> hash given a reference. I need to do more reading, and have some
> references elsewhere in this thread I will use to try and learn more.
>
> Thank you all so much for your help.
Just a suggestion:
Use Data::Dumper to find out what you have in various variables in the
actual program being worked on.
The output of Data::Dumper can be used to initialise a variable. You can
therefore include that output as code in new tiny throwaway Perl
programs to test out various ways to further manipulate or process those
data structures.
I find debugging tiny programs is easier than debugging big/complex
poorly understood ones. You also end up with small programs you can post
here for further help.
--
RGB
------------------------------
Date: Fri, 09 Jan 2009 10:18:29 -0500
From: tbone <noneedto@email.me>
Subject: Installing CPAN module that has no PPM package
Message-Id: <fanem4ps2ru599f2722npm99tip81tviha@4ax.com>
I want to install the podcast aggregator modules MP3::PodcastFetch
I have ActiveState Perl 5.10, and I would like to use some CPAN
modules that are not (yet) supported via PPM.
I've fiddled with things for a while and have arrived at what seems to
be an impasse. I got a compatible version of nmake from MS, and I have
Visual Studio 6 and 8 installed on this machine. But for some reason,
I can't get the compiles to run properly.
Using vcvars32.at from VS6, I get this compilerok.log file:
Command line warning D4002 : ignoring unknown option '-nodefaultlib'
Command line warning D4002 : ignoring unknown option '-debug'
Command line warning D4002 : ignoring unknown option
'-libpath\:"C\:\\Perl\\lib\\CORE"'
Command line warning D4002 : ignoring unknown option '-machine\:x86'
compilerok.c
LINK : LNK4073: cannot create map for .ILK file; linking
nonincrementally
LINK : fatal error LNK1104: cannot open file "pt\:ref\,icf.exe"
Using vcvarsall.bat from VS8, I get this compilerok.log file:
cl : Command line warning D9035 : option 'o' has been deprecated and
will be removed in a future release
cl : Command line warning D9002 : ignoring unknown option
'-nodefaultlib'
cl : Command line warning D9002 : ignoring unknown option '-debug'
cl : Command line warning D9002 : ignoring unknown option
'-libpath\:"C\:\\Perl\\lib\\CORE"'
cl : Command line warning D9002 : ignoring unknown option
'-machine\:x86'
compilerok.c
LINK : cannot create map for .ILK file; linking nonincrementally
LINK : fatal error LNK1104: cannot open file 'pt\:ref\,icf.exe'
Any pointers?
Thx
tbone
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 2108
***************************************
