[11018] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 4618 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 11 12:07:13 1999

Date: Mon, 11 Jan 99 09:00:21 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Mon, 11 Jan 1999     Volume: 8 Number: 4618

Today's topics:
    Re: $32.00 to order RedHat! (Steve Linberg)
    Re: AN EASY WAY TO FTP IN PERL? (Charles Wilt)
    Re: AN EASY WAY TO FTP IN PERL? (Clay Irving)
        ashamed? [was Re: Perl Criticism] dturley@pobox.com
    Re: file date/time-stamp ? (Tad McClellan)
    Re: file date/time-stamp ? (Clay Irving)
    Re: How can I compare two arrays? (Bart Lateur)
    Re: How can I compare two arrays? (Larry Rosler)
    Re: how can I redirect the standard input to a file? (Tad McClellan)
    Re: how can I redirect the standard input to a file? (Clay Irving)
    Re: how to greb whole words only? <dgris@moiraine.dimensional.com>
    Re: Matching binary strings <Tim.Shaw@alcatel.be>
    Re: mog_perl for win95 apache (Randy Kobes)
        Need Perl Programmer in Altanta <mcourter@mindspring.com>
    Re: new DBD::Sybase package problem <mpeppler@mbay.net>
    Re: Optimizing `eval' in a loop (Bart Lateur)
    Re: password dave@mag-sol.com
    Re: PERL information... <ion@aroma.com>
        Perl TK text question <tturton@cowboys.anet-dfw.com>
    Re: Perl within Perl backslashxt@yahoo.com
    Re: Printing the return value from a subroutine? dave@mag-sol.com
        Seeking crypt/des entirely in Perl (no C) b_rosser@yahoo.com
    Re: Sending SMS messages with perl script ?? (Clay Irving)
    Re: Shame: Deleting List Elements <ez062634@mailbox.ucdavis.edu>
        Submitting a script result to a web server Ryan.Haman@mci.com
    Re: Submitting a script result to a web server <ludlow@us.ibm.com>
    Re: Verify an email address (John Moreno)
        WTD: PT/freelance Perl/CGI programmer <ilowe@interlog.com>
        Year 2000 and Perl <Sebastian.Stiegler@verwaltung.uni-muenchen.de>
    Re: Year 2000 and Perl (Matthew Bafford)
        Year 2038 problem (John Robson)
        Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Mon, 11 Jan 1999 16:08:12 GMT
From: slinberg@crocker.com (Steve Linberg)
Subject: Re: $32.00 to order RedHat!
Message-Id: <slinberg-1101991108130001@cc11620-a.lwmrn1.pa.home.com>

In article <369A07D6.B00869A5@email.com>, Eirik Johansen
<webpages@email.com> wrote:

> Are there any places, say in the UK, that also sell the 5.2 version of
> RedHat or is there another way to order it without having to pay so much
> for the delivery?

CheapBytes sells it for $1.99.  Or just download it yourself for free.

Of course, this has nothing to do with Perl.


------------------------------

Date: 11 Jan 1999 15:56:34 GMT
From: charles.0272@worldnet.no.spam.att.net (Charles Wilt)
Subject: Re: AN EASY WAY TO FTP IN PERL?
Message-Id: <MPG.1103ed0861e5c5a09896bb@netnews.worldnet.att.net>

In article <369a170e.0@norbert.cerbernet.co.uk>, c-denman@dircon.co.uk 
says...
> Has anyone got some code that will let me ftp a file?
> 
> I have a form, which will upload a file.  Then I want to ftp this file to
> another server.
> 
> Is this easy?
> 
> Cheers,
> 
> Chris
> IA
> 
> 
> 

Get yourself a copy of the module NET::FTP I belive you can find it in 
the libnet library. (I'm new at perl, forgive me if my name aren't quite 
right.)

SYNOPSIS 

    use Net::FTP;
    
    $ftp = Net::FTP->new("some.host.name");
    $ftp->login("anonymous","me@here.there");
    $ftp->cwd("/pub");
    $ftp->get("that.file");
    $ftp->quit;
-- 
Charles Wilt
Miami Luken, Inc.
e-mail: charles.0272@worldnet.no.spam.att.net
--->remove the no.spam.


------------------------------

Date: 11 Jan 1999 15:58:33 GMT
From: clay@panix.com (Clay Irving)
Subject: Re: AN EASY WAY TO FTP IN PERL?
Message-Id: <77d739$7j6$1@news.panix.com>

In <369a170e.0@norbert.cerbernet.co.uk> "Chris Denman" <c-denman@dircon.co.uk> writes:

>Has anyone got some code that will let me ftp a file?

Check the example code in the Net::FTP module -- Its part of the libnet
bundle: 

    http://www.perl.com/CPAN/modules/by-module/Net

-- 
Clay Irving
clay@panix.com


------------------------------

Date: Mon, 11 Jan 1999 15:35:18 GMT
From: dturley@pobox.com
Subject: ashamed? [was Re: Perl Criticism]
Message-Id: <77d5nm$nbq$1@nnrp1.dejanews.com>

Am I the only one who noticed that topmind's defenses to his views pretty much
have denegrated into name calling? I also wonder why he hides behind some
AOL-like moniker. He has strong opinions, but they don't appear to be ones he
wants to sign his name to.

Looking at the bright side, I found many of the responses to be very
educational.

____________________________________
David Turley
dturley@pobox.com
http://www.binary.net/dturley/

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Mon, 11 Jan 1999 09:58:54 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: file date/time-stamp ?
Message-Id: <u37d77.cu7.ln@magna.metronet.com>

J.W.Draijer (j.w.draijer@amc.uva.nl) wrote:

: How can i get a date- and timestamp from a file? I already have a
: filehandle.


   perldoc -f stat


--
    Tad McClellan                          SGML Consulting
    tadmc@metronet.com                     Perl programming
    Fort Worth, Texas


------------------------------

Date: 11 Jan 1999 16:11:17 GMT
From: clay@panix.com (Clay Irving)
Subject: Re: file date/time-stamp ?
Message-Id: <77d7r5$7nh$1@news.panix.com>

In <369A0AE5.51D14EE8@amc.uva.nl> "J.W.Draijer" <j.w.draijer@amc.uva.nl> writes:

>How can i get a date- and timestamp from a file? I already have a
>filehandle.

It depends on what you mean by "a date- and timestamp" -- In the excellent
documentation provided with the Perl distribution `perldoc perlfunc' has
the documentation for `stat':

     stat    Returns a 13-element list giving the status info for
             a file, either the file opened via FILEHANDLE, or
             named by EXPR.  If EXPR is omitted, it stats $_.
             Returns a null list if the stat fails.  Typically
             used as follows:

                 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
                    $atime,$mtime,$ctime,$blksize,$blocks)
                        = stat($filename);

             Not all fields are supported on all filesystem
             types.  Here are the meaning of the fields:

               0 dev      device number of filesystem
               1 ino      inode number
               2 mode     file mode  (type and permissions)
               3 nlink    number of (hard) links to the file
               4 uid      numeric user ID of file's owner
               5 gid      numeric group ID of file's owner
               6 rdev     the device identifier (special files only)
               7 size     total size of file, in bytes
               8 atime    last access time since the epoch
               9 mtime    last modify time since the epoch
              10 ctime    inode change time (NOT creation time!) since the epoch
              11 blksize  preferred block size for file system I/O
              12 blocks   actual number of blocks allocated

             (The epoch was at 00:00 January 1, 1970 GMT.)

-- 
Clay Irving
clay@panix.com


------------------------------

Date: Mon, 11 Jan 1999 14:59:09 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: How can I compare two arrays?
Message-Id: <369c1170.27357098@news.skynet.be>

Larry Rosler wrote:

>For a linear algorithm (O(n)), one should use the techniques discussed 
>in perlfaq4, "How can I tell whether a list or array contains a certain 
>element?"

Linear? Are you saying that a hash has an O(constant) (whatever the
notation)?

	Bart.


------------------------------

Date: Mon, 11 Jan 1999 07:55:29 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: How can I compare two arrays?
Message-Id: <MPG.1103bebafa20451b989986@nntp.hpl.hp.com>

[Posted to comp.lang.perl.misc and copy mailed.]

In article <369c1170.27357098@news.skynet.be> on Mon, 11 Jan 1999 
14:59:09 GMT, Bart Lateur <bart.lateur@skynet.be> says...
> Larry Rosler wrote:
> >For a linear algorithm (O(n)), one should use the techniques discussed 
> >in perlfaq4, "How can I tell whether a list or array contains a certain 
> >element?"
> 
> Linear? Are you saying that a hash has an O(constant) (whatever the
> notation)?

Hash access is indeed O(1) -- constant independent of the size of the 
hash.  (If the hash is quite full, there may be some linear effects due 
to chaining of entries -- the details depend on how the hash is 
implemented, which for perl I don't know.)

The time needed to create the hash is O(n), obviously.  But that is 
*added* to the time needed to search the hash for each element, which is 
also O(n).  And -- tah, dah! --

O(n) + O(n) = O(n)

except for a multiplicative constant that doesn't change the 
algorithmic complexity.

-- 
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com


------------------------------

Date: Mon, 11 Jan 1999 10:03:46 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: how can I redirect the standard input to a file?
Message-Id: <2d7d77.cu7.ln@magna.metronet.com>

Dan Wedeking (wedeking@msw0.attnet.or.jp) wrote:

: Why will this not be directed to append to the file "log.txt"???


   Why not ask perl (the OS, actually) to _tell_ you why?   ;-)


      open(FILE, ">>log.txt") || die "could not open 'log.txt'  $!";
                                                                ^^
                                                                ^^

   You should *always* check the return value from open() calls.

   Really.

   Every one of them.


: open(FILE, ">>log.txt");
: while(<STDIN>) {
: print FILE;
: }


   Looks OK to me...


--
    Tad McClellan                          SGML Consulting
    tadmc@metronet.com                     Perl programming
    Fort Worth, Texas


------------------------------

Date: 11 Jan 1999 16:13:21 GMT
From: clay@panix.com (Clay Irving)
Subject: Re: how can I redirect the standard input to a file?
Message-Id: <77d7v1$7oe$1@news.panix.com>

In <77d2p6$cqo$1@news.misawa.attmil.ne.jp> "Dan Wedeking" <wedeking@msw0.attnet.or.jp> writes:

>I tried the below but it doesn't work?  Why?  If I take out the open command
>and the
>file handle "FILE" then it prints what I type to the screen a second time
>when I hit the
>enter key.  Why will this not be directed to append to the file "log.txt"???

>open(FILE, ">>log.txt");
>while(<STDIN>) {
>print FILE;
>}

Did the open succeed? You *really* should test it:

 open FILE, ">>log.txt" or die "Can't open log.txt: $!\n";


-- 
Clay Irving
clay@panix.com


------------------------------

Date: 11 Jan 1999 08:11:04 -0700
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: how to greb whole words only?
Message-Id: <m3yan926bb.fsf@moiraine.dimensional.com>

"Vasco Patricio" <vpatricio@abrantina.pt> writes:

> Try:
> @results = grep(/" God "/,@database);
> (put a space character before and after the word God)

I don't think so.  That will return any element of @database
that contains the literal string `" God "'.  I'd suggest
a thorough rereading of perlfunc and perlre before you
give any more incorrect advice.

