[13637] in Perl-Users-Digest
Perl-Users Digest, Issue: 1047 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 12 08:05:39 1999
Date: Tue, 12 Oct 1999 05:05:09 -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: <939729909-v9-i1047@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 12 Oct 1999 Volume: 9 Number: 1047
Today's topics:
--==CELERON 466Mhz ONLY $1.95 -- it's real, it's work== <kjd@mj.dk>
Re: -w, do and "name used only once" (Anno Siegel)
Re: Dedicated Server <irishcream@iname.com>
Re: DESTROY method: can't get to data? (Martien Verbruggen)
How confidential is Perl? (Robert C. Helling)
how to generate a hash name dynamically cheecheng@my-deja.com
Re: how to generate a hash name dynamically <bwalton@rochester.rr.com>
HPUX 11 <amarden@altavista.net>
Re: I need some Perl help (Bart Lateur)
Re: I need some Perl help (Abigail)
non-ascii <slorr@awi-bremerhaven.de>
Re: Perl lite (Martien Verbruggen)
Re: Perl lite <uri@sysarch.com>
Printing from an HTML button? <olivier.maas@at-lci.com>
Re: Question about tr/srch/repl (Craig Berry)
Re: Rapid Repeated Ftp (Michel Dalle)
Remote Document Timestamps Continued... <alligator333@my-deja.com>
Re: search engine!! (Martien Verbruggen)
Re: simple search <kevin.porter@fast.no>
Re: simple search (Martien Verbruggen)
Re: tmtowtdt? Getting the date schablone@my-deja.com
Re: Use Perl to Close File In Use on NT? <c4jgurney@my-deja.com>
Re: Use Perl to Close File In Use on NT? <carvdawg@patriot.net>
Re: We do complex Perl Programming <kbandes@home.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 12 Oct 1999 11:09:56 +0300
From: ddd <kjd@mj.dk>
Subject: --==CELERON 466Mhz ONLY $1.95 -- it's real, it's work===---
Message-Id: <3802ECD4.D27FD2D8@mj.dk>
--------------5C08A2E66A331EF6DFFB9EBC
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
http://www.gamma-ent.com/pc/index.html
GAMMA
ENTERTAINMENT INC. in association with ACER offers
you unique opportunity to get powerful Acer Aspire 6350
Intel Celeron 466 Computer for ONLY $1.95 You never
seen such opportunities before. This program offers
you much more advantages than world-known FREE-PC
program, which was available only for United States and for
a limited period. Our program is developed for
all who do not want to waste thousands of dollars for new
PC and is independent of social and financial status of
the participating person, his/her geographical location,
race, etc.
INTERESTED???
VISIT
*****************************************
* http://www.gamma-ent.com/pc/index.html *
*****************************************
--------------5C08A2E66A331EF6DFFB9EBC
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
<BODY onload="window.open('http://www.gamma-ent.com/pc/index.html','RemoteWindow')">
<BR> <A HREF="http://www.gamma-ent.com/pc/index.html">http://www.gamma-ent.com/pc/index.html</A>
<P>GAMMA
<BR>ENTERTAINMENT INC. in association with ACER offers
<BR>you unique opportunity to get powerful Acer Aspire 6350
<BR>Intel Celeron 466 Computer for ONLY $1.95 You never
<BR>seen such opportunities before. This program offers
<BR>you much more advantages than world-known FREE-PC
<BR>program, which was available only for United States and for
<BR>a limited period. Our program is developed for
<BR>all who do not want to waste thousands of dollars for new
<BR>PC and is independent of social and financial status of
<BR>the participating person, his/her geographical location,
<BR>race, etc.
<P>INTERESTED???
<P>
VISIT
<BR>*****************************************
<BR>* <A HREF="http://www.gamma-ent.com/pc/index.html">http://www.gamma-ent.com/pc/index.html</A> *
<BR>*****************************************</HTML>
--------------5C08A2E66A331EF6DFFB9EBC--
------------------------------
Date: 12 Oct 1999 11:26:31 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: -w, do and "name used only once"
Message-Id: <7tv5t7$8rk$1@lublin.zrz.tu-berlin.de>
<adrianonr@my-deja.com> wrote in comp.lang.perl.misc:
>Hi,
>
>I'm parsing a simple configuration file (it only has variable
>assignments, is written in Perl and has its own packge Conf)
>with "do" from several scripts.
>
>I would like to get rid of the "used only once" warnings generated by
>-w. I can't "use vars" because the vars in question are in another name
>space. Besides, if I make a typo there'll be a "use of uninitialized
>value" message to warn me.
>
>Is there a way out without explicitly referencing all the used only
>once variables again? What's the right thing to do here?
The standard solution would probably consist in making the configuration
file a module and export the configuration variables into the user's
namespace. Of course then you'd use() the module instead of do()ing
it. See the documentation of the Export module for details.
Anno
------------------------------
Date: Tue, 12 Oct 1999 09:16:37 +0200
From: "John" <irishcream@iname.com>
Subject: Re: Dedicated Server
Message-Id: <7tun8s$jti$1@wanadoo.fr>
Thank you guys.
Cumur : DN's web is : www.dn.net
David Efflandt wrote in message ...
>On Mon, 11 Oct 1999 12:56:00 +0200, John <irishcream@iname.com> wrote:
>>
>>Does anybody know a good company that offers
>>reliable Linux dedicated servers ? DN offers this
>>at 300 dollars a month, which I think is a little
>>bit expensive. Any Help would be highly appreciated.
>>Thank you,
>>
>>John
>
>www.rapidot.com $175/mo 1G bandwidth ($12.50/G above that)
>www.superuser.net $225/mo 15G bandwidth
>
>--
>David Efflandt efflandt@xnet.com http://www.xnet.com/~efflandt/
>http://www.de-srv.com http://cgi-help.virtualave.net/
>http://thunder.prohosting.com/~cv-elgin/
------------------------------
Date: 12 Oct 1999 10:25:15 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: DESTROY method: can't get to data?
Message-Id: <slrn80635p.972.mgjv@wobbie.heliotrope.home>
On 11 Oct 1999 16:44:47 GMT,
Jack Applin <neutron@fc.hp.com> wrote:
> Consider this stripped-down code:
[snip]
> When I run it, I get this really quite helpful message:
>
> foo=Simple=HASH(0x4001d034)
> Use of uninitialized value during global destruction.
> fh=
When I run it, I get this:
foo=Simple=HASH(0x80d4e24)
fh=IO::File=GLOB(0x80d4e0c)
which is what's expected.
# perl -v
This is perl, version 5.005_03 built for i386-linux
Maybe there's a little teenie bug in 5.005_02? I don't have a 5.005_02
available, otherwise I would test it for you. looking through the
Changes file of the distribution, I don't see anything pertinent, but
there's a lot of stuff there.
Martien
--
Martien Verbruggen |
Interactive Media Division | Think of the average person. Half of the
Commercial Dynamics Pty. Ltd. | people out there are dumber.
NSW, Australia |
------------------------------
Date: 12 Oct 1999 08:45:41 GMT
From: helling@x4u2.desy.de (Robert C. Helling)
Subject: How confidential is Perl?
Message-Id: <slrn805t9l.213gd.helling@x4u2.desy.de>
i am thinking to write a passwd wrapper in perl and wonder how confidential
Pel keeps my data. More specifiaclly, since Perl does all memory
management for me i have no control over when a variable is moved in
memory and the original location free'ed. I couldn't find out (w/o working
my way thru the source) if Perl zeroes memory before feeing it (under
normal circumstances this would influence performance) or some evil
C program could randomly malloc memory and search it for Perl's leftovers.
Thank you for your help
Robert
--
.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oOo.oO
Robert C. Helling Albert Einstein Institute Potsdam
Max Planck Institute For Gravitational Physics
and
2nd Institute for Theoretical Physics
DESY / University of Hamburg
Email helling@x4u2.desy.de Fon +49 40 8998 4706
<href=http://www.aei-potsdam.mpg.de/~helling>
------------------------------
Date: Tue, 12 Oct 1999 06:43:29 GMT
From: cheecheng@my-deja.com
Subject: how to generate a hash name dynamically
Message-Id: <7tulaf$6sp$1@nnrp1.deja.com>
Hi,
I have a question on how to generate a hash name
dynamically. For example, I have an array
@a = (1,2,3) and I need to make a hash out of it.
I would like to have the following:
$hashname1{2}=3
I tried some variations of
$hashname$a[0]{$a[1]}=$a[2]
but nothing works.
Any help on how to do this would be greatly
appreciated.
Thank you very much.
Chee
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 12 Oct 1999 07:53:28 -0400
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: how to generate a hash name dynamically
Message-Id: <38032138.AA089B4C@rochester.rr.com>
cheecheng@my-deja.com wrote:
>
> Hi,
>
> I have a question on how to generate a hash name
> dynamically. For example, I have an array
> @a = (1,2,3) and I need to make a hash out of it.
> I would like to have the following:
> $hashname1{2}=3
>
> I tried some variations of
> $hashname$a[0]{$a[1]}=$a[2]
> but nothing works.
...
> Chee
Chee,
${"hashname$a[0]"}{$a[1]}=$a[2];
is one way.
--
Bob Walton
------------------------------
Date: Tue, 12 Oct 1999 09:37:04 +0100
From: Andy Marden <amarden@altavista.net>
Subject: HPUX 11
Message-Id: <3802F330.1DE9D0C5@altavista.net>
Has anyone successfully installed Perl on HPUX 11 (64 bit) and are there
binaries available? I can only find binaries for HPUX 10.20
Ta
Andy
------------------------------
Date: Tue, 12 Oct 1999 06:44:05 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: I need some Perl help
Message-Id: <3805d83d.2749051@news.skynet.be>
Abigail wrote:
>Copy-on-write.
I don't see much benefit.
If you have two variables that *for the moment* have the same string
value, it is very likely that one of them soon will be modified.
This is, IMO, a "typical case":
$x = "just a test string";
($y = $x) =~ tr/ /#/;
where you *need* to copy it anyway.
Why have the overhead of keeping track of exactly *when* to copy it, if
it's very likely that it will need to be copied anyway?
--
Bart.
------------------------------
Date: 12 Oct 1999 04:40:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: I need some Perl help
Message-Id: <slrn8060gs.gep.abigail@alexandra.delanet.com>
Bart Lateur (bart.lateur@skynet.be) wrote on MMCCXXXIII September
MCMXCIII in <URL:news:3805d83d.2749051@news.skynet.be>:
%% Abigail wrote:
%%
%% >Copy-on-write.
%%
%% I don't see much benefit.
%%
%% If you have two variables that *for the moment* have the same string
%% value, it is very likely that one of them soon will be modified.
%%
%% This is, IMO, a "typical case":
%%
%% $x = "just a test string";
%% ($y = $x) =~ tr/ /#/;
%%
%% where you *need* to copy it anyway.
%%
%% Why have the overhead of keeping track of exactly *when* to copy it, if
%% it's very likely that it will need to be copied anyway?
Are you suggesting storing strings as either hash keys or hash values
is a rare event?
Besides, Perl is already keeping track. For the garbage collector to work.
Abigail
--
$" = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%_ = (Just => another => Perl => Hacker); &{%_};
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 12 Oct 1999 12:59:11 +0200
From: Sebastian Lorr <slorr@awi-bremerhaven.de>
Subject: non-ascii
Message-Id: <3803147F.A2EF04CB@awi-bremerhaven.de>
hallo!, i am trying to convert information extracted as a text file
from the directory server into
a PDF file. within the directory server applications i have no
problems with non-ascii
characters (such as umlauts) because everyting is encoded in UTF-8. my
problem now
is to find an application which can correctly convert to PDF the
umlauts in the original text file.
the txt to PDF converter which i am currently using (written in Perl)
unfortunately "skips"
all umlaut characters . does anyone know of any PDF converter tool
which handles non-asci characters?
thanks in advance.
Sebastian
------------------------------
Date: Tue, 12 Oct 1999 06:37:56 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl lite
Message-Id: <8HAM3.327$324.8207@nsw.nnrp.telstra.net>
On 12 Oct 1999 01:28:37 -0400,
Uri Guttman <uri@sysarch.com> wrote:
> 50MB so i am saving a whole $9.10/month. i deleted all the docs, extra
> stuff, source, etc. all i left was the binary and the modules in
> lib. they actually take up the bulk of the space and if i stripped them
And stripping the binaries (if not done already) could also save you a
few bytes. As could choosing the right optimiser options. :)
Martien
--
Martien Verbruggen |
Interactive Media Division | Never hire a poor lawyer. Never buy from a
Commercial Dynamics Pty. Ltd. | rich salesperson.
NSW, Australia |
------------------------------
Date: 12 Oct 1999 03:04:02 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Perl lite
Message-Id: <x7aeppkql9.fsf@home.sysarch.com>
>>>>> "MV" == Martien Verbruggen <mgjv@comdyn.com.au> writes:
MV> On 12 Oct 1999 01:28:37 -0400,
MV> Uri Guttman <uri@sysarch.com> wrote:
>> 50MB so i am saving a whole $9.10/month. i deleted all the docs, extra
>> stuff, source, etc. all i left was the binary and the modules in
>> lib. they actually take up the bulk of the space and if i stripped them
MV> And stripping the binaries (if not done already) could also save you a
MV> few bytes. As could choosing the right optimiser options. :)
already stripped. i just deleted pod2* and some other perl extras i
don't need there. do i need libperl.a? i don't think so and it is .5MB.
the dir ~/lib/perl5/5.00503/i686-linux/CORE takes up a lot of space with
all the .h source files. do i need them to build modules? i think some
are needed for XS based modules.
this is actually an interesting exercise now. how to get the smallest
perl installation with a decent set of modules. and the ability to
install more modules is not broken.
stripping all the pod from .pm files is something i may look into. i was
told the new Pod::Parser module can probably handle that. anyone done
it already?
lots of the old .pl libraries are not useful or needed. i would use
Net::FTP over ftp.pl. in fact i rarely use most of the standard .pl
libs. many have better pm modules.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
www.sysarch.com ----- Perl Books: http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Tue, 12 Oct 1999 13:51:00 +0200
From: Olivier Maas <olivier.maas@at-lci.com>
Subject: Printing from an HTML button?
Message-Id: <380320A4.5B905E6D@at-lci.com>
Hi,
I would like 2 know if it is possible to print a html page using an html
button within the page.
I have several pages and I would like 2 have my own "print" button on
the page (using jscript, VBscript, or perl... or anything else!!)
thanks for your advice,
could you please also reply to maas@ensae.fr
blue skies and soft landings
olivier
------------------------------
Date: Tue, 12 Oct 1999 06:10:10 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Question about tr/srch/repl
Message-Id: <s05k62r4h1s64@corp.supernews.com>
Ghost (ghost24@bctek.com) wrote:
: I have a question about the use of tr/srch/replc. I am new
: to perl, and I noticed some people posted about using tr to
: count the number of occurences of a letter. Not knowing about
: tr I looked in the perlfaq and perlop(1) to see what tr does.
Good for you! Just having done that puts you in the top 10% of
those new to perl.
: in perlop it shows to count number of occurences you do:
: $cnt = $sky =~ tr/*/*/;
This works but is redundant, as the following form...
: in perlfaq it shows the form:
: $cnt = $sky =~ tr/*//;
...also works...
: Trying them out they both do the same.
...as you discovered. 10 more points for your empiricism.
: Looking at the perlop it says that tr form is:
: tr/SEARCHLIST/REPLACEMENTLIST/cds
:
: and that it translates all occurences of characters in search list
: with corresponding character in replacement list, and then returns
: the number of characters replaced or deleted.
One small item you missed, the paragraph just before the 'Examples'
section in perlop's tr/// entry:
If the /d modifier is used, the REPLACEMENTLIST is
always interpreted exactly as specified. Otherwise,
if the REPLACEMENTLIST is shorter than the
SEARCHLIST, the final character is replicated till
it is long enough. If the REPLACEMENTLIST is null,
the SEARCHLIST is replicated. This latter is useful
for counting characters in a class or for squashing
character sequences in a class.
: Well, this makes me think tht the second example should replace all
: occurences of * with a "" that would basicly erase every star then
: return the number of * in the string. This ofcourse is not what
: happens.. They are equivalent, why!?
I hope the doc snippet above makes it clear. With /d, it behaves as you
suggest. Without /d, it replicates the search list into the replacement
list. Effectively, tr/*// becomes internally tr/*/*/.
: How would you erase all * and return the number?
tr/*//d
--
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "There it is; take it." - William Mulholland
------------------------------
Date: Tue, 12 Oct 1999 11:01:06 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: Re: Rapid Repeated Ftp
Message-Id: <7tv4mv$a8m$2@news.mch.sbs.de>
In article <37FD1509.E6CCFC9F@mail.cor.epa.gov>, David Cassell <cassell@mail.cor.epa.gov> wrote:
>Abigail wrote:
>>
>> Kristjan Varnik (kav200@omicron.acf.nyu.edu) wrote on MMCCXXVI September
>> MCMXCIII in <URL:news:66uK3.30$Gm4.3173@typhoon.nyu.edu>:
>> &&
>> && Lastly, I am a bit new to perl.. are their any flags
>> && I can use to make my perl programs run faster.
>>
>> Yeah. There are 9 flags, -1 to -9. With -1, Perl runs the fastest,
>> but sloppy. It'll make mistakes. With -9, Perl won't make mistakes,
>> but it's slow.
>>
>> The default, -5, is kind of a middle ground. Slow and sloppy.
>
>That's only on old Perls. Newer versions use the letters
>'a' through 'i' instead of 1 to 9. I use the -e flag a lot
>for one-line programs.
I like the combination of -b and -c (-23 or -w for short) myself. :-)
Michel.
------------------------------
Date: Tue, 12 Oct 1999 09:41:54 GMT
From: Alligator <alligator333@my-deja.com>
Subject: Remote Document Timestamps Continued...
Message-Id: <7tuvp1$eho$1@nnrp1.deja.com>
This is actually a response of sorts to a previous thread, but I was
unable to respond in a timely manner, so I'm posting it here as a new
thread so that it will be seen. You don't have to be familiar with the
earlier thread to respond - I've included all the info about what I'm
trying to do in this article.
I'm trying to get the "last-modified" date of a document on a remote
server.
I have tried both LWP::UserAgent and the LWP::Simple head() function
for numerous servers on the Internet. Unfortunately,
'www.geocities.com' was the only large server that defined the variable.
Is it normal for so few servers to return a modification date? If so,
how do web browsers and search engines consistently retrieve the
timestamps of web pages? If not, what should I do differently?
Sincere thanks for any help.
In case it helps, the source code I'm using is below:
----------
# Create a user agent object
use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
# Create a request
my $req = new HTTP::Request HEAD => 'http://www.tripod.com';
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
# Pass request to the user agent and get a response back
my $res = $ua->request($req);
# Check the outcome of the response
unless ($res->is_success) {
print "Bad luck this time\n";
}
print "Content-type:text/html\n\n";
# the last_modified variable
$date = $res->last_modified;
# get all the header info at once
$string = $res->headers_as_string();
# print header
print "<pre>$date";
print "\n\n$string</pre>";
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 12 Oct 1999 09:40:01 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: search engine!!
Message-Id: <slrn8060gu.972.mgjv@wobbie.heliotrope.home>
[if you must post the same question to multiple newsgroups, at least
crosspost. Don't post the same message multiple times.]
On Mon, 11 Oct 1999 18:03:08 +0100 (BST),
Daniel Lee <daniel_lsl@go.com> wrote:
> Hi I'm currently doing a project on web search engine. I'm
> contemplating on whether to use Java or Perl. Can anyone out there
> advice me on which language
I'd use C. With the amount of data you're going to have to process,
you might need every bit of micro-optimisation you can get, both for
CPU usage and memory usage. C is best suited for that, Java probably
least.
Besides that, I find Java too restricting and too slow. Perl would do
a reasonable job, but I think it would be too much of a memory hog for
many of the things that are going to be necessary.
Estimated coding effort: least in Perl, more in Java, most in C.
Suggested effort for you: Get familiar with the languages, and make
your own decision. No one can make it for you.
The most important issue is how comfortable you are with the language.
Platform and hardware that are going to be used are also important,
but less so.
But what exactly does this have to do with perl? You should probably
ask this in one of the *.programmer groups.
Martien
--
Martien Verbruggen |
Interactive Media Division | Freudian slip: when you say one thing but
Commercial Dynamics Pty. Ltd. | mean your mother.
NSW, Australia |
------------------------------
Date: Tue, 12 Oct 1999 11:56:09 +0100
From: kev <kevin.porter@fast.no>
Subject: Re: simple search
Message-Id: <380313C9.CB0D01BA@fast.no>
OK thanks Abigail, I just needed to know I wasn't missing anything.
I suppose I'll opt for the 'real' search engine (I would consider a hacked-up
solution with grep and regexes to be a 'fake' :).
Can anyone point me in the direction of a suitable (and free!) Perl search engine
package?
thanks,
- Kev
------------------------------
Date: 12 Oct 1999 11:44:51 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: simple search
Message-Id: <slrn8067r3.9ai.mgjv@wobbie.heliotrope.home>
On Tue, 12 Oct 1999 11:56:09 +0100,
kev <kevin.porter@fast.no> wrote:
> Can anyone point me in the direction of a suitable (and free!) Perl
> search engine package?
Use the web, Luke.
We're not here to find software for you. The search engines on the web
are much better at that.
That said, have a look at http://www.searchtools.com/
I've heard good things about Harvest, ht://Dig, and Glimpse, but you
may want something else.
Martien
PS. Why limit yourself to a tool written in Perl?
PPS. Oh, just a warning, stay away from anything with 'Matt Wright' or
'Selena Sol' in the name. These things were written with the best of
intentions, but are severely out of date, and unmaintained, I believe.
Also, the programmer wasn't exactly experienced when he wrote them.
--
Martien Verbruggen |
Interactive Media Division | Failure is not an option. It comes bundled
Commercial Dynamics Pty. Ltd. | with your Microsoft product.
NSW, Australia |
------------------------------
Date: Tue, 12 Oct 1999 09:26:43 GMT
From: schablone@my-deja.com
Subject: Re: tmtowtdt? Getting the date
Message-Id: <7tuusb$e23$1@nnrp1.deja.com>
In article <s04pa0bth1s61@corp.supernews.com>,
cberry@cinenet.net (Craig Berry) wrote:
> schablone@my-deja.com wrote:
> : In order to proceed with my plans for complete world domination I
need
> : to get the current date in the format "yyyy.mm.dd". This is the way
> : I have come up with:
> :
> : #!/usr/bin/perl -w
> : use strict;
> :
> : my $Today = ((localtime)[5]+1900)."." .((localtime)[4]+1) ."."
> : .(localtime)[3];
>
> Notice that this won't give you the guarantee of two-place month and
day
> values that your template above (mm.dd) seems to specify.
Hand (mine). Forehead (mine). SLAP! I was tired, and it was the 11th of
October, so it worked anyway.
> I'd tend to
> write this as
>
> my ($day, $month, $year) = (localtime)[3, 4, 5];
>
> $month++;
> $year += 1900;
>
> my $Today = sprintf "$year.%02d.%02d", $month, $day;
>
> This will yield e.g. '1999.07.04' for the 4th of July this year.
>
> : Are there other ways of doing this? Preferably shorter and/or more
> : cryptic)?
>
> use POSIX;
> my $Today = strftime('%Y.%m.%d', localtime);
Ah, that's what I was looking for :-) Please accept a few units
of my mortal gratitude.
> Best of luck on the whole world domination thing, by the way.
Thanks, I'll let you know when I've succeeded.
> I mean, we
> will bury you and all that, but best of luck.
I have of course passed your details on to my secret police. They may
only be Playmobil figures (I've just started out, so I'm a bit short on
staff) but I do get them up at 5am everyday and give them karate
lessons, so they're pretty mean.
Well, must get on, I've got a whole batch of conspiracy theories to make
up.
Yours
Schablonski
currently ranked at 154,274,973 in the Potential World Dictators' League
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 12 Oct 1999 09:11:47 GMT
From: Jeremy Gurney <c4jgurney@my-deja.com>
Subject: Re: Use Perl to Close File In Use on NT?
Message-Id: <7tuu0d$ddm$1@nnrp1.deja.com>
In article <MawM3.149$BG2.1345@newsfeed.slurp.net>,
"Sean Montgomery" <smontgomery@digitalblaze.net> wrote:
> I need to be able to write a Perl script that allows closing a file on
a
> remote NT server (NT4).
I've never actually used it but I came across a utility which might
help.
http://www.jsiinc.com/default.htm?/TIP0100/rh0136.htm
Jeremy Gurney
SAS Programmer | Proteus Molecular Design Ltd.
"What if there were no hypothetical situations?"
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 12 Oct 1999 05:59:47 -0400
From: "Harlan Carvey, CISSP" <carvdawg@patriot.net>
Subject: Re: Use Perl to Close File In Use on NT?
Message-Id: <38030693.9EF61DC8@patriot.net>
Sean,
Yes, this functionality is in Win32::Lanman. You can find this module at
multiple sites,
to include Dave Roth's (http://www.roth.net)
Sean Montgomery wrote:
> I need to be able to write a Perl script that allows closing a file on a
> remote NT server (NT4). In other words, I am on server A and somebody has
> the file 'somefile.exe' open on server B. Is it possible that Perl can
> close this file handle? The problem is that we are attempting to replace
> 'somefile.exe' with an updated version, and it fails because the file is in
> use. I can manually close the file through File Manager or Server Manager,
> but we'd like to automate this process.
>
> Any help is appreciated.
>
> Sean Montgomery
------------------------------
Date: Tue, 12 Oct 1999 11:01:20 GMT
From: Kenneth Bandes <kbandes@home.com>
Subject: Re: We do complex Perl Programming
Message-Id: <3803152A.E854B2A3@home.com>
"Keith G. Murphy" wrote:
> > >We are an E-commerce based company and do any type of complex Perl
> > >programming in record time.
> >
> > Congratulations. What is your record up to now ? :o
> >
> I wonder if people in other professions goof on want ads in this way?
That was no want ad. Imagine a Doctor's newsgroup getting the
following:
We do expert brane sergery! Absolute lowest prices guaranteed!
Come see our happy customers at www.prefrontal.com!
Ken Bandes
------------------------------
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 1047
**************************************
