[15894] in Perl-Users-Digest
Perl-Users Digest, Issue: 3307 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 9 21:05:38 2000
Date: Fri, 9 Jun 2000 18:05:15 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <960599115-v9-i3307@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 9 Jun 2000 Volume: 9 Number: 3307
Today's topics:
ActiveState Perl 613 backticks child error <dchrist@dnai.com>
Re: ASP equivalent in non Microsoft environment <gellyfish@gellyfish.com>
Re: Best Perl Accessory? baeron@my-deja.com
Re: Best Perl Accessory? <elaine@chaos.wustl.edu>
Re: CGI code for downloading <nospam@nospam.com>
Re: Chomp problem <gellyfish@gellyfish.com>
Re: Config.pm <gellyfish@gellyfish.com>
Re: Cookies and perl??? <gellyfish@gellyfish.com>
Curses module 1.03 (beta) is available to the bold <William_Setzer@ncsu.edu>
dbl quoting fields of a CSV file <mcdonabNO@SPAMyahoo.com>
Re: dbl quoting fields of a CSV file <lauren_smith13@hotmail.com>
Re: Encrypting / decrypting. (Bart Lateur)
Re: Encrypting / decrypting. <elaine@chaos.wustl.edu>
Ensuring backup system is the same as primary jon@nytimes.com
Re: Ensuring backup system is the same as primary <you.will.always.find.him.in.the.kitchen@parties>
Expect & IO:Pty & Win2000/NT & Cygwin <crosebrugh@inetarena.com>
Re: file date parse routine <bronsn@hotmail.com>
Re: Help with OO needed. (James Kufrovich)
HELP! Parameter Problems <jrr386@home.com>
Re: HELP! Parameter Problems (Tom Briles)
How to pick up shell variable from perl ? (Andy)
Re: Inverse video? (Xebeche)
Re: Java/Swing GUI for DBI/MySQL <jdb@wcoil.com>
Re: Larry Rosler interview on perl.com! <smerr612@mailandnews.com>
logging in and adding (HaCkeRz45)
Re: Net::FTP login problem <gellyfish@gellyfish.com>
Re: Newbie Help: CGI,DBI attempt <gnari@simnet.is>
Newbie needs help with script :-) (David)
Re: No offense but Larry Wall should do the maths !! <gellyfish@gellyfish.com>
Re: perl and odbc <gellyfish@gellyfish.com>
Re: Perl Shortcut? <nospam@nospam.com>
Re: PLEASE HELP: Perl for WWW <gellyfish@gellyfish.com>
Re: regexp guestions <Jonathan.L.Ericson@jpl.nasa.gov>
Re: Strategy for processing a log file (Tad McClellan)
Re: Time-Date Question ?? <tina@streetmail.com>
Re: Time-Date Question ?? (Craig Berry)
Re: writing formatted line to MAIL (John Stanley)
Re: writing formatted line to MAIL <ultraboy@provision.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 9 Jun 2000 16:55:15 -0700
From: "David Christensen" <dchrist@dnai.com>
Subject: ActiveState Perl 613 backticks child error
Message-Id: <8hs07s$kmj$1@bob.news.rcn.net>
Hello, World!
I am running AP613 on Win98se. Check this out:
C:\DAVID>type foo
# this should work
print `dir /b foo`, "\n";
print "\$? = $? \$! = $!\n";
# this should generate an error
print `foo dir /b`, "\n";
print "\$? = $? \$! = $!\n";
C:\DAVID>perl foo
foo
$? = -1 $! = No such file or directory
Bad command or file name
$? = -1 $! = No such file or directory
C:\DAVID>
I expected $? to be zero (undef?) the first time and non-zero the second
time. $! is there just for giggles. I think it used to be that way on
AP519 (?).
Any ideas?
David
------------------------------
Date: 9 Jun 2000 23:38:33 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: ASP equivalent in non Microsoft environment
Message-Id: <8hrrl9$gl1$1@orpheus.gellyfish.com>
On Fri, 9 Jun 2000 14:15:29 +0100 Graham Wood wrote:
> Can anyone tell me whether you can use Active Server Pages in a
> non-microsoft environment or whether anything similar exists for the Unix
> world?
You can use Apache::ASP under Apache/mod_perl ...
/J\
--
fortune oscar homer
------------------------------
Date: Fri, 09 Jun 2000 23:21:51 GMT
From: baeron@my-deja.com
Subject: Re: Best Perl Accessory?
Message-Id: <8hru62$oav$1@nnrp1.deja.com>
In article <39413c6f_1@news.siscom.net>,
"Boris Holowko" <bholowko@colorsavvy.com> wrote:
> What is anyone's opinion on the next best thing to download after
you've
> downloaded perl, like for example, Perl Studio, Visual Perl,
> Pound-Bang-Perl, Activestate Perl Development Kit, etc...??? I am just
> curious!
>
> thanks...
> -jared
I've found ultraedit 32 ( www.ultraedit.com ) indispensible for perl
development, as well as most other scripting and programming I do. You
can save to/open from an ftp site, it's got syntax highlighting
available for pretty much any programming language you care to use, and
it's only 30 dollars or so. There's a 30 day trial, so feel free to
give it a look-see.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 10 Jun 2000 00:39:27 GMT
From: Elaine Ashton <elaine@chaos.wustl.edu>
Subject: Re: Best Perl Accessory?
Message-Id: <B567067C.5DDE%elaine@chaos.wustl.edu>
in article 39413c6f_1@news.siscom.net, Boris Holowko at
bholowko@colorsavvy.com quoth:
> What is anyone's opinion on the next best thing to download after you've
> downloaded perl, like for example, Perl Studio, Visual Perl,
> Pound-Bang-Perl, Activestate Perl Development Kit, etc...??? I am just
> curious!
well..as far as accessories go, http://www.perltoys.com/ and
http://www.pm.org/ have shirts, hats and magnetic Perl kits in black & white
which, of course, goes with everything :) Also, Ty has a new little camel
beanie babie out which would make a lovely monitor pet....
As far as what to get for your Perl distribution? http://search.cpan.org/
and http://history.perl.org/ and start looking around. There is something
for everyone and best of all its free. And, you have a large amount of
documentation that you get for free and is well worth perusing.
enjoy.
e.
------------------------------
Date: 10 Jun 2000 00:22:32 GMT
From: The WebDragon <nospam@nospam.com>
Subject: Re: CGI code for downloading
Message-Id: <8hs1o8$lhs$1@216.155.32.44>
In article <393E7D38.BB558D46@coaps.fsu.edu>, Stacey Campbell
<campbell@coaps.fsu.edu> wrote:
| I am trying to figure out CGI code that someone else wrote,
| which accepts form data, processes it into the correct path and
| filename for our unix system, and allows the user to download
| that file over the internet. The problem is that I have never
| written CGI code for downloading files over the internet, the
| code is not mine, it has all kinds of HTML and perl mixed up all
| together (he didn't use CGI.pm), and I can't decipher it well
| enough to modify it. His code downloads entire groups of files.
| I was asked to add a function to the page that downloads
| individual files, but I might end up having to write the page
| over completely, just so I know what is going on. Does anyone
| have some simple, maybe generic CGI code for downloading files
| from a unix system over the internet? It could be for single
| files or groups of files. I would appreciate the form code and
| the data handling code. If you are worried about security of
| your page, please let me know if you have a generic version, or
| point me to a book or website that will help me do these things.
First place I would look is in the examples/ folder that comes with the
CGI.pm install, (currently at version 2.68); lots of useful code samples
in there. :) Then I might take a gander at Lincoln Stein's website,
(which url is in the CGI.pm file itself, at the top), for additional
examples. :o)
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: 9 Jun 2000 23:31:02 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Chomp problem
Message-Id: <8hrr76$gkm$1@orpheus.gellyfish.com>
On Fri, 9 Jun 2000 16:01:20 +0100 "Damian (-*-)" wrote:
> Tony Curtis <tony_curtis32@yahoo.com> wrote in message
> news:87ya4fkml0.fsf@limey.hpcc.uh.edu...
> | >> On Fri, 9 Jun 2000 12:42:21 +0100,
> | >> "Damian (-*-)" <damian@amorphous.co.uk> said:
> |
> | > while ($fileline = <HIFILE>) {
> | ^^^^^^^^^^^^^^^^^^^^^
> | -w and "use strict" would tell you there is a bug
> | waiting to happen here
> |
> | > "chomp" may clash with future reserved word at
> |
> | You're using perl4. Don't :-)
> |
>
> From Clinton's reply I understand that our server has been installed with
> the wrong version of Perl ! But upon
> your recommendation I shall add in -w and "use strict" in future.
> :)
>
Of course you wont be able to 'use strict;' with Perl 4 ...
/J\
--
fortune oscar homer
------------------------------
Date: 9 Jun 2000 23:13:59 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Config.pm
Message-Id: <8hrq77$gjf$1@orpheus.gellyfish.com>
On 9 Jun 2000 12:00:58 GMT The WebDragon wrote:
> In article <394063F3.F507E361@208.23.123.242>, James Tolley
> <james@208.23.123.242> wrote:
>
> | The WebDragon wrote:
> | >
> | > #!perl -w
> | > print Config::myconfig();
> | >
> | > prints out osvers=7.5 despite the fact that I am running on MacOS 8.6
> |
> | myconfig() doesn't ever look to find anything out about the current
> | environment.
> | It just looks at hard-coded strings $summary and $config_sh, both found
> | in Config.pm
>
> so, if I wanted to be able to report OS 8.6 compatibility or os 9.x
> compatibility to testers.cpan.org I'd need to basically compile my own
> perl instead of using the MacPerl binary install provided by Matthias
> Neeracher, correct?
>
Not so sure, but as the MacPerl is maintained separately from the main
distribution you will either need to get the source for that or carry
out your own port ;-} You could of course wait for MacOS X to ship.
/J\
--
fortune oscar homer
------------------------------
Date: 10 Jun 2000 00:27:16 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Cookies and perl???
Message-Id: <8hrugk$gop$1@orpheus.gellyfish.com>
On Fri, 09 Jun 2000 11:26:29 GMT Abel Almazan wrote:
> How can i ignore a cookie from an URL??
>
> I made a perl script that connects to an URL and downloads the HTML.
> Then, the perl script get only some lines (containing some key words),
> and this lines are mounted as HTML and viewed on the browser, but.....
>
> ....when i connect to an URL with cookie validation, then i cant get the
> HTML because the perl script gets the cookie validation page.
>
> How can i ignore this page an go to the page i'm really interested
> on????
>
You will need to read the LWP::UserAgent manpage about how to handle
cookies.
/J\
--
fortune oscar homer
------------------------------
Date: 09 Jun 2000 12:35:08 -0400
From: William P Setzer <William_Setzer@ncsu.edu>
Subject: Curses module 1.03 (beta) is available to the bold
Message-Id: <lzyr9a6ke2r.fsf@babylon5.unity.ncsu.edu>
The Curses module has been updated, and a beta version is ready for
testing. Right now, it is only available at:
http://www4.ncsu.edu/~wsetzer/Curses-1.03.tar.gz
I changed many, many things, so this module is probably broken on
every OS I didn't test it on; please give me feedback! When I feel
fairly confident that it's back to normal, I'll bump the version
number and put it on CPAN.
Thanks.
William
8<-8<-8<-8<- Cut 8<-8<-8<-8<-
The Curses extension to perl v5
Version 1.03
Copyright (c) 1994-2000 William Setzer
All rights reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as perl, specifically:
a) the GNU General Public License as published by the Free
Software Foundation; either version 1, or (at your option) any
later version, or
b) the "Artistic License" which comes with this Kit.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Artistic License for more details.
You should have received a copy of the Artistic License with this
Kit, in the file named "Artistic". If not, I'll be glad to provide one.
You should also have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software Foundation,
Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
This is a dynamic loadable curses module for perl. You can get this
package at any CPAN archive.
Please see the INSTALL document for how to install it on your system,
the Curses pod (located at the end of "Curses.pm") for known
incompatibilities with other Perl programs, and the end of this
document for known compile or install problems.
New in 1.03:
o Completely retooled most of the important parts! Reread the INSTALL
document "just in case".
o New release is now also covered under the GPL, to appease the
license-challenged.
o Dropped support/instructions for perl with version less than 5.003.
o Fixed is_linetouched arg count.
o Added a Curses::Screen::new to allow for object oriented calls.
o Added suport for getmaxx() and getmaxy() for those Ultrix/Alpha
libs that dont have the -yx version.
o Added optional panel support! [*]
Thanks to Chris Leach <leachcj@bp.com>.
o Renamed the variable "rs" in the border function so it would no
longer conflict with one defined in threads.
o Additional VMS fixes.
o Additional support for IRIX.
o OpenBSD hints.
o Added support for the [ncurses] resize() function.
o Added NCR MPRAS 3.02 hints.
o Unpolluted na, sv_yes, sv_no, sv_undef.
o Added DESTROY method to quell "invisible" complaints.
o Added support for the COLORS and COLOR_PAIRS variables (and
function equivalents).
o Added cygwin hints.
o Deleted support for the following functions. (I couldn't remember
where I got them in the first place, and in some cases they
actually cause problems.)
getattrs gettmode mvcur setterm
o Also added support for the following functions. (I think [hope]
this is all of them :)
attr_get attr_off attr_on attr_set chgat curs_set cursyncup
def_prog_mode def_shell_mode delay_output delwin dupwin filter
getsyx getwin has_key mvderwin napms putwin redrawln redrawwin
reset_prog_mode reset_shell_mode scr_dump scr_init scr_restore
scr_set setsyx slk_attr slk_attroff slk_attron slk_attrset
slk_color syncdown syncup termattrs termname untouchwin use_env
o Removed support for the following variables. (They never worked,
but now Curses won't even tell you they don't work.)
ttytype My_term Def_term
My thanks to the following people:
walker at sky.nlm.nih.gov [Curses::Screen::new, IRIX fixes]
jrs at sys.uea.ac.uk [getmaxx, getmaxy]
drs1 at lucent.com [rs/thread conflict]
pvhp at forte.com [VMS fixes]
sgrozev at orbitel.bg [OpenBSD hints]
mike at unix1.allvirtual.com [OpenBSD hints]
James.Bailey at AtlantaGA.NCR.COM [NCR hints]
Todd.Miller at courtesan.com [OpenBSD hints]
mcafee at umich.edu [DESTROY method]
michael at shoebox.net [COLORS/COLOR_PAIRS support]
gombasg at inf.elte.hu [DESTROY method]
aweinberger at insweb.com [OpenBSD hints]
spinazzi at databankgroup.it [Cygwin hints]
[*] His full patch is yet to be integrated. The parts clearing the
way for forms and menu library support are not there yet.
Maybe next time... :)
I also reserve the right to fiddle around with package placement
for panels. Curses::Panels is a probable spot.
The "demo" program is for demonstration purposes only. If it
references a function your version of curses doesn't have, wrap it in
an "eval" and try again. Same goes double for the "gdc" program.
You can type "make cdemo" to make a C language version of the demo.
If you get the same results via "demo" and "cdemo", but they don't
look right, then it's a bug in your libcurses, not in Curses.
Enjoy!
William Setzer
William_Setzer at ncsu.edu
Known Problems
--------------
NCurses
getch() and getstr() don't work right under very old versions of
ncurses (around v1.8.5). Please upgrade to a newer version.
panel_hidden() test is reversed in v1.9.9.g. Please upgrade to
a newer version.
------------------------------
Date: Fri, 9 Jun 2000 15:44:57 -0700
From: "Brian McDonald" <mcdonabNO@SPAMyahoo.com>
Subject: dbl quoting fields of a CSV file
Message-Id: <Zre05.25$sV2.15665@news.pacbell.net>
Hi.
I have a file that consists of many lines that look like this:
lname,fname,mname,aka_lname,aka_fname,aka_mname,bdate,ddate,details about
this individual
I want to write a script that will read in each line, parse the
comma-separated fields, put double quotes around each field that contains a
string (all of them do for now), and reconstruct the line (i guess in
another file).
Some of the fields may be empty... so it is not uncommon that I will have to
handle a line like this:
jovovich,milla,,,,,1974,,singer, model and actress
As you can see, anything after the last (8th) comma represents an entire
field.
I would like the script to do this to the above line:
"jovovich","milla","","","","","1974","","singer, model and actress"
The problem is that I don't understand regular expressions enough yet to
take perlfaq4's example... namely...
@new = ();
push( @new, $+ ) while $text =~ m{
"([^\"\\]*(?:\\.[^\"\\]*)*)",?
| ([^,]+),?
| ,
} gx;
push( @new, undef ) if substr( $text,-1,1) eq ',';
and apply that to my problem.
Can anyone help me out?
Thanks,
Brian
------------------------------
Date: Fri, 9 Jun 2000 16:00:37 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: dbl quoting fields of a CSV file
Message-Id: <8hrstu$ckm$1@brokaw.wa.com>
Brian McDonald <mcdonabNO@SPAMyahoo.com> wrote in message
news:Zre05.25$sV2.15665@news.pacbell.net...
> Hi.
>
> I have a file that consists of many lines that look like this:
>
> lname,fname,mname,aka_lname,aka_fname,aka_mname,bdate,ddate,details about
> this individual
>
> I want to write a script that will read in each line, parse the
> comma-separated fields, put double quotes around each field that contains
a
> string (all of them do for now), and reconstruct the line (i guess in
> another file).
>
> Can anyone help me out?
>
Have you looked at the Text::CSV module? It's available on CPAN
Lauren
------------------------------
Date: Fri, 09 Jun 2000 22:03:44 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Encrypting / decrypting.
Message-Id: <394164c1.261607@news.skynet.be>
Matt King wrote:
>Hi. I need a way to encrypt and decrypt a small string (between 8 and 16
>chars).
>I would like some type of encryption that can't easly be broken and doesn't
>make the encrypted string more then double the orginal length. I have
>thought of simple adding a randum number to each char/num in the string then
>converting that to a hex value, but in order to be able to decode it, I need
>to send the randum number with the encoded string making the encryption to
>easy to break.
Actually, if people have your script, all they need to do is extract
the section that decrypts the string, and they've broken it. ;-)
A simple scheme could be doing what you're doing, but bitwise XOR your
string byte by byte with a byte from a pseudo-random sequence. If you
feed the random number generator the same number for initial seed, it
will always produce the same sequence. So the key to the encryption is
that randomizing seed. Decoding would happen in the same manner as the
encoding ((a xor b) xor b --> a).
For example:
srand 12345678;
$, = " "; $\ = "\n";
print map { int rand 256 } 1 .. 10;
-->
226 190 9 219 17 9 67 57 194 122
I get the same sequence everytime I run it. A different pseudo-random
number generator (a deifferent perl?) may give different results,
though, so maybe it's worth to create your own random number generator.
It's only a few lines of code.
$seed = ($seed * $a + $b ) % $c;
$rnd = $seed / $c; # number between 0 (incl) and 1 (excl)
Search the web for Linear Congruential Generator for the numbers, for
example,
http://random.mat.sbg.ac.at/~charly/server/node3.html
$_ = 'Hello, world!';
for my $loop (0, 1) {
srand 12345678;
for my $i (0 .. length()-1) {
substr($_, $i, 1) ^= chr(int rand 32);
}
print "$_\n";
}
-->
Trmwm-(pw}sc5
Hello, world!
Now, you may decide on using the same seed for every transmission. You
may randomly select a few seed numbers, store them in an array in your
code, and send the index along with your encrypted string. The decoder
needs the same array, of course.
I wouldn't trust this for really important matters (i.e. worth breaking
into, like money orders). But at least, it will not turn the same letter
into the same character every time, so using statistical methods to try
and break the code (searching for most used letters, first), won't work.
--
Bart.
------------------------------
Date: Sat, 10 Jun 2000 00:49:29 GMT
From: Elaine Ashton <elaine@chaos.wustl.edu>
Subject: Re: Encrypting / decrypting.
Message-Id: <B56708D4.5DDF%elaine@chaos.wustl.edu>
in article SY605.243078$Tn4.2205545@news1.rdc2.pa.home.com, Ben Kennedy at
bkennedy99@home.com quoth:
> authoring books about it. What have you done for the Perl community, aside
> from getting everyone pissed off at you? I think you should be a little
> more respectful and thankful.
Wow..we managed almost a whole week without all the dreck...*sigh*
And don't fawn too much over the people of Perl as even Mother Teresa wasn't
completely self-effacing or altruistic. Users keep the language going as
much as the people developing it.....
e.
------------------------------
Date: Fri, 09 Jun 2000 22:28:00 GMT
From: jon@nytimes.com
To: jon@nytimes.com
Subject: Ensuring backup system is the same as primary
Message-Id: <8hrr0u$m5t$1@nnrp1.deja.com>
Ensuring backup system is the same as primary
We want to check that one of our backup systems is setup/configured the
same as
the primary system. (both AIX systems)
It hasn't been used in a while.
We do plan to switch back and forth regularly in the future.
But for now, I need a way to compare the config files, programs, ..
between the two systems.
Are there any tools/scripts available to help with this?
Rdist is a possibility. But for a lot of things this doesn't work very
well.
Maybe an advanced rdist tool?
Jon
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 10 Jun 2000 11:10:43 +1200
From: "Tintin" <you.will.always.find.him.in.the.kitchen@parties>
Subject: Re: Ensuring backup system is the same as primary
Message-Id: <960592142.162054@shelley.paradise.net.nz>
<jon@nytimes.com> wrote in message news:8hrr0u$m5t$1@nnrp1.deja.com...
> Ensuring backup system is the same as primary
>
> We want to check that one of our backup systems is setup/configured the
> same as
> the primary system. (both AIX systems)
> It hasn't been used in a while.
> We do plan to switch back and forth regularly in the future.
>
> But for now, I need a way to compare the config files, programs, ..
> between the two systems.
>
> Are there any tools/scripts available to help with this?
>
> Rdist is a possibility. But for a lot of things this doesn't work very
> well.
>
> Maybe an advanced rdist tool?
<off topic>
Check out http://rsync.samba.org
</off topic>
------------------------------
Date: Fri, 9 Jun 2000 17:55:15 -0700
From: "Chris Rosebrugh" <crosebrugh@inetarena.com>
Subject: Expect & IO:Pty & Win2000/NT & Cygwin
Message-Id: <0mg05.15744$MJ6.398965@news-west.usenetserver.com>
I'm trying to get this combo of stuff to work within
Cygwin (using Perl 5.6.0) but always get EOF on a read.
IO:Pty did not install cleanly (I faked things out by
just 'touch'ing /dev/ptyp# and /dev/ttyp#) so I'm
sure that I'm just missing some needed brain power.
If someone has figured this stuff out - even without
having to use Cygwin - I'd like to hear how.
Thanks.
------------------------------
Date: Fri, 9 Jun 2000 15:15:28 -0700
From: "Firehawk" <bronsn@hotmail.com>
Subject: Re: file date parse routine
Message-Id: <8hrq6e$4k0@news.or.intel.com>
Thank you! That's the magic door to information I was looking for. :) So
much to learn...
"Lauren Smith" <lauren_smith13@hotmail.com> wrote in message
news:8hro7a$nkq$1@brokaw.wa.com...
>
> Firehawk <bronsn@hotmail.com> wrote in message
> news:8hrmdv$h7@news.or.intel.com...
> > Here's my psuedo code for what I want to do and the answer doesn't
appear
> to
> > be in the perlfaq5:
> >
> > On and NT exchange server:
> > loop through all files in a specified directory
> > read the file date
> > if older than 2 days, then delete file
>
> If you know how to get all the files in a directory: opendir(),
readdir()...
>
> and you know how to loop: for, while...
>
> and you've obviously read the FAQ which explains how to determine how old
a
> file is...
>
> then you don't have a Perl question any more. :-) Congratulations!
>
> If OTOH, you don't know about those functions above, now is a good time to
> learn about perldoc. Perldoc (lowercase that 'P') is a utility that
> searches the documentation for keywords that you specify at the command
> line. Type this into a command window:
>
> perldoc perldoc
>
> Now you have a list of commands that perldoc understands. Perldoc is
really
> handy for those times you are stuck, but need an answer really quickly.
>
> Lauren
>
>
>
------------------------------
Date: Sat, 10 Jun 2000 00:43:25 GMT
From: eggie@REMOVE_TO_REPLYsunlink.net (James Kufrovich)
Subject: Re: Help with OO needed.
Message-Id: <slrn8k33t1.qv7.eggie@melody.mephit.com>
On Wed, 07 Jun 2000 19:15:32 GMT, Ala Qumsieh <aqumsieh@hyperchip.com> wrote:
>Well, here's one situation. Suppose you create an object, and then through
>some lengthy process you set some of its parameters. Now, you would like
>to create another object with the exact same parameters. You can do it
>from scratch, and create a new object and initialize it the way you did
>with the first one. Or, you can also simply do a:
>
> $parent->new();
>
>and arrange for the new() method to figure out how it was called, and
>act accordingly.
That seems to make sense. Thanks.
Jamie Kufrovich
--
FMSp3a/MS3a A- C D H+ M+ P+++ R+ T W Z+
Sp++/p# RLCT a+ cl++ d? e++ f h* i+ j p+ sm+
------------------------------
Date: Fri, 09 Jun 2000 23:09:35 GMT
From: Jamie R <jrr386@home.com>
Subject: HELP! Parameter Problems
Message-Id: <39417863.885AEDDE@home.com>
Can anyone tell me how to pass parameters into a script without using
the CGI module?
I want to execute a script
http://...../cgi-bin/myscript.pl?this=1&that=2
and pass this=1&that=2 into the script. Is there a way to do this
without the CGI module?
Any help would be greatly appreciated!
------------------------------
Date: Fri, 9 Jun 2000 19:19:49 -0500
From: sariq@texas.net (Tom Briles)
Subject: Re: HELP! Parameter Problems
Message-Id: <MPG.13ab45a5cc4231e2989688@news.texas.net>
In article <39417863.885AEDDE@home.com>, jrr386@home.com says...
> Can anyone tell me how to pass parameters into a script without using
> the CGI module?
Why in the world would you want to do that?
CGI.pm is in the standard distribution of any *semi*-recent Perl.
- Tom
------------------------------
Date: Sat, 10 Jun 2000 00:10:23 GMT
From: achik@idirect.com (Andy)
Subject: How to pick up shell variable from perl ?
Message-Id: <39419475.43103269@news.idirect.com>
Hello,
I am running a web page with perl script on a unix system. The page
is expected to run for different applicaiton purpose whcih depents on
a shell environment variable. The shell environment vairable is set
when the web server is started on a particular environment for an
application environment.
I wish to pick up the shell environment variable from my perl when it
is called from the client's browser to know what application I should
go.
Can someone give me a help on what I should be looking for from the
perl to get the shell environment vairables at the instance.
I already tried the %ENV{} which does not seem contains anyting for
the shell.
any information is appreciated.
Andy
------------------------------
Date: Fri, 09 Jun 2000 22:17:07 GMT
From: dont@want.spam.com (Xebeche)
Subject: Re: Inverse video?
Message-Id: <8hrqg4$lt7$1@news.luth.se>
In article <8hm8t6$m97$1@orpheus.gellyfish.com>, Jonathan Stowe <gellyfish@gellyfish.com> wrote:
>Or even :
>
> perl -e 'print "\c[[7mTEst\c[[0m"'
This did the trick - many thanks to Mr. Stowe and all others who responded. It
works, I'm happy.
/X. (learning Perl)
------------------------------
Date: 10 Jun 2000 00:59:05 GMT
From: "Josiah Bryan" <jdb@wcoil.com>
Subject: Re: Java/Swing GUI for DBI/MySQL
Message-Id: <8hs3sp$4de$0@206.230.71.40>
I created a remote scripting method for interfacing JavaScript and Perl.
This
method allows javascript to call perl functions that are on the server and
the
perl functions can then return values directly to the client w/o page
reloads.
Check example at http://www.josiah.countystart.com/remote/
Let me know if this helps any.
Oh, P.S. This would work great for DHTML UI for your site, but if you
insist on java, I think its possible to call javascript routines on that
page from a java applet...im not sure, never wrote a java app in my life,
i've read a few books on it tho. I am ceartinly not one to ask. Anyways, I
hope the remote scripting helps a little.
- josiah
<ka6wke@my-deja.com> wrote in message news:8hojac$74u$1@nnrp1.deja.com...
> Thanks for Reading!
>
> I've developed several databases using DBI & CGI.pm and have run into
> difficult problems developing the front end to the databases. My main
> problem is simple screen layout and control. My users find standard
> HTML to be clunky and I tend to agree. I'm in the process of learning
> Java and was wondering if it's possible to have a Swing applet that can
> use DBI/MySQL as the back end?? I know I could use a servlet and/or
> JDBC, but I would rather not have to rewrite all my perl scripts. My
> thoughts are to keep perl to handle the databases and Java/Swing on the
> client. Has anyone tried this before?? I've searched the various Java &
> Perl sites. Any pointers would be greatfully received!
>
> Thanks again!
>
> .mark
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Fri, 09 Jun 2000 23:38:51 GMT
From: Steven Merritt <smerr612@mailandnews.com>
Subject: Re: Larry Rosler interview on perl.com!
Message-Id: <8hrv69$p2s$1@nnrp1.deja.com>
In article <394754c4.3181530@news.skynet.be>,
bart.lateur@skynet.be (Bart Lateur) wrote:
> No, I prefer the /one source for all ports/ approach, firmly in the
> hands of a few very competent and well-respected (by each other ;-)
> people. That is the situation now with Perl.
You don't read p5p do you? The source is neither firmly held by the
group(I bet each member of the list has opitmizations in their code
which isn't in the general release, maybe it was submitted and not
accepted, but irregardless, they seldom agree even on fixes), Sarathy
seems to have final call on what goes in and what stays out, and that
keeps it pretty stable. Even then the "few" are still at each other's
throats fairly often. The flame wars make it hard to believe they
respect each other.(of course since some of the ones on the p5p list are
also here I'm basically just asking for a repeat of some of those flame
wars here, but I guess that's the price I pay for my opinion derived
from my observation and reading of the archives)
> Secondly, a standardized Perl would disallow the original perl
> developers to continue their work, i.e. add new language features...
You know, I'm not sure this is a bad thing. Look at the Linux kernel.
We're long overdue for another release, but it's been slowed by feature
creep. A standard would concentrate people's efforts on stabalizing,
documenting and improving the Perl core instead of always trying to "go
where no one has gone before" with features. I believe it was M-JD who
said something like "Originally Perl had 2000 lines of documentation. It
now has over 72,000. This seriously restricts it's usefulness since you
have to search and search for what you need. The problem is that when
someone finds an undocumented feature they submit a five or six line
addition to the documentation and since it basically adds a very small
percentage to the overall size of the documentation, the patch is
added. The problem comes when you have thousands and thousands of
instances of this happening. The whole thing needs to be carefully
reviewed and re-organized to make it easy to find what you need, but
since there's little glory in re-writing docs and there is lots of
glory in adding new features, I don't see this happening."
We're seeing the same thing with some of the stuff going on with the
Perl core. Don't get me wrong, I don't see Threading or Unicode support
as useless features, but certainly the effort could be more directed at
fixing, or at least properly documenting some of the "magical" DWIMmery?
I'm with Larry Rosler on this one, a standard, no matter who implements
it, would go a long way towards making Perl more useful in more
situations.
Steven
--
King of Casual Play
The One and Only Defender of Cards That Blow
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 10 Jun 2000 00:49:46 GMT
From: hackerz45@aol.com (HaCkeRz45)
Subject: logging in and adding
Message-Id: <20000609204946.11458.00005775@ng-ch1.aol.com>
can someone help me ? how do i make it so someone can log in to there username
on my web site then beable to post stuff in like a post board on my site or
something like that? If u can email me at hackerz45@aol.com i will be great
fully appreciated!
------------------------------
Date: 10 Jun 2000 00:22:11 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Net::FTP login problem
Message-Id: <8hru73$goe$1@orpheus.gellyfish.com>
On Fri, 09 Jun 2000 15:18:40 GMT ogiven@vertex.ucls.uchicago.edu wrote:
> i'm pulling the username,password for a Net::FTP -> login from a
> database.....and although getting the hostname this way works fine, it
> breaks the login process......
>
> when i do it like this, it works:
>
> $username='user';
> $password='password';
>
> $ftp = Net::FTP->new($hostname);
> $ftp->login($username, $password);
>
> but like this, it doesn't:
>
> $statement="SELECT username, password FROM databasetable'";
> $sth=$dbh->prepare($statement);
> $sth->execute;
> ($username,$password) = $sth->fetchrow;
>
> $ftp = Net::FTP->new($hostname);
> $ftp->login($username, $password);
>
> even though $username, $password print out exactly the same in both
> cases.........i've not been able to find any relevant info in the module
> docs or on usenet.....so, any suggestions would be much appreciated.....
Some databases may pad out the variables to the width of the database
column - you might want to see the item in perlfaq4:
How do I strip blank space from the beginning/end of a
string?
otherwise I cant see any reason which it shouldnt work.
/J\
--
fortune oscar homer
------------------------------
Date: Fri, 9 Jun 2000 23:19:57 -0000
From: "Gnari" <gnari@simnet.is>
Subject: Re: Newbie Help: CGI,DBI attempt
Message-Id: <3941df10.0@news.isholf.is>
you should ask yourself what the differences are betwenn you running
a script from command line and the server doing it.
a few classic ones:
- environment, notably PATH or database variables.
- current directory. you have no idea what the servers current dir is.
- access restrictions. the server might be running as user 'nobody'
in your case, you should determine if some environment variables
need to be set for your DBI connection to work.
debugging web stuff:
look into server logs in you have access to them.
otherwise, don't simply do a die on errors. first print debug information
like your DBI->errstr and $! into the html output.
you could try to dump %ENV into the page and compare command line
and server versions
good luck
gnari
"AcidHawk" <acidhawk@flashmail.com> wrote in message
news:3942e1de.177491919@news1.mweb.co.za...
> Hi
>
> I have written this to output the results from the SQL select to a web
> page nothing fancy.. When I run it from the cmd line I get what the
> source for the web page should look like but when I execute this from
> a link on antoher page all I get is the head stuff until the HtmBefore
> nothing after that where the connect to the DSN starts
>
>
> Any help would be much appreciated..
>
> #########################################################
> #!D:\Perl\Bin\perl.exe
>
> use DBI;
>
> # Create Header for CGI
>
> print "Content-type:text/html\n\n";
>
> print <<HtmBefore;
> <html>
> <head>
> <title>
> Availability Report
> </title>
> </head>
> <body>
> <center><h2>
> Router Availability Report on Interface
> </h2></center>
> <hr>
> <p><p>
> <DIV ALIGN=CENTER><TABLE BORDER='0' WIDTH='400'>
>
> HtmBefore
>
> #Connect to DSN
>
>
> $dbh = DBI->connect('DBI:ODBC:Test' ,'sa' ,'pass') or die "Couldn't
> connect to database: " . DBI->errstr;
>
> # Build SQL statement
>
> $st = "SELECT NodeID,Interface,sum(DownTime) FROM NetStatus where
> DownTime != '0' group by Interface,NodeID";
>
> # Prepare and Execute SQL statement
>
> $sth = $dbh->prepare($st);
> $sth->execute;
>
> while (@row=$sth->fetchrow_array) {
>
> print "<TR><TD>@row[0]</TD><TD>@row[1]</TD><TD>@row[2]</TD></TR>";
>
> }
>
> print <<HtmlAfter;
> </TABLE></DIV>
> <hr>
> <p>
> <center>
> <a href=http://localhost/default.htm>Home</a>
> </center>
> <br>
> </body>
> </html>
>
> HtmlAfter
>
> #########################################################
------------------------------
Date: Fri, 09 Jun 2000 22:38:40 GMT
From: jrinky@xtra.co.nz (David)
Subject: Newbie needs help with script :-)
Message-Id: <39416f72.6070913@news.xtra.co.nz>
Hi,
Thanks for reading this posting.
I have a small mail server that I would like a couple of other people
to be able to add new pop users to without having access as root. Is
it possible to write a perl script to do this and how please? Access
will be via telnet.
Idealy the script would be able to add data to the aliases file as
well. I am very new to all of this and my attempts at perl have
crashed. :-(
All assistance greatfully received.
Thanks.
David.
------------------------------
Date: 9 Jun 2000 22:10:03 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: No offense but Larry Wall should do the maths !!
Message-Id: <8hrmfb$gfn$1@orpheus.gellyfish.com>
On Fri, 9 Jun 2000 03:19:22 +0200 TheEx0rcist wrote:
>
> No matter rand is a random number
>
Er it isnt a random number, it is a function that returns one, and,
incidentally, takes an argument. It might be a mistake to confuse the
two.
/J\
--
fortune oscar homer
------------------------------
Date: 10 Jun 2000 00:33:15 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: perl and odbc
Message-Id: <8hrurr$gp6$1@orpheus.gellyfish.com>
On Fri, 09 Jun 2000 05:37:49 GMT 309666@my-deja.com wrote:
> how do i write input to a table through a odbc link?
> is it just write a script like if I was write to a flat file but instead
> of say:
> open (OUTPUT, ">>/whatever/file.txt");
> i write the INSERT statement?
> INSERT INTO blabla...
> if you have a functioning example, Please send to me
>
In the first instance you will need to install the DBI module and
DBD::ODBC - the documentation should get you started.
/J\
--
fortune oscar homer
------------------------------
Date: 10 Jun 2000 00:15:55 GMT
From: The WebDragon <nospam@nospam.com>
Subject: Re: Perl Shortcut?
Message-Id: <8hs1br$lhs$0@216.155.32.44>
In article <8hmq1m$vg$2@news.panix.com>, abigail@arena-i.com wrote:
| There are very useful reasons *NOT* to do something like this. All
| references will be shared. Consider:
|
| #!/opt/perl/bin/perl -w
|
| use strict;
|
| my @teams = qw /red blue green yellow/;
| my %stats;
| @stats {@teams} = ({wins => 0}) x @teams;
|
| $stats {red} {wins} ++; # Only red wins?
|
| foreach my $team (@teams) {
| print "$team has won $stats{$team}{wins} times\n";
| }
| __END__
| red has won 1 times
| blue has won 1 times
| green has won 1 times
| yellow has won 1 times
|
|
| Not really what you want, is it?
Indeed, a use of Data::Dumper produces the following :
$VAR1 = {
'blue' => {
'wins' => '0'
},
'green' => $VAR1->{'blue'},
'red' => $VAR1->{'blue'},
'yellow' => $VAR1->{'blue'}
};
clearly illustrating the fallacy of such an appdoach more visually :)
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: 10 Jun 2000 00:40:51 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: PLEASE HELP: Perl for WWW
Message-Id: <8hrva3$gqq$1@orpheus.gellyfish.com>
On 06 Jun 2000 15:39:07 -0500 Kent Perrier wrote:
> abigail@arena-i.com (Abigail) writes:
>
>>
>> You would use an editor, and use the save function of said editor.
>> Perl does not care at all which editor you use, and Perl doesn't
>> come with an editor either. Hell, you don't even need to save the
>> program to a file. Perl happely reads a program from standard input,
>> or from the command line.
>
> If you must use MS$ Word as your edit do save the file as a text file.
>
Of course it might be possible to write a source filter that will extract
Perl program source from a word document...
/J\
--
fortune oscar homer
------------------------------
Date: Fri, 09 Jun 2000 16:57:34 -0700
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: regexp guestions
Message-Id: <3941846E.E09E8656@jpl.nasa.gov>
duane powell wrote:
> use strict;
> my $str1 = "\\\\computer\\share\\a1\\fileName.txt";
> my $str2 = $str1;
> my $crashStr = "\\\\computer\\share\\1\\fileName.txt";
>
> if ( $str1 =~ m/$str2/ ) {
> print "strings match.\n";
> } else {
> print "indentical strings dont match.\n";
> }
Two bits of advice that haven't been mentioned yet:
If you want to test whether two strings are identical, use eq rather
than pattern matching. Not only is it faster (I hope), but it also
tells the reader of your code what you are really doing.
Even on a Windows machine, you can often get away with using / as a
directory seperator rather than \. Observe:
> perl -e "print join qq(\n), glob('//computer/share/a1/*')"
fileName.txt
...
Jon
--
Knowledge is that which remains when what is
learned is forgotten. - Mr. King
------------------------------
Date: Fri, 9 Jun 2000 17:53:39 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Strategy for processing a log file
Message-Id: <slrn8k2pr3.1ke.tadmc@magna.metronet.com>
On Fri, 9 Jun 2000 14:01:00 +0100, Brendan Newport <brendan@cathouse.nwnet.co.uk> wrote:
>So I'd like to identify the lines between a start pattern and end pattern,
>Could anyone suggest some strategies for achieving this sort of result?
See "Range Operators" in perlop.pod
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 9 Jun 2000 22:08:01 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: Time-Date Question ??
Message-Id: <8hrps1$3o8g2$1@fu-berlin.de>
hi,
rrubin@rotor.net wrote:
> I have a timestamp of the following value 0006091338
> I would like to convert that to ... June 09, 2000 13:38
use Time::Local;
$time = "0006091338";
$year = substr($time,0,2);
$m = substr($time,2,2);
$d= substr($time,4,2);
$h=substr($time,6,2);
$min=substr($time,8,2);
$time = localtime(timelocal(0,$min,$h,$d,$m-1,$year));
print "$time\n";
perldoc -f localtime
tina
--
http://www.tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
------------------------------
Date: Fri, 09 Jun 2000 23:41:48 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Time-Date Question ??
Message-Id: <sk305sd2h5182@corp.supernews.com>
rrubin@rotor.net wrote:
: I have a timestamp of the following value 0006091338
:
: I would like to convert that to ... June 09, 2000 13:38
:
: What is the best way to perform this and which package should I
: use?
A package might be overkill for this, since you almost have the data you
need to format the date this way. A general, more configurable solution
would use Time::Local to generate a time value from your data, and then
localtime() with some formatting of your own or POSIX::strftime() to
produce a pretty date string.
The direct route, using no packages, looks something like this:
@months = qw( January February March April
May June July August
September October November December );
$tstamp = '0006091338';
($y, $m, $d, $hh, $mm) = $tstamp =~ m/../g;
$y += 2000;
$m--;
$pretty = "$months[$m] $d, $y $hh:$mm";
print "$pretty\n";
--
| Craig Berry - http://www.cinenet.net/users/cberry/home.html
--*-- "You live in Los Angeles, and you are going to Reseda; we are
| all in some way or another going to Reseda someday, to die."
- Soul Coughing
------------------------------
Date: 9 Jun 2000 23:21:17 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: writing formatted line to MAIL
Message-Id: <8hru5d$s3$1@news.NERO.NET>
In article <yAb05.1410$227.34544@nnrp1.uunet.ca>,
Kevin Jones <ultraboy@provision.net> wrote:
>is THIS possible?
>write 'INFOLINE' to email assuming the $to $from and $mailprog is already
>set
You mean write to a filehandle that is associated with a pipe to a
mail program?
What does the documentation for write say about being able to
write to a filehandle?
------------------------------
Date: Fri, 9 Jun 2000 20:57:51 -0300
From: "Kevin Jones" <ultraboy@provision.net>
Subject: Re: writing formatted line to MAIL
Message-Id: <xzf05.1562$227.35982@nnrp1.uunet.ca>
Thanks for the suggestion. I tried it once, before I posted and kept getting
an error from the info in the perl book. That is why I posted in the first
place. Stupid me made a silly mistake. Thank you.
On another note I found something else that made my life REAL simple...
select FILEHANDLE;
fixed everything in one line.
--
Kevin Jones
Systems Administrator
Shaw Cable Systems GP
Dartmouth, NS
(902)469-9540 Ext 194
-----------------------------------------------------------------
Your mouse has moved!
Windows has to reboot for changes to take effect.
[ OK ]
-----------------------------------------------------------------
"Let me get this straight.
You DON'T want me to tell anyone?"
- grinning bewildered man to his new lady friend.
"John Stanley" <stanley@skyking.OCE.ORST.EDU> wrote in message
news:8hru5d$s3$1@news.NERO.NET...
> In article <yAb05.1410$227.34544@nnrp1.uunet.ca>,
> Kevin Jones <ultraboy@provision.net> wrote:
> >is THIS possible?
> >write 'INFOLINE' to email assuming the $to $from and $mailprog is already
> >set
>
> You mean write to a filehandle that is associated with a pipe to a
> mail program?
>
> What does the documentation for write say about being able to
> write to a filehandle?
>
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 3307
**************************************