dgris
-- 
Daniel Grisinger          dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print 
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'


------------------------------

Date: Mon, 11 Jan 1999 17:05:08 +0100
From: Tim Shaw <Tim.Shaw@alcatel.be>
Subject: Re: Matching binary strings
Message-Id: <369A2134.AC80696F@alcatel.be>



Bart Lateur wrote:

> >I'm trying to find a way of avoiding the "double quotish" behaviour of the
> >match operation, if possible.
>
> Yes, its possible. See "\Q" in perlre.
>
>          if ($value =~ m/\Q$mask\E/) ...
>

Perfect. There's always a solution somehow with perl!

Thanks,
    Tim




------------------------------

Date: 11 Jan 1999 15:22:15 GMT
From: randy@theory.uwinnipeg.ca (Randy Kobes)
Subject: Re: mog_perl for win95 apache
Message-Id: <slrn79k6b9.pa4.randy@theory.uwinnipeg.ca>

On Mon, 11 Jan 1999 13:39:39 +0100, 
	Stefan Mueller <Stefan.Mueller@ruhr-uni-bochum.de> wrote:

>Is there any procompiled binary for mod_perl 
>for apache 1.3.3 on a Win95 box.

Hi,
    Look at
	http://www.perl.com/CPAN/authors/id/JBAKER/
