[24060] in Perl-Users-Digest
Perl-Users Digest, Issue: 6257 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 15 00:05:47 2004
Date: Sun, 14 Mar 2004 21: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 Sun, 14 Mar 2004 Volume: 10 Number: 6257
Today's topics:
Re: 2D array of objects. (Damian James)
Re: 2D array of objects. <tassilo.parseval@rwth-aachen.de>
Re: 2D array of objects. (Damian James)
Re: CPAN shell complains about MD5 <Joe.Smith@inwap.com>
Re: env perl or simply perl? <tassilo.parseval@rwth-aachen.de>
Re: How to remove lines containing "continuation" opera (Chris Charley)
Re: Mixing WAV Files <me@here.com>
Re: new to perl <Joe.Smith@inwap.com>
Re: oracle socket creation <PerlGuRu2b@bobotheclown.org>
Re: Perl & Sessions? <Joe.Smith@inwap.com>
Re: Perl module for analyzing log files <pkent77tea@yahoo.com.tea>
Re: perlfunc.pod and perlvar.pod <Joe.Smith@inwap.com>
Re: perlfunc.pod and perlvar.pod <matthew.garrish@sympatico.ca>
problem with stat() on XP <g_m@remove_to_reply_comcast.net>
Re: problem with stat() on XP $_@_.%_
Re: problem with stat() on XP (remove_to_reply)
reading http parameters <quickt@spam.despammed.com>
Re: removing trailing spaces <Joe.Smith@inwap.com>
Send variable from cgi to an html or php page <.@.>
Re: Send variable from cgi to an html or php page <matthew.garrish@sympatico.ca>
Simple Perl ARchive 0.5 uploaded to CPAN <occitan@esperanto.org>
Re: Text editor implemented in Perl <bart.lateur@pandora.be>
Where did libC.a go to??? (at)FinancialDataCorp.com (Bob Mariotti)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 14 Mar 2004 20:56:24 GMT
From: damian@qimr.edu.au (Damian James)
Subject: Re: 2D array of objects.
Message-Id: <slrnc59hno.aeo.damian@puma.qimr.edu.au>
On Sun, 14 Mar 2004 05:25:46 GMT, Joe said:
>I have been playing with C++ for a while but now I am back to perl.
>Mainly because I can figure out TK and I need a good book for a total
>beginner with GUI in C++.
>
>But my question is that I have a program in C++ that looks like this
>
>space maze[30][30];
>
>that would be:
>$board[$lp1][$lp2] = Space::make($map1[$lp1][$lp2]);
>
>then I I want to call a finction in the space object, I have
>$board[$play->[$tx]][$play->[$ty]]->blocked()
>
>which would be the equivelant to
>
>board[x][y].blocked();
>
>Any suggestions?
If I get you right, you are asking about method calling syntax? And
what you have looks right for that. Have you tried this and got an
error? Perhaps disambiguating would help?
${ $obj[$x]->[$y] }->method();
About all I can think of. Just remember that you are not dealing with
2d arrays, but rather arrays of references. This can make all the
difference if forgotten, and you expect a behaviour based on thinking
in terms of 2d arrays.
--damian
------------------------------
Date: 14 Mar 2004 22:15:20 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: 2D array of objects.
Message-Id: <c32lho$mio$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Damian James:
> On Sun, 14 Mar 2004 05:25:46 GMT, Joe said:
>>I have been playing with C++ for a while but now I am back to perl.
>>Mainly because I can figure out TK and I need a good book for a total
>>beginner with GUI in C++.
>>
>>But my question is that I have a program in C++ that looks like this
>>
>>space maze[30][30];
>>
>>that would be:
>>$board[$lp1][$lp2] = Space::make($map1[$lp1][$lp2]);
>>
>>then I I want to call a finction in the space object, I have
>>$board[$play->[$tx]][$play->[$ty]]->blocked()
>>
>>which would be the equivelant to
>>
>>board[x][y].blocked();
>>
>>Any suggestions?
>
> If I get you right, you are asking about method calling syntax? And
> what you have looks right for that. Have you tried this and got an
> error? Perhaps disambiguating would help?
>
> ${ $obj[$x]->[$y] }->method();
Why do you dereference the value in $obj[$x][$y]? You can only do that
when a reference to an object has been stored therein. As I doubt that
this happened, I'd guess that
$obj[$x][$y]->method;
would be the right thing to do.
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: 14 Mar 2004 23:04:28 GMT
From: damian@qimr.edu.au (Damian James)
Subject: Re: 2D array of objects.
Message-Id: <slrnc59p7s.dis.damian@puma.qimr.edu.au>
On 14 Mar 2004 22:15:20 GMT, Tassilo v. Parseval said:
>Also sprach Damian James:
>
>> On Sun, 14 Mar 2004 05:25:46 GMT, Joe said:
>>>
>>>then I I want to call a finction in the space object, I have
>>>$board[$play->[$tx]][$play->[$ty]]->blocked()
>>>
>>>which would be the equivelant to
>>>
>>>board[x][y].blocked();
>>>
>>>Any suggestions?
>>
>> If I get you right, you are asking about method calling syntax? And
>> what you have looks right for that. Have you tried this and got an
>> error? Perhaps disambiguating would help?
>>
>> ${ $obj[$x]->[$y] }->method();
>
>Why do you dereference the value in $obj[$x][$y]? You can only do that
>when a reference to an object has been stored therein. As I doubt that
>this happened, I'd guess that
>
> $obj[$x][$y]->method;
>
>would be the right thing to do.
Indeed, though the OP already had that syntax (more or less) above. I
was (incorrectly) suggesting that perhaps he had an issue with
ambiguous refernces, and (incorrectly) suggested a means to
disambiguate. Of course there would be no additional reference (*slaps
forehead*).
--damian
------------------------------
Date: Mon, 15 Mar 2004 03:39:56 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: CPAN shell complains about MD5
Message-Id: <gA95c.8957$J05.105539@attbi_s01>
Bill Ding wrote:
> Ben Morrow <usenet@morrow.me.uk> (not long ago, on Mon, 8 Mar 2004
>>Sorry: 'an MD5.pm'. My meaning was: is there actually an MD5.pm on your system,
>>or is CPAN.pm being stupid.
>
> Ah. Well, I think the answer was "yes".
Do you have all three files?
/usr/lib/perl5/5.8.3/i586-linux/Digest/MD5.pm
/usr/lib/perl5/5.8.3/i586-linux/auto/Digest/MD5/MD5.so
/usr/lib/perl5/5.8.3/i586-linux/auto/Digest/MD5/MD5.bs
-Joe
------------------------------
Date: 14 Mar 2004 22:07:29 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: env perl or simply perl?
Message-Id: <c32l31$l8d$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Peter J. Acklam:
> "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> wrote:
>
>> The same way as you'd use it with the plain /usr/bin/perl:
>>
>> #!/bin/env perl -w
>
> How many operating systems allows this? To my knowledge, Solaris
> is the only one.
>
> I use
>
> #!/usr/bin/env perl
> (...)
> use strict;
> BEGIN { $^W = 1 }
>
> for three reasons
>
> 1) "perl" is installed at different locations, so I can't
> hardcode the path to perl on the #!-line
>
> 2) "#!/usr/bin/env perl -w" only works on Solaris, not Linux
> and other unices (they say that "perl -w" is an unknown
> command), so I prefer enabling warnings in the actual code
You are right, it doesn't seem to work on Linux. I didn't know that,
probably because I never used 'env' in a shebang line before (it works
on the command-line, though).
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: 14 Mar 2004 12:56:30 -0800
From: charley@pulsenet.com (Chris Charley)
Subject: Re: How to remove lines containing "continuation" operator
Message-Id: <4f7ed6d.0403141256.7f989dba@posting.google.com>
"Suresh Govindachar" <sgovindachar@yahoo.com> wrote in message news:<7IP4c.8492$_3.107020@typhoon.sonic.net>...
> #!/usr/bin/perl
> use warnings;
> use strict;
> #BEGIN {(*STDERR = *STDOUT) || die;}
>
> =head
> "werlax"
> asked on Saturday, March 13, 2004 4:46 PM
>
> [for a good way to remove lines in C-code that
> begin with "#pragma" and which may spill over
> to multiple lines via C's line-continutaion
> character "\" (there is no white space after
> the line continuation character).]
>
> Here's a one liner that does the job!
> (In case you don't know, <DATA> refers to the
> stuff that follows __DATA__.)
>
> --Suresh
>
> =cut
>
> my $onelinertemplate = '^\s*#pragma.*[^\\\\\\r\\n]+$';
> my $starttemplate = '^\s*#pragma.*\\\\$';
> my $endtemplate = '[\\\\]$';
>
> my @non_pragma_c;
>
> push @non_pragma_c,
> grep !(/$starttemplate/ .. !/$endtemplate/),
> grep !/$onelinertemplate/, (<DATA>);
>
> print @non_pragma_c;
I approached this a little differently - not a 1 line solution
#!/usr/bin/perl
use strict;
use warnings;
while (<DATA>) {
print($_), next unless /^\s*#pragma\b/;
while (/\\\s*$/) {
$_ = <DATA>;
}
}
__DATA__
yabba
dabba
#pragma export(ConfigurationRepository::write\
(char** ppsBuffer,const string& strTSTAMP_TRANS,\
const short iUNIQUENESS_KEY))
doo
#pragma sssssssssss bbbbbbbbbbbbbbb ssssssssssssssssssss
#pragma sssssssssss bbbbbbbbbbbbbbb ssssssssssssssssssss
spot
Hope this helps,
Chris
------------------------------
Date: Sun, 14 Mar 2004 17:35:57 -0500
From: Frescard <me@here.com>
Subject: Re: Mixing WAV Files
Message-Id: <B755c.1461$E71.215272@news20.bellglobal.com>
Is that the ProTools by Digidesign or some other 'ProTools'?
Because the ones by Digidesign don't seem to be either Perl, PHP *or* ASP...
Todd Anderson wrote:
> try ProTools
------------------------------
Date: Mon, 15 Mar 2004 02:02:03 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: new to perl
Message-Id: <v885c.14258$_w.316453@attbi_s53>
Tsui Wai-ming wrote:
> "Joe Smith" <Joe.Smith@inwap.com> ¼¶¼g©ó¶l¥ó·s»D
> :jpM1c.177224$jk2.647006@attbi_s53...
>
>>Tsui Wai-ming wrote:
>>
>>
>>>In fact I just changed to
>>>
>>>#!C:\perl\bin\perl
>>>
>>>This one
>>># perl, and
>>>#!C:\perl\bin
>>>
>>>didnt work at all...
>>
>>It depends on how you invoke your perl script.
>>
>>Double-clicking on an icon in a local file folder: Uses registry.
>>Typing name into CMD.EXE command-line prompt: Uses registry.
>>Typing name into some other command-line shell: Depends on shell (bash).
>> (In particular, cygwin uses /usr/bin/perl.)
>>Clicking on link in a browser: Depends on web server.
>> Sambar Server for Windows: Uses shebang line.
>> Apache Server for Windows: I believe it is a configuration option.
>> IIS: Registry.
>>
>>Which method "didnt work at all"?
>>-Joe
>
>
> This one: #perl
> And this one: #!C:\perl\bin
>
> Ming :)
You didn't answer the question.
What method are you using to start your perl script?
-Joe
------------------------------
Date: Sun, 14 Mar 2004 20:33:06 GMT
From: Perl GuRu2b <PerlGuRu2b@bobotheclown.org>
Subject: Re: oracle socket creation
Message-Id: <pan.2004.03.14.21.07.01.185623@bobotheclown.org>
Thank you men for the insight. My goal is in fact to check whether a given
instance is running. The company I work for builds one listener for two
DB's. It has happened in the past( on both UNIX and Win2k servers) that a
DB has gone down and it's listener stays up. Since I was only using What's
up gold to monitor the box (it only checks the port) it appeared that all
was well. I need to get into each instance
on the box. Since I have about 45 DB's to monitor I figured why not
dedicate a website to oracle monitoring in addition to the other
monitoring tools we already use.
DBD::Oracle will be great but I don't know about the ping function. If it
gets systime it may be using the system users tablespace and that still
doesn't tell me if the actual instance is running.
My plan is to select a single "test" record in the main tablespace of each
DB. It doesn't seem too expensive for the DB even if it does hit it every
couple of minutes. then I can tell my script to check whether it returns
>0 rows, hence pass/fail.
once again thank you for your insight
Rocky
On Sun, 14 Mar 2004 12:22:00 +0000, Juha Laiho wrote:
> Vetle Roeim <vetro@online.no> said:
>>* Kevin Michael Vail
>>> And DBI has a "ping" method to tell if the database is alive, but I
>>> don't know if this is implemented in the Oracle driver.
>>
>> From the original posting:
>>
>> >> > Goal:
>> >> > send select statement to oracle DB every 5 minutes or so to
>> >> > verify that it is up and running. Capture output and
>> >> > translate to pass/fail on web page
>>
>> That's how he want's to monitor it. There's no need for some sort of
>> "ping" functionality.
>
> The OP would be the best to comment on this, but I'd expect that in
> reality his goal is by whatever means verify whether the DB is
> serving requests or not. If ESP was seen as a good and economic
> alternative for this, then it'd be as good tool as anything else.
>
> Looking at the code of DBD::Oracle tells very fast, though, that what
> the ping() method does is "select SYSDATE from DUAL", so this matches
> exactly what the OP was looking for. Of course, this is just the current
> implementation, and future implementations may change, as long as the
> outside functionality (reliably telling whether or not the database is
> serving requests) remains.
>
> As for using an arbitary query for finding out the database status, I
> have a slight horror story. The developers had just picked a query to
> use as the "status" indicator and not given much thought to it -- just
> selecting all rows from some table. This table happened to be one of the
> main tables in the database, and while the query worked fine initially,
> in the longer run this table grew so large that just the status queries
> swamped the database server (and to some extent, the application server,
> and the network connecting the two).
------------------------------
Date: Mon, 15 Mar 2004 01:53:51 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: Perl & Sessions?
Message-Id: <P085c.13142$Cb.305198@attbi_s51>
Steve (another one) wrote:
> >Not as easily as they can with hidden values :-) The user can save the
> >page, alter the hidden value, then submit the page - simple :-)
>
> Aaaaarrrrgghh this is going nowhere - changing the hidden value achieves
> nothing. You might as well say that a username/password is insecure
> because the user can enter anything they like.
I think the point is that a simple session ID is not a good
authentication method. I've seen bad web sites that do authentication
only on the login page. A particularly bad one assigned a four-digit
number in a hidden field as the session ID. Using trial-and-error,
it was not difficult find another four-digit number corresponding
to another currently active session.
A better web site used a 32-character alphanumeric string.
Every page verified that the string, after undergoing an undisclosed
transformation, had a specific checksum. This form of session ID
is not easily hijacked.
-Joe
------------------------------
Date: Mon, 15 Mar 2004 00:00:41 +0000
From: pkent <pkent77tea@yahoo.com.tea>
Subject: Re: Perl module for analyzing log files
Message-Id: <pkent77tea-3B058F.00004115032004@pth-usenet-02.plus.net>
In article <361f42ca.0403122038.6864f0c9@posting.google.com>,
krishna@multimediastudio.com (Krishna Srinivasan) wrote:
> > Depending on what you want to do, why not try Analog? It's not perl, but
> > it does lots of reports, sumamries, graphs etc.
>
> I am actually trying to build my own log file analyzing engine for
> some custom requirements. First I need to capture the log file in a
> MySQL database. Currently I am using some complex split statements to
> parse the log file. What is needed is (if possible) a more efficient
> way to do this.
Fair enough. So, I assume you'll be inserting the parsed data into
MySQL, rather than the raw log lines? For what it's worth we've found
that for our apache logfiles (which are a minor variation on the
'combined' apache custom log format that seems to be one of the examples
that comes in the default config file) we only need a simple regular
expression to match the various fields. Perl can easily talk to MySQL
using the DBI module and appropriate driver.
P
--
pkent 77 at yahoo dot, er... what's the last bit, oh yes, com
Remove the tea to reply
------------------------------
Date: Mon, 15 Mar 2004 02:48:05 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: perlfunc.pod and perlvar.pod
Message-Id: <FP85c.8177$JL2.161081@attbi_s03>
J. Gleixner wrote:
> If you have perl installed, it's likely on your system.
>
> For *nix systems, running "perldoc <pagename>" will display the page.
> At the prompt, enter:
>
> perldoc perlfunc
>
> and it should display the information in perlfunc.pod for your
> particular version of perl.
>
> Don't remember where/how to get at it on a MS system,
C:\>perldoc perlfunc
or
Start -> Programs -> ActiveState -> ActivePerl -> Documentation
-Joe
------------------------------
Date: Sun, 14 Mar 2004 22:48:27 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: perlfunc.pod and perlvar.pod
Message-Id: <aI95c.2339$QY2.60387@news20.bellglobal.com>
"Joe Smith" <Joe.Smith@inwap.com> wrote in message
news:FP85c.8177$JL2.161081@attbi_s03...
> J. Gleixner wrote:
>
> > If you have perl installed, it's likely on your system.
> >
> > For *nix systems, running "perldoc <pagename>" will display the page.
> > At the prompt, enter:
> >
> > perldoc perlfunc
> >
> > and it should display the information in perlfunc.pod for your
> > particular version of perl.
> >
> > Don't remember where/how to get at it on a MS system,
>
> C:\>perldoc perlfunc
>
> or
>
> Start -> Programs -> ActiveState -> ActivePerl -> Documentation
>
One too many arrows:
Start -> Programs -> ActiveState ActivePerl -> Documentation
Matt
------------------------------
Date: Sun, 14 Mar 2004 19:50:55 -0500
From: "~greg" <g_m@remove_to_reply_comcast.net>
Subject: problem with stat() on XP
Message-Id: <NPSdndmIv7V6YMndRVn-sA@comcast.com>
On Windows XP pro, I'm trying
to read the last modification times
of certain files via the built-in stat():
my $modified = (stat($file))[9];
or via File::stat:
my $stats = stat($file);
my $modified = $stats->mtime;
...and this works for most files,
but it fails on the ones that I'm
interested in (which are the .dbx
files in the OE mail folder.)
I can read their contents, but not
their stat() attributes.
My guess is this must have
something to do with NTFS file permissions.
In particular, if stat() somehow has to implicitly
tie to the file so as to allow the possibility of
modifications - then it'd be denied permission
for that.
So anyway, is there any other way as
simple as stat() - to read the last-modified
time of a file that has read-only permission?
~greg.
------------------------------
Date: Mon, 15 Mar 2004 01:23:21 GMT
From: $_@_.%_
Subject: Re: problem with stat() on XP
Message-Id: <dA75c.5336$Q2.3163@nwrdny03.gnilink.net>
"~greg" <g_m@remove_to_reply_comcast.net> wrote in message-id:
<NPSdndmIv7V6YMndRVn-sA@comcast.com>
>
>
>On Windows XP pro, I'm trying
>to read the last modification times
>of certain files via the built-in stat():
[sniped]
>So anyway, is there any other way as
>simple as stat() - to read the last-modified
>time of a file that has read-only permission?
>
>~greg.
Could use the dir command and capture its output,
then use a regex to get the information you are looking for.
There are likely many ways to do this.
------------------------------
Date: Sun, 14 Mar 2004 21:15:55 -0500
From: "~greg" <g_m@(remove_to_reply)comcast.net>
Subject: Re: problem with stat() on XP
Message-Id: <M8qdnZNMyeJLjMjdRVn-hA@giganews.com>
<$_@_.%_> wrote in message news:dA75c.5336$Q2.3163@nwrdny03.gnilink.net...
>
> "~greg" <g_m@remove_to_reply_comcast.net> wrote in message-id:
> <NPSdndmIv7V6YMndRVn-sA@comcast.com>
> >
> >
> >On Windows XP pro, I'm trying
> >to read the last modification times
> >of certain files via the built-in stat():
> [sniped]
> >So anyway, is there any other way as
> >simple as stat() - to read the last-modified
> >time of a file that has read-only permission?
> >
> >~greg.
>
> Could use the dir command and capture its output,
> then use a regex to get the information you are looking for.
> There are likely many ways to do this.
>
Thank you very much.
That's what I was afriad of.
However I have to be honest now
and confess that it turns out that
there was no problem with stat().
The problem was with me.
I was using
stat($file)
with a $file obtained from a
readdir($Folder).
- when I should of course have used:
stat("$Folder/$file");
--Dumbest mistake in the book.
(-- probably not in the book it's that dumb.)
The only reason
stat($file)
worked on the "regular" folder was because
the 'regular' folder happened to be the folder
the .pl script was running in - the default.
( I think I tend to forget that because
I do everything in a text-editor (MultiEdit)
which kind of hides folders behind
'sessions' and 'projects'. )
Anyway, THANKS :)
~Greg.
------------------------------
Date: Mon, 15 Mar 2004 12:04:53 +0800
From: "Andrew Chan" <quickt@spam.despammed.com>
Subject: reading http parameters
Message-Id: <c339uo$lj7$1@novel.pacific.net.sg>
I'm new to Perl.
can anybody tell me how i can strip data from a apache logfile so that i can
see the words being searched?
"GET /cgi-bin/htsearch?words=test1&template..."
In this case, I would like to search for "test1"
"GET /cgi-bin/htsearch?words=test1+test2&template..."
In this case, I would like to search for "test1 test2"
Then I would want to generate to a file with the following results:
test1=10
test1 test2=11
Any help is appreciated.
------------------------------
Date: Mon, 15 Mar 2004 03:05:14 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: removing trailing spaces
Message-Id: <K395c.8972$SR1.23173@attbi_s04>
Web Surfer wrote:
> $string =~ s/\s+//; # remove trailing whitespace
That converts "test case one: " to "testcase one: ", which
is not what is desired.
-Joe
------------------------------
Date: Mon, 15 Mar 2004 03:36:23 -0000
From: "Derek" <.@.>
Subject: Send variable from cgi to an html or php page
Message-Id: <405524b3@212.67.96.135>
I have an html form which send details entered in form to a perl script
(cgi)
How can i send variables from a cgi script back to an html or php page.
Any help would be appreciated.
------------------------------
Date: Sun, 14 Mar 2004 22:46:39 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: Send variable from cgi to an html or php page
Message-Id: <uG95c.2338$QY2.60081@news20.bellglobal.com>
"Derek" <.@.> wrote in message news:405524b3@212.67.96.135...
> I have an html form which send details entered in form to a perl script
> (cgi)
>
> How can i send variables from a cgi script back to an html or php page.
>
print "Content-type: text/html\n\n";
print $var;
The rest is up to you. In particular, I would recommend getting well
acquainted with the CGI module.
Matt
------------------------------
Date: Sun, 14 Mar 2004 19:34:41 GMT
From: Daniel Pfeiffer <occitan@esperanto.org>
Subject: Simple Perl ARchive 0.5 uploaded to CPAN
Message-Id: <HuKzxz.1Ftp@zorch.sf-bay.org>
Hi,
spar-0.5 has been uploaded to http://www.cpan.org/scripts/
Creates or extracts a poor man's archive. Especially when containing lots of
small files it can be by a factor smaller than a tar. It can be self
unpacking,
but there is also an unpacker embeddable in your scripts.
It has been discovered that SPARs are a good help in refactoring, when it
comes to renaming classes for example. These typically occur both within
files and as file names. As a SPAR you get all occurences in a single text
file.
The Emacs support mode has been extended. Users of makepp (Perl make -
http://makepp.sourceforge.net/) may prefer the following first expression:
(setq auto-mode-alist `(("\\.spar$\\|/makepp/.+\\.test$" . spar-mode)
("Makep*file$" . makefile-mode)
,@auto-mode-alist))
coralament / best Grötens / liebe Grüße / best regards / elkorajn salutojn
Daniel Pfeiffer
--
lerne / learn / apprends / läramå / ucz si$,1 9(B Esperanto:
http://lernu.net/
------------------------------
Date: Sun, 14 Mar 2004 21:03:20 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Text editor implemented in Perl
Message-Id: <8bh950peojgsur441ehtlbvg1rnl896hfq@4ax.com>
James Taylor wrote:
>I just wondered whether anyone has thought to write a programmers'
>text/data editor in Perl and allow the full power of Perl's s///eg
>operator for manipulating the file being edited. The ability
>to perform this kind of day to day manipulation visually using
>my favourite language would be quite sincerely and deeply cool.
>Is there such a thing? If not, what's the closest alternative?
The reason why you want one, isn't quite convincing to me... but yes,
somebody (not me) did write a text editor in Perl, with Tk. See the
announcement, and code, on PerlMonks:
<http://perlmonks.org/?node_id=334317>
The home page is at
<http://www.perlskripts.com/pedit.html>
--
Bart.
------------------------------
Date: Mon, 15 Mar 2004 04:34:58 GMT
From: R.Mariotti(at)FinancialDataCorp.com (Bob Mariotti)
Subject: Where did libC.a go to???
Message-Id: <405531ce.46645868@news.cshore.com>
While attempting to clean up and make space in the /usr filesystem
last week something must have been deleted because now all perl
programs fail to run with the message "Dependent module libC.a (shr.o)
cannot be found".
I've performed a find command on working systems and I cannot locate
this library. Can someone please shed some light on where this lib
can be obtained and if aliased what is its name?
TIA
------------------------------
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 6257
***************************************
