[11225] in Perl-Users-Digest
Perl-Users Digest, Issue: 4825 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 4 13:07:14 1999
Date: Thu, 4 Feb 99 10:00:25 -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 Thu, 4 Feb 1999 Volume: 8 Number: 4825
Today's topics:
Re: $reponse->content(); <mwatkins@promotion4free.com>
[JOB]: Miami Beach, Florida : Perl Programmer chad@vcn.net
Re: are regular expression rationaly designed ? <newsposter@cthulhu.demon.nl>
Checking for reachable URL (Marc-A. Woog)
COm object returning Hash <dcraig@ismd.ups.com>
Re: Comments in Perl code <tripp.lilley@perspex.com>
Re: Excel and perl <markscottwright@hotmail.com>
Formatting Time Strings (Ralph Freshour)
Re: Formatting Time Strings <bmb@ginger.libs.uga.edu>
How do I get local IP Address ? darylh@trendwestresorts.com
Re: Is perl a freeware? <newsposter@cthulhu.demon.nl>
Re: Is perl a freeware? <aqumsieh@matrox.com>
Re: libwww-perl and use strict <ebohlman@netcom.com>
Net::FTP (Robert Saunders)
Re: Net::Telnet won't launch script <newsposter@cthulhu.demon.nl>
Re: Numeric Value (Larry Rosler)
Re: Numeric Value <aqumsieh@matrox.com>
pattern matching trouble. please help <23_skidoo@geocities.com>
Re: pattern matching trouble. please help <jglascoe@giss.nasa.gov>
Re: Q: extracting tables from HTML document? <ebohlman@netcom.com>
Re: Q: extracting tables from HTML document? <aqumsieh@matrox.com>
Reference Question.... <wells@cedarnet.org>
Re: Reference Question.... <jglascoe@giss.nasa.gov>
Re: sending an attached file with Sendmail? <newsposter@cthulhu.demon.nl>
Sending Perl output to 2 diffent html frames <bob@worldparts.com>
Re: Sorting with Matts simple search script? <ludlow@us.ibm.com>
Re: SPARC SOLARIS 2.5.1 PERL executables droby@copyright.com
Re: Timer2 (Randal L. Schwartz)
Re: UNIX 'tail' command in Perl?? <aqumsieh@matrox.com>
Unix Perl Debugger Question <no_spam@no_spam.com>
Re: Visual Perl? <klupklup@grovel.deeply.org>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 4 Feb 1999 16:34:11 -0000
From: "Mike Watkins" <mwatkins@promotion4free.com>
Subject: Re: $reponse->content();
Message-Id: <uSJOnxFU#GA.260@nih2naab.prod2.compuserve.com>
Hi there,
No, that's not what I need. I need the script to still submit to the sites,
which works fine, but I need to figure out how to get the content of the
page which the remote script redirects the user to.
Any help would be much appreciated,
Mike Watkins
Jonathan Feinberg wrote in message ...
>"Mike Watkins" <mwatkins@promotion4free.com> writes:
>
>> Like I said before, the actual submission works perfectly. However,
>> the response I get isn't what I want. For the server code ($scode),
>> I get 302 (RC_MOVED_TEMPORARILY), and for the content ($HTML), I get
>> a blank page.
>
>If you're really only interested in the content at an URL, you
>probably want to use LWP::Simple.
>
> use LWP::Simple;
> $doc = get 'http://www.sn.no/libwww-perl/';
>
>See the lwpcook manpage, and LWP::Simple.
>
>--
>Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
>http://pobox.com/~jdf
------------------------------
Date: Thu, 04 Feb 1999 17:23:01 GMT
From: chad@vcn.net
Subject: [JOB]: Miami Beach, Florida : Perl Programmer
Message-Id: <79cl17$s1b$1@nnrp1.dejanews.com>
Cool company seeks cool programmer.
Must know Linux and Perl inside and out.
OOP, DBI-DBD, MySQL, etc ...
$$ Big Bucks $$ and great opportunity.
For details email resume to perl@corp.vcn.net
If you only have alittle experience please don't
respond, just keep on learning!
Plus if you think your God's gift to perl scripting,
try to be more humble, no attitudes here!
Virtual Community Network, Inc.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 03 Feb 1999 11:35:07 -0500
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: are regular expression rationaly designed ?
Message-Id: <36B87AB9.D86008F@cthulhu.demon.nl>
Tad McClellan wrote:
> Or get a textbook that mentions any of:
>
> Formal Methods
> Formal Languages/Grammars
> Parsing/Compiling
>
> The most famous book on such things is probably the "Dragon Book",
> so named because of the picture on the cover.
>
> The title is something like "Compilers: Principles, Tools and
> Techniques" by Aho, Sehti, Ullman
Compilers: Principles, Techniques and Tools
Aho/Sethi/Ullman
Addison-Wesley publishing company
ISBN 0-201-10194-7
There may be a newer version though, I got mine 9 years ago, and it
really looks worn/old.
Erik
------------------------------
Date: Thu, 04 Feb 1999 17:19:48 GMT
From: mwoog@pobox.ch (Marc-A. Woog)
Subject: Checking for reachable URL
Message-Id: <36b9d3e1.119994@news.datacomm.ch>
Hi,
Up till now I have two alternatives for checking if a URL is reachable
(I hope there are no typos):
1.
use IO::Socket;
sub check_url {
my ($remote);
my ($host);
my ($first_line);
my ($document);
$host = shift;
$service = shift;
$document = shift;
$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => "http($service)",
);
if ($remote) {
$remote->autoflush(1);
print $remote "GET $document HTTP/1.0\n\n";
chop ( $first_line = <$remote> );
-close $remote;
if ($first_line =~ /200/) { return (1);} else { return (0); }
}
else { return (0); }
}
Flaws: if you don't supply $document (e.g. url = http://www.perl.com/)
it doesn't work. You could insert "index.html" as default but this may
not always work (I suppose: as there is also default.html, etc.).
2.
use HTTP::Request::Common;
use LWP::UserAgent;
sub check_url2 {
my $url = shift;
my $ua = LWP::UserAgent->new;
my $res = $ua->request(HEAD "$url")
if ($res->is_success) { return 1; } else { return 0; }
}
Flaws: My provider hasn't HTTP::Request::Common installed.
My question:
Are there any other foolproof methods using only the most common
libraries? I only want to check if I can reach the URL not download
the whole document.
Thanks for any answers!
Regards,
Marc
------------------------------
Date: Thu, 4 Feb 1999 11:12:07 -0500
From: "Douglas N. Craig" <dcraig@ismd.ups.com>
Subject: COm object returning Hash
Message-Id: <79cghl$9u82@innsrv.ismd.ups.com>
I am trying to figure out two things about my COM object created with
Perlctrl:
A] Can you return a hash from a COM object
B] If yes above, can you return a hash and an integer?
------------------------------
Date: Thu, 04 Feb 1999 12:14:10 -0500
From: Tripp Lilley <tripp.lilley@perspex.com>
Subject: Re: Comments in Perl code
Message-Id: <36B9D562.1D65FEFB@perspex.com>
Martien Verbruggen wrote:
> I seriously doubt that you will be able to come up with one real life
> example where code slows down the running of your perl program
> noticeably.
I can think of dozens of real life examples where code slows down the
running of my Perl program noticeably. Heck, if it weren't for code, my
Perl programs would positively /fly/! Aside from interpreter startup
overhead, that is. But, using mod_perl or running on an OS with decent
caching of executable images, even that can be trivialized.
Oh, I suppose you meant examples where /comments/ slow down the running
of my program. My bad :-)
------------------------------
Date: Thu, 4 Feb 1999 10:29:01 -0600
From: "Mark Wright" <markscottwright@hotmail.com>
Subject: Re: Excel and perl
Message-Id: <36b9cad2.0@news3.uswest.net>
>>On Sat, 30 Jan 1999, Steve . wrote:
>>
>>> I have an excel spreadsheet that I want to extract the data from
for
>>> manipulation. Is there a way in perl to read an excel
spreadsheet?
I've never tried this out, but this site claims to have perl scripts
that can parse MS document files:
http://user.cs.tu-berlin.de/~schwartz/pmh/index.html
Mark Wright
---
mwright@pro-ns.net
------------------------------
Date: Thu, 04 Feb 1999 16:21:37 GMT
From: ralph@primemail.com (Ralph Freshour)
Subject: Formatting Time Strings
Message-Id: <36b9c83b.1830210@news.psn.net>
I need to format the current date into an email Date format and I'm
having some trouble doing that. Here's what I have so far:
$tDate = `date +'%a, %b %d, %Y'`;
which produces "Feb 03, 1999"
But I need to add onto this the hour and GMT offset as "hh:mm:ss
-0800"
I tried
$tDate = `date +'%a, %b %d, %Y %t -0800'`;
but all this produced was
"Feb 03, 1999 \cI -0800\cJ"
I could not find any date formatting help in my Perl manuals - can
someone please tell me what the parameters are for Time?
I have a trip I am leaving on today and will only have access to email
- please reply via email to ralph@primemail.com as I won't have a news
reader for several days.
Thank you...
Ralph
------------------------------
Date: Thu, 4 Feb 1999 11:49:48 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
To: Ralph Freshour <ralph@primemail.com>
Subject: Re: Formatting Time Strings
Message-Id: <Pine.A41.4.02.9902041147480.51658-100000@ginger.libs.uga.edu>
Try `man date`
`perldoc -f localtime`
Cheers,
-Brad
On Thu, 4 Feb 1999, Ralph Freshour wrote:
> I could not find any date formatting help in my Perl manuals - can
> someone please tell me what the parameters are for Time?
------------------------------
Date: Thu, 04 Feb 1999 17:44:09 GMT
From: darylh@trendwestresorts.com
Subject: How do I get local IP Address ?
Message-Id: <79cm96$t3r$1@nnrp1.dejanews.com>
I have a program that uses sockets, but in order to open the socket my
program needs to know the IP Address of the machine it is running on. Is
there a function or system call that will get this address for me? I've
looked through my perl books (which are both pretty useless) and can't find a
thing. I guess I need to get a new Perl book.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 04 Feb 1999 11:02:39 -0500
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: Is perl a freeware?
Message-Id: <36B9C49E.D15E9148@cthulhu.demon.nl>
Martien Verbruggen wrote:
> PS. You'll find out that perl is free. Any advice to silly questions
> on this newsgroup however is charged at a going rate of about $1 - $5
> per word, depending on context. That is why I am going on about this,
> because every word I type earns me another $5. Expect the bill soon.
Finally, now I know why some people write long friendly answers instead
of just the single 'rtfm'! How about charging by the number of words
in the question? Or would that generate postings with subject 'HELP'
with empty bodies?
Erik
------------------------------
Date: Thu, 4 Feb 1999 12:09:14 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Is perl a freeware?
Message-Id: <x3yk8xyp03r.fsf@tigre.matrox.com>
Steve Palincsar <palincss@his.com> writes:
> Ed Hitler wrote:
> >
> > Do I need a computer to run perl?
>
> Well, the cover of a recent issue of The Perl Journal shows a
> perl
> installation on a 1930's vintage Underwood manual typewriter.
> You
> may wish to check it out.
In addition, the latest issue of TPJ shows a Perl Atari cartridge. I
always thought Perl was entertaining, but I don't suppose it's easy to
write any useful code with a joystick!
PS. The "adventure" game displayed was one of my favourites as a
kid. Anyone still has it?
Ala
------------------------------
Date: Thu, 4 Feb 1999 15:50:48 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: libwww-perl and use strict
Message-Id: <ebohlmanF6n00o.Jzw@netcom.com>
Marcus Tettmar <mtettmar@mjtnet.com> wrote:
: I'm trying to install libwww-perl. I have the correct one for my
: version of perl. When I do perl Makefile.PL I get the following
: errors :
: syntax error in file Makefile.PL at line 5, next 2 tokens "use strict"
: syntax error in file Makefile.PL at line 20, next 2 tokens "getopts("
Those sound like Perl 4 error messages (since "use" wasn't introduced
until Perl 5). There's probably something screwy about your path that's
causing an old version of perl to get invoked.
------------------------------
Date: Thu, 04 Feb 1999 17:24:39 GMT
From: robert@iminet.com (Robert Saunders)
Subject: Net::FTP
Message-Id: <AFF6077E2C176213.C17CF4F50D7B1463.E394DF45734A1176@library-proxy.airnews.net>
I have figured out almost everything I need to know about the Net::FTP
that I found on Cpan. Going thru the docs that I found at
http://www.connect.net/gbarr/pod/Net/FTP.html I can ftp a file to
another machine now. I can remove files on the other machine..
My question there is a command that I am very interested in
ls ( [ DIR ] )
Get a directory listing of DIR, or the current directory.
In an array context, returns a list of lines returned from the server.
In a scalar context, returns a reference to a list.
What I am not clear on is how to access the directory listing that is
generated by this command. My sample code would look like this, ( have
of course replaced out my username and password for the example)
$ftp = Net::FTP->new("domain_to_log_into.com");
$ftp->login("username","password");
$ftp->ls("DIR");
$ftp->quit;
if I for example wanted to print the ls of the machine I am loggin
into..
print $directory;
How would I get the list into the $directory variable.. I am not clear
where the list is once it has connected to the machine and the above
code is run..
Either a example or a FAQ explaining this would greatly help.
Thanks
Robert Saunders
robert@iminet.com
------------------------------
Date: Thu, 04 Feb 1999 10:53:37 -0500
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: Net::Telnet won't launch script
Message-Id: <36B9C281.ACCE042C@cthulhu.demon.nl>
Mark Stackhouse wrote:
>
> When I attempt to open a telnet session, nothing seems to happen. I
> don't get any errors but my script doesn't launch either.
> #!/usr/bin/perl -w
Where is the use strict?
> chdir '/local/dir/where/Telnet_pm/is/located/lib/Net' || die "Can not cd
> to Net: $!\n";
> require Telnet;
You're probably better of adding the path to @INC and using 'use'. There
is some FAQ concerning installing modules in you own directory.
> $t = new Net::Telnet (Timeout => 10, Prompt => '/[remote_server\-\0-9\%
> ]*$/');
Where do you check you actually got a connection?
> $t->open("remote_server");
Where is the check that the open succeeded?
> $t->login($username, $passwd);
Where is check that login succeeded?
> @lines = $t->cmd("/the/dir/where/my/script/resides/perl_apps_menu.pl");
> print @lines;
Erik
------------------------------
Date: Thu, 4 Feb 1999 09:33:45 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Numeric Value
Message-Id: <MPG.112379cfa4568808989a03@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <x3yognap2sa.fsf@tigre.matrox.com> on Thu, 4 Feb 1999
11:11:17 -0500 , Ala Qumsieh <aqumsieh@matrox.com> says...
...
> print "Is numeric\n" if $string =~ /^[+-]?(?:\d+\.?\d*)|(?:\.\d+)$/;
Still wrong -- fails '-.3' for example. The parentheses are wrong.
> print "Is numeric\n" if $string =~ /^[+-]?(?:\d+\.?\d*|\.\d+)$/;
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 4 Feb 1999 11:11:17 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Numeric Value
Message-Id: <x3yognap2sa.fsf@tigre.matrox.com>
James Ludlow <ludlow@us.ibm.com> writes:
> Ala Qumsieh wrote:
> >
> > print "Is numeric.\n" if $string =~ /^[-+\d.]+$/;
>
> So, is this numeric?
> $string = "+++++++-------373738282...2.32.2.3.2.---+++++2";
Good point. I was just too lazy. A more correct answer would be:
print "Is numeric\n" if $string =~ /^[-+]?\d+\.?\d*$/;
But still, this fails for numbers like ".01" .. so:
print "Is numeric\n" if $string =~ /^[-+]?\d*\.?\d*$/;
But this matches the empty string! So:
print "Is numeric\n" if $string =~ /^[+-]?(?:\d+\.?\d*)|(?:\.\d+)$/;
which is basically what the FAQ has.
Anyway ...
------------------------------
Date: Thu, 04 Feb 1999 16:25:45 +0000
From: 23_skidoo <23_skidoo@geocities.com>
Subject: pattern matching trouble. please help
Message-Id: <36B9CA00.4B45@geocities.com>
i'm having a problem with pattern matching, i want to check an email
address to match the following examples:
a@y.z - minimum requirement, 1/more chars (word), @ then word-dot-word
a.b.c@w.x.y.z
open ended requirement: word, 0/more x (dot-word), @ word, 1/more
(dot-word)
i tried to use this but it doesn't work properly.
if ($input{'email'} !~ /\w+(?:\.\w+)?@\w+(?:\.\w+)+/) {
&error(bad_email);
}
i thought my problem was that i'm misusing parentheses but i included ?:
so they would just act as grouping.
this allows a@b.c. to get through, i had hoped that the final (?:\.\w+)+
would match
'1 or more repetitions of dot-word'
but not
'1 or more repetitions of (dot-optional_word)'
which is what it seems to do.
can anyone help here?
thanks for your time
-23
------------------------------
Date: Thu, 04 Feb 1999 12:42:37 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: 23_skidoo@geocities.com
Subject: Re: pattern matching trouble. please help
Message-Id: <36B9DC0D.4A9C7E0@giss.nasa.gov>
23_skidoo wrote:
>
> a@y.z - minimum requirement, 1/more chars (word), @ then word-dot-word
>
> a.b.c@w.x.y.z
hmm, how about "\w+(\.\w+)*@\w+(\.\w+)+"
> thanks for your time
>
> -23
Jay
--
"The early bird gets the worm, but
the second mouse gets the cheese."
------------------------------
Date: Thu, 4 Feb 1999 17:21:41 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Q: extracting tables from HTML document?
Message-Id: <ebohlmanF6n486.3DB@netcom.com>
Ala Qumsieh <aqumsieh@matrox.com> wrote:
: ($table) = $html =~ /(<table>.*?<\/table>)/s;
This won't work if tables are nested (it will match from the outermost
opening tag to the innermost closing tag) or if opening or closing table
tags appear in comments. UARP (Use A Real Parser).
------------------------------
Date: Thu, 4 Feb 1999 11:44:46 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Q: extracting tables from HTML document?
Message-Id: <x3ylniep18h.fsf@tigre.matrox.com>
anna@water.ca.gov writes:
> This is probably easy but my brain is feeling a bit toasty. I'm trying to
> extract anything between <table> ... </table> from an HTML document including
> the table tags and leave any other HTML tags that I might find in the
> document.
note: untested
my $file = "file_name";
my $html;
open F, $file or die "Can't open $file: $!\n";
{
undef $/;
$html = <F>;
}
close F or die "Error: $!\n";
($table) = $html =~ /(<table>.*?<\/table>)/s;
HTH,
Ala
------------------------------
Date: Thu, 04 Feb 1999 16:33:22 +0000
From: Steve Wells <wells@cedarnet.org>
Subject: Reference Question....
Message-Id: <36B9CBD1.8CD64CF0@cedarnet.org>
I have an object that returns an array.
If I use:
my @array = $obj->function;
$hash{foo} = \@array;
It works. But I wanted to get rid of the array and
just have it point to the data so I tried:
$hash{foo} = \@{$obj->function};
and it's not working as before... Any ideas?
TIA,
STEVE
--
-----------
Stephen D. Wells
http://www.iren.net/wellss/
------------------------------
Date: Thu, 04 Feb 1999 12:30:03 -0500
From: Jay Glascoe <jglascoe@giss.nasa.gov>
To: Steve Wells <wells@cedarnet.org>
Subject: Re: Reference Question....
Message-Id: <36B9D91B.E5CBAD8D@giss.nasa.gov>
Steve Wells wrote:
>
> I have an object that returns an array.
>
> If I use:
> my @array = $obj->function;
> $hash{foo} = \@array;
>
are you *sure* you don't want "obj" to return
an array reference? ...
Anyway, try this:
$hash{"foo"} = [ $obj->function() ];
> TIA,
> STEVE
hth,
Jay
--
"The early bird gets the worm, but
the second mouse gets the cheese."
------------------------------
Date: Thu, 04 Feb 1999 10:46:12 -0500
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: sending an attached file with Sendmail?
Message-Id: <36B9C0C3.307943DF@cthulhu.demon.nl>
Artoo wrote:
>
> Hi All
>
> How can you send an attached file (text file) with sendmail and Perl?
Have you searched dejanews for the answer to this question?
Erik
------------------------------
Date: 4 Feb 1999 17:35:21 GMT
From: "Bob Van Der Ploeg" <bob@worldparts.com>
Subject: Sending Perl output to 2 diffent html frames
Message-Id: <79cloq$t74$1@comet3.magicnet.net>
How do I get perl to send output to 2 different html frames?
------------------------------
Date: Thu, 04 Feb 1999 09:58:02 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Sorting with Matts simple search script?
Message-Id: <36B9C38A.6772EBCF@us.ibm.com>
Tad McClellan wrote:
> : The actual piece of code to display the pages is this:
>
> : foreach $key (keys %include) {
>
> foreach $key (sort keys %include) {
Ok, I know that this is only a Matt's Script, and wasting time on it is
pretty pointless. But we started to give out advice, so it might as
well be correct. The fix you gave above was the first thing that popped
into my head too, but it's not right (probably). The first reaction is
to think that the keys of %include are the titles themselves. I don't
think this is the case. The solution I posted went on the assumption
that the keys of %include and the keys of %title were from the same set
of possible keys. The titles themselves are the values of %title.
Now, as to why %include isn't just a simple array, I have no idea.
--
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)
------------------------------
Date: Thu, 04 Feb 1999 17:06:45 GMT
From: droby@copyright.com
To: Ericsson User <leo.alexandropoulos@ericsson.com>
Subject: Re: SPARC SOLARIS 2.5.1 PERL executables
Message-Id: <79ck2s$r1j$1@nnrp1.dejanews.com>
[A complimentary Cc of this message was sent to
Ericsson User <leo.alexandropoulos@ericsson.com>
who wrote in article <36B977B5.D09606F6@ericsson.com>:
> Hi all!
>
> I am looking for one of the latest releases of Perl executable(s) for
> SPARC Solaris 2.5.1..
>
> It doesn't have to be the *very* latest, but it has to be an executable
> - ready to use, 'cause the Workstation I plan to install it on, doesn't
> have a C compiler - neither an Assembler, Loader, "make" etc etc. It
> would be very tedious to start downloading/compiling/installing,
> all of the above...
>
Well, the *correct* answer is in perlfaq2. Get gcc and then install perl
properly. And you'll likely find you want a C compiler for other reasons
later.
But you've said you want it pre-compiled, so ... http://www.sunfreeware.com
has binaries for perl5.005_02 and for gcc, gmake, etc for assorted versions
of Solaris. And lots of other goodies.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 04 Feb 1999 07:58:23 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Timer2
Message-Id: <m1iudi2mao.fsf@halfdome.holdit.com>
>>>>> "dkelly" == dkelly <dkelly@emhain.wit.ie> writes:
dkelly> I am not allowed to run it by use of the CRONTAB or BATCH
dkelly> facilities on the Unix system (the reason being not because I
dkelly> don't have access to it but because my lecturer (a very strict
dkelly> dude) won't let me use it for my project. I need it to run
dkelly> through the use of Perl code.
dkelly> Is there any modules or code that can help me.
use Homework::Cheat qw(No, we shouldn't help you);
:-)
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Thu, 4 Feb 1999 11:24:42 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: UNIX 'tail' command in Perl??
Message-Id: <x3yn22up25y.fsf@tigre.matrox.com>
Scott Dummer <scott.dummer@noaa.gov> writes:
> Peter Smith wrote:
>
> > So I need an efficient tail command so I can chop off the last x
> > thousand records. How do I use Perl to get the last 10 records?
[snip some code]
> I don't know if this the most efficient way of doing what you want it, but
> it works on my system.
I think I have a better way:
#---- start of code
my $num_lines = 10; # how many lines you wanna display off the bottom.
open F, "your_file" or die "$!.\n";
@lines[0..$num_lines-1] = reverse <F>;
close F or die "$!.\n";
@lines = reverse @lines;
#---- end of code
Hope this helps,
Ala
------------------------------
Date: Thu, 4 Feb 1999 10:08:04 -0600
From: "Ban Spam Now" <no_spam@no_spam.com>
Subject: Unix Perl Debugger Question
Message-Id: <79cgqf$24s@dfw-ixnews5.ix.netcom.com>
Hi, using debugger for the first time and have set a conditional breakpoint.
How do I tell it to continue execution until it reaches my breakpoint?
ThaNKS :)
------------------------------
Date: Thu, 4 Feb 1999 16:03:33 GMT
From: "bispo foon" <klupklup@grovel.deeply.org>
Subject: Re: Visual Perl?
Message-Id: <F6n0Kn.9Cs@igsrsparc2.er.usgs.gov>
Martien Verbruggen wrote:
>In article <36B632CD.2CEF@lubypublishing.com>,
> Sven Davies <svend@lubypublishing.com> writes:
>
>> Yeah, this reminds me of a popular program called GirlFriend 1.0. It
>> doesn't always know what you want either. But then again, I don't think
>> it is a Perl Script.
>
>I upgraded mine to Wife 1.0. Works a lot better :)
>
>Martien
I have been using Wife 1.0 for over twenty years now, and find that it
performs much better than beta versions of GirlFriend used previously.
Certain portions of the code have been tweaked and modified, especially
in places where I needed optimization.
OTOH, somehow the code incorporated in Wife 1.0 has developed
a self-modifying ability. Modules that performed certain functions in a
consistent manner for long periods of time ... suddenly began operating in
a different fashion, and I am no longer able to reliably predict the results
of my input in every case.
Maintaining the program in reasonably good working order is of utmost
importance, though, so I accept some bugs in the process. After all,
Wife 1.0 makes calls to Husband 1.0, and Husband 1.0 has become
horribly bloated over time, with many needless subroutines. =8^)
------------------------------
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 4825
**************************************