for some binary distributions. Note that these were compiled
under NT, and so there may be some differences under
Windows 95/98. Also, there may be some perl compatability issues,
depending on which perl you use. Alternatively, if you
have VC++, it's relatively straightforward to build your own.

-- 
		Best regards,
		Randy Kobes

Physics Department		Phone: 	   (204) 786-9399
University of Winnipeg		Fax: 	   (204) 774-4134
Winnipeg, Manitoba R3B 2E9	e-mail:	   randy@theory.uwinnipeg.ca
Canada				http://theory.uwinnipeg.ca/


------------------------------

Date: Mon, 11 Jan 1999 11:41:03 -0500
From: "Michael Courter" <mcourter@mindspring.com>
Subject: Need Perl Programmer in Altanta
Message-Id: <77d9ar$2o4$1@camel15.mindspring.com>

we need a Perl/CGI programmer for some contract work asap. we're in atlanta
ga.  contact michael courter at 770.458.6846 x219.




------------------------------

Date: Mon, 11 Jan 1999 07:36:08 -0800
From: Michael Peppler <mpeppler@mbay.net>
To: wayne clerke <clerke@emirates.net.ae>
Subject: Re: new DBD::Sybase package problem
Message-Id: <369A1A68.45A5C5BA@mbay.net>

wayne clerke wrote:
> 
> anyone seen this with 509 and the new DBD::Sybase package?
> It all worked in previous versions and other modules install ok with 509.
> 
> PPM> install DBD-Sybase
> Error installing package 'DBD-Sybase': Couldn't open D:\TEMP/DBD-Sybase/ for
> writing
> 

