[10881] in Perl-Users-Digest
Perl-Users Digest, Issue: 4482 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 22 20:07:21 1998
Date: Tue, 22 Dec 98 17:00:24 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 22 Dec 1998 Volume: 8 Number: 4482
Today's topics:
Re: Active Perl & DBI||DBD... <McLellan@ReactionDesign.com>
Re: Can I change a varible on the fly. <off-duty@entheosengineering.com>
CHMOD a file before writing to it.. <tspencer@exconet.co.uk>
Re: CHMOD a file before writing to it.. (brian d foy)
Re: CHMOD a file before writing to it.. (Clay Irving)
faster than regexp <r2.d2@gmx.de>
Re: gmtime on SGI different (Larry Rosler)
Re: How do I manually change the value of a hidden text bhoylma@uswest.com
Mail::Send and the from header <baron@inetech.com>
Re: Nested sorting (Larry Rosler)
Re: Nested sorting (Bill Moseley)
NEWBIE: Help writing a form script <briwillis@yahoo.com>
Re: NEWBIE: Help writing a form script (Tad McClellan)
Perl 5.005_002 on NT with FastCGI <raphael@iscusa.com>
Re: Perl Training - Worth it? bhoylma@uswest.com
Re: Please help me reading .csv textfiles (rise)
Re: Please help me reading .csv textfiles <r28629@email.sps.mot.com>
Re: Please help me reading .csv textfiles <cva@abim.net>
Re: problem with $/ - is it a perl bug? <alex@kawo2.rwth-aachen.de>
Re: problem with $/ - is it a perl bug? <uri@ibnets.com>
Re: problem with $/ - is it a perl bug? (Tad McClellan)
Re: problem with $/ (Larry Rosler)
Re: problem with $/ <uri@ibnets.com>
Re: problem with $/ (Tad McClellan)
Re: Real Newbie--please help <aqumsieh@matrox.com>
Recursive file copy keeping date attributes <lynn@swcp.com>
Re: Retrospective on comp.lang.perl.moderated? <ruben@llinderman.dental.nyu.edu>
Re: scoped references <ruben@llinderman.dental.nyu.edu>
Re: scoped references (Larry Rosler)
Socket Initialize error <arvindk@pa.dec.com>
Re: Turning Variables into CAPS? <r28629@email.sps.mot.com>
Re: What's wrong with this code? <baliga@synopsys.com>
Re: What's wrong with this code? (brian d foy)
Win Port - AWK to Perl conversion <jlcrosby@fwi.com>
Re: Win Port - AWK to Perl conversion <due@murray.fordham.edu>
Re: Win Port - AWK to Perl conversion (Randy Kobes)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 22 Dec 1998 14:20:20 -0800
From: "Clifton L. McLellan" <McLellan@ReactionDesign.com>
Subject: Re: Active Perl & DBI||DBD...
Message-Id: <gWUf2.23$6P4.1512@news.connectnet.com>
If you are using ActivePerl, why not just use PPM to install them directly
from the ActiveState site? It worked great for me!
Hope this helps,
Clifton
evlap@usa.net wrote in message <75on74$lsc$1@nnrp1.dejanews.com>...
>Hi!
>I address to anybody who works with ActivePerl (win32). Have you got
>DBI & DBD:Oracle already compiled? Actually they are both included in
QubPerl
>however I like visual ActiveState debugger etc and need this packages
there.
>
>regards.
>
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 22 Dec 1998 18:33:13 +0000
From: Rich Grise <off-duty@entheosengineering.com>
To: Tony <tspencer@exconet.co.uk>
Subject: Re: Can I change a varible on the fly.
Message-Id: <367FE5E9.705F9353@entheosengineering.com>
Tony wrote:
> (wants to change data while printing
> Thanks
> Tony
I can see a couple of ways:
way 1:
print <<"EOC";
Content-type: text/html
<HTML>
<HEAD>
<TITLE>
User Information
</TITLE>
</HEAD>
<H2>User Information</H2>
<HR>
<b>Email Address :</b> $PPfile=('tony') $userdata[0]
<br>
<b>Email Address :</b> $PPfile='john'; $userdata[0]
</BODY>
</HTML>
EOC
Double-quoting your "EOC" for your here document will make
it interpolate variables on the way.
Or, do it with individual print statements, where the
double-quotes will interpolate for you.
Cheers!
--
Rich Grise
off-duty@entheosengineering.com
(No need to futz with my e-mail: I have a "delete" button!)
------------------------------
Date: Tue, 22 Dec 1998 23:13:25 -0000
From: "Tony" <tspencer@exconet.co.uk>
Subject: CHMOD a file before writing to it..
Message-Id: <368028e2.0@glitch.nildram.co.uk>
Anyone know how I can CHMOD a file 666 before writting to it and then CHMOD
it 644 after it has been written to using Perl.
The code I use to write to the file is...
sub log {
open(wordfile,">>/home/public_html/cgi-bin/dict1/$in{'file'}");
{
print wordfile "$in{'word'}\n";
close (wordfile);
}
This works fine if I manually set the file permissions to 666, but would like to keep it at 644 under normal curcumstances.
I need to know where to add the code to CHMOD the file before writing and then CHMOD again after writing to it.
I thought perhaps include it in the sub log before opening the file, but no matter what I try it does not work.
Thanks
Tony
------------------------------
Date: Tue, 22 Dec 1998 19:12:20 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: CHMOD a file before writing to it..
Message-Id: <comdog-ya02408000R2212981912200001@news.panix.com>
In article <368028e2.0@glitch.nildram.co.uk>, "Tony" <tspencer@exconet.co.uk> posted:
> Anyone know how I can CHMOD a file 666 before writting to it and then CHMOD
> it 644 after it has been written to using Perl.
> The code I use to write to the file is...
you can only change the permissions if you are the owner, in
which case you can also write to it without making it world
writeable.
what's the real problem that youare trying to solve?
--
brian d foy <brianNOSPAM@NOSPAM.smithrenaud.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
remove NOSPAM or don't. it doesn't matter either way.
------------------------------
Date: 22 Dec 1998 19:29:00 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: CHMOD a file before writing to it..
Message-Id: <75pdgc$ofp@panix.com>
In <368028e2.0@glitch.nildram.co.uk> "Tony" <tspencer@exconet.co.uk> writes:
>Anyone know how I can CHMOD a file 666 before writting to it and then CHMOD
>it 644 after it has been written to using Perl.
>The code I use to write to the file is...
Besides the way described in the documentation?
perldoc -f chmod
--
Clay Irving
clay@panix.com
------------------------------
Date: Wed, 23 Dec 1998 00:26:58 +0100
From: Rolf Dewitz <r2.d2@gmx.de>
Subject: faster than regexp
Message-Id: <36802AC2.FAF1380F@gmx.de>
I've to analyse a very long log-file line by line. So i'm looking for a
method to split these
lines without regexp very fast. Thanks.
$logline=~/^(.+?) - (.+?) \[(.+?):(\d\d:\d\d:\d\d) .+?\] "([A-Z]+?)
(.*)\/[^\/]* .+?" /o;
proxy.bla.de - so [20/Aug/1998:09:31:07 +0200] "GET /images/suche.gif
HTTP/1.0" 304 -
------------------------------
Date: Tue, 22 Dec 1998 15:27:34 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: gmtime on SGI different
Message-Id: <MPG.10e9cabc69b552bf9898e9@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <75p0h3$u91$1@nnrp1.dejanews.com> on Tue, 22 Dec 1998
20:47:33 GMT, mbrennan@observera.com <mbrennan@observera.com> says...
> I have a script that uses (POSIX) gmtime to format a date. The script was
> originally written on an SGI (6.3) using perl 5.002. Recently the script was
> run on an SGI (6.5) using perl 5.004_04, and the formatted date was wrong.
> The date returned by gmtime contained the letters "EST" on the 6.5 system,
> but did not contain those letters from the 6.3 system - as a result the
> format was wrong and the output from the script didn't work. It was easy to
> fix, but now I have 2 versions of the script.
Why not use (Perl) gmtime? In list context, you get the individual
components as numbers, which you can format as you wish with sprintf; in
scalar context you get a string with some alphabetic components, which
you can extract with substr. This should be completely OS-independent.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 23 Dec 1998 00:24:35 GMT
From: bhoylma@uswest.com
Subject: Re: How do I manually change the value of a hidden text field CGI.pm
Message-Id: <75pd81$903$1@nnrp1.dejanews.com>
In article <367e6e1d.353171874@news.uni.edu>,
troy.bull@uni.edu wrote:
> I am trying to set a state variable, on the first form it is set to 1
> on the second form, I tried to hidden(-name->'state' -default=>'2')
> it stays set to one. It says in the doc, you must manually change it,
> my question is how do I manually change it?
>
Give the param() method multiple parameters. From the docs:
SETTING THE VALUE(S) OF A NAMED PARAMETER:
$query->param('foo','an','array','of','values');
This sets the value for the named parameter 'foo' to an
array of values. This is one way to change the value of a
field AFTER the script has been invoked once before.
(Another way is with the -override parameter accepted by all
methods that generate form elements.)
param() also recognizes a named parameter style of calling
described in more detail later:
$query->param(-name=>'foo',-values=>['an','array','of','values']);
-or-
$query->param(-name=>'foo',-value=>'the value');
APPENDING ADDITIONAL VALUES TO A NAMED PARAMETER:
$query->append(-name=>'foo',-values=>['yet','more','values']);
This adds a value or list of values to the named parameter.
The values are appended to the end of the parameter if it
already exists. Otherwise the parameter is created. Note
that this method only recognizes the named argument calling
syntax.
--
Bruce W. Hoylman (303-541-6557) -- bhoylma@uswest.com ._ 0
- __0 "I intend to live forever... /\/\ /\ / //\.
- - - _-\<,_ so far, so good." /~/~~\/\/~~\ ' \>> |
- __(_)/_(_)_____________________________/\ / \ \/\ \________\\ `_
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 22 Dec 1998 17:26:49 -0600
From: "Scott Baron" <baron@inetech.com>
Subject: Mail::Send and the from header
Message-Id: <j0Wf2.612$fM1.18972@ptah.visi.com>
Is there a way to change the From: header when sending an email using
mail::send. I know there is a set and add option but it doesn't seem to be
adding my header to the final email that is sent.
Is there a better way to change the reply address on an email?
Confused,
Scott
------------------------------
Date: Tue, 22 Dec 1998 14:17:00 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Nested sorting
Message-Id: <MPG.10e9ba34b8abd1e89898e8@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <36800859$0$208@nntp1.ba.best.com> on 22 Dec 1998 21:00:09
GMT, Bill Moseley <moseley@best.com> says...
...
> I wanted to build a single sort key but I didn't understand how to inverse
> a sub-string within my single sort key to get that key to do a reverse sort.
> Larry helped here.
I didn't know how to, before the problem came up. :-)
...
> I'm still not sure how to detect if I have floats, or not.
> Is checking that int($n) == $n for each value enough?
Indeed. But there are problems if $n is greater than (1 << 32) - 1.
...
> I wonder if it would make more sense to not "stringify" but rather pack a
> binary structure by double words or whatever the largest binary compare
> can be on the machine. It just kinda bugs me to turn numbers into strings
> just to compare them. ;) But I guess it isn't much slower to do a
> byte-by-byte compare than an arbitrary length double word compare.
The default sort calls the C-library function memcmp, which may be
implemented in assembly language to get the most out of the underlying
hardware, and in any case is much faster than anything you can do with
Perl directly. That's why we have been promoting the default-sort
technique.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 23 Dec 1998 00:45:59 GMT
From: moseley@best.com (Bill Moseley)
Subject: Re: Nested sorting
Message-Id: <36803d47$0$204@nntp1.ba.best.com>
In article <39g1a750q3.fsf@ibnets.com>, uri@ibnets.com says...
>
>>>>>> "BM" == Bill Moseley <moseley@best.com> writes:
>
> BM> I don't know if a field is just strings, just numbers, mixed,
> BM> floating point, dates, or whatever. So I'm making kind of a general purpose
> BM> nested sort routine.
>
>you can still do that by building a hash or LOL with the keys put into
>the slots according to their type and ordering. you still have not
>defined your inputs to us. you can't do what you want as i have said
>before since comparing to things which are different in ordering or type
>makes no sense. multilevel sorts must give priorities to each key type
>so they are compared first and if they match, then the next level key is
>compared, etc.
Perhaps I wasn't clear in my posts. What you describe is what I was doing.
I build a sort array with the first element a reference to the actual data,
and elements 1..$# are the keys to sort on, in order. All the keys in a given
position are all the same type, of course.
In my old code (posted in a previous message), in the sort routine I'd
loop through the sort keys in order, breaking out of the loop when the
compare was non-zero.
What I was saying is that in my pre-processing, for a given key position, I
don't know ahead of time what its type is. So, if I plan to stringify,
I need to go through all the keys, and determine the type of data, how
to convert to a string (so it will sort properly, including reverse sorts),
and the width to use for that sub-key withing my single key string. And I
do make sure that all the keys are indeed the same time so that the sort
makes sense.
> BM> The ST examples don't seem that confusing, even to me. Just pre-processing
> BM> and data-extraction around a sort. (Although it still seems silly to copy
>
>that is the heart of the ST, so you don't understand ST well yet. what
>ST does is create a temp array of arrays, each with the original sort
>data and broken out keys as elements. the sort code then indexes into
>the array to get at the keys. the postprocess code just indexes into the
>array to get the original data back again.
Right. That's how I understood it.
>i would thing the reference copy would be faster but we can't tell unles
>we see your code and benchmark for that.
Yes, it seems to be. The test I did before was only copying the six
character sort key. The larger the data to copy the better to use a
reference, obviously.
44) ~ %perl5 2.pl
Data Length = 10
Benchmark: timing 1000 iterations of store_data, store_reference...
store_data: 16 secs (14.45 usr 0.00 sys = 14.45 cpu)
store_reference: 15 secs (14.05 usr -0.01 sys = 14.05 cpu)
Data Length = 100
Benchmark: timing 1000 iterations of store_data, store_reference...
store_data: 15 secs (14.84 usr 0.01 sys = 14.84 cpu)
store_reference: 15 secs (14.23 usr 0.00 sys = 14.23 cpu)
Data Length = 1000
Benchmark: timing 1000 iterations of store_data, store_reference...
store_data: 26 secs (20.63 usr 4.16 sys = 24.80 cpu)
store_reference: 19 secs (16.97 usr 0.56 sys = 17.53 cpu)
45) ~ %
I think I got the key generation routine from Larry.
#!/usr/local/bin/perl -w
use strict;
my $data_length = 10;
my $lines = letters();
sub letters {
my @data;
foreach (1..100) {
push (@data,(join "", map {chr(97 + rand(25))}(1..3))
. (int(rand(1000))) . '-' x $data_length
);
}
return \@data;
}
sub store_reference {
my $lines = letters();
my @sorted = map { $_->[0] } # Schwartzian Transform
sort {
$a->[1] cmp $b->[1] or # names
$a->[2] <=> $b->[2] # numbers
} map {
[\$_, m/^(\D+)(\d+)/]
} @$lines;
}
sub store_data {
my $lines = letters();
my @sorted = map { $_->[0] } # Schwartzian Transform
sort {
$a->[1] cmp $b->[1] or # names
$a->[2] <=> $b->[2] # numbers
} map {
[$_, m/^(\D+)(\d+)/]
} @$lines;
}
use Benchmark;
print "Data Length = $data_length\n";
timethese(1000, {
'store_reference' => \&store_reference,
'store_data' => \&store_data,
});
$data_length = 100;
print "\nData Length = $data_length\n";
timethese(1000, {
'store_reference' => \&store_reference,
'store_data' => \&store_data,
});
$data_length = 1000;
print "\nData Length = $data_length\n";
timethese(1000, {
'store_reference' => \&store_reference,
'store_data' => \&store_data,
});
__END__
--------------
Bill Moseley
moseley@best.com
------------------------------
Date: Tue, 22 Dec 1998 22:41:38 GMT
From: "Brian Willis" <briwillis@yahoo.com>
Subject: NEWBIE: Help writing a form script
Message-Id: <01be2e16$57ed99e0$LocalHost@main>
Hello all,
I need some help writing a script to process a form that I've written. I
only know enough about perl to get myself in trouble and that's about it.
Here's a little background to why I need the script. I have to keep
account of the people in my office, which is composed of four sections.
Each section chief will be responsible for filling their form. There are
about 20 people each of the sections that I need to count. The form has
all four sections.
Now about the form. I have the form equating a person's name to a
letter, "P" for present, "A" for absent, "V" for vacation, "T" for training
and so on. I need the form to basically count the number of people there
are total within a section and then count the number of "P's", "A's", "V's"
and so on. I am assuming that I would put the information into an array
then count the number of "names" and then "letters", but I have no idea the
best way of doing that.
Since there are four sections, the script will need to ignore all the
names that have no value. This the values that it does have, I need it to
log all the numbers that is adds up.
Can someone help me write this script? Thanks in advance!!
--
Brian Willis
bigkingwillie@bigfoot.com
------------------------------
Date: Tue, 22 Dec 1998 18:28:09 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: NEWBIE: Help writing a form script
Message-Id: <pedp57.gf7.ln@magna.metronet.com>
Brian Willis (briwillis@yahoo.com) wrote:
: Here's a little background to why I need the script. I have to keep
: account of the people in my office, which is composed of four sections.
: Each section chief will be responsible for filling their form. There are
: about 20 people each of the sections that I need to count. The form has
: all four sections.
: Now about the form. I have the form equating a person's name to a
: letter, "P" for present, "A" for absent, "V" for vacation, "T" for training
: and so on. I need the form to basically count the number of people there
: are total within a section and then count the number of "P's", "A's", "V's"
: and so on. I am assuming that I would put the information into an array
: then count the number of "names" and then "letters", but I have no idea the
: best way of doing that.
: Since there are four sections, the script will need to ignore all the
: names that have no value. This the values that it does have, I need it to
: log all the numbers that is adds up.
: Can someone help me write this script? Thanks in advance!!
Use four hashes, one for each department. (I'd probably really
use a hash of hashes, but you're a beginner, so don't do that).
The key would be the employee name or ID number, the value would
by the "code" described above.
$accounting{fred} = 'P';
$accounting{barney} = 'V';
...
foreach $key ( keys %accounting ) {
$total++;
$present++ if $accounting{$key} eq 'P';
$vacation++ if $accounting{$key} eq 'V';
}
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 22 Dec 1998 16:00:34 -0800
From: Raphael Conrad <raphael@iscusa.com>
Subject: Perl 5.005_002 on NT with FastCGI
Message-Id: <368032A1.ECA9E0E3@iscusa.com>
Hi,
We are trying to build 5.005_02 on NT with FastCGI/ODBC
support. Without much joy so far. Is there anyone out there
who has completed such a build?
Raphael
------------------------------
Date: Wed, 23 Dec 1998 00:11:44 GMT
From: bhoylma@uswest.com
Subject: Re: Perl Training - Worth it?
Message-Id: <75pcfu$8fv$1@nnrp1.dejanews.com>
In article <F4BnAw.Joo@news.boeing.com>,
"Sam Patton" <samuel.patton@wichita.boeing.com> wrote:
> My only problem with the training that I have seen available is that its all
> geared to
> UNIX. I and some of my associates would very much like to find a good class
> on
> on using PERL in the WIN32 environment.
>
> Any suggestions.
>
> Chris Hobbs wrote in message <367D7543.FFEDC0F9@silvervalley.k12.ca.us>...
> >Tom Christiansen wrote:
> >
> >> My goodness, but that's expensive! You can do a lot better than that
> >> if you look around just a wee bit. I'd rather not say more than that.
> >
> >Thanks Tom,
> >
> >Boulder's got to be cold this time of year though :-)
> >
> >It looks like I'm going to stock up on O'Reilly books for now, and
> >perhaps consider further training later next year. I do like the idea of
> >having a true guru for a trainer though!
> >
I was fortunate enough to participate in an advanced perl programming class
sponsored by my company (the best kind!) in which Mr. Christiansen taught the
ins and outs of several advanced topics. It was energetic, well paced, packed
full of information, and challenging. I recommend it to anyone able to land
his services.
Additionally, the class really got me off on the right foot for a complex
data exchange project which I chose to do in perl. The finished product was
a great success (and still is, for that matter).
Happilly, not one word of win32, Windozze, or MicroStuff was uttered!
Label me blessed, I reckon.
Peace.
--
Bruce W. Hoylman (303-541-6557) -- bhoylma@uswest.com ._ 0
- __0 "I intend to live forever... /\/\ /\ / //\.
- - - _-\<,_ so far, so good." /~/~~\/\/~~\ ' \>> |
- __(_)/_(_)_____________________________/\ / \ \/\ \________\\ `_
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 22 Dec 1998 22:29:45 GMT
From: rise@ugcs.caltech.edu (rise)
Subject: Re: Please help me reading .csv textfiles
Message-Id: <75p6gp$hva@gap.cco.caltech.edu>
mgjv@comdyn.com.au (Martien Verbruggen) writes:
>In article <367EF5B3.1E0ED1CC@abim.net>,
> Christian von Appen <cva@abim.net> writes:
>> Unfortunately, I cannot use any new modules, because my program will be
>> copied to people which do not know how to compile/install modules on
>> their own system.
>Ah.. Well, you can either bundle the modules with your script, or
>extract the relevant code from the modules, and put it in your script.
AFAIK Text (and thus Text::ParseWords) is part of the standard perl
distribution and thus should be accessible to anyone who can run a perl
program in the first place.
Jonathan Conway
------------------------------
Date: Tue, 22 Dec 1998 16:43:16 -0600
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Re: Please help me reading .csv textfiles
Message-Id: <36802084.AB9C9E35@email.sps.mot.com>
Martien Verbruggen wrote:
>
> In article <367EF5B3.1E0ED1CC@abim.net>,
> Christian von Appen <cva@abim.net> writes:
> > Unfortunately, I cannot use any new modules, because my program will be
> > copied to people which do not know how to compile/install modules on
> > their own system.
[...]
> Normally ., the current directory, is part of the @INC, which means
> that if Text/ParseWords.pm can be found from your current directory,
> there shouldn't be a problem. If the script isn't run from your
> current directory, you can use the FindBin module, and install it in
> the same place as your script.
the question is even if you had installed FindBin in the same directory
as the script (which was meant to help find parser module), how is the
script going to locate FindBin itself?
Another option is to include the directory of the script into the
PERLLIB env var.
-TK
------------------------------
Date: Wed, 23 Dec 1998 00:56:59 +0100
From: Christian von Appen <cva@abim.net>
To: Martien Verbruggen <mgjv@comdyn.com.au>
Subject: Re: Please help me reading .csv textfiles
Message-Id: <368031CB.B19B5B4C@abim.net>
Hi Martien and the others,
many thanks for your comments!
Martien Verbruggen wrote:
> use Text::CSV or Text::ParseWords
The ParseWords module does not fit, because it expects backslashed
quotes in quoted strings, or simply deletes the quotes. Common CSV Files
do not have backslashed quotes.
I was not able to use the Text::CSV module from CPAN.
When I tried to 'use' Text::CSV.pm, and wanted a 'new' Text::CSV Object,
I always got this fantastic error message:
(I copied the CSV.pm file into my script directory, and tried also the
lib directory.)
-----snip----
Uncaught exception from user code:
Can't locate auto/Text/CSV/autosplit.ix in @INC (@INC contains:
C:\PERL\505\lib C:\PERL\505\site\lib .) at C:\PERL\505\lib/AutoLoader.pm
line 127.
eval {...} called at C:\PERL\505\lib/AutoLoader.pm line 127
AutoLoader::import('AutoLoader', 'AUTOLOAD') called at
Text/CSV.pm line 23
Text::CSV::BEGIN() called at auto/Text/CSV/autosplit.ix line 0
eval {...} called at auto/Text/CSV/autosplit.ix line 0
require Text/CSV.pm called at csvtest.pl line 3
at Text/CSV.pm line 23
Can't locate auto/Text/CSV/new.al in @INC (@INC contains:
C:\PERL\505\lib C:\PERL\505\site\lib .) at csvtest.pl line 5 (#2)
Uncaught exception from user code:
Can't locate auto/Text/CSV/new.al in @INC (@INC contains:
C:\PERL\505\lib C:\PERL\505\site\lib .) at csvtest.pl line 5
Carp::croak('Can\'t locate auto/Text/CSV/new.al in @INC (@INC
contains: C:\PE...') called at C:\PERL\505\lib/AutoLoader.pm line 88
AutoLoader::AUTOLOAD('Text::CSV') called at csvtest.pl line 5
-----snip----
I will now find out how to extract the code from the module, but why is
it all so complicated?
Maybe you can help me using the module as it it distributed?
Thank you!
Christian von Appen
------------------------------
Date: Tue, 22 Dec 1998 23:40:32 +0100
From: Alex Farber <alex@kawo2.rwth-aachen.de>
Subject: Re: problem with $/ - is it a perl bug?
Message-Id: <36801FE0.654808FE@kawo2.rwth-aachen.de>
Alex Farber wrote:
> $INPUT_RECORD_SEPARATOR = "-----------------\n"
> ...
> while (<READ>)
> {
> if (m'\nComment:\s+(.+)${INPUT_RECORD_SEPARATOR}'is)
> {
> $comment = $1;
> }
> }
Hi again,
I have tried the same, but with other delimiters:
if (m"\nComment:\s+(.+)${INPUT_RECORD_SEPARATOR}"is)
and it works now. So, is it a perl bug (a variable $x is not
being interpolated in m'$x' expression) or is it a feature?
Greetings
Alex
--
http://www.simplex.ru/pref.html
------------------------------
Date: 22 Dec 1998 18:28:52 -0500
From: Uri Guttman <uri@ibnets.com>
To: Alex Farber <alex@kawo2.rwth-aachen.de>
Subject: Re: problem with $/ - is it a perl bug?
Message-Id: <397lvj4uyz.fsf@ibnets.com>
>>>>> "AF" == Alex Farber <alex@kawo2.rwth-aachen.de> writes:
AF> Alex Farber wrote:
>> $INPUT_RECORD_SEPARATOR = "-----------------\n"
>> ...
>> while (<READ>)
>> {
>> if (m'\nComment:\s+(.+)${INPUT_RECORD_SEPARATOR}'is)
>> {
>> $comment = $1;
>> }
>> }
AF> Hi again,
AF> I have tried the same, but with other delimiters:
AF> if (m"\nComment:\s+(.+)${INPUT_RECORD_SEPARATOR}"is)
AF> and it works now. So, is it a perl bug (a variable $x is not
AF> being interpolated in m'$x' expression) or is it a feature?
that is a feature. see the doc stuff below. why did you decide to use '
(or ") for your delimiter? plain / would be fine for what you
have. better alternate choices are the paired [](){}. i have never seen
quotes used for m// or s///.
this is from perlop for s///:
If the delimiter chosen is single quote, no variable
interpolation is done on either the PATTERN or the
REPLACEMENT.
the equivilent text for m// is not there. so that is a documentation big
IMO. i will report it to p5p.
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Tue, 22 Dec 1998 18:21:06 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: problem with $/ - is it a perl bug?
Message-Id: <i1dp57.gf7.ln@magna.metronet.com>
Alex Farber (alex@kawo2.rwth-aachen.de) wrote:
: Alex Farber wrote:
: I have tried the same, but with other delimiters:
: if (m"\nComment:\s+(.+)${INPUT_RECORD_SEPARATOR}"is)
: and it works now. So, is it a perl bug (a variable $x is not
: being interpolated in m'$x' expression) or is it a feature?
It is a feature, Perl does what it says it will do
(well, often anyway).
Of course, you need to occasionally _read_ what it says
it will do...
;-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 22 Dec 1998 15:40:28 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: problem with $/
Message-Id: <MPG.10e9cdcb182bd09d9898eb@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <368011A0.4DB06830@kawo2.rwth-aachen.de> on Tue, 22 Dec 1998
22:39:44 +0100, Alex Farber <alex@kawo2.rwth-aachen.de> says...
...
> if (m'\nComment:\s+(.+)${INPUT_RECORD_SEPARATOR}'is)
> {
> $comment = $1;
> }
> }
>
> But it does not work ($comment is always undef) ??
You have run into one of the more obscure features of the 'm' operator.
>From `perldoc perlop`:
With the 'm' you can use any pair of non-alphanumeric,
non-whitespace characters as delimiters (if single
quotes are used, no interpretation is done on the
replacement string...
So $INPUT_RECORD_SEPARATOR is not being interpolated into the regex, nor
are the backslash combinations interpreted. Why don't you use slash
(and leave out the 'm'), like everyone else does?
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 22 Dec 1998 18:47:54 -0500
From: Uri Guttman <uri@ibnets.com>
To: lr@hpl.hp.com (Larry Rosler)
Subject: Re: problem with $/
Message-Id: <394sqn4u39.fsf@ibnets.com>
>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
LR> You have run into one of the more obscure features of the 'm'
LR> operator. From `perldoc perlop`:
LR> With the 'm' you can use any pair of non-alphanumeric,
LR> non-whitespace characters as delimiters (if single quotes are
LR> used, no interpretation is done on the replacement string...
larry, which version are you using? i looked for that and didn't find it
but at work here we have 5.004_03 which is sorta old. i reported it and
maybe i shouldn't have if it was fixed in a later version.
and i asked the guy, why he would use ' as a delimiter? the usefulness
of m'' or s''' is highly dubious but they are there!
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: Tue, 22 Dec 1998 18:11:38 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: problem with $/
Message-Id: <qfcp57.r87.ln@magna.metronet.com>
Alex Farber (alex@kawo2.rwth-aachen.de) wrote:
: $INPUT_RECORD_SEPARATOR = "-----------------\n"
: while (<READ>)
: {
: if (m'\nComment:\s+(.+)${INPUT_RECORD_SEPARATOR}'is)
: {
: $comment = $1;
: }
: }
: But it does not work ($comment is always undef) ??
So, since your pattern match didn't work, you surely went to
look up pattern matching in the docs that came with your
perl distribution ( perlop.pod in this case ).
But I guess you missed this part in the second paragraph:
----------------------
If "/" is the delimiter then the initial C<m> is optional. With the C<m>
you can use any pair of non-alphanumeric, non-whitespace characters
as delimiters (if single quotes are used, no interpretation is done
on the replacement string.
----------------------
Use some delimiter other than single quotes if you want
variable interpolation.
Use the docs Luke.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 22 Dec 1998 18:01:17 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
To: ashparbe@indiana.edu
Subject: Re: Real Newbie--please help
Message-Id: <x3yww3jpyrn.fsf@tigre.matrox.com>
[posted and CC mailed]
Anna Shparberg <ashparbe@indiana.edu> writes:
>
> Help! This is a real newbie question!
Great! I thought all other question on this newsgroups seemed
suspiciously fake!
> I have just started learning Perl, and it's my first programming
> language. So far I've had no problems with writing and executing a few
Ouch! Although I think Perl is a great first programming language,
others *WILL* disagree. This newsgroup just got out of a "is Perl a
good first programming language?" war. Nobody won.
> simple programs (my platform is Windows95). What annoys me is having to
Poor you.
> store and run them in perl5\bin, otherwise they won't run at all. My
> path in the autoexec.bat file is set like this:
> path %path%;C:\Perl5\perl5\bin;
This is the only thing that annoys you about Win95??
Seriously now, I can think of two remedies:
1) Use the shebanh line at the beginning of your source code. For unix
systems, that's usually:
#!/usr/bin/perl -w
or something like that. I'm not sure about Windows, but have a look at
'perldoc perlrun'. It should contain the solution.
2) Invoke the script as so:
perl myscript.pl
where "myscript.pl" is the name of your script (you said you were a
true beginner, didn't ya?)
Since the Perl executable's path is in your PATH environment variable,
you can run your program from anywhere (you should have your script in
your current directory though).
> How do I run Perl from another directory?! Please don't laugh at me!
ok .. but only this time :)
Hope this helps,
Ala
------------------------------
Date: Tue, 22 Dec 1998 16:14:48 -0700
From: Lynn Wilson <lynn@swcp.com>
Subject: Recursive file copy keeping date attributes
Message-Id: <368027E8.AFEC35BD@swcp.com>
I'm trying to copy files from Win-NT workstations to an area on a
file server that will be written to a CD-recorder for backup
purposes. The File::Copy module seems to be lacking two features
that I'd like. The most desirable feature would be a copy that
includes all files in a directory and all of its subdirectories
somewhat like Unix does with the cp -R command. The second feature
is that I'd like the file dates to be preserved. I'm using the
File::Path module (mkdir) to generate paths to the target
directories so that they exist prior to the copy.
Using the 'system( $from $to )' command with a $from\*.* construct
will preserve the file dates but will not descend the directories.
I'd like to keep this thing so that it only uses standard shell
commands for 'copy' (or perl commands) and not have to rely on the
Cygnus 'cp' port to windows.
Does anyone know where a more robust 'copy' command can be found
for Perl?
Thanks.
Lynn
lynn@swcp.com
------------------------------
Date: Tue, 22 Dec 1998 17:52:22 -0500
From: Ruben I Safir <ruben@llinderman.dental.nyu.edu>
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <368022A6.ECB4ED55@llinderman.dental.nyu.edu>
Huh
can you say that again?
------------------------------
Date: Tue, 22 Dec 1998 18:00:46 -0500
From: Ruben I Safir <ruben@llinderman.dental.nyu.edu>
Subject: Re: scoped references
Message-Id: <3680249E.F6E49300@llinderman.dental.nyu.edu>
I want to make sure the entire data structure disapears from memory
after
the subroutine ends. Thus, if I call the the subroutine again, it
starts empty.
Ruben
------------------------------
Date: Tue, 22 Dec 1998 15:32:06 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: scoped references
Message-Id: <MPG.10e9cbd2660033349898ea@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <3680249E.F6E49300@llinderman.dental.nyu.edu> on Tue, 22 Dec
1998 18:00:46 -0500, Ruben I Safir <ruben@llinderman.dental.nyu.edu>
says...
> I want to make sure the entire data structure disapears from memory
> after
> the subroutine ends. Thus, if I call the the subroutine again, it
> starts empty.
Declare the top-level hash or array with 'my' within the subroutine. It
starts empty. Leave the subroutine without having an external live
reference to any of the structure. It becomes eligible for garbage
collection.
You can't do better than that, but isn't that exactly what you want?
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 22 Dec 1998 16:26:39 -0800
From: Arvind Krishnaswamy <arvindk@pa.dec.com>
Subject: Socket Initialize error
Message-Id: <368038BF.A66B5F52@pa.dec.com>
If I get an error like -
Failed to initialize socket: Address family not supported by protocol
family
what is the problem ?
I am using a simple script like -
#!/usr/local/bin/perl5
use Socket;
$server = "av-dev.xxx.dec.com";
$port = 7777;
$AF_INET = 2;
$SOCK_STREAM = 1;
$server_addr =(gethostbyname($server))[4];
$server_struct = pack("S n a4 x8", AF_INET, $port, $server_addr);
($name,$aliases,$proto) = getprotobyname('tcp');
socket(MYSOCK, PF_INET, SOCK_STREAM, $proto)|| die "Failed to initialize
socket:
$!\n";
connect(MYSOCK, $server_struct) || die "Failed to connect() to server:
$!\n";
select(MYSOCK);
$| = 1;
select(STDOUT);
THanks
Arvind
------------------------------
Date: Tue, 22 Dec 1998 17:13:02 -0600
From: Tk Soh <r28629@email.sps.mot.com>
To: Ken Hirsch <kenhirsch@myself.com>
Subject: Re: Turning Variables into CAPS?
Message-Id: <3680277E.99F2D8FE@email.sps.mot.com>
[posted to clpm and copy emailed]
Ken Hirsch wrote:
>
> Tk Soh wrote in message:
> [...]
> >ucfirst() only converts the first letter of the string. any function
> >that converts first letter of each word to uppercase, etc?
> >
> >I always find the case conversion function in the word processor
> >something useful.
>
> Well, you could:
>
> s/\b(\w)/uc $1/eg;
>
> But The Question Is "Do You Want To Do This"?
$_ = "i don't know";
s/\b(\w)/uc $1/eg;
print;
gives:
I Don'T Know
-TK
------------------------------
Date: Tue, 22 Dec 1998 15:16:42 -0800
From: Yogish Baliga <baliga@synopsys.com>
To: WL <will@localads.net>
Subject: Re: What's wrong with this code?
Message-Id: <3680285A.3EA92273@synopsys.com>
To use CGI package of the perl, u need to give
require "cgi-lib.pl" ;
in the begining of the perl CGI program and also need to parse the input to
the CGI program using,
&ReadParse;
Hope this help to solve the problem..
--Baliga
WL wrote:
> Hi,
>
> The following code worked fine, when I ran it under Telnet using "perl
> stf.cgi":
> _______________________________________________
> require 'configs.cfg'; # System configuration file
>
> require 'subs.pl'; # System required sub-routines
>
> $SendEmail = "yes";
> $EmailAddress = "will\@localads.net";
> $Locie = "Localads.net";
>
> if ($SendEmail eq "yes") {
> # Open The Mail program, send notice of new AD submittal to Webmaster
> open(MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
> print MAIL "To: $EmailAddress\n";
> print MAIL "From: $Locie\n";
> print MAIL "Subject: Test Message\n\n";
>
> }
> close (MAIL);
> _______________________________________________
> Then, I added this bit of code afer the print MAIL Subject line:
>
> print MAIL "$in{'City'}";
>
> This takes the text City variable from the web page - but it didn't, or
> rather it returned a server error :(( I use the post statement, - could
> this have been the problem?
>
> I'd be very grateful for any help, to will@localads.net
>
> Many thanks indeed,
>
> Will
------------------------------
Date: Tue, 22 Dec 1998 19:16:45 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: What's wrong with this code?
Message-Id: <comdog-ya02408000R2212981916450001@news.panix.com>
In article <3680285A.3EA92273@synopsys.com>, baliga@synopsys.com posted:
> To use CGI package of the perl, u need to give
> require "cgi-lib.pl" ;
maybe for some values of "need", but not the common one.
if one is writing new stuff, one should use CGI.pm instead of
really, really old software.
--
brian d foy <brianNOSPAM@NOSPAM.smithrenaud.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
remove NOSPAM or don't. it doesn't matter either way.
------------------------------
Date: Tue, 22 Dec 1998 16:59:56 -0500
From: Jeff Crosby <jlcrosby@fwi.com>
Subject: Win Port - AWK to Perl conversion
Message-Id: <3680165C.23D12231@fwi.com>
Newbie needs help -
I recently needed to read an unformatted PC text input file and convert
it to a formatted output file. We have an AS/400 where the
'traditional' tools don't adapt to this purpose too well.
A friend told me it would be trivial to do in AWK and offered to do it
for me. In so doing, he opened my eyes to some other tools available
and I have settled on learning Perl to do this sort of thing in the
future.
I have the "Programming Perl" book (which I have started to read) and
have installed the Windows port of Perl (ActiveState).
I want to convert the AWK program he wrote to Perl. In "Programming
Perl", the authors describe a2p for that purpose and imply it's part of
Perl. I can't find it, nor do I find reference to it in any of the docs
that came with the ActiveState version of Perl.
Is it not in the Windows port? Hidden somewhere? Any help on finding
it is appreciated.
Thanks.
--
-Jeff
jlcrosby@fwi.com
------------------------------
Date: 22 Dec 1998 23:44:22 GMT
From: "Allan M. Due" <due@murray.fordham.edu>
Subject: Re: Win Port - AWK to Perl conversion
Message-Id: <75pasm$me6$0@206.165.165.173>
Jeff Crosby wrote in message <3680165C.23D12231@fwi.com>...
|Newbie needs help -
|I recently needed to read an unformatted PC text input file and convert
|it to a formatted output file. We have an AS/400 where the
|'traditional' tools don't adapt to this purpose too well.
|A friend told me it would be trivial to do in AWK and offered to do it
|for me. In so doing, he opened my eyes to some other tools available
|and I have settled on learning Perl to do this sort of thing in the
|future.
|I have the "Programming Perl" book (which I have started to read) and
|have installed the Windows port of Perl (ActiveState).
Good plan, although if you are a fellow POB, Learning Perl on Win32 System has
a few helpful hints.
|I want to convert the AWK program he wrote to Perl. In "Programming
|Perl", the authors describe a2p for that purpose and imply it's part of
|Perl. I can't find it, nor do I find reference to it in any of the docs
|that came with the ActiveState version of Perl.
||Is it not in the Windows port? Hidden somewhere? Any help on finding
|it is appreciated.
Well, you might try:
Start =>Find=>Files or Folders=>a2p*.*
This finds my copy of ActiveStates a2p.exe in the bin subdirectory of my perl
installation. perl.exe is there too. I suppose I just write a small Perl
script to find it but Windoze has to be good for something.
AmD
------------------------------
Date: 23 Dec 1998 00:36:58 GMT
From: randy@theory.uwinnipeg.ca (Randy Kobes)
Subject: Re: Win Port - AWK to Perl conversion
Message-Id: <slrn780fat.3ho.randy@theory.uwinnipeg.ca>
On Tue, 22 Dec 1998 16:59:56 -0500, Jeff Crosby <jlcrosby@fwi.com> wrote:
[snip]
>I want to convert the AWK program he wrote to Perl. In "Programming
>Perl", the authors describe a2p for that purpose and imply it's part of
>Perl. I can't find it, nor do I find reference to it in any of the docs
>that came with the ActiveState version of Perl.
>
>Is it not in the Windows port? Hidden somewhere? Any help on finding
>it is appreciated.
Hi,
In the 507 ActiveState build I have, a2p.exe appears in the same
directory as perl.exe (eg, /Perl/bin). If it's not there for you,
perhaps you need to upgrade your ActiveState version, or maybe
you have a broken installation somehow.
--
Best regards,
Randy Kobes
Physics Department Phone: (204) 786-9399
University of Winnipeg Fax: (204) 774-4134
Winnipeg, Manitoba R3B 2E9 e-mail: randy@theory.uwinnipeg.ca
Canada http://theory.uwinnipeg.ca/
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 4482
**************************************
