[24410] in Perl-Users-Digest
Perl-Users Digest, Issue: 6598 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun May 23 03:06:07 2004
Date: Sun, 23 May 2004 00:05:06 -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 Sun, 23 May 2004 Volume: 10 Number: 6598
Today's topics:
Re: 2-1/2 regexp questions <abigail@abigail.nl>
Re: 2-1/2 regexp questions <jkrugman345@yahbitoo.com>
get the result of calling another script <mysympstico001@sympatico.ca>
Re: get the result of calling another script <invalid-email@rochester.rr.com>
Re: How to pass input from perl to shell programming? <jkrugman345@yahbitoo.com>
Re: How to pass input from perl to shell programming? <tassilo.parseval@rwth-aachen.de>
Re: How to pass input from perl to shell programming? <jkrugman345@yahbitoo.com>
How to substitute a variable containing a directory pat (MegaC)
Re: HTML form to MS Access? <sbryce@scottbryce.com>
Re: output data to audio <rduke15@hotmail__.__com>
Re: output data to audio <usenet@morrow.me.uk>
Re: output data to audio (Alx)
Re: output data to audio (Alx)
Re: Password scheme/Persistent session... <flavell@ph.gla.ac.uk>
Re: Password scheme/Persistent session... <norfernuman@yahoo.com>
Re: Password scheme/Persistent session... <flavell@ph.gla.ac.uk>
Re: Password scheme/Persistent session... <jwkenne@attglobal.net>
Re: Perl work? <cwilbur@mithril.chromatico.net>
Re: Perl work? <postmaster@castleamber.com>
Re: Problem installing modules <randy@theoryx5.uwinnipeg.ca>
Re: Problem installing modules <usenet@morrow.me.uk>
Re: Problem installing modules <randy@theoryx5.uwinnipeg.ca>
Re: To count a number of lines in C++ or Java or ASCII <alexvn@big.foot.com>
What's the cancellation policy for YAPC 2004? <socyl@987jk.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 May 2004 21:16:20 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: 2-1/2 regexp questions
Message-Id: <slrncavgp4.ct.abigail@alexandra.abigail.nl>
J Krugman (jkrugman345@yahbitoo.com) wrote on MMMCMXVII September
MCMXCIII in <URL:news:c8o2ma$b52$1@reader2.panix.com>:
{}
{} First I want to give thanks for all the great replies to my post;
{} I learned a lot from them. (Not least of them being that, even
{} though once upon a time a slogged through the 2nd Edition of
{} Programming Perl, I really should slog through the 3rd Edition.
{} Too bad O'Reilly never published a Delta edition.)
{}
{} In <slrncaskp3.ct.abigail@alexandra.abigail.nl> Abigail <abigail@abigail.nl> writes:
{}
{} > use re 'eval';
{}
{} > my $s = '1a21b4xy';
{} > my $r = '\d+';
{}
{} > my $re = qr /($r)(?{print "(", $- [-1], ", ", $+ [-1] - $- [-1], ")",
{} > " --> '$^N'\n"})(?!)/;
{}
{} > $s =~ $re;
{}
{} I realize that the (?!) at the end of $re's definition is necessary
{} to get the right results, but I don't understand why. I figure it
{} has to do with getting the regexp engine to move to the right state,
{} but I really have no clue...
(?!) is a (sub)expression that will always fail. It forces the regex
engine to try all possibilities. Otherwise, it will match '1', report
the match, and call it a day because it has archieved a match.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: Sat, 22 May 2004 22:57:11 +0000 (UTC)
From: J Krugman <jkrugman345@yahbitoo.com>
Subject: Re: 2-1/2 regexp questions
Message-Id: <c8ols7$hck$1@reader2.panix.com>
In <slrncavgp4.ct.abigail@alexandra.abigail.nl> Abigail <abigail@abigail.nl> writes:
>J Krugman (jkrugman345@yahbitoo.com) wrote on MMMCMXVII September
>MCMXCIII in <URL:news:c8o2ma$b52$1@reader2.panix.com>:
>{}
>{} In <slrncaskp3.ct.abigail@alexandra.abigail.nl> Abigail <abigail@abigail.nl> writes:
>{} > my $re = qr /($r)(?{print "(", $- [-1], ", ", $+ [-1] - $- [-1], ")",
>{} > " --> '$^N'\n"})(?!)/;
>{}
>{} I realize that the (?!) at the end of $re's definition is necessary
>{} to get the right results, but I don't understand why.
>(?!) is a (sub)expression that will always fail. It forces the regex
>engine to try all possibilities. Otherwise, it will match '1', report
>the match, and call it a day because it has archieved a match.
*Very* cool. Thanks.
jill
perl -le '"Just another Perl Hacker" =~ /(.+$)(?{ print $1 })(?!)/'
--
To s&e^n]d me m~a}i]l r%e*m?o\v[e bit from my a|d)d:r{e:s]s.
------------------------------
Date: Sat, 22 May 2004 21:35:08 -0400
From: "B.W." <mysympstico001@sympatico.ca>
Subject: get the result of calling another script
Message-Id: <fdTrc.56618$qJ5.1428917@news20.bellglobal.com>
I want to call another script B in script A and get the result if the
execution of script B is successful, can someone show me how to do that?
thanks,
B.W.
------------------------------
Date: Sun, 23 May 2004 02:38:46 GMT
From: Bob Walton <invalid-email@rochester.rr.com>
Subject: Re: get the result of calling another script
Message-Id: <40B00DE8.1050403@rochester.rr.com>
B.W. wrote:
> I want to call another script B in script A and get the result if the
> execution of script B is successful, can someone show me how to do that?
...
> B.W.
I assume you mean Perl scripts. Check out the following docs:
perldoc -f system
perldoc perlop
paying special attention to the bit about the qx operator (or
'backticks') in the "Regexp Quote-like Operators" section.
perldoc -q "output of a command"
(or perldoc -q 'output of a command', depending on your OS)
Or do you perhaps mean you want to execute additional Perl code (which
you call "script B" from some other Perl code you call "script A",
without running another instance of the Perl interpreter in another
process? If that is the case, check out:
perldoc -f do
In that case, there is no issue with returning results, as the value of
the last statement executed is returned, or undef is returned if the
file can't be read or compiled, with either $! or $@ receiving the
error, depending. You will probably want to return something other than
undef if the code was properly executed.
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Sat, 22 May 2004 20:42:18 +0000 (UTC)
From: J Krugman <jkrugman345@yahbitoo.com>
Subject: Re: How to pass input from perl to shell programming?
Message-Id: <c8odva$eth$1@reader2.panix.com>
In <JvmdncCd5_2_pjPdRVn-tA@adelphia.com> Sherm Pendley <spamtrap@dot-app.org> writes:
>Swamy wrote:
>> I have a perl program which executes a shell program using system
>> call. This shell program needs user input for several questions it
>> asks. How can I automate the user input so that user don't have to key
>> in the input?
>Have a look at the Expect module on CPAN.
Expect.pm may be great if you, unlike me, have prior experience
using /usr/bin/expect. Otherwise, I found it to be rough going,
and not worth the aggravation. The documentation didn't make much
sense and the examples given in the tutorial did not work (as
acknowledged in the Expect.pm FAQ).
Does anyone know where one can find an extended example using
Expect.pm?
jill
--
To s&e^n]d me m~a}i]l r%e*m?o\v[e bit from my a|d)d:r{e:s]s.
------------------------------
Date: Sat, 22 May 2004 23:13:30 +0200
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: How to pass input from perl to shell programming?
Message-Id: <2h9u41FaccngU1@uni-berlin.de>
Also sprach J Krugman:
> In <JvmdncCd5_2_pjPdRVn-tA@adelphia.com> Sherm Pendley <spamtrap@dot-app.org> writes:
>
>>Swamy wrote:
>
>>> I have a perl program which executes a shell program using system
>>> call. This shell program needs user input for several questions it
>>> asks. How can I automate the user input so that user don't have to key
>>> in the input?
>
>>Have a look at the Expect module on CPAN.
>
> Expect.pm may be great if you, unlike me, have prior experience
> using /usr/bin/expect. Otherwise, I found it to be rough going,
> and not worth the aggravation. The documentation didn't make much
> sense and the examples given in the tutorial did not work (as
> acknowledged in the Expect.pm FAQ).
The secret about Expect seems to be to know which of the many methods
one will most likely never need. So far I always got away with using
send() and expect().
I am using the following script to refresh the password of one of my ssh
accounts (policy requires to change it every six weeks). Since I cannot
be bothered to come up and remember new passwords all the time, I used
Expect to log in and cycle the password a bit until the original
password is set again:
my $exp = Expect->spawn("ssh", qw(-l tasvon cagney.informatik.rwth-aachen.de))
or die "Cannot spawn process: $!\n";
$exp->expect(5, 'password:');
$exp->send("origpwd\n");
$exp->expect(5, 'tasvon@cagney:~\$/');
my @pwd = qw(origpwd abc123 bcd234 cde456 origpwd);
for (0 .. $#pwd-1) {
$exp->send("passwd\n");
$exp->expect(5, 'Geben Sie ihr altes Kennwort ein:');
$exp->send("$pwd[$_]\n");
$exp->expect(5, 'Geben Sie ihr neues Kennwort ein:');
$exp->send("$pwd[$_+1]\n");
$exp->expect(5, 'Wiederholen Sie ihr neues Kennwort:');
$exp->send("$pwd[$_+1]\n");
!defined($exp->expect(10, 'Ihr Kennwort wird geaendert.')) and die "failed\n";
}
$exp->send("exit\n");
$exp->expect(5, ".");
# the second exit because the first one will just exit the bash and
# return to csh
$exp->send("exit\n");
The above lacks error checking as it assumes that each call to expect()
will succeed. Also, it doesn't need to make use of expect()'s more
sophisticated features such as providing a list of regular expressions
and checking its return value to figure out which one matched.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Sat, 22 May 2004 23:50:02 +0000 (UTC)
From: J Krugman <jkrugman345@yahbitoo.com>
Subject: Re: How to pass input from perl to shell programming?
Message-Id: <c8oova$ia1$1@reader2.panix.com>
In <2h9u41FaccngU1@uni-berlin.de> "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> writes:
>I am using the following script to refresh the password of one of my ssh
>accounts (policy requires to change it every six weeks). Since I cannot
>be bothered to come up and remember new passwords all the time, I used
>Expect to log in and cycle the password a bit until the original
>password is set again:
> my $exp = Expect->spawn("ssh", qw(-l tasvon cagney.informatik.rwth-aachen.de))
> or die "Cannot spawn process: $!\n";
> $exp->expect(5, 'password:');
> $exp->send("origpwd\n");
> $exp->expect(5, 'tasvon@cagney:~\$/');
> my @pwd = qw(origpwd abc123 bcd234 cde456 origpwd);
> for (0 .. $#pwd-1) {
> $exp->send("passwd\n");
> $exp->expect(5, 'Geben Sie ihr altes Kennwort ein:');
> $exp->send("$pwd[$_]\n");
> $exp->expect(5, 'Geben Sie ihr neues Kennwort ein:');
> $exp->send("$pwd[$_+1]\n");
> $exp->expect(5, 'Wiederholen Sie ihr neues Kennwort:');
> $exp->send("$pwd[$_+1]\n");
> !defined($exp->expect(10, 'Ihr Kennwort wird geaendert.')) and die "failed\n";
> }
> $exp->send("exit\n");
> $exp->expect(5, ".");
>
> # the second exit because the first one will just exit the bash and
> # return to csh
> $exp->send("exit\n");
Hey, that's a nice little script. Didactive for TWO languages,
Perl and German.
I'll give Expect another go.
Thanks!
jill
...so password is "Kennwort". Who knew?
--
To s&e^n]d me m~a}i]l r%e*m?o\v[e bit from my a|d)d:r{e:s]s.
------------------------------
Date: 22 May 2004 22:35:47 -0700
From: dmegyesi@truecontext.com (MegaC)
Subject: How to substitute a variable containing a directory path into Apache httpd.conf file????
Message-Id: <e45fcc01.0405222135.69bd0edd@posting.google.com>
Hi all,
I am trying to create a installation script for our product at work.
The script involves prompting the user for the pathname of Apache (and
other components not mentioned here). I then plan to take this
user-entered pathname and edit the http.conf file, by globally
replacing all occurances of a place holder called "APACHE_HOME" with a
ms-dos variable containing the install path entitled %APACHE_HOME%.
So, in my ms-dos script, I have something like this:
....
set APACHE_HOME=%userManualPathofApache%
...
set PERL_EXE=%IPLANET_HOME/bin/shared/library/perl
@rem Above line is the path to the perl version used by iPlanet
...
%PERL_EXE% -wpe s/APACHE_HOME/"%APACHE_HOME%"/ < httpd.conf >
httpd.conf.mod
move /Y httpd.conf.mod httpd.conf
What I want to happen is for the ms-dos script to call perl to
globally replace all occurances of the placeholder APACHE_HOME with
the interpolated variable of %APACHE_HOME% which contains the install
path of Apache (eg. C:/Program Files/Apache/Apache2). However,
because of the backslashes in the directory name, the substution
strips out the /s and leaves C:Program FilesApacheApache2.
I tried changing the delimiter from a / to a #, by this command:
%PERL_EXE% -wpe s#APACHE_HOME#"%APACHE_HOME%"# < httpd.conf >
httpd.conf.mod
but I still get the resulting substitution of :
C:Program FilesApacheApache2
I know what your thinking, just get the user to enter C://Program
Files//Apache//Apache2 ... well I tried that and it STILL gives me the
same result of C:Program FilesApacheApache2 in the httpd.conf file.
Help!! How do I take the user input of 'C:/Program
Files/Apache/Apache2' and use the command of
%PERL_EXE% -wpe s#APACHE_HOME#"%APACHE_HOME%"# < httpd.conf >
httpd.conf.mod
to substitute every occurance of APACHE_HOME with C:/Program
Files/Apache/Apache2 as intended?
Please help! I am so frustrated by this and it seems like it must be
so easy to do!!
Please respond to com.rogers@dmegyesi (for SPAM)
Thanks,
Derek
------------------------------
Date: Sat, 22 May 2004 14:40:37 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: HTML form to MS Access?
Message-Id: <10avem3ibjnmn1d@corp.supernews.com>
Jason Miles wrote:
> Hi,
>
> I have a site which uses a form. I would like to be able to export the data
> from the form to MS Access. Some of the fields may contain commas, which I
> think may be a problem.
>
> Can someone show me how to take the info from the form and export it to MS
> Access?
The place to start is cpan.org. Look for CGI.pm, DBI.pm and DBD::ODBC.
I don't know if commas will be a problem, but single quotes will be.
------------------------------
Date: Sun, 23 May 2004 00:33:18 +0200
From: rduke15 <rduke15@hotmail__.__com>
Subject: Re: output data to audio
Message-Id: <c8okfe$sl1$1@newshispeed.ch>
> Apart from visualizing the result (thank you, GD), I wanted to
> "listen" the result of the evolution of the automata as an audio file.
> After a day browsing CPAN, I say that I'm a little disappointed: I
> didn't find any <simple> way to output data (e.g. some @CA=(numbers,
> numbers, numbers,...) in .wav or other format.
> Yes, there is a ton of Audio::... modules.
> Yes, there are Audio::Wav and Audio::Data.
> Yet, for a simple layman as me who does not recognize a bitrate from
> some other beast, the docs of those modules are really hard to master.
>
> Do you know of some other way to do it?
I suppose your problem is not putting out the audio itself, but
packaging it into some standard container like WAV?
WAV is one of the types that can go into a RIFF file. It would not be
hard to build the file yourself.
You can start here:
http://ccrma.stanford.edu/courses/422/projects/WaveFormat/
or here:
http://netghost.narod.ru/gff/graphics/summary/micriff.htm
You may also find riffwalk.exe useful for debugging if you have a
Windows box. There seems to be a copy here:
http://www.xiph.org/archives/vorbis-dev/200108/att-0246/01-RIFFWALK.EXE
------------------------------
Date: Sun, 23 May 2004 00:25:57 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: output data to audio
Message-Id: <c8or2l$jg2$1@wisteria.csv.warwick.ac.uk>
Quoth nenamiele@libero.it (Alx):
> I was playing around yesterday, and I came out with a Perlish version
> of a simple Cellular Automata.
> Apart from visualizing the result (thank you, GD), I wanted to
> "listen" the result of the evolution of the automata as an audio file.
> After a day browsing CPAN, I say that I'm a little disappointed: I
> didn't find any <simple> way to output data (e.g. some @CA=(numbers,
> numbers, numbers,...) in .wav or other format.
> Yes, there is a ton of Audio::... modules.
> Yes, there are Audio::Wav and Audio::Data.
> Yet, for a simple layman as me who does not recognize a bitrate from
> some other beast, the docs of those modules are really hard to master.
I would say from a quick look at the docs that you might want something
like this:
use Audio::Data;
# $rate gives the number of samples per second: in other words, with a
# sample rate of 44100 (which is standard CD-quality) a data list of
# 44100 points will create one second of audio. Making this quantity
# larger will make the sound both faster, higher in pitch and better
# quality (there will be less 'buzz' in the sound); making it smaller
# will do the reverse.
my $rate = 44100;
# As Audio::Data deals with float values rather than fixed- or
# variable-sized int values you don't have to worry about bitrates.
my $au = Audio::Data->new(rate => $rate);
my @data = (list of floating-point values between -1.0 and 1.0);
$au->data(@data);
# The above will use the numbers directly as samples. You may get more
# harmonious results (you will also lose the dependancy on sample rate
# mentioned above) by using $au->tone to create, say, tenth-second
# samples whose pitch depends on your automaton and then adding all the
# samples for each time period with the overloaded + and joining the
# time periods together with the overloaded . . Say your automaton is a
# function which can be called
# @state = autom @state;
# to derive the state at a given time-period from the one before; then
# you could do something like
use List::Util qw/reduce/;
@state = (initial conditions);
for (1..100) {
my @au = map {
my $new = Audio::Data->new(rate => $rate);
$new->tone($_, 0.1, 0.5);
$new;
} @state;
$au .= reduce { $a + $b } @au;
@state = autom @state;
}
# Note also that human perception of both pitch and amplitude is
# logarithmic, so you may well find ->tone(2**$_, works better...
# obviously this will all need lots of seasoning to taste :)
{
# This creates a Sun .au file. If you need M$ wav then you can use
# sox to convert it.
open my $AU, '>', 'file.au' or die "can't create file.au: $!";
$au->Save($AU);
}
# Caveat: the above is all *entirely* untested.
Ben
--
And if you wanna make sense / Whatcha looking at me for? (Fiona Apple)
* ben@morrow.me.uk *
------------------------------
Date: 22 May 2004 23:12:50 -0700
From: nenamiele@libero.it (Alx)
Subject: Re: output data to audio
Message-Id: <38d4c7d4.0405222212.4524ec6a@posting.google.com>
Thank you people, you already have been more than useful - Ben, I find
now after your explanation that Audio::Data can be simpler than I
thought (but what an awful perldoc!).
Going on harder and harder questions ... mind you, I know nothing
about audio so the question may be silly:
if you had to generate sounds from data with the timber of a given
instrument - what would you do? I'd really like my cellular automata
to play the sax à la Lester Young !
Thx
Alessandro Magni
------------------------------
Date: 22 May 2004 23:19:06 -0700
From: nenamiele@libero.it (Alx)
Subject: Re: output data to audio
Message-Id: <38d4c7d4.0405222219.44d97ee7@posting.google.com>
.
.
.
P.S. I might add that I cannot play MIDI files on my soundcard - so
writing to MIDI cannot work for me!
Alessandro Magni
------------------------------
Date: Sat, 22 May 2004 21:07:27 +0100
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: Password scheme/Persistent session...
Message-Id: <Pine.LNX.4.53.0405222058100.31187@ppepc56.ph.gla.ac.uk>
On Sat, 21 May 2004, krakle wrote:
> What I ended up doing is setting a cookie that md5 encrypted time +
> random number + process ID as the session id (sid). Then it looks up
> the data of that user in a mySQL table using the SID in the cookie.
Which seems to be no different from what your original proposal had
been at the start of this thread. And I still don't see anything
Perl-specific in it.
> Thank you.
You still don't understand how to partition the problem space. After
all this to-ing and fro-ing, you've shown no comprehension of any of
the points that were raised, but simply done more or less what you'd
intended all along. Which may be a solution, if we really knew what
the problem was, but we don't (it's not even sure that you've defined
it yourself).
I'd surmise that many of the more experienced souls around here
consider that a grasp of partitioning a problem, and seeking solutions
to their parts in appropriate places, is one of the more important
things to be learned by anyone who is serious about this stuff.
That's what (AFAICS) a number of well-intentioned folks have been
trying, unsuccessfully, to communicate to you, despite your hostility.
And now that it's failed, you go back into the killfile until the next
round of housekeeping.
ho hum
------------------------------
Date: Sat, 22 May 2004 20:42:55 GMT
From: norfernuman <norfernuman@yahoo.com>
Subject: Re: Password scheme/Persistent session...
Message-Id: <jXOrc.55719$If3.9735@newssvr29.news.prodigy.com>
Jürgen Exner wrote:
> krakle wrote: Way back when in 2002 (he's still and idiot)
...
From: krakle (krakle@visto.com)
Subject: Re: Hiding the DOS screen
View: Complete Thread (18 articles)
Original Format
Newsgroups: comp.lang.perl.misc
Date: 2002-09-22 12:12:50 PST
blah blah blah... My question got answered and if I want to post again
with out searching I will. You can't stop me. The only thing you can
do is accept that *I will do whatever I want and get whatever I want*.
Get some sun (I imagine you don't know what that is you geeks) and
quit bitching about people posting questions in a newsgroup that is
made up of questions.
Yah yah yah this is not a help desk and questions shouldn't be asked.
Hello you idiots look around this newsgroup every thread is a
question. Don't like it? Go slip on a puddle of aids and crack your
head open.
( bold added by me for emphasis on the attitude )
...
Wow, this same guy still got answers from this group. You all either
didn't know of him, remember him, or your very forgiving. He's got some
nerve even showing his 'face' back here.
Troll, hmm... I'm thinking of harsher terms but why waste it on him.
What goes around comes around.
- norfer
------------------------------
Date: Sat, 22 May 2004 22:21:59 +0100
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: Password scheme/Persistent session...
Message-Id: <Pine.LNX.4.53.0405222219170.31304@ppepc56.ph.gla.ac.uk>
On Sat, 22 May 2004, norfernuman wrote:
> Wow, this same guy still got answers from this group. You all either
> didn't know of him, remember him, or your very forgiving. He's got some
> nerve even showing his 'face' back here.
What you're missing is that the regulars are responding as much for
the potential benefit of the rest of the Usenet audience, as for the
individual who provoked the issue.
------------------------------
Date: Sun, 23 May 2004 03:24:53 GMT
From: "John W. Kennedy" <jwkenne@attglobal.net>
Subject: Re: Password scheme/Persistent session...
Message-Id: <9QUrc.23950$cz5.7312278@news4.srv.hcvlny.cv.net>
krakle wrote:
> Jim Gibson <jgibson@mail.arc.nasa.gov> wrote in message news:<210520041247195176%jgibson@mail.arc.nasa.gov>...
>
>>In article <237aaff8.0405202019.6ffc3e47@posting.google.com>, krakle
>><krakle@visto.com> wrote:
>>
>>
>>>"John W. Kennedy" <jwkenne@attglobal.net> wrote in message
>>>news:<_55rc.106204$MH.21799388@news4.srv.hcvlny.cv.net>...
>>>
>>>>krakle wrote:
>>>>
>>>>>The question IS ontopic to this group.
>>>>
>>>>No, it is not. You are asking a question about how the web works, not
>>>>how Perl works.
>>>
>>>I never asked how the web works or any sort of question to that
>>>nature. It was a question pertaining to sessions in mod_perl. Yes it
>>>will be used for a web site obviously but it DOESN'T make sense to ask
>>>a PERL question in a regular newsgroup dealing with the web that
>>>doesn't relate to PERL... Why is this so hard for you guys to
>>>understand...
>>
>>Because we are morons.
> So it seems!
You are obviously ineducable.
*PLONK*
--
John W. Kennedy
"But now is a new thing which is very old--
that the rich make themselves richer and not poorer,
which is the true Gospel, for the poor's sake."
-- Charles Williams. "Judgement at Chelmsford"
------------------------------
Date: Sun, 23 May 2004 03:44:25 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: Perl work?
Message-Id: <87lljj24hm.fsf@mithril.chromatico.net>
>>>>> "troll" == krakle <krakle@visto.com> writes:
(in response to John Bokma)
>> I did some Google searches, but only found bidding sites where
>> people want a $5 / hour Perl programmer, and people offer to do
>> it $ 2 / hour :-(
troll> They are called bottom feeders. Usually teenage twips
troll> looking to make a few bucks. Noone in their right mind
troll> should offer (or accept) a job dealing with programming
troll> that pays $2-$5/hour. But if you pay burger king money you
troll> get burger king work.
They're also people in foreign countries where $2/hour is a very good
wage. Someone who lives in a region where $2000/year is a comfortable
income is probably doing quite well to be making $3 or $4 an hour.
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: Sun, 23 May 2004 01:53:23 -0500
From: John Bokma <postmaster@castleamber.com>
Subject: Re: Perl work?
Message-Id: <40b04a64$0$202$58c7af7e@news.kabelfoon.nl>
Charlton Wilbur wrote:
>>>>>>"troll" == krakle <krakle@visto.com> writes:
>
> (in response to John Bokma)
>
> >> I did some Google searches, but only found bidding sites where
> >> people want a $5 / hour Perl programmer, and people offer to do
> >> it $ 2 / hour :-(
>
> troll> They are called bottom feeders. Usually teenage twips
> troll> looking to make a few bucks. Noone in their right mind
> troll> should offer (or accept) a job dealing with programming
> troll> that pays $2-$5/hour. But if you pay burger king money you
> troll> get burger king work.
>
> They're also people in foreign countries where $2/hour is a very good
> wage. Someone who lives in a region where $2000/year is a comfortable
> income is probably doing quite well to be making $3 or $4 an hour.
Yes, it's a mix of both, as far as I can tell.
--
John MexIT: http://johnbokma.com/mexit/
personal page: http://johnbokma.com/
Experienced Perl programmer available: http://castleamber.com/
------------------------------
Date: Sat, 22 May 2004 16:15:28 -0500
From: "Randy Kobes" <randy@theoryx5.uwinnipeg.ca>
Subject: Re: Problem installing modules
Message-Id: <SpPrc.5480$gf1.13625@news1.mts.net>
"Thomas Schweikle" <tpsX@vr-web.de> wrote in message
news:2h8v2bFa4ccrU1@uni-berlin.de...
> J. Gleixner wrote:
> > Can be found at http://theoryx5.uwinnipeg.ca/ppms/AppConfig.ppd
>
> OK! Thanks! This worked. But now I am missing four additional packages:
>
> CGI --- I need v2.93 the repository only has 2.81
> Date::Format --- not found
> Template --- not found
> Chart::Base --- not found
>
> Where can I find them, or, how can I build my own working ppm-module
> installable via ActivePerl PPM?
I've made up ppm packages of them, which you can install by adding
http://theoryx5.uwinnipeg.ca/cgi-bin/ppmserver?urn:/PPMServer58
to your repository list within the ppm shell (for ActivePerl 8xx). After
that,
ppm> install CGI.pm
ppm> install TimeDate
ppm> install Template-Toolkit
ppm> install Chart
should install these, as well as their dependencies.
Alternatively, the PPM-Make distribution on CPAN (and also
in the above repository) can make and install (via the ppm utility)
CPAN distributions for which there isn't an available ppm package.
This requires the 'nmake' utility (installing PPM-Make should offer
to fetch it for you, if you don't have it), but for some packages
(eg, GD, which is needed by Chart) you'll also need a C compiler
(VC++ 6, if you're using ActivePerl).
best regards,
randy kobes
------------------------------
Date: Sat, 22 May 2004 22:02:18 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: Problem installing modules
Message-Id: <c8oila$g37$1@wisteria.csv.warwick.ac.uk>
Quoth "Randy Kobes" <randy@theoryx5.uwinnipeg.ca>:
> (eg, GD, which is needed by Chart) you'll also need a C compiler
> (VC++ 6, if you're using ActivePerl).
I thought MinGW was compatible? (I know Borland isn't).
Ben
--
The cosmos, at best, is like a rubbish heap scattered at random.
- Heraclitus
ben@morrow.me.uk
------------------------------
Date: Sat, 22 May 2004 23:10:05 -0500
From: "Randy Kobes" <randy@theoryx5.uwinnipeg.ca>
Subject: Re: Problem installing modules
Message-Id: <yuVrc.5869$gf1.14248@news1.mts.net>
"Ben Morrow" <usenet@morrow.me.uk> wrote in message
news:c8oila$g37$1@wisteria.csv.warwick.ac.uk...
>
> Quoth "Randy Kobes" <randy@theoryx5.uwinnipeg.ca>:
> > (eg, GD, which is needed by Chart) you'll also need a C compiler
> > (VC++ 6, if you're using ActivePerl).
>
> I thought MinGW was compatible? (I know Borland isn't).
I've heard of some successes using MinGW-compiled modules
with ActivePerl, and also some failures. There will be some
configuration changes involved for ActivePerl, which is set up
for VC++ 6, to try it. Probably on any platform it's safest
to stick with the same compiler that was used to build Perl.
best regards,
randy
------------------------------
Date: Sun, 23 May 2004 08:23:22 +0300
From: "Alex Vinokur" <alexvn@big.foot.com>
Subject: Re: To count a number of lines in C++ or Java or ASCII files by exluding white spaces and comments
Message-Id: <2haqqcFanbd7U1@uni-berlin.de>
John Smith <clearguy02@yahoo.com> wrote in message news:500f84f3.0308121315.3d02afdb@posting.google.com...
Thread: http://groups.google.com/groups?th=254cc53f9f3a1260
> Hi all,
> We have huge files in Java and C++ and I need to count the total
> number of lines in each of them by excluding white spaces (from the
> beginning of a line) and comments (C++, Java comments etc).
> There must be some scripts in perl to do this job.
> Can anyone kindly let me know? Or, are there any third-party tools to
> do this job?
> Thanks,
> John
Look at "Counter of C/C++ code" :
* http://groups.google.com/groups?selm=bstjrc%2419bd0%241%40ID-79865.news.uni-berlin.de
* http://alexvn.freeservers.com/s1/download.html#label1_cncc
* http://groups.google.com/groups?selm=bvtt1p%2410rbd7%241%40ID-79865.news.uni-berlin.de
--
Alex Vinokur
mailto:alexvn@connect.to
http://mathforum.org/library/view/10978.html
------------------------------
Date: Sat, 22 May 2004 18:48:04 +0000 (UTC)
From: kj <socyl@987jk.com>
Subject: What's the cancellation policy for YAPC 2004?
Message-Id: <c8o794$ci9$1@reader2.panix.com>
Does anyone know what the cancellation policy for YAPC-2004 is?
Is it posted anywhere?
Thanks,
kj
--
NOTE: In my address everything before the period is backwards.
------------------------------
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 V10 Issue 6598
***************************************
