[29722] in Perl-Users-Digest
Perl-Users Digest, Issue: 966 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 22 18:09:41 2007
Date: Mon, 22 Oct 2007 15:09:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 22 Oct 2007 Volume: 11 Number: 966
Today's topics:
Re: cgi_bin <noreply@gunnar.cc>
Re: cgi_bin <cwilbur@chromatico.net>
Re: cgi_bin <abigail@abigail.be>
Re: cgi_bin <noreply@gunnar.cc>
Re: cgi_bin <noreply@gunnar.cc>
Re: Data::Dumper and UTF-8 <jl_post@hotmail.com>
Re: Data::Dumper and UTF-8 <jl_post@hotmail.com>
Re: Distributed RVS, Darcs, tech love <glex_no-spam@qwest-spam-no.invalid>
Re: FAQ 7.8 How do I declare/create a structure? <simon.chao@fmr.com>
Re: FAQ 7.8 How do I declare/create a structure? <jl_post@hotmail.com>
generating html form on the fly <barn104_1999@yahoo.com>
Re: Is there any module to map a network drive and remo <kenslaterpa@hotmail.com>
net::sftp write error with multiple packet writes csgonan@yahoo.com
Re: net::sftp write error with multiple packet writes <glex_no-spam@qwest-spam-no.invalid>
Re: net::sftp write error with multiple packet writes csgonan@yahoo.com
Re: sourcing one perl file from another <yskchu@gmail.com>
Re: TeX pestilence (was Distributed RVS, Darcs, tech lo <gneuner2/@/comcast.net>
Re: TeX pestilence (was Distributed RVS, Darcs, tech lo <lew@lewscanon.com>
Re: TeX pestilence (was Distributed RVS, Darcs, tech lo (aka ? the Platypus)
Re: TeX pestilence (was Distributed RVS, Darcs, tech lo <jo@durchholz.org>
Re: Using IDL from a perl script <james.everton@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 22 Oct 2007 17:25:03 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: cgi_bin
Message-Id: <5o3tmjFl28llU1@mid.individual.net>
Charlton Wilbur wrote:
>>>>>> "GH" == Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
>
> GH> Charlton Wilbur wrote:
>
> >> (Your inability to find such a forum that will answer your
> >> question is not justification for asking it here, either.)
>
> GH> Even if we don't know anything about the OPs ability in that
> GH> respect, I'd say that the lack of a more appropriate Usenet
> GH> group _does_ justify him asking it here.
>
> GH> Quoted from "perldoc -q usenet":
>
> GH> "Use comp.lang.perl.misc for topics which do not have a
> GH> more-appropriate specific group."
>
> Ah, but there *is* a more appropriate specific group for this
> question, and it's called comp.infosystems.www.authoring.cgi. And
> even more relevantly, it's mentioned in the FAQ answer you cited as an
> appropriate place to ask CGI-specific questions.
And if you had been a little more attentive, and read the whole thread
before you posted, you had noticed that I - in my reply to Tad - pointed
out that the group in question has been out of order for more than a year.
> If you're going to
> cite the FAQ at people, I recommend you read the answers fully, and
> not snip only the bits that you like.
If you're going to reply to other people's posts, I recommend you follow
the Usenet netiquette and review the whole thread before posting.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 22 Oct 2007 12:17:46 -0400
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: cgi_bin
Message-Id: <878x5vf7it.fsf@mithril.chromatico.net>
>>>>> "GH" == Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
GH> And if you had been a little more attentive, and read the
GH> whole thread before you posted, you had noticed that I - in my
GH> reply to Tad - pointed out that the group in question has been
GH> out of order for more than a year.
What does that have to do with anything? There's a more appropriate
place to post the question, and there's no Perl content in the
question. Does the appropriate place not functioning suddenly excuse
a total lack of Perl content?
If that's the case, I'd love to ask some questions about roleplaying
games here (as rec.games.frp.moderated is nonfunctional) and knitting
(as I can't find a knitting-specific newsgroup). By your logic, both
of those should be perfectly fine, no?
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: 22 Oct 2007 16:31:09 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: cgi_bin
Message-Id: <slrnfhpk2d.ds1.abigail@alexandra.abigail.be>
_
Gunnar Hjalmarsson (noreply@gunnar.cc) wrote on VCLXIV September MCMXCIII
in <URL:news:5o1tnrFkpgh4U1@mid.individual.net>:
&& Charlton Wilbur wrote:
&& >>>>>> "NW" == Nick Wedd <nick@maproom.co.uk> writes:
&& >
&& > NW> Obviously I have the ability to keep all my executables in one
&& > NW> directory if I want to - but I don't see how this helps. Can
&& > NW> you explain?
&&
&& <snip>
&&
&& > (Your inability to find such a forum that will answer your question is
&& > not justification for asking it here, either.)
&&
&& Even if we don't know anything about the OPs ability in that respect,
&& I'd say that the lack of a more appropriate Usenet group _does_ justify
&& him asking it here.
&&
&& Quoted from "perldoc -q usenet":
&&
&& "Use comp.lang.perl.misc for topics which do not have a more-appropriate
&& specific group."
Don't take things out of context. Here's the context:
Several groups devoted to the Perl language are on Usenet:
comp.lang.perl.announce Moderated announcement group
comp.lang.perl.misc High traffic general Perl discussion
comp.lang.perl.moderated Moderated discussion group
comp.lang.perl.modules Use and development of Perl modules
comp.lang.perl.tk Using Tk (and X) from Perl
comp.infosystems.www.authoring.cgi Writing CGI scripts for the Web.
Some years ago, comp.lang.perl was divided into those
groups, and comp.lang.perl itself officially removed.
While that group may still be found on some news servers,
it is unwise to use it, because postings there will not
appear on news servers which honour the official list of
group names. Use comp.lang.perl.misc for topics which do
not have a more-appropriate specific group.
Clearly, as anyone with some usenet knowledge ought to know,
comp.lang.perl.misc is for topics that not have a more-appropriate
specific group WITHIN the comp.lang.perl.* hierarchie.
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
------------------------------
Date: Tue, 23 Oct 2007 00:01:07 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: cgi_bin
Message-Id: <5o4kt7Fl4nrgU1@mid.individual.net>
Abigail wrote:
> Gunnar Hjalmarsson (noreply@gunnar.cc) wrote on VCLXIV September MCMXCIII
> in <URL:news:5o1tnrFkpgh4U1@mid.individual.net>:
> &&
> && I'd say that the lack of a more appropriate Usenet group _does_ justify
> && him asking it here.
> &&
> && Quoted from "perldoc -q usenet":
> &&
> && "Use comp.lang.perl.misc for topics which do not have a more-appropriate
> && specific group."
>
> Don't take things out of context. Here's the context:
>
> Several groups devoted to the Perl language are on Usenet:
>
> comp.lang.perl.announce Moderated announcement group
> comp.lang.perl.misc High traffic general Perl discussion
> comp.lang.perl.moderated Moderated discussion group
> comp.lang.perl.modules Use and development of Perl modules
> comp.lang.perl.tk Using Tk (and X) from Perl
>
> comp.infosystems.www.authoring.cgi Writing CGI scripts for the Web.
>
> Some years ago, comp.lang.perl was divided into those
> groups, and comp.lang.perl itself officially removed.
> While that group may still be found on some news servers,
> it is unwise to use it, because postings there will not
> appear on news servers which honour the official list of
> group names. Use comp.lang.perl.misc for topics which do
> not have a more-appropriate specific group.
>
>
> Clearly, as anyone with some usenet knowledge ought to know,
> comp.lang.perl.misc is for topics that not have a more-appropriate
> specific group WITHIN the comp.lang.perl.* hierarchie.
The FAQ mentions ciwac as one of the groups devoted to the Perl language
into which comp.lang.perl was divided. Consequently, your interpretation
is not obvious at all.
Unfortunately this discussion is not about linguistic semantics. It's
actually caused by some regulars' disinterest in CGI and in giving those
who want to use Perl for CGI apps a helping hand with the CGI side of
it. This thread comes to mind:
http://groups.google.com/group/comp.lang.perl.misc/browse_frm/thread/463c4e90b6dbc2ea
I use Perl for web stuff and will keep doing so, because I like it.
However, if a newbie would ask for my advice on which language is best
to learn for web stuff, I think I would answer PHP. Not because I
personally have a firm opinion on which language is best suited for the
area, but because I imagine that there is no similar 'anti-web attitude'
in the groups and forums that deal with PHP.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 23 Oct 2007 00:01:27 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: cgi_bin
Message-Id: <5o4ktqFl4nrgU2@mid.individual.net>
Charlton Wilbur wrote:
>>>>>> "GH" == Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
>
> GH> And if you had been a little more attentive, and read the
> GH> whole thread before you posted, you had noticed that I - in my
> GH> reply to Tad - pointed out that the group in question has been
> GH> out of order for more than a year.
>
> What does that have to do with anything? There's a more appropriate
> place to post the question, and there's no Perl content in the
> question. Does the appropriate place not functioning suddenly excuse
> a total lack of Perl content?
Even if the question was not really a Perl question, there is an obvious
Perl connection that anybody can see who wants to see it. You don't want
to see it - not much I can do about that.
See also my reply to Abigail.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 22 Oct 2007 11:34:38 -0700
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: Data::Dumper and UTF-8
Message-Id: <1193078078.560620.298840@q3g2000prf.googlegroups.com>
On Oct 21, 3:27 pm, August Karlstrom <fusionf...@comhem.se> wrote:
>
> I'm trying to make Dumper display an UTF-8 string but I can't get it to
> work:
>
.
.
.
> print Dumper("=E2=98=BA");
.
.
.
> $VAR1 =3D "\x{263a}";
>
> Any clues?
According to "perldoc Data::Dumper", this module is used for
stringifying perl data structures, suitable for both printing and
"eval".
I take that to mean that Dumper()'s output text will be portable
enough to be read in correctly by Data::Dumper on any platform, which
may mean that all the output text will be in straight ASCII (and not
in some flavor of Unicode).
If you "eval" the output string, then the "eval"'s output should be
"=E2=98=BA". Try adding this line at the end of your script to see what I
mean:
print eval("my " . Dumper($s)); # prints =E2=98=BA
(The "my " part is to suppress a warning given because the output's
"$VAR1" is caught by "use warnings;" and "use strict;". Optionally,
you may remove that part by using the following lines instead:
# Remove the "$VAR1 =3D " part with substr():
print eval( substr(Dumper($s), 8) );
Either way should work.)
So basically, Data::Dumper is outputting exactly what it should: a
string that, if "eval"ed, returns the contents of its input (which, in
your case, is $s). That way, any platform can read it in, regardless
of whether its terminal window can support the ':utf8' output mode.
I hope this helps, August.
-- Jean-Luc
------------------------------
Date: Mon, 22 Oct 2007 14:35:42 -0700
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: Data::Dumper and UTF-8
Message-Id: <1193088942.491672.317800@i13g2000prf.googlegroups.com>
On Oct 22, 12:34 pm, "jl_p...@hotmail.com" <jl_p...@hotmail.com>
wrote:
>
> print eval("my " . Dumper($s)); # prints =E2=98=BA
>
> (The "my " part is to suppress a warning given because the output's
> "$VAR1" is caught by "use warnings;" and "use strict;". Optionally,
> you may remove that part by using the following lines instead:
>
> # Remove the "$VAR1 =3D " part with substr():
> print eval( substr(Dumper($s), 8) );
>
> Either way should work.)
Jason, I just now figured out (by reading "perldoc Data::Dumper")
that the "$VAR =3D " part can be suppressed by setting
$Data::Dumper::Terse to 1. Therefore, you could add the following two
lines to the end of your script:
$Data::Dumper::Terse =3D 1; # to suppress "$VAR1 =3D "
print eval Dumper($s); # prints =E2=98=BA
and you'll see that, although Dumper may not output text in the form
you want, eval()ling the output text does return it in the form you
want.
-- Jean-Luc
------------------------------
Date: Mon, 22 Oct 2007 17:03:57 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Distributed RVS, Darcs, tech love
Message-Id: <471d1e4d$0$508$815e3792@news.qwest.net>
Lew wrote:
> George Neuner wrote:
>> An attractive person of the opposite sex stands on the other side of
>> the room. You are told that your approach must be made in a series of
>> discrete steps during which you may close half the remaining distance
>> between yourself and the other person.
>>
>> Mathematician: "But I'll never get there!"
>>
>> Engineer: "I'll get close enough."
>
> Mechanician (to the researcher): Hey, you look pretty good. What's your
> sign?
To which he/she replies, "Negative". :-)
------------------------------
Date: Mon, 22 Oct 2007 18:30:04 -0000
From: nolo contendere <simon.chao@fmr.com>
Subject: Re: FAQ 7.8 How do I declare/create a structure?
Message-Id: <1193077804.717774.229330@e9g2000prf.googlegroups.com>
On Oct 21, 9:03 pm, PerlFAQ Server <br...@stonehenge.com> wrote:
> This is an excerpt from the latest version perlfaq7.pod, which
> comes with the standard Perl distribution. These postings aim to
> reduce the number of repeated questions as well as allow the community
> to review and update the answers. The latest version of the complete
> perlfaq is athttp://faq.perl.org.
>
> --------------------------------------------------------------------
>
> 7.8: How do I declare/create a structure?
>
> In general, you don't "declare" a structure. Just use a (probably
> anonymous) hash reference. See perlref and perldsc for details. Here's
> an example:
>
> $person = {}; # new anonymous hash
> $person->{AGE} = 24; # set field AGE to 24
> $person->{NAME} = "Nat"; # set field NAME to "Nat"
>
> If you're looking for something a bit more rigorous, try perltoot.
>
Is there any particular reason why this example uses a hash reference
as opposed to a hash?
------------------------------
Date: Mon, 22 Oct 2007 12:21:33 -0700
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: FAQ 7.8 How do I declare/create a structure?
Message-Id: <1193080893.672308.214340@y27g2000pre.googlegroups.com>
> On Oct 21, 9:03 pm, PerlFAQ Server <br...@stonehenge.com> wrote:
>
> > $person = {}; # new anonymous hash
> > $person->{AGE} = 24; # set field AGE to 24
> > $person->{NAME} = "Nat"; # set field NAME to "Nat"
On Oct 22, 12:30 pm, nolo contendere <simon.c...@fmr.com> replied:
>
> Is there any particular reason why this example uses a hash reference
> as opposed to a hash?
My guess is so that the structure can be used as a scalar, which
affords the programmer to easily place it into lists or arrays like
this:
push @employees, $person;
It's possible of course, to pass the reference of a %person hash
into the push() function like this:
push @employees, \%person;
but then unwanted behavior would result if the programmer forgot the
'\' (which would be an error that neither "use strict;" nor "use
warnings;" would catch).
Not only that, but if a hash reference is used for a structure, the
programmer can then use the spiffy '->' operator on the structure,
making the code more similar to what is found in certain other
languages (like C and C++).
-- Jean-Luc
------------------------------
Date: Mon, 22 Oct 2007 15:00:13 -0700
From: ll <barn104_1999@yahoo.com>
Subject: generating html form on the fly
Message-Id: <1193090413.850083.306180@y27g2000pre.googlegroups.com>
I'm currently working with a cgi script which can upload, view, or
delete files in a given directory. The delete section is rather
cumbersome, in that the user has to type in the file name and password
and then hit the delete button.
I've created an html form in the view section that puts checkboxes
next to each file listed. Here's the code I have (below). I'm
getting an error that says that the 'post' command isn't recognized.
Thanks for any help,
Louis
------------------------------------------------
sub listfilenames {
&check_url_referer;
if ($in{'pwd'} ne $superpwd) {
&error_password;
}
if (!$in{'filedirname'}) {
&error_no_upload_directory;
}
$list_dir = "$parent_dir$in{'filedirname'}";
if (opendir(DIR,"$list_dir") == 1) {
@files = readdir(DIR);
closedir(DIR);
}
else {
&error_cannot_open_dir;
}
&set_content_type;
print "<html><body><center><font size=+1 color=
\"FF0000\"><b>Listing of Filenames</b></font></center><p>\n";
print "<b>The following filenames are found in directory
\"$in{'filedirname'}\":<br>\n";
print "<form method=\"post\" action=\"uploader_ee.cgi\">";
print "<table border=\"1\">\n";
$count = 0;
foreach $fitem (@files) {
$fitem_pathname = "$list_dir" . "/" . "$fitem";
if (-e $fitem_pathname) {
if (-d $fitem_pathname) {next;}
$count++;
print "<tr><td><input type=\"checkbox\" VALUE=$fitem></
input></td><td> $fitem </td><td>- <a href=
\"$parent_url$in{'filedirname'}\/$fitem\" target=\"_blank\">View this
file</a><br></td>\n";
}
}
if ($count == 0) {
print " Sorry, nothing found!!<br>
\n";
}
print "</table>\n";
print "<input type=\"submit\" value=\"Delete File\">\n";
print "</form>\n";
print "</b><p>\n";
print "</html>\n";
&listfilenames_ok;
}
------------------------------
Date: Mon, 22 Oct 2007 10:25:28 -0700
From: kens <kenslaterpa@hotmail.com>
Subject: Re: Is there any module to map a network drive and remove a mapped network drive in perl
Message-Id: <1193073928.616939.288340@e34g2000pro.googlegroups.com>
On Oct 22, 8:11 am, king <hara.acha...@gmail.com> wrote:
> Is there any module to map a network drive and remove a mapped network
> drive in perl.
>
> I didn't get any in CPAN.
>
> Or is there any way to map and delete a network drive in perl.
Since you are talking about mapping a network drive, I am assuming you
are on Windows.
Using ActiveState?
Take a look at the documentation for Win32::NetResource package.
HTH, Ken
------------------------------
Date: Mon, 22 Oct 2007 10:46:29 -0700
From: csgonan@yahoo.com
Subject: net::sftp write error with multiple packet writes
Message-Id: <1193075189.383029.31020@z24g2000prh.googlegroups.com>
I have net::xftp and net::SFTP installed on a solaris 8 workstation,
connecting to a windows server running winscp.
I am able to uplaod a file but then receive an error message that it
could not upload. I ssh into the server and see the file is there.
The file size is exactly the total size of those 2 numbers in the
SSH2_FXP_WRITE statements (8192 + 5821). This is my ftp variable that
is used through-out the script.
I'm using xFTP because these scripts are used to ftp and sftp and need
to use the same command.
Any ideas?
my %args = (user => $ftpuser, password => $ftppass, debug => 1);
$ftp = Net::xFTP->new(Net::SFTP,$ftpip, %args)
server: sftp: Sent message T:16 I:9
server: sftp: Sent message T:16 I:10
server: sftp: Sent message T:16 I:11
server: sftp: Sent SSH2_FXP_OPEN I:12 P:/opt/websites/
register.company.org/hccs/WC_file.dat
server: sftp: Sent message SSH2_FXP_WRITE I:13 O:0
server: sftp: In write loop, got 8192 offset 0
server: sftp: Sent message SSH2_FXP_WRITE I:14 O:8192
server: sftp: In write loop, got 5821 offset 8192
server: sftp: Sent message T:10 I:15
Uploading WC_file.dat to Server .......... Error: ./
uploadSSH_company2.pl could not upload WC_file.dat to Server.
------------------------------
Date: Mon, 22 Oct 2007 13:12:51 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: net::sftp write error with multiple packet writes
Message-Id: <471ce824$0$3571$815e3792@news.qwest.net>
csgonan@yahoo.com wrote:
> I have net::xftp and net::SFTP installed on a solaris 8 workstation,
> connecting to a windows server running winscp.
>
> I am able to uplaod a file but then receive an error message that it
> could not upload.
[...]
> my %args = (user => $ftpuser, password => $ftppass, debug => 1);
> $ftp = Net::xFTP->new(Net::SFTP,$ftpip, %args)
Where is the code that's producing the following output? e.g.
your put() call.
> Uploading WC_file.dat to Server .......... Error: ./
> uploadSSH_company2.pl could not upload WC_file.dat to Server.
There should be an error message or code associated with the failure or
possibly the test for the error isn't correct. A quick guess
would be that it's a permissions problem.
------------------------------
Date: Mon, 22 Oct 2007 12:11:58 -0700
From: csgonan@yahoo.com
Subject: Re: net::sftp write error with multiple packet writes
Message-Id: <1193080318.846106.177240@q3g2000prf.googlegroups.com>
On Oct 22, 2:12 pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
wrote:
> csgo...@yahoo.com wrote:
> > I have net::xftp and net::SFTP installed on a solaris 8 workstation,
> > connecting to a windows server running winscp.
>
> > I am able to uplaod a file but then receive an error message that it
> > could not upload.
>
> [...]
>
> > my %args = (user => $ftpuser, password => $ftppass, debug => 1);
> > $ftp = Net::xFTP->new(Net::SFTP,$ftpip, %args)
>
> Where is the code that's producing the following output? e.g.
> your put() call.
>
> > Uploading WC_file.dat to Server .......... Error: ./
> > uploadSSH_company2.pl could not upload WC_file.dat to Server.
>
> There should be an error message or code associated with the failure or
> possibly the test for the error isn't correct. A quick guess
> would be that it's a permissions problem.
This is the code
$ftp->binary;
print "Uploading $_[0] to Server .......... " if (!$silent);
$ftp->Put($_[0]) or emailerr("Error: $0 could not upload $_[0] to
Server.")
;
print "Done\n\n" if (!$silent);
Thank you for your response. I would say that but smaller files are
being places there ok now that I talked to the admin at that site. I
saw a post that talked about changing the COPY_SIZE to something
smaller than the default of 8192, but I don't see where to do that in
order to check.
As you can see in the output, it does the first write of 8192 and then
fails at he remaining bytes that totals the size of the file. I have
write access to this server too.
Thanks for any ideas.
Christine
server: sftp: Sent message SSH2_FXP_WRITE I:13 O:0
server: sftp: In write loop, got 8192 offset 0
server: sftp: Sent message SSH2_FXP_WRITE I:14 O:8192
server: sftp: In write loop, got 5821 offset 8192
------------------------------
Date: Mon, 22 Oct 2007 21:10:28 -0000
From: kc <yskchu@gmail.com>
Subject: Re: sourcing one perl file from another
Message-Id: <1193087428.817089.140370@i38g2000prf.googlegroups.com>
Thanks Ted and Mumia, that did the trick!
Many thanks,
Kelvin
On Oct 23, 12:29 am, Ted Zlatanov <t...@lifelogs.com> wrote:
> On Mon, 22 Oct 2007 09:52:31 -0000 kc <ysk...@gmail.com> wrote:
>
> k> I have a huge file of a array of variables, for initialization,
> k> something like this:
>
> k> $key1[64]="0xc120718a1ccce7f8";
> k> $key2[64]="0xeadf28cb82020921";
> k> $key1[128]="0xaf503224b6cff0639cf0dc310a4b1277";
> k> $key2[128]="0x3e1fcbd4e91ca24bb276914de3764cdf";
>
> k> etc etc
>
> k> Currently, they're all in the huge perl script file as the perl code
> k> that uses it. I was hoping to separate this out to another file.
>
> k> Is there any way for my mail perl file to read this file? I was
> k> thinking of using a .pm file, but I was wondering if there was any
> k> easier way?
>
> Use one of the following CPAN modules:
>
> YAML (with the YAML data format)
> AppConfig
> XML::Simple (with the XML data format)
>
> ...or consider a file storage solution, depending on your exact needs.
> Seems like you're doing binary data, so your needs may be very specific
> and you may already have an input file from which you're extracting the
> configuration data.
>
> You don't have to use pure Perl for configurations, and in fact it makes
> your program more complicated and less maintainable as you've
> discovered. Crutches like do() will not help you in the long term.
>
> Ted
------------------------------
Date: Mon, 22 Oct 2007 11:30:51 -0400
From: George Neuner <gneuner2/@/comcast.net>
Subject: Re: TeX pestilence (was Distributed RVS, Darcs, tech love)
Message-Id: <1pfph3dqfvhka2b6t5isv39po183ppp5ha@4ax.com>
On Mon, 22 Oct 2007 05:50:30 -0700, Xah Lee <xah@xahlee.org> wrote:
>TeX, in my opinion, has done massive damage to the computing world.
>
>i have written on this variously in emails. No coherent argument, but
>the basic thoughts are here:
>http://xahlee.org/cmaci/notation/TeX_pestilence.html
Knuth did a whole lot more for computing than you have or, probably,
ever will. Your arrogance is truly amazing.
>1. A typesetting system per se, not a mathematical expressions
>representation system.
So?
>2. The free nature, like cigeratte given to children, contaminated the
>entire field of math knowledge representation into 2 decades of
>stagnation.
What the frac are you talking about?
>3. Being a typesetting system, brainwashed entire generation of
>mathematicians into micro-spacing doodling.
Like they wouldn't be doodling anyway. At least the TeX doodling is
likely to be readable (as if anyone cared).
>4. Inargurated a massive collection of documents that are invalid
>HTML. (due to the programing moron's ingorance and need to idolize a
>leader, and TeX's inherent problem of being a typesetting system that
>is unsuitable of representing any structure or semantics)
HTML is unsuitable for representing most structure and semantics. And
legions of fumbling idiots compose brand new invalid HTML every day.
>5. This is arguable and trivial, but i think TeX judged as a computer
>language in particular its syntax, on esthetical grounds, sucks in
>major ways.
No one except you thinks TeX is a "computer language".
>Btw, a example of item 4 above, is Python's documentation. Fucking
>asses and holes.
Watch your language, there are children present.
George
--
for email reply remove "/" from address
------------------------------
Date: Mon, 22 Oct 2007 12:19:05 -0400
From: Lew <lew@lewscanon.com>
Subject: Re: TeX pestilence (was Distributed RVS, Darcs, tech love)
Message-Id: <O7Sdnegv-qzkUIHanZ2dnUVZ_tWtnZ2d@comcast.com>
Xah Lee <xah@xahlee.org> wrote:
>> 4. Inargurated a massive collection of documents that are invalid
>> HTML. (due to the programing moron's ingorance and need to idolize a
>> leader, and TeX's inherent problem of being a typesetting system that
>> is unsuitable of representing any structure or semantics)
There's something a little fey about someone calling out a "programing [sic]
moron's ingorance [sic]" and then devolving right into blue speech.
I think Xah Lee should look into:
<http://en.wikipedia.org/wiki/Psychological_projection>
--
Lew
------------------------------
Date: Mon, 22 Oct 2007 20:10:29 GMT
From: "David Formosa (aka ? the Platypus)" <dformosa@usyd.edu.au>
Subject: Re: TeX pestilence (was Distributed RVS, Darcs, tech love)
Message-Id: <slrnfhq1qt.8ad.dformosa@localhost.localdomain>
["Followup-To:" header set to comp.lang.functional.]
On Mon, 22 Oct 2007 11:30:51 -0400, George Neuner <gneuner2/@/comcast.net> wrote:
> On Mon, 22 Oct 2007 05:50:30 -0700, Xah Lee <xah@xahlee.org> wrote:
[...]
>>5. This is arguable and trivial, but i think TeX judged as a computer
>>language in particular its syntax, on esthetical grounds, sucks in
>>major ways.
>
> No one except you thinks TeX is a "computer language".
TeX is Turing compleate so it is quite valid to consider it a computer language. Though
Xah Lee is correct more by co-incidence.
------------------------------
Date: Mon, 22 Oct 2007 22:33:50 +0200
From: Joachim Durchholz <jo@durchholz.org>
Subject: Re: TeX pestilence (was Distributed RVS, Darcs, tech love)
Message-Id: <ffj1f3$fpp$2@online.de>
George Neuner schrieb:
>> 5. This is arguable and trivial, but i think TeX judged as a computer
>> language in particular its syntax, on esthetical grounds, sucks in
>> major ways.
>
> No one except you thinks TeX is a "computer language".
But it is.
It's Turing-complete.
And yes, it sucks in major ways.
But no, I don't hold that against Knuth. It was designed in days when
domain-specific languages didn't have a roughly standardized syntax.
(Truth remains truth, regardless of who's upholding it.)
Regards,
Jo
------------------------------
Date: Mon, 22 Oct 2007 20:05:05 -0000
From: James Everton <james.everton@gmail.com>
Subject: Re: Using IDL from a perl script
Message-Id: <1193083505.243420.113940@q3g2000prf.googlegroups.com>
On Oct 20, 5:16 pm, jkj <ke...@vexona.com> wrote:
> On Oct 19, 1:02 pm, James Everton <james.ever...@gmail.com> wrote:
>
> > Hi everybody,
>
> > I'm developing some web scripts in perl that interact with a database
> > through various pre-written IDL procedures here at my work. The
> > problem I'm having is getting arguments passed between the two.
> > Passing from the perl into the IDL code is easy enough because I'm
> > using the open( ) procedure and simply writing the strings as a block:
>
> I've done this a bunch and found it to be very useful... here's a bit
> more of what I find works:
>
> use IPC::Open2;
>
> $progName = "idl";
> open2(READIDL, WRITEIDL, $progName) or die "Could not begin \"$progName
> \"\n";
>
> # Then you can cause IDL to execute commands like this:
> print WRITEIDL "value = 13\n";
>
> # I find that output coming back from IDL is cluttered, so before
> # asking IDL to return a value I ask it to spit out "junk":
> print WRITEIDL "print, \"junk\"\n";
> while(!(<READIDL> =~ /junk/)){
>
> }
>
> # Now I can get the value I want back asking IDL to output it:
> print WRITEIDL "print, value\n";
> $value = <READIDL>;
> chomp($value);
>
> ...hope that helps,
> -Kevin
Thanks so much! Took me a while to get a feel for how the handles
were being set up, but it worked like a charm!
As for the IDL junk, I found that setting my $progName to 'idl &> /dev/
null' got rid of all the junk as well as compilation print outs.
Pipes are your friend :-)
- James
------------------------------
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 966
**************************************
