[22433] in Perl-Users-Digest
Perl-Users Digest, Issue: 4654 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 3 09:10:54 2003
Date: Mon, 3 Mar 2003 06:10:10 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 3 Mar 2003 Volume: 10 Number: 4654
Today's topics:
Re: Problem running Sybperl scripts as root user (Joe Smith)
Re: Problem running Sybperl scripts as root user (Joachim Ring)
Retrieve a DBTYPE_I8 value from Win32::OLE? (Adee Ran)
Re: search algorithm needed (FMAS)
Re: sleep happening at the wrong time. <bigj@kamelfreund.de>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 03 Mar 2003 11:28:19 GMT
From: inwap@inwap.com (Joe Smith)
Subject: Re: Problem running Sybperl scripts as root user
Message-Id: <n%G8a.4867$io.200560@iad-read.news.verio.net>
In article <35a88b91.0302281321.14d185b5@posting.google.com>,
Apryl Ferrell <apryl.banister@cpa.state.tx.us> wrote:
>window1/web/window/cgi-bin> ./test
>
> getting data
>DB-Library error:
> Unable to connect: SQL Server is unavailable or does not
>exist.
>Operating-system error:
> Bad address
>Can't call method "dbcmd" without a package or object reference at
>./test line 23.
>sub GetData {
> $user = "********";
> $password = "********";
> $server = "SYB_PROD";
> ((my $dbh = new Sybase::DBlib $user, $password, $server) );
> $dbh->dbcmd("use $db");
You never check to see if $dbh got set to a usable value.
The "Can't call method 'dbcmd'" error occurs when $dbh is undef.
Perhaps DBlib() does not allow itself to be called if the euid == 0.
-Joe
P.S. "comp.lang.perl" is an obsolete newsgroup name.
--
See http://www.inwap.com/ for PDP-10 and "ReBoot" pages.
------------------------------
Date: 3 Mar 2003 03:44:21 -0800
From: jring@web.de (Joachim Ring)
Subject: Re: Problem running Sybperl scripts as root user
Message-Id: <3ae246c1.0303030344.11ac875b@posting.google.com>
> We also have another box which runs these exact scripts with no
> problems, and the problem box also used to work fine, which adds to
> the mystery (pain? :) ). Then, the question must be "what changed?"
> The only thing I know that changed was that Apache was stopped and
> restarted on the box, but that doesn't seem like it would be the
> cause, since problems occur when running the script by hand as root.
> When running an IP trace on the box, to see what's happening when the
> root user runs the script, a FIN|ACK is sent to the sybase box
> immediately after the request, so the sybase box never has the chance
> to return an answer. When running the script as any other user but
> root, the normal three-way handshake occures, the request and
> appropriate response are given and then the FIN|ACKS and ACKS take
> place. This proves that it's not a firewall problem.
if the db-client sends the fin, it wants to close the session,
probably due to some login error. is the connection encrypted? if not,
use ethereal to see in cleartext what's going on or try to connect
with sqlplus (well, iguess with sybase the sql command line
interpreter is called differently) as the user which cannot run the
scripts. maybe you then get a clue what's going wrong...
joachim
------------------------------
Date: 3 Mar 2003 01:43:06 -0800
From: adeeran@yahoo.com (Adee Ran)
Subject: Retrieve a DBTYPE_I8 value from Win32::OLE?
Message-Id: <1c81f8cf.0303030143.558165a2@posting.google.com>
[reposting from comp.lang.perl.modules]
I'm trying to retrieve a unique file ID from the Windows indexing
service. I have translated JSQuery.js from the MS Platform SDK to Perl
and added some features. The unique file ID should be available as the
FileIndex column, which, according to the SDK, is in DBTYPE_I8 format.
When I access the resulting value in Perl, I get a floating-point
value.
I use ActiveState v5.6.1, which has use64bitint=undef.
My retreat was to unpack the value to a couple of integers and display
them. I just fear I may lose the uniqueness by this process - if the
unpacking is performed on an approximate floating-point number.
Does anywone know if it's right or wrong, or a better way to do that?
Here's the code...
===
#!/usr/bin/perl
use strict;
use UNIVERSAL 'isa';
use Win32::OLE 'in';
use Win32::OLE::Variant;
use CGI;
sub tag {
my ($tag, $value, %props) = @_;
my $props;
if (%props) {
while (my ($prop, $val) = each %props) {
$props .= qq( $prop="$val");
}
} return "<$tag$props>$value</$tag>";
}
print CGI::header(-type => 'text/xml');
# Create a Query object.
my $objQ = Win32::OLE->new("IXSSO.Query");
# Set the properties of the Query object.
$objQ->{Columns} = CGI::param('cols') || "FileIndex, FileName,
Directory, Size, Write";
$objQ->{Query} = CGI::param('query') || '*'; # e.g. "#filename
*.htm*"
$objQ->{GroupBy} = "Directory[a]";
$objQ->{Catalog} = CGI::param('catalog') || "System";
$objQ->{OptimizeFor} = "recall";
$objQ->{AllowEnumeration} = 1;
$objQ->{MaxRecords} = 20000;
# Create a Utility object.
my $objU = Win32::OLE->new("IXSSO.Util");
# Add the physical path and all subdirectories.
$objU->AddScopeToQuery($objQ, CGI::param('root') || "\\", "deep");
# Output the Query properties.
my $xml =
tag (INFO =>
tag (Columns => $objQ->{Columns}) .
tag (Query => $objQ->{Query}) .
tag (GroupBy => $objQ->{GroupBy}) .
tag (Catalog => $objQ->{Catalog}) .
tag (CiScope => $objQ->{CiScope}) .
tag (CiFlags => $objQ->{CiFlags}) .
tag (OptimizeFor => $objQ->{OptimizeFor}) .
tag (AllowEnumeration => $objQ->{AllowEnumeration}) .
tag (MaxRecords => $objQ->{MaxRecords})
);
# Create a parent (grouped) RecordSet object for the Query.
my $objRS_Parent = $objQ->CreateRecordSet("nonsequential");
# Determine the name of the GroupBy column.
my $strGroupBy = "";
foreach my $value (in $objRS_Parent->{Fields}) {
if ($value->{Name} ne "Chapter") {
if ($strGroupBy ne "") {
$strGroupBy .= " " . $value->{Name};
}
else {
$strGroupBy = $value->{Name};
}
};
};
# Read through the parent RecordSet object.
while (! $objRS_Parent->{EOF}) {
my $dirRecord;
# Create a child RecordSet object for the chaptered columns.
my $objRS_Child = $objRS_Parent->Fields("Chapter")->{Value};
# Read through the child (chaptered) RecordSet object.
while (! $objRS_Child->{EOF}) {
my $fileRecord;
# Extract values for chaptered columns.
foreach my $col (in $objRS_Child->{Fields}) {
if ($col->{Name} ne "Chapter" && $col->{Name} ne
$strGroupBy) {
my $value =
isa($col->{Value}, 'Win32::OLE::Variant') ?
$col->{Value}->As(VT_BSTR) :
$col->{Type} == 20 ? join ':', map {sprintf '%x',
$_} unpack ("I2", $col->{Value}):
$col->{Value};
$fileRecord .= tag($col->{Name} => $value);
}
};
$dirRecord .= tag (FILE => $fileRecord);
$objRS_Child->MoveNext();
};
# Close the child RecordSet object.
$objRS_Child->Close();
# Extract values for non-chaptered columns.
foreach my $col (in $objRS_Parent->{Fields}) {
if ($col->{Name} ne "Chapter") {
$xml .= tag ($col->{Name} => $col->{Value} . $dirRecord);
}
};
# Move to the next record in the parent RecordSet object.
$objRS_Parent->MoveNext();
}
# Close the parent RecordSet object.
$objRS_Parent->Close();
$objRS_Parent = undef;
print qq{<?xml version="1.0"?>}, tag (DATA => $xml);
------------------------------
Date: 2 Mar 2003 22:45:03 -0800
From: massion@gmx.de (FMAS)
Subject: Re: search algorithm needed
Message-Id: <f0b3f4c9.0303022245.3cd61daf@posting.google.com>
Hi Benjamin,
I am always impressed by people who can churn out code like you do. It
would take me probably one month to get to the same result!
Here some additional answers:
>
> Can terms contain more than two words? Also, are they always english
> terms (do the letters all match \w), or are some of the searches for
> german (or whatever) (Letters like "ä" don't match \w except in the
> appropriate locale, and only if "use locale;" is in effect).
--> The source language is in most of the cases either German or
English although some other languages may come as well, depending on
the situation (including Eastern European characters)
--> A special term may consist of more than one word. Two words occur
again and again and 3 words are no exception as well.
Once again, thanks for your advice. I am not so good at programming
languages, but I am good at languages. Thus if you need some support
on that subject I'd be glad to help.
Francois
------------------------------
Date: Mon, 03 Mar 2003 10:23:32 +0100
From: "Janek Schleicher" <bigj@kamelfreund.de>
To: emcee <res1uzbe@verizon.net>
Subject: Re: sleep happening at the wrong time.
Message-Id: <pan.2003.02.28.12.37.46.893447@kamelfreund.de>
On Fri, 28 Feb 2003 13:05:23 +0000, emcee wrote:
> I posted this on comp.lang.perl, before I read a bit and relized its not
> used much anymore:
>
>
> It would seem to me that a code such as the following:
>
> print $i++ while $i<5;
> sleep 5;
>
> Should print 01234, sleep 5 seconds and exit. However, that doesn't to
> seem happen, at least not for me, instead it sleeps 5 seconds then
> prints 01234 and exits. It this how it's soposed to happen, and if so, why?
It's a buffering problem
(Perl writes by default the output when it finds a newline
or at the end of the script).
With
$| = 1; # Switches buffering off
print $i++ while $i<5;
sleep 5;
or
print $i++ while $i<5;
print "\n"; # A newline forces the print now
sleep 5;
it will do what you expected.
Please read
perldoc -q buffer
and
perldoc perlvar
(for the understanding of $|)
for details.
Greetings,
Janek
------------------------------
Date: Mon, 03 Mar 2003 13:44:06 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <v66n16ju5g7qc3@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 24 Feb 2003 13:40:49 GMT and ending at
03 Mar 2003 13:23:36 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2003 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
comdog\@panix\.com
Totals
======
Posters: 273
Articles: 905 (371 with cutlined signatures)
Threads: 188
Volume generated: 1702.3 kb
- headers: 807.0 kb (15,092 lines)
- bodies: 846.9 kb (28,471 lines)
- original: 500.3 kb (18,703 lines)
- signatures: 47.6 kb (1,120 lines)
Original Content Rating: 0.591
Averages
========
Posts per poster: 3.3
median: 1 post
mode: 1 post - 149 posters
s: 6.4 posts
Posts per thread: 4.8
median: 4.0 posts
mode: 1 post - 44 threads
s: 4.3 posts
Message size: 1926.2 bytes
- header: 913.1 bytes (16.7 lines)
- body: 958.2 bytes (31.5 lines)
- original: 566.1 bytes (20.7 lines)
- signature: 53.8 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
53 135.0 ( 59.1/ 68.8/ 53.7) tadmc@augustmail.com
43 81.4 ( 33.7/ 47.7/ 18.7) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
31 55.1 ( 32.5/ 22.7/ 16.5) "Peter Cooper" <newsfeed2@boog.co.uk>
30 49.2 ( 27.3/ 21.9/ 11.7) "Jürgen Exner" <jurgenex@hotmail.com>
29 71.5 ( 28.3/ 36.6/ 18.8) tassilo.parseval@post.rwth-aachen.de
24 52.1 ( 26.6/ 25.5/ 17.4) "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
23 48.1 ( 19.2/ 25.8/ 13.9) Benjamin Goldberg <goldbb2@earthlink.net>
22 37.1 ( 19.8/ 16.0/ 11.5) "Tore Aursand" <tore@aursand.no>
20 46.3 ( 21.2/ 19.0/ 7.8) Uri Guttman <uri@stemsystems.com>
19 36.8 ( 17.3/ 16.4/ 13.1) abigail@abigail.nl
These posters accounted for 32.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
135.0 ( 59.1/ 68.8/ 53.7) 53 tadmc@augustmail.com
81.4 ( 33.7/ 47.7/ 18.7) 43 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
71.5 ( 28.3/ 36.6/ 18.8) 29 tassilo.parseval@post.rwth-aachen.de
55.1 ( 32.5/ 22.7/ 16.5) 31 "Peter Cooper" <newsfeed2@boog.co.uk>
52.1 ( 26.6/ 25.5/ 17.4) 24 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
49.2 ( 27.3/ 21.9/ 11.7) 30 "Jürgen Exner" <jurgenex@hotmail.com>
48.1 ( 19.2/ 25.8/ 13.9) 23 Benjamin Goldberg <goldbb2@earthlink.net>
46.3 ( 21.2/ 19.0/ 7.8) 20 Uri Guttman <uri@stemsystems.com>
37.1 ( 19.8/ 16.0/ 11.5) 22 "Tore Aursand" <tore@aursand.no>
36.8 ( 17.3/ 16.4/ 13.1) 19 abigail@abigail.nl
These posters accounted for 36.0% of the total volume.
Top 10 Posters by Volume of Original Content (min. five posts)
==============================================================
(kb)
Posts orig Address
----- ----- -------
53 53.7 tadmc@augustmail.com
29 18.8 tassilo.parseval@post.rwth-aachen.de
43 18.7 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
24 17.4 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
31 16.5 "Peter Cooper" <newsfeed2@boog.co.uk>
23 13.9 Benjamin Goldberg <goldbb2@earthlink.net>
19 13.1 abigail@abigail.nl
30 11.7 "Jürgen Exner" <jurgenex@hotmail.com>
22 11.5 "Tore Aursand" <tore@aursand.no>
6 8.4 "matt" <urzaserra@home.com>
These posters accounted for 36.7% of the original volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.799 ( 13.1 / 16.4) 19 abigail@abigail.nl
0.781 ( 53.7 / 68.8) 53 tadmc@augustmail.com
0.743 ( 4.0 / 5.3) 5 Michele Dondi <bik.mido@tiscalinet.it>
0.728 ( 16.5 / 22.7) 31 "Peter Cooper" <newsfeed2@boog.co.uk>
0.716 ( 11.5 / 16.0) 22 "Tore Aursand" <tore@aursand.no>
0.683 ( 17.4 / 25.5) 24 "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
0.674 ( 3.7 / 5.5) 7 "C3" <someone@microsoft.com>
0.671 ( 8.4 / 12.5) 6 "matt" <urzaserra@home.com>
0.635 ( 2.9 / 4.6) 5 "Geoff Soper" <geoff.news6@alphaworks.co.uk>
0.631 ( 4.6 / 7.3) 11 mgjv@tradingpost.com.au
Bottom 10 Posters by OCR (minimum of five posts)
================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.411 ( 2.4 / 5.8) 6 =?ISO-8859-1?Q?Salvador_Fandi=F1o_Garc=EDa?= <sfandino@yahoo.com>
0.396 ( 3.5 / 8.8) 9 tyrannous@o-space.com
0.392 ( 18.7 / 47.7) 43 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.360 ( 2.6 / 7.1) 9 "Tintin" <me@privacy.net>
0.353 ( 1.7 / 4.9) 7 Malte Ubl <ubl@schaffhausen.de>
0.342 ( 2.2 / 6.4) 10 "John W. Krahn" <krahnj@acm.org>
0.322 ( 1.8 / 5.7) 6 "Spero" <spero126NOSPAM@yahoo.com>
0.278 ( 1.3 / 4.5) 6 Tina Mueller <usenet@tinita.de>
0.276 ( 1.7 / 6.1) 8 Barry Kimelman <barryk2@SPAM-KILLER.mts.net>
0.235 ( 1.0 / 4.1) 6 "Bernard El-Hagin" <bernard.el-hagin@DODGE_THISlido-tech.net>
41 posters (15%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
26 FAQ proposal: Why can't I compare two strings using == ?
25 Question about text processing
20 regular expression question *NOT PERL-SPECIFIC*
18 Just a plain Perl manual. But where??
16 Anyway to do away with ?: in the map function
15 Checking something to see if it isn't there..........
15 Writing my own scripting language. Need advice.
14 locate 1, 1 wont work properly, perhaps it's only meant for linux
14 Long strings're causing problems
14 Getting answers with perldocs
These threads accounted for 19.6% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
47.5 ( 25.4/ 20.4/ 10.3) 26 FAQ proposal: Why can't I compare two strings using == ?
46.4 ( 25.2/ 18.6/ 11.0) 25 Question about text processing
41.4 ( 16.0/ 24.4/ 11.6) 16 Anyway to do away with ?: in the map function
37.5 ( 17.7/ 18.9/ 10.9) 20 regular expression question *NOT PERL-SPECIFIC*
37.1 ( 4.0/ 33.0/ 32.2) 4 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.4 $)
36.6 ( 15.8/ 19.7/ 11.6) 18 Just a plain Perl manual. But where??
35.3 ( 10.8/ 23.3/ 12.7) 11 Feedback request: photobrowser
35.0 ( 15.4/ 18.8/ 10.0) 15 Writing my own scripting language. Need advice.
31.2 ( 13.6/ 16.6/ 4.4) 15 Checking something to see if it isn't there..........
30.8 ( 14.7/ 15.1/ 8.1) 14 Long strings're causing problems
These threads accounted for 22.3% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
=============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.766 ( 6.5/ 8.5) 6 How to sort by field in objects?
0.758 ( 8.9/ 11.7) 8 search algorithm needed
0.720 ( 10.9/ 15.2) 8 getting prmature end of script headers
0.717 ( 9.1/ 12.6) 11 Looking for a utility to remove duplicates
0.697 ( 4.9/ 7.0) 5 How Do I Clone An Object
0.687 ( 2.7/ 3.9) 7 filename returned by server?
0.684 ( 4.1/ 6.0) 6 Going around in circles with modules?
0.680 ( 6.2/ 9.1) 11 my own "modules" for want of a better name
0.679 ( 2.9/ 4.3) 5 Simple question about Perl Regular Expressions
0.677 ( 7.1/ 10.4) 14 Getting answers with perldocs
Bottom 10 Threads by OCR (minimum of five posts)
================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.458 ( 4.5 / 9.7) 12 Counting matches in a regular expression
0.453 ( 1.9 / 4.3) 8 sleep happening at the wrong time.
0.447 ( 3.4 / 7.5) 7 Parsing line into hash...
0.447 ( 2.3 / 5.1) 9 Using AuthTicket with a Mac?
0.425 ( 2.4 / 5.7) 7 better way to avoid "uninitialized value in join" ?
0.421 ( 2.6 / 6.1) 5 NET::FTP cut my file ?
0.370 ( 4.1 / 10.9) 14 locate 1, 1 wont work properly, perhaps it's only meant for linux
0.353 ( 1.2 / 3.4) 6 Quickie: Contents of Array into 1 Varaible
0.324 ( 1.0 / 3.0) 7 remove unwanted characters
0.264 ( 4.4 / 16.6) 15 Checking something to see if it isn't there..........
75 threads (39%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
14 comp.lang.c++
14 comp.lang.perl
13 comp.lang.perl.modules
11 alt.perl
6 comp.infosystems.www.servers.unix
5 comp.databases.sybase
5 sybase.public.connectivity.open_client
1 comp.object.corba
1 comp.infosystems.www.misc
1 be.comp.programming
Top 10 Crossposters
===================
Articles Address
-------- -------
8 Apryl Ferrell <apryl.banister@cpa.state.tx.us>
8 Joachim Ring <jring@web.de>
5 Joe Smith <inwap@inwap.com>
4 alex@usenix.org, alex@usenix.org
4 =?ISO-8859-1?Q?Salvador_Fandi=F1o_Garc=EDa?= <sfandino@yahoo.com>
3 Tom Scanlan <tscanlan@they.gotdns.org>
2 tassilo.parseval@post.rwth-aachen.de
2 "Corno Schraverus" <corno@%spam%.dds.nl>
2 Dean Kutryk <trollking@shaw.ca>
2 "Kelly Greer" <kellygreer1@hell.rr.com>
------------------------------
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.
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 V10 Issue 4654
***************************************