This looks like a problem with the ppm.pl program. YOu should contact
ActiveState about this.

Michael
-- 
Michael Peppler         -||-  Data Migrations Inc.
mpeppler@mbay.net       -||-  http://www.mbay.net/~mpeppler
Int. Sybase User Group  -||-  http://www.isug.com
Sybase on Linux mailing list: ase-linux-list@isug.com


------------------------------

Date: Mon, 11 Jan 1999 15:05:13 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Optimizing `eval' in a loop
Message-Id: <369d128f.27644027@news.skynet.be>

Rick Delaney wrote:

>That depends on which form of eval you are using.  From perlfunc:
>
>    If the code to be executed doesn't vary, you may use the eval-BLOCK 
>    form to trap run-time errors without incurring the penalty of 
>    recompiling each time.

You've got that wrong. eval BLOCK is *compiled* at compile time.
Changing the block at runtime, as was the intention here, doesn't work.
It *only* serves to trap otherwise fatal errors (die).

	Bart.


------------------------------

Date: Mon, 11 Jan 1999 15:36:53 GMT
From: dave@mag-sol.com
Subject: Re: password
Message-Id: <77d5qm$ndq$1@nnrp1.dejanews.com>

In article <3699BC0E.6844F7AE@swisslife.ch>,
  Herger Peter <peter.herger@swisslife.ch> wrote:
> <!doctype html public "-//w3c//dtd html 4.0 transitional//en">

*Please* do something with your news client to stop it posting HTML to
newsgroups.

> <html>
> Hi all
> <br>Does anyone have an idea, how I can store all my passwords in a seperate
> File? I've wrote a perl script to connect to a router and get some files
> with ftp, but I don't wan't to write the passwords in this perlscript.
> I'd like to have all passwords in one file. Is this possible to do so??
> <p>Thanks
> <p>-Peter Herger</html>

Storing passwords in a file is trivial. Perl's file I/O operators make this
very easy. See perldoc perlop for details.

The hard part is, of course, ensuring that you have the security on the file
right so that unauthorised people don't get access to all of your passwords.

Dave...

--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Mon, 11 Jan 1999 02:20:57 -0800
From: "Ion Chalmers Freeman" <ion@aroma.com>
Subject: Re: PERL information...
Message-Id: <3699ccd7.0@news.prostar.com>

Danny,
    Searching for "Perl Tutorial" at hotbot.com netted me a bunch of
results, including:
http://web.cs.pub.ro/~petcu/smallTut/index.html
ion
****
Danny Stern wrote in message <77bo0p$onb$1@winter.news.rcn.net>...
Can someone point me to a good PERL tutorial or example library on the web?
Thanks.  Please e-mail me it as well, if possible.
dstern@i.am







------------------------------

Date: Mon, 11 Jan 1999 09:15:07 -0600
From: Tom Turton <tturton@cowboys.anet-dfw.com>
Subject: Perl TK text question
Message-Id: <369A157B.76B33FD1@cowboys.anet-dfw.com>

This is a multi-part message in MIME format.
--------------38556B77D09EC75B1E1B3D04
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Trying to experiment with Tk from Advanced Perl Programming, chapter 14
"Text and Entry" section, but I can't seem to get things to work.  Found
the errata section online at O'Reilly showing that the text and
positioning fields in the book are swapped.  Even fixing this, I am
still not getting expected behavior.  Below is my source code and
results.  Appreciate any and all help.   Thanks.

---Tom Turton


--------------38556B77D09EC75B1E1B3D04
Content-Type: text/plain; charset=us-ascii; name="PerlTK_question.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline; filename="PerlTK_question.txt"

#!/usr/local/gnu/bin/perl -w
use Carp;
use diagnostics;
use Tk;

$top = MainWindow->new();

$t = $top->Text(width =>80, height => 10)->pack();
$t->insert("2.5", "Sample");
$t->insert('3.10', 'Sample3');
$t->insert('insert +5', 'Sample2');

MainLoop();      


If running the above, I get the following error:

Uncaught exception from user code:
        bad text index "insert +5" at text.pl line 11.

If I comment out that line, and run with just the "Sample" 
and "Sample3" msgs, I get:

SampleSample3

i.e., seems to ignore the Row.Column field.


--------------38556B77D09EC75B1E1B3D04--



------------------------------

Date: Mon, 11 Jan 1999 15:16:52 GMT
From: backslashxt@yahoo.com
Subject: Re: Perl within Perl
Message-Id: <77d4l2$mac$1@nnrp1.dejanews.com>

In article <3699EFB5.ABEF1351@marvin.informatik.uni-dortmund.de>,
  Sascha Kimmel <kimmel00@marvin.informatik.uni-dortmund.de> wrote:
> backslashxt@yahoo.com wrote:
> >
> > In article <3697D23C.6ABF927C@snailgem.org>,
> >   Eugene Sotirescu <eugene@snailgem.org> wrote:
> > > backslashxt@yahoo.com wrote:
>
> > > > The call I'm using:
> > > > print "<!--\#exec cgi=\"/cgi-bin/topad.cgi\"-->          \n"; (Calls
banner)
> > > >
>
> Hi!
>
> As far as I know a server only parses .html (or sometimes only .phtml
> or.shtml) files, so if you let a perl script print that onto the page,
> it does not become interpreted by the SSI parser.
> Why don't you simply include the source code which implements the banner
> in the script which now is writing the ssi line on the page?
>
> Works well at http://www.loversparadise.de !
>
> Regards,
> Sascha Kimmel
>

I'm not quite sure what you mean by why don't i just implement the source code
in the ssi line on the page? I can't include the actual script on the page
because it's a perl script. As for the ssi interpreter not reading it, I think
your right on that. Can you please send via email or post how you implemented
this on your website?

Thanks
Pat

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Mon, 11 Jan 1999 15:22:52 GMT
From: dave@mag-sol.com
Subject: Re: Printing the return value from a subroutine?
Message-Id: <77d508$mnh$1@nnrp1.dejanews.com>

In article <3699AD87.2050BAC5@edicom.se>,
  Jens Johanneson <jens.johanneson@edicom.se> wrote:
> Is there a way for me to print this four lines example code in only two
> lines?
>
> $tmp = &myFunc();
> print "This is the first return value of myFunc =$tmp";
> $tmp = &myFunc();
> print "This is the second return value of myFunc =$tmp";
>
> I've tried thing like
> print "This is the first return value of myFunc =&myFunc()";
> print "This is the second return value of myFunc =&myFunc()";
> but it won't work...

print "This is the first return value of myFunc =", myFunc();

etc...

--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Mon, 11 Jan 1999 15:56:08 GMT
From: b_rosser@yahoo.com
Subject: Seeking crypt/des entirely in Perl (no C)
Message-Id: <77d6un$oh3$1@nnrp1.dejanews.com>

Hi.  I'd like to develop a perl script on a machine to which I
have no System Administrator privileges, and which also has
no C compiler, so I don't have the option of installing the
CPAN Crypt modules (from what I've seen I gather they all rely on
some C code?).

Is there any module/code for two-way encryption which is
written entirely in perl?  Performance is not too much of an
issue unless it's really horrible!

Thanks,



Brad Rosser
b_rosser@yahoo.com

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: 11 Jan 1999 15:55:52 GMT
From: clay@panix.com (Clay Irving)
Subject: Re: Sending SMS messages with perl script ??
Message-Id: <77d6u8$7hu$1@news.panix.com>

In <77cthn$3gu$1@koza.nl.net> "Peter Davidse" <ptrdvds@zeelandnet.nl> writes:

>For a hobby project i need to send SMS messages from a linux based
>webserver. Does any one know how to send SMS messages with perl.

>Short :
>Ping -> no reply -> SMS to my GSM

I believe your only option is to send an Email message to an SMS
gateway like byedesk.com.

-- 
Clay Irving
clay@panix.com


------------------------------

Date: Thu, 7 Jan 1999 10:16:21 -0800
From: Michael Nguyen <ez062634@mailbox.ucdavis.edu>
To: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Shame: Deleting List Elements
Message-Id: <Pine.GSO.4.04.9901071013300.27793-100000@dogbert.ucdavis.edu>

I know this might sound stupid but as i recall the last element of a
splice command determines the length of the list that is to be produced.
so a splice (@list,50,1) would start a new list starting from the 50th
element of @list and continues until the 51st.  


{ >   slice=>sub {@list2=@list; @list2 = @list2[0..49,51..99]},
>   splice=>sub {@list2=@list; splice(@list,50,1)}
> });
i'm probably wrong so please correct me.

mike




------------------------------

Date: Mon, 11 Jan 1999 15:22:38 GMT
From: Ryan.Haman@mci.com
Subject: Submitting a script result to a web server
Message-Id: <77d4vr$mng$1@nnrp1.dejanews.com>

I have a PERL script that is being executed daily by a cron job.  In the
script, I want it to submit information to our web-based paging system. Is it
possible to submit a URL to a web server even though I'm not using a browser?

Thanks in advance
Ryan Haman
Ryan.Haman@mci.com

(Apologies if this is a repeat, it looks like Dejanews didn't post my original
message)

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Mon, 11 Jan 1999 09:59:28 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Submitting a script result to a web server
Message-Id: <369A1FE0.84B29D4B@us.ibm.com>

Ryan.Haman@mci.com wrote:
 
> I have a PERL script that is being executed daily by a cron job.  In the

FYI: PERL doesn't exist.

See the FAQ:
http://www.perl.com/CPAN-local/doc/FAQs/FAQ/PerlFAQ.html#What_s_the_diference_betwen_p

> script, I want it to submit information to our web-based paging system. Is it
> possible to submit a URL to a web server even though I'm not using a browser?

Yes, and it's even pretty simple to do.  Check out the LWP modules. 
There's pointers to this in the faq:
http://www.perl.com/CPAN-local/doc/FAQs/FAQ/PerlFAQ.html#Where_can_I_learn_about_CGI_or_W

-- 
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)


------------------------------

Date: Mon, 11 Jan 1999 10:57:42 -0500
From: phenix@interpath.com (John Moreno)
Subject: Re: Verify an email address
Message-Id: <1dlgric.30lbyanz0r4gN@roxboro0-014.dyn.interpath.net>

Ronald J Kimball <rjk@linguist.dartmouth.edu> wrote:

> That's a rather ethnocentric regular expression, wouldn't you say?

No, it's simply wrong.  There's nothing ethnocentric about that, anybody
can be wrong (hell, *I* was wrong once).

-- 
John Moreno


------------------------------

Date: Mon, 11 Jan 1999 10:03:44 -0500
From: Iain Lowe <ilowe@interlog.com>
Subject: WTD: PT/freelance Perl/CGI programmer
Message-Id: <369A12D0.A6CA3DC7@interlog.com>

A small Web design company in Toronto, Canada is in need of occasional
Perl poetry.

Experience with Javascript and database connectivity would be definite
assets.

If you're interested in picking up a little extra dough from time to
time, please send URLs, hourly rates, and an interesting story in reply.


------------------------------

Date: Mon, 11 Jan 1999 16:40:24 +0100
From: "Sebastian Stiegler" <Sebastian.Stiegler@verwaltung.uni-muenchen.de>
Subject: Year 2000 and Perl
Message-Id: <77d66c$9qm$1@sparcserver.lrz-muenchen.de>

Does anyone know, if Activestate Perl 5.06 is Year 2000 tested???

Basti




------------------------------

Date: Mon, 11 Jan 1999 11:11:17 -0500
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: Year 2000 and Perl
Message-Id: <MPG.1103ecb214ff1225989786@news.scescape.net>

In article <77d66c$9qm$1@sparcserver.lrz-muenchen.de>, 
Sebastian.Stiegler@verwaltung.uni-muenchen.de pounded in the following:
=> Does anyone know, if Activestate Perl 5.06 is Year 2000 tested???

http://www.perl.com/pace/pub/Does_Perl_Have_a_Y2K_Problem?

HTH!

=> Basti

--Matthew


------------------------------

Date: 11 Jan 1999 16:33:22 GMT
From: as646@FreeNet.Carleton.CA (John Robson)
Subject: Year 2038 problem
Message-Id: <77d94i$l3r@freenet-news.carleton.ca>


I heard that Perl and perhaps Linux as well have a 'year 2038' problem. 
Has something to do with an internal 32-bit reperesentation.  
Just out of curiosity, can someone explain to me where this '2038' number
come from?  What does it entail?



------------------------------

Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>


Administrivia:

Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing. 

]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body.  Majordomo will then send you instructions on how to confirm your
]subscription.  This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.

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.  

To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.

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.

The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.

The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.

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 V8 Issue 4618
**************************************

home help back first fref pref prev next nref lref last post