[28728] in Perl-Users-Digest
Perl-Users Digest, Issue: 10092 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 23 18:05:46 2006
Date: Sat, 23 Dec 2006 15:05:06 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 23 Dec 2006 Volume: 10 Number: 10092
Today's topics:
BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX <kdoss@comcast.net>
Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX <john@castleamber.com>
Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX <antispam@randometry.com>
new CPAN modules on Sat Dec 23 2006 (Randal Schwartz)
Re: NULL and UNDEF <john1949@yahoo.com>
Re: Perl Books to Choose.. Wanting to goto next level.. <no_return@ignore.org>
Re: Perl Vs Python: Blind Folks <vtatila@mail.student.oulu.fi>
Re: Perl Vs Python: Blind Folks <spamtrap@dot-app.org>
Replacing expression in a file from mechanize <nospam@home.com>
Re: Replacing expression in a file from mechanize <kenslaterpa@hotmail.com>
Re: s/ and # <someone@example.com>
Re: Should i disable Nagel's Algorithm in my http clien <nospam@somewhere.com>
Re: Speeding up an application - general rules <bik.mido@tiscalinet.it>
Re: Want to create a website using perl and CGI <cwilbur@chromatico.net>
Warning: Persistent ASP 0240 Bug in ActivePerl 5.8 <eveningstar@mvps-diespammerdie.org>
Re: Xah's Edu Corner: Introduction to 3D Graphics Progr <bborcic@gmail.com>
Re: Xah's Edu Corner: Introduction to 3D Graphics Progr <jon@ffconsultancy.com>
Re: Xah's Edu Corner: Introduction to 3D Graphics Progr <jurgenex@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Dec 2006 13:19:44 -0800
From: "KDOSS_PERL" <kdoss@comcast.net>
Subject: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
Message-Id: <1166908784.255501.282680@79g2000cws.googlegroups.com>
Greetings to PERL Programmers:
I've been an Unix System Administrator writing crude shell scripts for
the past 15 years. I never got into writing sophisticated scripting
with multiple looks for my jobs. I would like to use Perl scripts and
was wondering if there are any recommendations for a guy with my kind
of back ground. Any input from your guys would be most appreciated.
Thanks in advance.
Regards,
-Kennedy
------------------------------
Date: 23 Dec 2006 21:57:43 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
Message-Id: <Xns98A2A260914BDcastleamber@130.133.1.4>
"KDOSS_PERL" <kdoss@comcast.net> wrote:
> Greetings to PERL Programmers:
>
> I've been an Unix System Administrator writing crude shell scripts for
> the past 15 years.
Must have been a case insensitive Unix system then...
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Sat, 23 Dec 2006 23:55:30 +0100
From: Ric <antispam@randometry.com>
Subject: Re: BEST PERL BOOK FOR SYSTEM ADMINISTRATION UNIX
Message-Id: <emkc58$ccn$1@online.de>
KDOSS_PERL schrieb:
> Greetings to PERL Programmers:
>
> I've been an Unix System Administrator writing crude shell scripts for
> the past 15 years. I never got into writing sophisticated scripting
> with multiple looks for my jobs. I would like to use Perl scripts and
> was wondering if there are any recommendations for a guy with my kind
> of back ground. Any input from your guys would be most appreciated.
You probably want to use some beginners book, Perl in 21 days or
Learning Perl O'Reilly
Perl is fairly easy and usually you don't program sophisticated large
scale applications with perl, so it should be fairly easy for you to get
into it.
>
> Thanks in advance.
>
> Regards,
> -Kennedy
>
------------------------------
Date: Sat, 23 Dec 2006 05:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Dec 23 2006
Message-Id: <JApp6B.23yz@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Attribute-Tie-0.01
http://search.cpan.org/~dankogai/Attribute-Tie-0.01/
Tie via Attribute
----
CGI-PathRequest-1.13
http://search.cpan.org/~leocharre/CGI-PathRequest-1.13/
get file info in a cgi environment
----
Catalyst-Plugin-Email-0.07
http://search.cpan.org/~mramberg/Catalyst-Plugin-Email-0.07/
Send emails with Catalyst
----
Catalyst-Plugin-FormValidator-Simple-Auto-0.09
http://search.cpan.org/~typester/Catalyst-Plugin-FormValidator-Simple-Auto-0.09/
Smart validation with FormValidator::Simple
----
Crypt-RSA-1.58
http://search.cpan.org/~vipul/Crypt-RSA-1.58/
RSA public-key cryptosystem.
----
DBIx-Class-SaltedPasswords-0.02
http://search.cpan.org/~perler/DBIx-Class-SaltedPasswords-0.02/
Salts password columns
----
DBIx-Class-SaltedPasswords-0.02001
http://search.cpan.org/~perler/DBIx-Class-SaltedPasswords-0.02001/
Salts password columns
----
Exception-Handler-1.004
http://search.cpan.org/~tommy/Exception-Handler-1.004/
Report exceptions with formatted text call-stack
----
ExtUtils-Command-1.13
http://search.cpan.org/~rkobes/ExtUtils-Command-1.13/
utilities to replace common UNIX commands in Makefiles etc.
----
ExtUtils-Manifest-1.50
http://search.cpan.org/~rkobes/ExtUtils-Manifest-1.50/
utilities to write and check a MANIFEST file
----
File-Util-3.15
http://search.cpan.org/~tommy/File-Util-3.15/
Easy, versatile, portable file handling
----
Net-Frame-Layer-8021Q-1.00
http://search.cpan.org/~gomor/Net-Frame-Layer-8021Q-1.00/
802.1Q layer object
----
Net-Frame-Layer-GRE-1.02
http://search.cpan.org/~gomor/Net-Frame-Layer-GRE-1.02/
Generic Route Encapsulation layer object
----
PAR-Dist-InstallPPD-GUI-0.04
http://search.cpan.org/~smueller/PAR-Dist-InstallPPD-GUI-0.04/
GUI frontend for PAR::Dist::InstallPPD
----
Plugins-0.3
http://search.cpan.org/~muir/Plugins-0.3/
Generic plugins framework
----
RPC-Object-0.15
http://search.cpan.org/~jwu/RPC-Object-0.15/
A lightweight implementation for remote procedure calls
----
Router-Statistics-0.98_6
http://search.cpan.org/~shamrock/Router-Statistics-0.98_6/
Router Statistics and Information Collection
----
SWISH-API-Object-0.06
http://search.cpan.org/~karman/SWISH-API-Object-0.06/
return SWISH::API results as objects
----
SWISH-Prog-0.05
http://search.cpan.org/~karman/SWISH-Prog-0.05/
build Swish-e programs
----
Set-IntSpan-Fast-v0.0.1
http://search.cpan.org/~andya/Set-IntSpan-Fast-v0.0.1/
Fast handling of sets containing integer spans.
----
Set-IntSpan-Fast-v0.0.2
http://search.cpan.org/~andya/Set-IntSpan-Fast-v0.0.2/
Fast handling of sets containing integer spans.
----
Statistics-Forecast-0.1a
http://search.cpan.org/~falcao/Statistics-Forecast-0.1a/
calculates a future value
----
Statistics-Forecast-0.2
http://search.cpan.org/~falcao/Statistics-Forecast-0.2/
calculates a future value
----
SyslogScan-Daemon-0.3
http://search.cpan.org/~muir/SyslogScan-Daemon-0.3/
Watch log files
----
URI-ParseSearchString-1.5
http://search.cpan.org/~sden/URI-ParseSearchString-1.5/
parse Apache refferer logs and extract search engine query strings.
----
ack-1.52
http://search.cpan.org/~petdance/ack-1.52/
grep-like text finder
----
tidyview-1.13
http://search.cpan.org/~leif/tidyview-1.13/
a previewer for the effects of perltidy's plethora of options
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sat, 23 Dec 2006 07:22:44 -0000
From: "John" <john1949@yahoo.com>
Subject: Re: NULL and UNDEF
Message-Id: <T-udnUmqn5DbRBHYnZ2dnUVZ8q6nnZ2d@eclipse.net.uk>
Hi
Many thanks for those replies. Much appreciated,
I guess I have fallen into the bad habit of using "eq undef".
So, check not defined, then empty string then null byte (with double
primes).
I've tried this on some empty XML <city/> and it works well.
Thanks again
John
------------------------------
Date: Sat, 23 Dec 2006 02:07:37 GMT
From: Joe <no_return@ignore.org>
Subject: Re: Perl Books to Choose.. Wanting to goto next level..
Message-Id: <ko2po213hbqvll85urv22j13ofvqsc1qh6@4ax.com>
On 21 Dec 2006 19:14:47 -0800, "grocery_stocker" <cdalten@gmail.com>
wrote:
>Joe wrote:
>> All,
>>
>> I've been a perl scripter for a few years (3+) and I consider myself
>> knowledgable about perl..
>>
>> However there are a few areas that I have been considering on
>> improving..
>>
>>
>> What I want to learn is Web Developement with Shopping Carts, Cookies,
>> images, Databases, customer login, and realtime inventory
>> accountability..
>>
>> I have built a few web/db pages however I'm missing a large chunk of
>> detailed info on "how it works"..
>>
>> I have the following books..
>>
>> Perl CD Bookshelf 2.0 and 3.0
>> Web programming by Paul Dubois (Very good book.. want another like it)
>> Mysql cookbook, perl cookbook, learning perl,
>> CGI Programming 2nd edition, Mysql for dummies,
>> Advance Mysql and various others...
>>
>> I use perl for my career (Network Engineer).. I have wrote online
>> inventory's of multiple vendors (Enterasys, Cisco, Extreme) and
>> have benefitted from the knowledge that this newsgroup provides..
>>
>> I currently use, Arch linux 0.8, Mysql 5.0.27-1, DBI, MysqlDBD, Perl
>> 5.8.8-4.. Apache 2.2.3..
>>
>> If you have any books that you have enjoyed reading/learning from..
>>
>> I'll be glad to hear them..
>>
>> Thanks, Joe
>
>I found that reading "Advanced Programming in the Unix Environment" by
>Stevens and Rago helped me gain a better understanding overPipes,
>fork()/exec() model, and signals in Perl.
>
>Somewhere in the documents, it says Perl does a depth-first search when
>dealing with multiple inheritance . Sections 6.5 in the book "The C
>Programming Language" by Kernighan and Richtie along with a little
>googling helped me get the gist of what they were saying.
>
>I read the Perl docs.
>
>Reading "Unix Network Programming: The Sockets API" by Fenner and
>Stevens helps if you are writing network applications in Perl or any
>language for that matter.
>
>Taking a course in compiler theory helps to understand how Perl deals
>with regular expression and helps gives a general idea how the Perl
>Interpretor works vs say the GNU C Compiler.
>
>Since you are a Career Network Engineer, I assume you've Phrack
>Articles like "Project Neptune" by Route/Daemon9 ?
no.. but thanks for the info..
>
>Read Dr. Codds papers on Relational Database Theory.
Will do..
>
>Learn it all..... Master it all...... There is no substitute for a good
>foundation in computer science.
Thanks
------------------------------
Date: Sat, 23 Dec 2006 14:58:18 +0200
From: "Veli-Pekka Tätilä" <vtatila@mail.student.oulu.fi>
Subject: Re: Perl Vs Python: Blind Folks
Message-Id: <emj95c$5gr$1@news.oulu.fi>
zentara wrote:
> On Thu, 21 Dec 2006 15:07:42 +0200, "Veli-Pekka Tätilä"
> <vtatila@mail.student.oulu.fi> wrote:
>> Another cconsideration are the GUis visually impaired people are
>> producing. They should be accessible to screen readers to be useful.
>> TK is out as I said. Fortunately Perl has Win32::GUI and Python WX
>> Widgets both of which are accessible, I think.
> You didn't mention Gtk2's ATK (Accessability ToolKit).
> Perl's Gtk2 port contains accesability to the ATK library.
A good point, that's the choice you should use in any Unix-like OS. I'm a
Windows user because of various music apps and softsynths. I've found that
the WIndows GTK+ port is not accessible with the screen readers here so
that's why I didn't mention it. I should have either mentioned my Win32
background or taken a wider view. I wonder what's accessible in OS X using
Perl, by the way? GTK+ is X based and neither X nor classic is accessible to
VoiceOver. So can you write Cocoa apps in Perl?
Aditionally, only the title bars speak in GTK+ apps written in Cygwin. I'm
writing just such an app as an exercise in C and POSIX, and was disappointed
to notice that the accessibility is so poor I'll have to rely on Windows
magnification to use the app. Guess I'll do a rewrite with Perl and
Win32::GUI, isolating the GUI specifics.
--
With kind regards Veli-Pekka Tätilä (vtatila@mail.student.oulu.fi)
Accessibility, game music, synthesizers and programming:
http://www.student.oulu.fi/~vtatila/
------------------------------
Date: Sat, 23 Dec 2006 13:15:20 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Perl Vs Python: Blind Folks
Message-Id: <m21wmqh41z.fsf@Sherm-Pendleys-Computer.local>
"Veli-Pekka Tätilä" <vtatila@mail.student.oulu.fi> writes:
> So can you write Cocoa apps in Perl?
Yes, you can. :-)
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Sat, 23 Dec 2006 17:01:55 GMT
From: "Nospam" <nospam@home.com>
Subject: Replacing expression in a file from mechanize
Message-Id: <7idjh.10246$1W1.9504@newsfe4-win.ntli.net>
Basically I have a local html file, called file1.html it has a series of
links (with a particular domain name) in addition
to the html code, I am trying to follow each of these links (based on the
regular expression /on\.fe/) each of these links, in their content have a
link to another page, (I would like to capture this particular page based on
a regular expression /www\.arax/), and substitute for each link (with
regular expression /on\.fe/)in file1.html with their corresponding link
(with regular expression/www\.arax/)
So far this is what I have come up with, and am a little stuck
#! perl\bin\perl
use strict;
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
open(FILE, "< file1.html") || print "Unable to open the file file1 \n";
while (<FILE>)
{
if($_ =~ /on\.fe/)
{
my $url = $_;
print $mech->uri."\n";
$mech->get($_);
$mech->content();
if($mech->content()=~ /www\.arax/)
{
my $url2 = $mech->content() =~ /www\.arax/;
print $mech->uri."\n";
s/$url/$url2/;
print;
}
}
}
close(FILE);
------------------------------
Date: 23 Dec 2006 13:26:58 -0800
From: "kens" <kenslaterpa@hotmail.com>
Subject: Re: Replacing expression in a file from mechanize
Message-Id: <1166909218.106759.168270@f1g2000cwa.googlegroups.com>
Nospam wrote:
> Basically I have a local html file, called file1.html it has a series of
> links (with a particular domain name) in addition
> to the html code, I am trying to follow each of these links (based on the
> regular expression /on\.fe/) each of these links, in their content have a
> link to another page, (I would like to capture this particular page based on
> a regular expression /www\.arax/), and substitute for each link (with
> regular expression /on\.fe/)in file1.html with their corresponding link
> (with regular expression/www\.arax/)
>
> So far this is what I have come up with, and am a little stuck
>
>
>
> #! perl\bin\perl
>
> use strict;
> use warnings;
> use WWW::Mechanize;
>
> my $mech = WWW::Mechanize->new();
>
> open(FILE, "< file1.html") || print "Unable to open the file file1 \n";
>
> while (<FILE>)
> {
> if($_ =~ /on\.fe/)
> {
> my $url = $_;
> print $mech->uri."\n";
> $mech->get($_);
> $mech->content();
> if($mech->content()=~ /www\.arax/)
> {
> my $url2 = $mech->content() =~ /www\.arax/;
> print $mech->uri."\n";
> s/$url/$url2/;
> print;
>
> }
>
> }
>
> }
>
>
> close(FILE);
Hi,
I have never used WWW::Mechanize module, and I am a little confused by
your code
(could just be me).
The statement "my $url2 = $mech->content() =~ /www\.arax/;" is not
going to
set $url2 to a string if that was your intent. Since you already know
that the regular expression matches (the preceding 'if' statement),
$url2 is set to 1 (true) indicating there was a match.
Did you just want the following?
my $url2 = $mech->content();
Ken
------------------------------
Date: Sat, 23 Dec 2006 02:14:24 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: s/ and #
Message-Id: <4i0jh.93005$rv4.37564@edtnps90>
Ala Qumsieh wrote:
> Paul Lalli wrote:
>> a...@paxemail.com wrote:
>>
>>> I came across a substitution that used the "#" character as a
>>> replacement for the "/" character.
>>>
>>> $nuri =~ s#^(https?:)/{0,2}#$1//#i;
>>>
>>> In this case what exactly does the "#" do? Why use it opposed to "/"?
>>> I guess the only thing I can think of is that it makes the regular
>>> expression easier to read since its working with forward slashes.
>>
>>
>> That's it exactly. All of the operators that are traditionally written
>> with slashes (s///, m//, tr///, q//, qq//, qw//, qx//, qr//) can
>> actually use any non-alphanumeric character as the delimiter.
>
> Wrong. You can use *any* character:
Except a whitespace character.
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: Fri, 22 Dec 2006 21:20:35 -0500
From: "Thrill5" <nospam@somewhere.com>
Subject: Re: Should i disable Nagel's Algorithm in my http client?
Message-Id: <A5qdnb7CVevnDxHYnZ2dnUVZ_riknZ2d@comcast.com>
"phus" <luxiangyu@msn.com> wrote in message
news:1166791378.985595.206580@f1g2000cwa.googlegroups.com...
>I write a perl script to download many small files(<1M bytes) from
> Internet(use Socket 1.78). but i found the script seems running slow.
> so should i setsockopt TCP_NODELAY?
> BTW: i found while the script running, "gabbage collect" in perl will
> make my script run very slow. Anybody help? Thanks very much!
>
Do not turn on TCP_NODELAY, it will not make your script any faster. Nagle's
algorithm, TCP_NODELAY and TCP delayed ACK's are widely misunderstood. As a
general rule, setting this option does NOTHING for application performance,
and could make the application actually run slower.
TCP is implemented as a stream. You write to the stream and the data is
buffered. The data in the buffer is packaged and sent immediately UNLESS
there is unacknowledged data in the buffer. If there is unacknowledged
data, the data in the buffer is sent when the size of the buffer is the MSS
or larger(maximum segment size, which is 1460 bytes on an Ethernet network),
or when the previous data that was sent is ACK'ed by the receiver, or you
close the socket. If you set TCP_NODELAY, every time you write to the
stream a packet will be sent. If "TCP Delayed Acknowledgement" is enabled on
the receiver, the receiver can wait up to approximately 200 milli-seconds
before sending an ACK of the data. The receiver will wait until it has data
to send, or 200ms expires. Note that most operating systems offer a way to
turn off Delayed Acknowledgements or adjust the delay time.
Now, you might think that setting TCP_NODELAY is a GREAT idea because it
will eliminate a 200ms delay between packets, but this is not the case, it
will eliminate only a delay between the first and second packets. Unless you
are writing an application that is extremely time sensitive like a telnet
client or telnet server where ANY delay would be noticeable because of user
interaction, NEVER EVER EVER set TCP_NODELAY. Why? because if you write
data to the stream in small increments you send a packet to the network on
EVERY write with a TCP/IP header on every packet as a penalty.
Lets look at a simplified extreme example to see why TCP_NODELAY doesn't
really help you and could hurt you.
Lets say you need to send 1,000 bytes of data and it is written with putc()
to the stream and TCP_NODELAY is enabled, you would need to send 41,000
bytes of traffic to the receiver (40 byte header plus 1 byte of traffic = 41
bytes times 1,000 = 41,000 bytes) With TCP_NODELAY off, you would send the
same data in 1,080 bytes of traffic (40 byte header plus 1 byte = 41 bytes
for the first packet, then next 999 times you call putc the data would be
buffered until the first packet was acknowledged 200ms later, at which time
you would then send the next packet with a 40 byte header plus 999 bytes of
traffic = 1039 bytes. 41 bytes for the first packet plus 1,039 bytes for
the second = 1,080 bytes). Is the first scenario any faster or slower that
the second? Yes and no depending on the network. It is faster by about 200
milli-seconds in a LAN environment where the serialization delay is
virtually non-existent, but in a WAN environment it could be MUCH slower
because the serialization delay could be longer than the delayed ACK timer
on the receiver. A T1 (1.544 Mb/s) would take approximately 21 ms to send
41,000 bytes of data, and a 256KB/s link has a serialization delay of about
125 milli-seconds for same amount of data. The serialization delay on the
256Kb/s circuit is 3.3 milli-seconds for 1,080 bytes. I'm only counting the
serialization delay here, not the delay added by routers for processing or
queuing due to congestion (if any.)
The delayed ACK of the second packet doesn't have any effect because the
data sent to the receiver is given to the listener immediately. For HTTP
traffic, the listener is the HTTP server and would reply immediately with
the requested page. Your application doesn't care or know about ACKs so the
last packet of data never has a penalty. As a matter of fact, the first
packet of data back to the requestor will ACK the last data packet sent by
the requestor.
If you change the write size, or the total amount of data to send ,the most
you are ever going to eliminate is 200ms, the delayed ACK time.
If you change the way the data is written to the stream by doing a single
write of the 1000 bytes, TCP_NODELAY does nothing for you because in both
cases only a single packet is written and neither has a delayed ACK penalty.
With this in mind, don't use TCP_NODELAY and don't use the stream as a
string buffer to send commands. TCP_NODELAY will only fix situations where
you "write twice, read once" Instead of turning on TCP_NODELAY, the
application should "write once, read once". Need to send the command "GET
index.html\n" Don't do this:
my $url = "index.html";
$sock->print("GET ");
$sock->print("$url\n\n");
$sock->read($data);
Two packets sent, with a 200ms delay between the first and second.
Do this instead:
my $url = "index.html";
$sock->print("GET $url\n\n");
$sock->read($data);
One packet, no delay.
As a network engineer, I can tell you that in looking at "application
slowness" problems, never ever once was the solution to turn on TCP_NODELAY.
When looking at these problems, seeing the "PSH" bit set on a TCP header
(indicating that TCP_NODELAY was enabled) is ALWAYS a huge RED flag.
Turning it off has always the application faster, or made NO difference at
all. In those cases where it makes no difference, the problem is always due
to poor application design with respect to how the client and server
communicate.
Scott
------------------------------
Date: Sat, 23 Dec 2006 11:11:33 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Speeding up an application - general rules
Message-Id: <rqvpo2tbje741mm03h81f8rnpkcac6ccu0@4ax.com>
On 21 Dec 2006 19:13:43 -0800, "Petyr David" <phynkel@gmail.com>
wrote:
>Basically: the script uses perl's system command to run a long winded
^^^^^^
^^^^^^
>"find" command which is piped to sed to correct patterns that match
>HTML markers. The matching lines are then shoved into an array. The
^^^^^
^^^^^
Wait a minute! There's something fundamental missing: system() won't
return "lines", so how are matching lines shoved into an *array*?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 23 Dec 2006 14:02:55 -0500
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: Want to create a website using perl and CGI
Message-Id: <87tzzm77vk.fsf@mithril.chromatico.net>
>>>>> "SP" == Sherm Pendley <spamtrap@dot-app.org> writes:
SP> To a layman, this strong emphasis on precision may seem too
SP> "uptight" or "anal retentive",
I believe the term chosen by the highly- and redundantly-credentialled
original poster, affiliated as he is with no fewer than four
universities, was "emotionally crippled."
SP> If you seriously want anyone to benefit from what you're
SP> saying, give them clear, detailed, and accurate information,
SP> not the same vague mumbling and hand-waving they'd find in any
SP> "Learn X in Y hours" book.
Imprecision in thought is reflected by imprecision in language.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Sat, 23 Dec 2006 10:18:53 -0700
From: "David Dickinson" <eveningstar@mvps-diespammerdie.org>
Subject: Warning: Persistent ASP 0240 Bug in ActivePerl 5.8
Message-Id: <458d64fc$1@nntp.zianet.com>
Hello,
Running the following ASP web page on any version of ActivePerl 5.8.x under
any version of Win32/IIS returns an error:
----- BEGIN ASP CODE -----
<%@ LANGUAGE="PerlScript" %>
<%
$Response->End();
%>
----- END ASP CODE -----
The script will run correctly the first time but, if the page is refreshed
in the web browser, the following error message is displayed:
----- BEGIN ERROR MESSAGE -----
Active Server Pages error 'ASP 0240'
Script Engine Exception
/test.asp
A ScriptEngine threw exception 'C0000005' in
'IActiveScript::SetScriptState()' from 'CActiveScriptEngine::ReuseEngine()'.
----- END ERROR MESSAGE -----
Refreshing the web page in the browser allows for normal continuation. A
VBScript version of the same code does not result in this error message.
This problem has dire consequences. Many scripts which use, for instance,
$Response->Redirect() to a page that contains a $Response->End() can die.
All that the web site visitor sees is the error message. They don't know
that they can simply refresh the web page to get past the error.
This bug (ActiveState Bug 65223) has, as far as I know, existed in every
version of ActivePerl 5.8.
--
David Dickinson
------------------------------
Date: Sat, 23 Dec 2006 13:00:43 +0100
From: Boris Borcic <bborcic@gmail.com>
Subject: Re: Xah's Edu Corner: Introduction to 3D Graphics Programing
Message-Id: <458d1a96$1_3@news.bluewin.ch>
Xah Lee wrote:
> Of Interest:
to which of comp.lang.perl.misc, comp.lang.python, comp.lang.lisp,
comp.lang.java.programmer, comp.lang.functional ?
------------------------------
Date: Sat, 23 Dec 2006 18:40:15 +0000
From: Jon Harrop <jon@ffconsultancy.com>
Subject: Re: Xah's Edu Corner: Introduction to 3D Graphics Programing
Message-Id: <458d7899$0$8725$ed2619ec@ptn-nntp-reader02.plus.net>
Xah Lee wrote:
> Introduction to 3D Graphics Programing
> http://xahlee.org/3d/index.html
You will probably find it more rewarding to use a more modern graphics
system, such as OpenGL or DirectX, with a suitable programming language
rather than Mathematica's. I would recommend any of OCaml, F#, Haskell,
Lisp, Scheme, Python or Ruby for graphics, you can do much more
sophisticated, animated, real time visualisations than you can with
Mathematica's primitives.
There are lots of great web pages out there. I've written some 2D and 3D
graphics examples in OCaml:
http://www.ffconsultancy.com/products/ocaml_for_scientists/visualisation
http://www.ffconsultancy.com/free/ray_tracer
http://www.ffconsultancy.com/free/fractal
http://www.ffconsultancy.com/free/maze
and more recently F#:
http://www.ffconsultancy.com/dotnet/fsharp
I was very impressed with the tutorial videos on VPython at ShowMeDo:
http://showmedo.com/videos/series?name=pythonThompsonVPythonSeries
For an introduction to OpenGL, look no further than the NeHe tutorials at
GameDev:
http://nehe.gamedev.net
One of our future products at FF Consultancy is a suite of extensions for
the F# interactive mode that allows you to visualise 2D and 3D graphics in
real time with simplicity rivalling Mathematica but the sophistication and
performance of DirectX, whilst also having the power of the F# programming
language and .NET to analyse your data.
--
Dr Jon D Harrop, Flying Frog Consultancy
Objective CAML for Scientists
http://www.ffconsultancy.com/products/ocaml_for_scientists/index.html?usenet
------------------------------
Date: Sat, 23 Dec 2006 20:20:28 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Xah's Edu Corner: Introduction to 3D Graphics Programing
Message-Id: <gcgjh.741$6f4.262@trndny08>
Boris Borcic wrote:
> Xah Lee wrote:
>> Of Interest:
>
> to which of comp.lang.perl.misc, comp.lang.python, comp.lang.lisp,
> comp.lang.java.programmer, comp.lang.functional ?
You must be new. Otherwise you would be familiar with this troll already.
jue
------------------------------
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 10092
****************************************
