[28971] in Perl-Users-Digest
Perl-Users Digest, Issue: 215 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Mar 11 14:09:50 2007
Date: Sun, 11 Mar 2007 11:09:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 11 Mar 2007 Volume: 11 Number: 215
Today's topics:
Re: Convert IEEE single from integer representation <nospam-abuse@ilyaz.org>
Graphing with Perl cylurian@gmail.com
Re: Graphing with Perl (DF4OR)
Re: Graphing with Perl <rvtol+news@isolution.nl>
Re: invoking system commands from a perl script <vaibhav.aparimit@gmail.com>
Re: invoking system commands from a perl script anno4000@radom.zrz.tu-berlin.de
Re: net::ssh and functions anno4000@radom.zrz.tu-berlin.de
new CPAN modules on Sun Mar 11 2007 (Randal Schwartz)
Re: problem cgi <john.swilting@wanadoo.fr>
Re: problem cgi <john.swilting@wanadoo.fr>
Re: problem cgi <john.swilting@wanadoo.fr>
Re: Rindex used to find end of a string <rvtol+news@isolution.nl>
Re: Sending an incomplete file? burak@stolenradio.com
unknow <:o) <john.swilting@wanadoo.fr>
Re: unknow <:o) <john.swilting@wanadoo.fr>
Re: updating date field in MS Access <rvtol+news@isolution.nl>
Use Perl to Fix DST on Windows Computer <sorry_no_email@yahoo.com>
Re: Use Perl to Fix DST on Windows Computer <hjp-usenet2@hjp.at>
Re: Use Perl to Fix DST on Windows Computer <jurgenex@hotmail.com>
Re: Use Perl to Fix DST on Windows Computer <jason.mangiafico@verizon.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 11 Mar 2007 10:38:48 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Convert IEEE single from integer representation
Message-Id: <et0m7o$1psp$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
A. Sinan Unur
<1usa@llenroc.ude.invalid>], who wrote in article <Xns98EFBA3051F7Dasu1cornelledu@127.0.0.1>:
> > Keep in mind that there is no such thing as "an IEEE format". IEEE
> > requires a certain *semantic* of floats, not a particular way of
> > binary representation. However, IIRC, all but 2 architechtures use
> > one of two representations, related to each other as V is to N
> > (pack-parlance).
>
> I was using the word 'format' not to refer to the way they were stored
> on disk but rather what the bits mean once you have it in the
> appropriate int.
Me too.
> Would you mind posting/letting me know which two architectures you are
> referring to above?
If I remebered, I would write it down in the initial post. ;-)
If I could trust what I vaguely remember :-(, there were 2 very obscure
names I have not ever heard in any other context. ;-)
Hope this helps,
Ilya
------------------------------
Date: 10 Mar 2007 23:43:50 -0800
From: cylurian@gmail.com
Subject: Graphing with Perl
Message-Id: <1173599030.090949.45650@c51g2000cwc.googlegroups.com>
I've used Chart Plot to graph straight lines and parabolas. I've been
using Chart Plot since 1998, using version .07. I want more
functionality and control. What do people now use to graph data?
------------------------------
Date: Sun, 11 Mar 2007 10:04:40 +0100
From: "Ekki Plicht (DF4OR)" <df4or@web.de>
Subject: Re: Graphing with Perl
Message-Id: <et0gn8$bjn$03$1@news.t-online.com>
cylurian@gmail.com wrote:
> I've used Chart Plot to graph straight lines and parabolas. I've been
> using Chart Plot since 1998, using version .07. I want more
> functionality and control. What do people now use to graph data?
GD::Graph
ImageMagick (Perlmagick)
Rgds,
Ekki
------------------------------
Date: Sun, 11 Mar 2007 15:48:43 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Graphing with Perl
Message-Id: <et18fd.1d4.1@news.isolution.nl>
cylurian@gmail.com schreef:
> I've used Chart Plot to graph straight lines and parabolas. I've been
> using Chart Plot since 1998, using version .07. I want more
> functionality and control. What do people now use to graph data?
PHP PEAR Image::Graph
http://pear.veggerby.dk/
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 11 Mar 2007 08:30:21 -0700
From: "vabby" <vaibhav.aparimit@gmail.com>
Subject: Re: invoking system commands from a perl script
Message-Id: <1173627021.574379.153870@q40g2000cwq.googlegroups.com>
so using backticks or system is teh same thing except when you want to
capture the result value of teh command. my idea of asking the
question was that somebody told me , that using system to execute unix
commands, is the synchronous way of doing it, and using backticks the
asynchronous way
------------------------------
Date: 11 Mar 2007 17:25:06 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: invoking system commands from a perl script
Message-Id: <55isbiF25ccmmU1@mid.dfncis.de>
vabby <vaibhav.aparimit@gmail.com> wrote in comp.lang.perl.misc:
> so using backticks or system is teh same thing except when you want to
> capture the result value of teh command.
Its *output*. The term "result value" is ambiguous at best.
> my idea of asking the
> question was that somebody told me , that using system to execute unix
> commands, is the synchronous way of doing it, and using backticks the
> asynchronous way
If by "synchronous" you mean you don't get control back before the
command has been executed, both are synchronous. To get asynchronous
behavior, in the sense that your Perl program keeps running while the
external program executes, you'll need forking. That can happen
directly or through appropriate calls of open().
Anno
------------------------------
Date: 11 Mar 2007 15:10:35 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: net::ssh and functions
Message-Id: <55ikfbF25jikvU1@mid.dfncis.de>
usaims <usaims@yahoo.com> wrote in comp.lang.perl.misc:
> On Mar 9, 6:02 pm, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
> wrote:
> > usaims wrote:
> > > Hello:
> >
> > > This is my objective. I'm trying to ssh into a linux node, open a file
> > > and display the contents on my terminal, below is the code. I'm
> > > getting the following error:
> > > bash: -c: line 1: syntax error near unexpected token `0x91134c8'
> > > bash: -c: line 1: `CODE(0x91134c8)'
> >
> > > Does anybody have a clue?
> > > ########################################
> > > #!/usr/bin/perl -w
> > > use warnings;
> > > use strict;
> > > use Net::SSH qw(ssh issh sshopen2 sshopen3);
> > > my $variable = \&FUNCTION;
> >
> > > ssh('someu...@xxx.xxx.xxx', $variable );
> >
> > > sub FUNCTION {
> > > open(FILE, "/stuff/log.txt");
> > > print FILE;
> > > }
> > > ########################################
> >
> > You'd be better off using the supported methods, which are well documented.
> >
> > ssh('user@hostname', $command);
> >
> > $command is a scalar. e.g. my $command = '/bin/ls /tmp';- Hide quoted text -
> >
> > - Show quoted text -
>
> Thanks, but I need a function there so I can do multiple things while
> I'm ssh-ed into the node.
First: You may need a function, but not a Perl function, but a function
that ssh can execute on the remote machine.
Second: What you give to ssh is not the Perl function you wrote but
a stringified version of a coderef to the Perl function. In effect,
the $command you are giving to ssh() will look like "CODE(0x91134c8)".
A remote shell won't know what to do with that. That's the error
message you're getting.
Third: If our function is supposed to display the file "/stuff/log.txt",
it won't do that, not even if called correctly as a Perl function. But
the point is moot, you can't (easily) use that on the remote machine
anyhow.
Supposing the remote system is somewhat Unix-like, try
"cat /stuff/log.txt" as the remote command.
Anno
------------------------------
Date: Sun, 11 Mar 2007 05:42:09 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Mar 11 2007
Message-Id: <JEq569.20yu@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Acme-Hyde-0.04
http://search.cpan.org/~nozzzzz/Acme-Hyde-0.04/
Hyde Calculator
----
Alien-wxWidgets-0.28
http://search.cpan.org/~mbarbon/Alien-wxWidgets-0.28/
building, finding and using wxWidgets binaries
----
Apache-SWIT-0.24
http://search.cpan.org/~bosu/Apache-SWIT-0.24/
mod_perl based application server with integrated testing.
----
Apache-ServerStatus-0.01
http://search.cpan.org/~bloonix/Apache-ServerStatus-0.01/
Simple module to parse apache's server-status.
----
Apache-Session-1.82_01
http://search.cpan.org/~chorny/Apache-Session-1.82_01/
A persistence framework for session data
----
Blikistan-0.03
http://search.cpan.org/~lukec/Blikistan-0.03/
Create a blog from content in a wiki
----
Catalyst-Log-Log4perl-0.51
http://search.cpan.org/~holoway/Catalyst-Log-Log4perl-0.51/
Log::Log4perl logging for Catalyst
----
Catalyst-Plugin-CRUD-0.14
http://search.cpan.org/~bayside/Catalyst-Plugin-CRUD-0.14/
CRUD (create/read/update/delete) Plugin for Catalyst
----
Data-Validate-0.08
http://search.cpan.org/~sonnen/Data-Validate-0.08/
common data validation methods
----
Date-Holidays-ES-0.01
http://search.cpan.org/~fmerges/Date-Holidays-ES-0.01/
Spanish holidays
----
FCGI-Async-0.09
http://search.cpan.org/~pevans/FCGI-Async-0.09/
Module to allow use of FastCGI asynchronously
----
File-FilterFuncs-0.52_12
http://search.cpan.org/~mumiaw/File-FilterFuncs-0.52_12/
specify filter functions for files
----
Finance-ChartHist-0.03
http://search.cpan.org/~garthd/Finance-ChartHist-0.03/
Perl module to produce historical stock price graphs
----
Getopt-Mixed-1.09
http://search.cpan.org/~cjm/Getopt-Mixed-1.09/
getopt processing with both long and short options
----
Image-Pngslimmer-0.15
http://search.cpan.org/~acmcmen/Image-Pngslimmer-0.15/
slims (dynamically created) PNGs
----
Makefile-GraphViz-0.14
http://search.cpan.org/~agent/Makefile-GraphViz-0.14/
Plot the Detailed Structure of Makefiles Using GraphViz
----
Makefile-Parser-0.12
http://search.cpan.org/~agent/Makefile-Parser-0.12/
A Simple Parser for Makefiles
----
Makefile-Parser-0.13
http://search.cpan.org/~agent/Makefile-Parser-0.13/
A Simple Parser for Makefiles
----
Makefile-Parser-0.14
http://search.cpan.org/~agent/Makefile-Parser-0.14/
A simple parser for Makefiles
----
Sepia-0.65
http://search.cpan.org/~seano/Sepia-0.65/
Simple Emacs-Perl Interface
----
Spork-S5ThemeBlue-0.03
http://search.cpan.org/~fmerges/Spork-S5ThemeBlue-0.03/
Blue Theme for Spork::S5
----
Template-Plugin-Perl-0.05
http://search.cpan.org/~agent/Template-Plugin-Perl-0.05/
TT2 plugin to import Perl built-in functions
----
Test-TAP-HTMLMatrix-0.06
http://search.cpan.org/~gaal/Test-TAP-HTMLMatrix-0.06/
Creates colorful matrix of Test::Harness friendly test run results using Test::TAP::Model.
----
Test-Timer-0.02
http://search.cpan.org/~jonasbn/Test-Timer-0.02/
a test module to test/assert response times
----
Text-Wrap-Smart-0.5
http://search.cpan.org/~schubiger/Text-Wrap-Smart-0.5/
Wrap text into chunks of equal length
----
UNIVERSAL-ref-0.07
http://search.cpan.org/~jjore/UNIVERSAL-ref-0.07/
Turns ref() into a multimethod
----
Wx-0.68
http://search.cpan.org/~mbarbon/Wx-0.68/
interface to the wxWidgets cross-platform GUI toolkit
----
XML-MyXML-0.0968
http://search.cpan.org/~karjala/XML-MyXML-0.0968/
A simple-to-use XML module, for parsing and creating XML documents
----
ack-1.60
http://search.cpan.org/~petdance/ack-1.60/
grep-like text finder
----
dvdrip-0.98.3
http://search.cpan.org/~jred/dvdrip-0.98.3/
----
mocked-0.03
http://search.cpan.org/~lukec/mocked-0.03/
use mocked libraries in unit tests
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sun, 11 Mar 2007 11:24:19 +0100
From: "john.swilting" <john.swilting@wanadoo.fr>
Subject: Re: problem cgi
Message-Id: <45f3d8d5$0$5105$ba4acef3@news.orange.fr>
A. Sinan Unur wrote:
> anno4000@radom.zrz.tu-berlin.de wrote in
> news:55gmdhF23ur54U1@mid.dfncis.de:
>
> Well, it is worth checking out his adventures there, if only for a
> chuckle.
>
>
http://groups.google.com/group/fr.comp.lang.perl/msg/dad78040e17b16c7?dmode=source
>
> Sinan
>
good, I succeeded in making it however function you did not help me much
after I have an e-mail form which functions and I should take time to check
well the entries of the form of order
I progress live peace and happiness
my code:
#!/usr/bin/perl -w
use diagnostics;
use strict;
use CGI qw(:standard escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
my %params;
my $cgi;
my $key;
my $image;
my $action;
$cgi = new CGI;
%params = $cgi->Vars;
for $key(sort keys %params){
$image = $key;
$action = $params{$key};
}
print header,start_html('Commande'),h1('Bon de
Commande'),start_form,p("value formulaire",tt(escapeHTML($image))),p("value
param",tt(escapeHTML($action))),submit,end_form,end_html;
------------------------------
Date: Sun, 11 Mar 2007 12:19:29 +0100
From: <john.swilting@wanadoo.fr>
Subject: Re: problem cgi
Message-Id: <45f3e5c4$0$5066$ba4acef3@news.orange.fr>
I am not very strong in perl.I become stronger in perl.I understand than all
the questions cannot be milked but to give the bond of one of my posts on
fr.comp.lang.perl they are not sympathetic it does not answer me .Fr, there
is no activiter and the majoriter questions are very simple example I never
see Canadian on the news Fr on bzflag there are Canadian
"john.swilting" <john.swilting@wanadoo.fr> a écrit dans le message de news:
45f3d8d5$0$5105$ba4acef3@news.orange.fr...
> A. Sinan Unur wrote:
>
>> anno4000@radom.zrz.tu-berlin.de wrote in
>> news:55gmdhF23ur54U1@mid.dfncis.de:
>>
>> Well, it is worth checking out his adventures there, if only for a
>> chuckle.
>>
>>
> http://groups.google.com/group/fr.comp.lang.perl/msg/dad78040e17b16c7?dmode=source
>>
>> Sinan
>>
> good, I succeeded in making it however function you did not help me much
> after I have an e-mail form which functions and I should take time to
> check
> well the entries of the form of order
> I progress live peace and happiness
> my code:
> #!/usr/bin/perl -w
> use diagnostics;
> use strict;
> use CGI qw(:standard escapeHTML);
> use CGI::Carp qw(fatalsToBrowser);
>
> my %params;
> my $cgi;
> my $key;
> my $image;
> my $action;
> $cgi = new CGI;
> %params = $cgi->Vars;
> for $key(sort keys %params){
> $image = $key;
> $action = $params{$key};
> }
> print header,start_html('Commande'),h1('Bon de
> Commande'),start_form,p("value
> formulaire",tt(escapeHTML($image))),p("value
> param",tt(escapeHTML($action))),submit,end_form,end_html;
------------------------------
Date: Sun, 11 Mar 2007 14:06:59 +0100
From: <john.swilting@wanadoo.fr>
Subject: Re: problem cgi
Message-Id: <45f3fef6$0$27403$ba4acef3@news.orange.fr>
you signed the petition anti drm
http://www.defectivebydesign.org/
"A. Sinan Unur" <1usa@llenroc.ude.invalid> a écrit dans le message de news:
Xns98EFB4E0FCCF3asu1cornelledu@127.0.0.1...
> anno4000@radom.zrz.tu-berlin.de wrote in
> news:55gmdhF23ur54U1@mid.dfncis.de:
>
>> john.swilting <john.swilting@wanadoo.fr> wrote in comp.lang.perl.misc:
> Well, it is worth checking out his adventures there, if only for a
> chuckle.
>
>
> Sinan
>
> --
> A. Sinan Unur <1usa@llenroc.ude.invalid>
> (remove .invalid and reverse each component for email address)
>
> comp.lang.perl.misc guidelines on the WWW:
> http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
>
------------------------------
Date: Sun, 11 Mar 2007 16:02:40 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Rindex used to find end of a string
Message-Id: <et19c0.1jc.1@news.isolution.nl>
Ben Morrow schreef:
> $str =~ s/\s*$//;
ITYM: $str =~ s/\s+$//;
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 11 Mar 2007 00:34:49 -0800
From: burak@stolenradio.com
Subject: Re: Sending an incomplete file?
Message-Id: <1173602089.697502.207250@8g2000cwh.googlegroups.com>
On Mar 10, 9:14 am, Tad McClellan <t...@augustmail.com> wrote:
> b...@stolenradio.com <b...@stolenradio.com> wrote:
> > On Mar 10, 1:05 am, b...@stolenradio.com wrote:
> >> BUT, if the file is incomplete when this action occurs, the above code
> >> sends only what's there when you open the file, and the download ends
> >> abruptly.
> > Nevermind guys, I figured out a way to make it work.
>
> The newsgroup is all about sharing.
>
> Care to share they way to make it work, or the root cause of the problem?
>
> > It always happens
> > that whenever I post a question on Usenet, I figure it out within the
> > hour. How bizarre.
>
> If it always happens, then it cannot also be bizarre. :-)
>
> You are not alone, that happens to everybody.
>
> --
> Tad McClellan SGML consulting
> t...@augustmail.com Perl programming
> Fort Worth, Texas
Ok, here's what I did. Hopefully my comments will explain it
sufficiently. The problem is that when a large file is being generated
on the fly and a download is requested from the server, the server
will only send the portion of the file that currently exists-- ie, if
the download rate is faster than the rate of generation, the download
will "catch up" and terminate because there is no file left, even
though you haven't reached the proper end of the file. The first
technique I tried was to start an infinite loop and check the file
size as packets are being sent.. if the file size is constant after a
large number of iterations (ie 20000 or so), then you can safely
assume that the file is no longer being created and you can finish the
download safely. This has overhead, however, and is not that
efficient. So the next method I tried, which works quite well, is to
append, at the very end, a string of characters designating the end of
the file (something like "###ENDOFFILE###" or similar). So we loop
through, reading $CHUNK_SIZE bytes at a time, and look for the
$END_OF_FILE text. If we find it at the end of our chunk, we omit the
end of file marker (as to not corrupt the file) and terminate the
script. Here's the main loop:
## open file, set up variables, etc. I omitted this part. You don't
really need to see it...
while (1) {
# where we are currently in the file. seek to there, and read into
$buffer
$pos = tell(FILE);
seek(FILE, $pos, 0);
read(FILE, $buffer, $CHUNK_SIZE);
# now, look one buffer size ahead. why? because if a buffer contains
at the end "###ENDO", we need to know if the next buffer will be
"FFILE###". it is very likely that a buffer will grab only part of our
end of file text
$pos2 = tell(FILE);
seek(FILE, $pos2, 0);
read(FILE, $buffer2, $CHUNK_SIZE);
# seek back to the original position so that in the next iteration,
we're in the right place
# this is NOT the best way to do this, and i will revise it. re-
reading a chunk is unnecessary here. i just got lazy
seek(FILE, $pos, 0);
read(FILE, $buffer, $CHUNK_SIZE);
#this conditional checks one buffer ahead. if the buffer ahead is less
than the length of the end of file text, we should check to see if it
contains our text. if it does, check the current buffer to see if it
has the other part of our text. if it does, print out the current
buffer, omitting our text, and quit the loop
if (length($buffer2) < $EOF_LEN) {
if ($buffer2 eq substr($END_OF_FILE, $EOF_LEN-length($buffer2)) ) {
if (substr($buffer, length($buffer)-($EOF_LEN-length($buffer2))) eq
substr($END_OF_FILE, 0, ($EOF_LEN-length($buffer2))) ) {
print substr($buffer, 0, length($buffer)-($EOF_LEN-
length($buffer2)));
last;
}
}
}
#assuming that the buffer ahead doesnt contain part of our end of
file, check to see if the current buffer has the whole end of file and
quit the loop. if so, print the buffer, omitting the end of file. if
not, just print the buffer.
if (substr($buffer, length($buffer)-$EOF_LEN) eq $END_OF_FILE) {
print substr($buffer, 0, length($buffer)-$EOF_LEN);
last;
} else {
print $buffer;
}
$count++;
}
This technique works quite well, and I've tested it many times without
issues. I hope it helps someone out there.
I also realize this may not be the best way to do it. If anyone has
other suggestions, throw em at me!
------------------------------
Date: Sun, 11 Mar 2007 17:46:48 +0100
From: <john.swilting@wanadoo.fr>
Subject: unknow <:o)
Message-Id: <45f43278$0$5102$ba4acef3@news.orange.fr>
http://www.bonjour-america.com/
------------------------------
Date: Sun, 11 Mar 2007 18:18:03 +0100
From: <john.swilting@wanadoo.fr>
Subject: Re: unknow <:o)
Message-Id: <45f439cd$0$27388$ba4acef3@news.orange.fr>
there is a podcast available with iTunes
<john.swilting@wanadoo.fr> a écrit dans le message de news:
45f43278$0$5102$ba4acef3@news.orange.fr...
> http://www.bonjour-america.com/
>
------------------------------
Date: Sun, 11 Mar 2007 16:33:51 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: updating date field in MS Access
Message-Id: <et1b4c.1p8.1@news.isolution.nl>
Lambik schreef:
> Access stores
> the dates in dd-mm-yyyy or mm-dd-yyyy depending on your windows
> country setting
Try #yyyy-mm-dd#
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 11 Mar 2007 08:01:45 -0700
From: "EdwardATeller" <sorry_no_email@yahoo.com>
Subject: Use Perl to Fix DST on Windows Computer
Message-Id: <1173625305.025759.269330@c51g2000cwc.googlegroups.com>
Before I bust my head against a wall, do you think it's possible to
use Perl to update the time in my Windows computer? My OS cannot be
patched.
Ideally, I would write a Perl script that gets GMT from the internet,
adds the proper offset according to my time zone and DST status, and
then updates the time in my Windows system.
------------------------------
Date: Sun, 11 Mar 2007 16:17:48 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Use Perl to Fix DST on Windows Computer
Message-Id: <slrnev87cs.84q.hjp-usenet2@yoyo.hjp.at>
On 2007-03-11 15:01, EdwardATeller <sorry_no_email@yahoo.com> wrote:
> Before I bust my head against a wall, do you think it's possible to
> use Perl to update the time in my Windows computer? My OS cannot be
> patched.
>
> Ideally, I would write a Perl script that gets GMT from the internet,
> adds the proper offset according to my time zone and DST status, and
> then updates the time in my Windows system.
>
That would certainly be a possibility. I doubt it's necessary, though. I
remember that even in Windows95 the start and end of DST were a simply
registry setting. No need to patch the OS - just put the right values
into the registry.
hp
--
_ | Peter J. Holzer | Blaming Perl for the inability of programmers
|_|_) | Sysadmin WSR | to write clearly is like blaming English for
| | | hjp@hjp.at | the circumlocutions of bureaucrats.
__/ | http://www.hjp.at/ | -- Charlton Wilbur in clpm
------------------------------
Date: Sun, 11 Mar 2007 15:45:09 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Use Perl to Fix DST on Windows Computer
Message-Id: <9uVIh.9071$d8.8632@trndny07>
EdwardATeller wrote:
> Before I bust my head against a wall, do you think it's possible to
> use Perl to update the time in my Windows computer?
I don't see any reason why you couldn't just call the "date" command.
However, -although not a Perl issue- I would suggest to simply update your
system. The proper updates for the new DST in the USA have been available
for quite some time.
> My OS cannot be
> patched.
Then maybe you should look into fixing this problem? After all, you are
missing many, many other updates, too, which are more important than this
stupid DST change update.
jue
------------------------------
Date: 11 Mar 2007 08:49:13 -0700
From: "jason.mangiafico@verizon.net" <jason.mangiafico@verizon.net>
Subject: Re: Use Perl to Fix DST on Windows Computer
Message-Id: <1173628153.821591.176440@p10g2000cwp.googlegroups.com>
quoting:
> Before I bust my head against a wall, do you think it's possible to
> use Perl to update the time in my Windows computer? My OS cannot be
> patched.
>
> Ideally, I would write a Perl script that gets GMT from the internet,
> adds the proper offset according to my time zone andDSTstatus, and
> then updates the time in my Windows system.
What Windows version? Most can be patched via the registry, and there
are several unofficial patches available that automate the process.
The ones on intelliadmin.com are very good, and I've used them on my
windows 2000 and 98 systems.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 215
**************************************
