[11322] in Perl-Users-Digest
Perl-Users Digest, Issue: 4922 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 17 20:07:27 1999
Date: Wed, 17 Feb 99 17:00:23 -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 Wed, 17 Feb 1999 Volume: 8 Number: 4922
Today's topics:
"use lib" not working on Windows NT (ActiveState build rsgoheen@my-dejanews.com
Academic Assistance in Programming Languages <tutoraid@mail.excite.com>
aWebVisit / aWebVisit-Map 0.1.6 : follow the links (Michel Dalle)
Re: Can anyone convert this VB script to Perl? (win32:: Richard.Mayston@mfat.govt.nz
converting a standard number to a currency-like number <peter@richmd.demon.co.uk>
D'oh! (Re: "use lib" not working on Windows NT (ActiveS rsgoheen@my-dejanews.com
Re: delete line? <thelma@alpha2.csd.uwm.edu>
FAQ 5.1: How do I flush/unbuffer an output filehandle? <perlfaq-suggestions@perl.com>
Global Variables p.j.howarth@cms.salford.ac.uk
Intresting Error <wfs-dominion@worldnet.att.net>
LDAP programming in Perl? dubing@lisco.com
Re: LDAP programming in Perl? <lusol@Pandora.CC.Lehigh.EDU>
Re: MASS EMAIL (Martien Verbruggen)
Re: MySQL Perl Interface <bosco@ipoline.com>
New XML Speech Technology on alphaWorks newapps@my-dejanews.com
Permission denied (can't output) <philip.class@popcorn-studio.ch>
permissions <webdude@mcminn.net>
Re: PFR: UTC_to_Epoch (Bennett Todd)
Re: regex poll (Ilya Zakharevich)
shell access <bgarrett@hamilton.net>
Re: SNMPerl <carvdawg@patriot.net>
Re: Speed Up Perl (Bart Lateur)
Re: using perl <NetMaster@bc.sympatico.ca>
Re: Windoze Dial up networking with PERL <carvdawg@patriot.net>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 17 Feb 1999 22:26:09 GMT
From: rsgoheen@my-dejanews.com
Subject: "use lib" not working on Windows NT (ActiveState build 506)
Message-Id: <7afflm$rl3$1@nnrp1.dejanews.com>
I'm porting over some CGI scripts from UNIX to NT. I appear to be having a
problem with the "use lib" statement, though. Any module I try to call that
has been pointed to via "use lib" is not found ("Undefined subroutine . . .
.").
The script worked fine before on UNIX, and I've tried a couple of different
ways of specifying the directory, none of which seem to help:
use lib '/InetPub/cgi-bin';
use lib 'E:\InetPub\cgi-bin';
use lib '.';
Is "use lib" not supported under NT? Do I need to configure Perl in a
specific way to get this to work? Or am I just doing this wrong, and was
somehow getting away with it on UNIX?
TIA.
Robert S. Goheen
robertg@methodologie.com
(posted using DejaNews.com)
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 17 Feb 99 18:56:33 -0600
From: Academic Assistance Access <tutoraid@mail.excite.com>
Subject: Academic Assistance in Programming Languages
Message-Id: <8d70.10a61.37a@compaq>
Academic Assistance Access is a free tutoring service on the Web
designed to offer assistance in Programming Languages for post
secondary students. If you are looking for answers to your Programming
Languages questions, our team of professionals can help you make the
grade!!!
Please, do not ask questions by replying to this message. For assistance
you should first subscribe to the following address:
http://www.tutoraid.org/
George Richards
Academic Assistance Access
------------------------------
Date: Thu, 18 Feb 1999 00:34:26 GMT
From: michel.dalle@usa.net (Michel Dalle)
Subject: aWebVisit / aWebVisit-Map 0.1.6 : follow the links
Message-Id: <7afn4n$rqc$2@xenon.inbe.net>
Hi,
the new version of aWebVisit now supports configurable exclusion or inclusion
of URLs, hosts, entry points (e.g. for robots), partial removal or replacement
of URLs, etc. for those people who don't know or like pipes, grep, sed, awk,
..
And more important (IMHO), there is now a companion CGI program called
aWebVisit-Map that allows you to follow links from entry points to transit
points etc., and examine the links leading to and going from each visited
web page.
They can both be found at :
http://gallery.uunet.be/Michel.Dalle/awv.html
Tell me what you think about it,
Michel.
P.S.: if somebody could put the CGI somewhere on the web, I could refer
to it rather than to my limited sample output - no CGI here :-(
------------------------------
Date: Wed, 17 Feb 1999 23:17:58 GMT
From: Richard.Mayston@mfat.govt.nz
Subject: Re: Can anyone convert this VB script to Perl? (win32::ole)
Message-Id: <7afimu$ua7$1@nnrp1.dejanews.com>
Many thanks, that was a great start & I feel VERY close, but not quite there
yet. It seems to log in OK, select the Inbox OK, but then how to access the
messages?. The ActiveState Perl OLE syntax had me fooled for a while!.
use Win32::ole;
$LogonName = "Richard Mayston";
$objSession = Win32::OLE->new('MAPI.Session', \&OleQuit) or die "Oops, cannot
start MAPI.Session: $!";
die "Logon: $!" if $objSession->Logon($LogonName);
$objMsgColl = $objSession->Inbox.Messages;
$objMessage = $objMsgColl->GetFirst;
#this returns...Can't locate object method "GetFirst" via package
"Win32::OLE=HASH(0xcaff64)Messages" at exchange.pl line 7.
# VB example
# ` create a session then log on, supplying username and password
# Set objSession = CreateObject("MAPI.Session")
# ` change the parameters to valid values for your configuration
# objSession.Logon 'profileName:="Richard Mayston"'
# ` use an explicit variable to refer to the collection;
# ` the Get methods return two different messages
# Set objMsgColl = objSession.Inbox.Messages
# Set objMessage = objMsgColl.GetFirst
# ` ...
# Set objMessage = objMsgColl.GetNext
sub OleQuit {
my $self = shift;
$self->Quit;
}
In article <7adqke$nm6$1@news1.fast.net>,
"John Counts" <jcounts@voicenet.com> wrote:
> I'm only guessing because we don't have an exchange server, but I use
> Win32::OLE to use ADO objects so the syntax should be similar. I'm sure
> there are plenty of mistakes, but it might help you get started.
>
> #! c:/perl/bin/perl.exe -w
>
> use Win32::OLE;
>
> $objSession = CreateObject OLE ("MAPI.Session") ;
> $objSession->Logon (profileName:="Princess Leia");
> $objMessages = CreateObject OLE("MAPI.[Messages Collection]);
> $objMessages -> Open ([Messages Collection]); # I'm guessing that there is
> an open member
> $retval = &Util_CountUnread();
> print "Unread messages = $retval\n";
>
> sub Util_CountUnread {
> $cUnread = 0;
> if ( ! defined ($objMessages)){
> print "must select a messages collection\n";
> return (0);
> }
> $objMessages->GetFirst;
> while (defined($objMessages)) {
> if ($objMessage->Unread) {
> $cUnread++;
> }
> $objMessages->GetNext;
> }
> return ($cUnread);
> }
>
> Richard.Mayston@mfat.govt.nz wrote in message
> <7ad59g$qjj$1@nnrp1.dejanews.com>...
> >We have an Exchange4.0 server with a couple of mailboxes that do automatic
> >document conversions, and occasionally the the process dies & the messages
> >bank up in the mailbox. I'd like a Perl script the checks for unread
> messages
> >& alerts the HelpDesk if necessary. Technet has an article Programmer's
> >Guide: MS OLE Messaging with a Visual Basic example.
> >
> >Can anyone help convert the following VB script to Perl?
> >I've got as far as:
> >use Win32::OLE;
> >
>
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 18 Feb 1999 00:06:03 +0000
From: Peter Richmond <peter@richmd.demon.co.uk>
Subject: converting a standard number to a currency-like number
Message-Id: <36CB596B.31238CBD@richmd.demon.co.uk>
Hi,
Sorry if the subject is not clear. Here is the problem...
I have a numerical value: 2474911568
And i need to convert it into: 2,474,911,568
Can any help me solve this problem?
Thank You.
--
Peter.
PS: Please reply to my email address rather than the newsgroup. Thanks
------------------------------
Date: Thu, 18 Feb 1999 00:03:02 GMT
From: rsgoheen@my-dejanews.com
Subject: D'oh! (Re: "use lib" not working on Windows NT (ActiveState build 506))
Message-Id: <7aflbi$h9$1@nnrp1.dejanews.com>
Ok, fingers working faster than brain today. This was actually an error I
introduced at another point, that I was too blind to see for the moment.
Sorry . . . .
In article <7afflm$rl3$1@nnrp1.dejanews.com>,
rsgoheen@my-dejanews.com wrote:
> I'm porting over some CGI scripts from UNIX to NT. I appear to be having a
> problem with the "use lib" statement, though. Any module I try to call that
> has been pointed to via "use lib" is not found ("Undefined subroutine . . .
> .").
>
> The script worked fine before on UNIX, and I've tried a couple of different
> ways of specifying the directory, none of which seem to help:
>
> use lib '/InetPub/cgi-bin';
> use lib 'E:\InetPub\cgi-bin';
> use lib '.';
>
> Is "use lib" not supported under NT? Do I need to configure Perl in a
> specific way to get this to work? Or am I just doing this wrong, and was
> somehow getting away with it on UNIX?
>
> TIA.
>
> Robert S. Goheen
> robertg@methodologie.com
> (posted using DejaNews.com)
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 17 Feb 1999 23:05:25 GMT
From: Thelma Lubkin <thelma@alpha2.csd.uwm.edu>
Subject: Re: delete line?
Message-Id: <7afhvl$6lc$1@uwm.edu>
Allan M. Due <allan@due.net> wrote:
: dan wrote in message <36CA563C.19CE6D95@mailcity.com>...
: :lets say i have the following in a file:
: :a
: :b
: :c
: :d
: :and i pass a variable through. the variable contains "b", how do i get
: :rid of the line that b is on instead of replacing it with ""? so the
: :file contains:
: :a
: :c
: :d
: :thanks
: I still think the FAQ's should be called SHF (Start Here First)
: see perlfaq5
: How do I change one line in a file/delete a line in a file/insert a line in
: the middle of a file/append to the beginning of a file?
: HTH
HTH failure:
I've been thinking of asking about how to append to the beginning
of a file on this newsgroup, but I've needed steel myself to
answers like this: I *have* read the line you quote
above in perlfaq5--unfortunately, I don't understand how what
follows it in the FAQ helps me to understand how to use the
perl -i.xxx switch [where xxx is user's chosen extension]
--so far I've chickened out and done it in the slow,
tedious way that I can get to work: open a new file; write
the new lines to it; open the old file to read; append its entries;
rename the newfile with the old file's name [first renaming the
old file with the xxx extension if a backup is wanted]
I've read the section following the quoted line several
times and I still have no idea of how to else to do it
Perhaps someone can help someone who almost never understands
a manual entry until she already understands how to do the
operation involved?
--thanks
--thelma
: AmD
------------------------------
Date: 17 Feb 1999 17:33:22 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 5.1: How do I flush/unbuffer an output filehandle? Why must I do this?
Message-Id: <36cb5fd2@csnews>
(This excerpt from perlfaq5 - Files and Formats
($Revision: 1.34 $, $Date: 1999/01/08 05:46:13 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq5.html
if your negligent system adminstrator has been remiss in his duties.)
How do I flush/unbuffer an output filehandle? Why must I do this?
The C standard I/O library (stdio) normally buffers characters sent to
devices. This is done for efficiency reasons, so that there isn't a
system call for each byte. Any time you use print() or write() in Perl,
you go though this buffering. syswrite() circumvents stdio and
buffering.
In most stdio implementations, the type of output buffering and the size
of the buffer varies according to the type of device. Disk files are
block buffered, often with a buffer size of more than 2k. Pipes and
sockets are often buffered with a buffer size between 1/2 and 2k. Serial
devices (e.g. modems, terminals) are normally line-buffered, and stdio
sends the entire line when it gets the newline.
Perl does not support truly unbuffered output (except insofar as you can
`syswrite(OUT, $char, 1)'). What it does instead support is "command
buffering", in which a physical write is performed after every output
command. This isn't as hard on your system as unbuffering, but does get
the output where you want it when you want it.
If you expect characters to get to your device when you print them
there, you'll want to autoflush its handle. Use select() and the `$|'
variable to control autoflushing (see the section on "$|" in the perlvar
manpage and the "select" entry in the perlfunc manpage):
$old_fh = select(OUTPUT_HANDLE);
$| = 1;
select($old_fh);
Or using the traditional idiom:
select((select(OUTPUT_HANDLE), $| = 1)[0]);
Or if don't mind slowly loading several thousand lines of module code
just because you're afraid of the `$|' variable:
use FileHandle;
open(DEV, "+</dev/tty"); # ceci n'est pas une pipe
DEV->autoflush(1);
or the newer IO::* modules:
use IO::Handle;
open(DEV, ">/dev/printer"); # but is this?
DEV->autoflush(1);
or even this:
use IO::Socket; # this one is kinda a pipe?
$sock = IO::Socket::INET->new(PeerAddr => 'www.perl.com',
PeerPort => 'http(80)',
Proto => 'tcp');
die "$!" unless $sock;
$sock->autoflush();
print $sock "GET / HTTP/1.0" . "\015\012" x 2;
$document = join('', <$sock>);
print "DOC IS: $document\n";
Note the bizarrely hardcoded carriage return and newline in their octal
equivalents. This is the ONLY way (currently) to assure a proper flush
on all platforms, including Macintosh. That the way things work in
network programming: you really should specify the exact bit pattern on
the network line terminator. In practice, `"\n\n"' often works, but this
is not portable.
See the perlfaq9 manpage for other examples of fetching URLs over the
web.
--
Tactical? TACTICAL!?!? Hey, buddy, we went from kilotons to megatons
several minutes ago. We don't need no stinkin' tactical nukes.
(By the way, do you have change for 10 million people?) --lwall
------------------------------
Date: Thu, 18 Feb 1999 00:11:41 GMT
From: p.j.howarth@cms.salford.ac.uk
Subject: Global Variables
Message-Id: <7aflrn$111$1@nnrp1.dejanews.com>
Basically, I have several scripts that all use a single set of 'global'
variables. I need to change these variables but through a browser interface,
what is the best way.
Help/pointers would be appreciated
Phil Howarth
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 17 Feb 1999 23:12:35 GMT
From: "Justin Saul" <wfs-dominion@worldnet.att.net>
Subject: Intresting Error
Message-Id: <7afid3$m4t@bgtnsc02.worldnet.att.net>
Hi,
I took a standard Guestbook CGI and modified it heavily to do what I want.
I actually changed it to become a very nice XML Database utility. When I
check for syntax errors on the server it comes back saying there are none.
"Great" I say. So I run it...bah comes back with an Internal Error (500), so
I went back and "chmod 755" then made sure I uploaded it correctly.
In the code I require "cgi-lib.pl" and made sure all those links were
correct. Does anyone have an idea of what went wrong?
Also I didn't really change to much and the code makes sense. It should
have worked.
How the program should work:
It displays a form. You fill in the form with your information. It takes
that and opens *.xml and puts the correct code in. Another page takes the
XML file and formats it, which has its own formating objects to get a really
cool database. Each part seperate should work without the other.
Thanks,
Justin Saul
5 Games (http://www.5games.com)
------------------------------
Date: Wed, 17 Feb 1999 21:29:38 GMT
From: dubing@lisco.com
Subject: LDAP programming in Perl?
Message-Id: <7afcbl$oa7$1@nnrp1.dejanews.com>
Hi there,
I have the book "ldap programming directory-enabled...". But it is in C. I
am more comfortable with Perl. Does anybody know where I can find on-line
docs on LDAP programming in Perl?
Any hint would be greatly appreciated. Please email me at bing-du@tamu.edu as
well. Thanks.
Bing
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 17 Feb 1999 22:30:41 GMT
From: "Stephen O. Lidie" <lusol@Pandora.CC.Lehigh.EDU>
Subject: Re: LDAP programming in Perl?
Message-Id: <7affuh$22mk@fidoii.cc.Lehigh.EDU>
dubing@lisco.com wrote:
> Hi there,
> I have the book "ldap programming directory-enabled...". But it is in C. I
> am more comfortable with Perl. Does anybody know where I can find on-line
> docs on LDAP programming in Perl?
Not really, although there is some material in Net::LDAP.
> Any hint would be greatly appreciated. Please email me at bing-du@tamu.edu as
> well. Thanks.
Here's a sample snarfed from the pod and expanded. The code that does the
actual LDAP-ing is rather minimal, but I include lots of help for the users
of the program. You'll want to use a non-Lehigh LDAP server, of course.
Net::LDAP needs lots of prereqs, so be patient and get them all (-: Once
everything is in place, type "ldap -full_help" ...
#!/usr/local/bin/perl -w
#
# ldap - simple-wildcard-capable searches of Lehigh's LDAP info.
#
# Stephen.O.Lidie@Lehigh.edu, 1999/02/08.
use Getopt::EvaP;
use Net::LDAP;
use subs qw/fini init main search/;
use vars qw/$ldap/;
use vars qw/@MM %OPT @PDT/;
use strict;
init;
main;
fini;
sub fini {
print "\n";
$ldap->unbind;
} # end fini
sub init {
@PDT = split /\n/, <<'end-of-PDT';
PDT ldap
sirname, sn: string = $optional
common_name, cn: string = $optional
userid, u: string = $optional
telephone_number, tn: string = $optional
description, d: string = $optional
verbose, v: switch
PDTEND optional_file_list
end-of-PDT
@MM = split /\n/, <<'end-of-MM';
ldap - Search Lehigh's Directory Server
LDAP (Lightweight Directory Access Protocol) defines how to manage
directory information. This client program searches Lehigh's
databases by name, userid, telephone number or description. Usage
is typically just:
ldap sirname1 sirname2 ...
The program performs a case-insensitive, exact match search for
people with the specified last name(s). In this case, all command
line parameters are ignored.
All searches are exact matches unless you use an asterick (*) for
a wildcard specification. For instance, 'mill*' matches "mill" ,
"mills" and "miller". Wildcards, and strings with spaces and/or
special characters MUST be enclosed in single quotes.
The following optional parameters allow fine-tuned searches, which
you may mix and match to limit the search results.
.sirname
Person's last name: -sn '*one*' or -sn miller
.common_name
Person's full name: -cn 'I. R. Gone'
.userid
Person's user ID: -u frog
.telephone_number
Person's telephone number: -tn '*3011'
.description
Person's position description.
.verbose
Display the actual LDAP query for debugging.
end-of-MM
$Getopt::EvaP::evap_Help_Hooks{'P_HHUOFL'} = " [sirname(s)]\n";
$Getopt::EvaP::evap_Help_Hooks{'P_HHBOFL'} =
"\nA sirname is optional on this command.\n\n";
$Getopt::EvaP::evap_Help_Hooks{'P_HHEOFL'} =
"A trailing sirname is optional on this command.\n";
EvaP \@PDT, \@MM, \%OPT;
} # end init
sub main {
$ldap = new Net::LDAP('ldap.lehigh.edu');
$ldap->bind;
$| = 1; # unbuffer output
if ($#ARGV >= 0) {
foreach my $sn (@ARGV) {
search "(sn=$sn)";
}
} else {
my $search = '';
foreach my $key (qw/sirname:sn common_name:cn userid:uid telephone_number:telephonenumber description:description/) {
my($opt, $attr) = $key =~ /(.*):(.*)/;
$search .= "($attr=$OPT{$opt})" if $OPT{$opt} ne '$optional';
}
search $search;
}
} # end main
sub search {
my($search) = @_;
print "Searching for $search.\n" if $OPT{verbose};
my $mesg = $ldap->search (base => "o=lehigh,c=US",
filter => "(&$search)"
) or die $@;
foreach my $entry ($mesg->all_entries) {
print '-' x 79, "\n\n";
foreach my $attr (qw/cn mail telephonenumber description/) {
printf "%-15s: %s\n", $attr, $entry->get($attr);
}
}
} # end search
------------------------------
Date: Wed, 17 Feb 1999 22:29:18 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: MASS EMAIL
Message-Id: <2pHy2.92$Up1.635@nswpull.telstra.net>
In article <7af9sj$3oe$1@news0-alterdial.uu.net>,
gward@cnri.reston.va.us (Greg Ward) writes:
> First of all, if this is unsolicited email, of a commercial nature or
> otherwise, then DO NOT DO THIS. Do not use ANY tool to send unsolicited
agreed.
> open (SENDMAIL, "|/usr/lib/sendmail @addresses") ||
> die "couldn't open pipe to sendmail: $!\n";
Bad. Don't use sendmail this way. Use the -t option. Avoid passing any
variables to anything that runs through a shell.
Martien
--
Martien Verbruggen |
Interactive Media Division | For heaven's sake, don't TRY to be
Commercial Dynamics Pty. Ltd. | cynical. It's perfectly easy to be
NSW, Australia | cynical.
------------------------------
Date: Wed, 17 Feb 1999 21:22:42 GMT
From: Bosco Tsang <bosco@ipoline.com>
Subject: Re: MySQL Perl Interface
Message-Id: <7afbun$nse$1@nnrp1.dejanews.com>
...continue from my last email,
Here is what the error I've got when I 'make test'. The Perl I am using is
5.004_03. Any one got any idea?
-- make[1]: Entering directory
`/root/DataBase/mysql/Msql-Mysql-modules-1.2017/Mys' PERL_DL_NONLAZY=1
/usr/local/bin/perl -I.././blib/arch -I.././blib/lib -I/usr/lt
t/00base............/usr/local/bin/perl: can't resolve symbol '__lxstat'
install_driver(mysql) failed: Can't load
'.././blib/arch/auto/DBD/mysql/mysql.s.
at (eval 1) line 2
at t/00base.t line 38 dubious Test returned status 2 (wstat 512) DIED.
FAILED tests 4-5 Failed 2/5 tests, 60.00% okay
t/10dsnlist........./usr/local/bin/perl: can't resolve symbol '__lxstat'
install_driver(mysql) failed: Can't load
'.././blib/arch/auto/DBD/mysql/mysql.s.
at (eval 1) line 2
at t/10dsnlist.t line 45 dubious Test returned status 2 (wstat 512)
Undefined subroutine &Test::Harness::WCOREDUMP called at
/usr/lib/perl5/Test/Ha. make[1]: Leaving directory
`/root/DataBase/mysql/Msql-Mysql-modules-1.2017/Mysq'
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 17 Feb 1999 23:02:29 GMT
From: newapps@my-dejanews.com
Subject: New XML Speech Technology on alphaWorks
Message-Id: <7afhpv$tdg$1@nnrp1.dejanews.com>
New XML Technology on alphaWorks
--------------------------------
SpeechML
Just as HTML can be used as a markup language for building network-based
visual applications, SpeechML is a language for building network-based
conversational applications. A conversational application is an application
that interacts with the user through spoken input and output. A network-based
application refers to one in which the elements of the conversation that
define spoken output and input - SpeechML documents - may be obtained over
the network.
http://www.alphaWorks.ibm.com/formula/speechml
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 17 Feb 1999 23:12:23 +0100
From: "Philip Class" <philip.class@popcorn-studio.ch>
Subject: Permission denied (can't output)
Message-Id: <7afepf$rqm$1@bw107zhb.bluewin.ch>
I'm using IIS 4.0 on a NT-Workstation.
When trying to use a cgi-Perlscript that creates an output-file I always get
the same error-msg:
Permission denied.
I first thought it was a IIS-Setting Problem, but it might also be a perl
problem....
I use only 1 folder and have enabled all the folder-Permissions (executable
Scripts allowed etc.). But it still lacks somewhere.
When using the same Script on a real WWW-Server (that is IIS 4.0 too) it all
works fine.
Does anyone know what configurations I may have to change ?
Thanks a lot for your help,
Philip
------------------------------
Date: Wed, 17 Feb 1999 23:59:44 GMT
From: "JJ" <webdude@mcminn.net>
Subject: permissions
Message-Id: <QJIy2.138$NO2.26473@news1.usit.net>
I am running a perl script that writes a data file to a dir on a unix
server..when it does it it only gives read,write permissions to the owner
and none to the group and world so when I try to access the data file it
says that I dont have permission to view it..does anyone know how to either
fix that or add some script that will change the permission when it is
written?
------------------------------
Date: Wed, 17 Feb 1999 23:12:55 GMT
From: bet@network.rahul.net (Bennett Todd)
Subject: Re: PFR: UTC_to_Epoch
Message-Id: <slrn7cmjb2.8ep.bet@newritz.mordor.net>
1999-02-17-20:59:06 Larry Rosler:
>What is the range in Perl of Unix-epoch time? Is it a 32-bit signed
>integer (in which case the range is ~1902 to ~2038) or unsigned (1970 to
>~2106) or either, relying on the program context to provide the
>semantics? Or is it really a 31-bit non-negative integer (1970 to
>~2038)?
It's a signed arithmetic type. Perl normally works in floats, if left to its
own devices; I don't know what that does to this. But modulo rounding errors
from floating the time_t values, I've found that on most systems, where time_t
is a 32-bit int, perl time works as expected from c. 1901 to 2038:
perl -le 'print localtime(-1*2**31)." -- ".localtime(2**31-1)'
Fri Dec 13 20:45:52 1901 -- Tue Jan 19 03:14:07 2038
On a machine with 64-bit time_t (in my case, an Alpha running Linux), it
extends considerably further. I've not sanity-checked these results, but
perl -le 'print localtime(-1*2**63)." -- ".localtime(2**59)'
Sun Jan 26 03:29:52 -219246529 -- Sun Mar 8 01:58:08 1087446825
I went for 2**59 because when I went for 2**60 the year flipped negative; I'm
guessing I slammed into the limits of the floating point representation,
because I could go
perl -Minteger -le 'print localtime(-1*2**63)." -- ".localtime(2**62)'
Sun Jan 26 03:29:52 -219246529 -- Tue Jun 19 02:45:04 109626219
although there's definitely something broken there, and 2**63 still didn't
work right.
But anyhow, I'm pretty sure going to 64-bit time_t shoves the problem out way
beyond the useful range of the Gregorian calendar.
-Bennett
------------------------------
Date: 17 Feb 1999 23:00:30 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: regex poll
Message-Id: <7afhme$t0l$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Chris Nandor
<pudge@pobox.com>],
who wrote in article <pudge-1702991449450001@192.168.0.77>:
> Why am I doing this? Uri contends this poll and its results have their
> merits. I contend they are meritless.
This would not make them so. Say, if there are people who use (?{})
already, I may want to contact them to discuss their uses so that I
may improve/optimize it more.
With Hugo's patch for 5.00555 (?{}) has a pretty good chance to become
quite handy. But in some restricted forms it could be used even before.
Ilya
------------------------------
Date: Wed, 17 Feb 1999 17:58:14 -0800
From: Bill Garrett <bgarrett@hamilton.net>
Subject: shell access
Message-Id: <36CB73B3.FEAA98F7@hamilton.net>
Someone sent me the address to a place on the net that offered free
shell access. I got the message but then my Netscape messed up and now
I lost the message. Could whoever sent it to me please send it again?
Thanks,
Jason
------------------------------
Date: Wed, 17 Feb 1999 19:19:33 +0000
From: Marquis de Carvdawg <carvdawg@patriot.net>
Subject: Re: SNMPerl
Message-Id: <36CB1645.837F126B@patriot.net>
Net::SNMP from CPAN is a single .pm file that works great. I
copied the .pm file to the appropriate dir on NT, and was running
SNMP in seconds.
Bradley J. Gibby wrote:
> Hi everyone,
>
> Just wondering if anyone can point me to a place where I can download
> prefably a pre-compiled version ) of SNMPerl and some USEFUL documentation.
>
> I need to talk to a Ascend Max 4000 and send a single "KILL <session_id>"
> signal but I'm having trouble the normal way so I've decided to try SNMP.
>
> Thanks heaps q:)
>
> Please reply to my via email ( bgibby@iinet.net.au ) ... Thank you!
>
> --
>
> Bradley J. Gibby
> http://www.iinet.net.au/~bgibby/index.html
------------------------------
Date: Wed, 17 Feb 1999 22:52:29 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Speed Up Perl
Message-Id: <36cb4752.5917454@news.skynet.be>
pvdkamer@inter.NL.net wrote:
>Does anyone have a sulution to speed up perl scripts ?
>i've got several perl scripts wich are all comparing substrings in 2
>textfiles.
>Perl running on Linux is better performing and Perl running on Win32
>(win98) is not performing at all.
>
>Does anyone have a solution to speed up perl script mayby by compiling
>them or something else ?
Personally, I have NO complaints about the execution of Perl scripts on
a PC. Even a DOS box on a DX4-66 performs marvelously.
I think you may have a very slow algorithm. "comparing substrings"? What
are you doing? Pulling substrings from one file and comparing them to
everything in the other file? In that case, no wonder it is slow. Even
coding it in C wouldn't increase speed by too much. At least, not enough
to suddenly make it acceptable.
Therefore, I'm with the others: "Show us the code!"
Bart.
------------------------------
Date: Wed, 17 Feb 1999 16:47:07 -0800
From: "NetMaster" <NetMaster@bc.sympatico.ca>
Subject: Re: using perl
Message-Id: <HeJy2.13544$BP1.429543@news.bctel.net>
If you are using MySQL, I suggest that you learn PHP3 instead of Perl since
it can do the same thing and may be easier for your work load.
---------------------
www.PHP3.net
---------------------
kaulad wrote in message <36CACBBF.91CC2FB3@columbia.edu>...
>Hi,
> My friends and I have to do the project by creating web page wand
>allowing the users to search our database and automatically update it if
>it's possible. The database itself is not very large since this is a
>small project. I know a little bit of perl and I think I can read and
>do something about it. However, I don't know what to do with the
>back-end database. Our TA recommended using MYSQL. I got the linux box
>and windows95 that can be used as the server. Do any of you have any
>suggestion about it?
>
>Thanks a lot.
>WUt
>
------------------------------
Date: Wed, 17 Feb 1999 19:22:09 +0000
From: Marquis de Carvdawg <carvdawg@patriot.net>
Subject: Re: Windoze Dial up networking with PERL
Message-Id: <36CB16E0.36E34E55@patriot.net>
There is a Win32::DUN module available...I don't have the URL
in front of me, but I've seen it. There are also Win32::SerialPort and
Win32::CommPort
backwardsentropy@my-dejanews.com wrote:
> In article <36c79cd1.12144733@news.nycap.rr.com>,
> beenz@nycap.rr.com (Joseph Java) wrote:
> > On Thu, 04 Feb 1999 08:38:09 +0000, ursa@ici.net wrote:
> >
> > >Gary Robson wrote:
> > >
> > >> I have a script (using libnet) for inspecting my pop3 e-mail account and
> > >> downloading e-mail with certain subjects for processing. While Windows
> > >> automatically dials up my ISP automatically when the script I can't find
> any
> > >> way of closing the Dial-up connection afterwards (somthing I need because
> > >> the script will be run hourly with a scheduler). Any help or advice
> > >> (especially with a small example, I still a PERL novice) would be greatly
> > >> appreciated.
> > >>
> > >> Cheers
> > >> gary@altmedia.freeserve.co.uk
>
> Not sure but if you wrote a .bat file that ran the script and then did echo
> com* "+++ATH" where * is the number of the port your modem is on it might
> work. We used to do this to force disconnects when I worked for an ISP
> helpdesk. Also, its been a while so I may not be remembering the commands
> right but it did work for us.
>
> Brian Werner
> werner@cs.wvu.edu
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
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 4922
**************************************
