[7462] in Perl-Users-Digest
Perl-Users Digest, Issue: 1087 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 26 21:07:22 1997
Date: Fri, 26 Sep 97 18:00:30 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 26 Sep 1997 Volume: 8 Number: 1087
Today's topics:
[Q] Append to last line in file? thalerj_NOSPAM@wwa._NOSPAM.com
Re: [Q] Append to last line in file? <rootbeer@teleport.com>
Re: Bad start on Win95 <robert.crooks@nortel.ca>
Re: call from IMG tag <tlawallANTISPAM@concentric.net>
Re: call from IMG tag (Abigail)
can 'print' be overridden ? (Snow White)
Re: Hex to Binary string conversion? <R_Scott_Bettis@ccm.hf.intel.com>
Re: How can I tell which modules are installed ? (Steve Abatangle)
Re: How can I tell which modules are installed ? <rootbeer@teleport.com>
Re: How can I tell which modules are installed ? (Mike Stok)
How Does a Script Know If a Module is Installed? (Steve Abatangle)
Re: How Does a Script Know If a Module is Installed? <rootbeer@teleport.com>
Re: How to access Manual page <rootbeer@teleport.com>
Re: how to create array of file handles? (Jason Gloudon)
Re: How to generate a regexp from the strings you want (Jeremy Brinkley)
INPUT/OUTPUT from typemaps not functioning (Scott Grosch)
Re: Installing Perl modules w/o root? (Jeremy D. Zawodny)
Re: Linking HTML forms with PERL scripts in Win 95 <rootbeer@teleport.com>
Re: List of aliases <rootbeer@teleport.com>
Re: method calls in modules <rootbeer@teleport.com>
Re: mmap? (Stuart McDow)
Msdos version stumps perl users ! <rmorris@cgocable.net>
Re: Msdos version stumps perl users ! <fearless@io.com>
Re: Nearest Neighbor routine (Ken Williams)
Pause or delay in perl? (Burt Lewis)
Perl 5.003 + DU4.0B: getservbyent doesn't seem to work <rlm@syseca-us.com>
Re: Perl and Databases <yash@teczar.com>
Re: Perl CGI Security <rootbeer@teleport.com>
Re: Reverse Engineer Time strings (Billy Chambless)
Re: TCL Speed vs PERL (Ilya Zakharevich)
WHILE LOOP LOGIC <matthew.kravitz@systecinc.com>
Re: WHILE LOOP LOGIC <rootbeer@teleport.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 26 Sep 1997 17:53:14 -0500
From: thalerj_NOSPAM@wwa._NOSPAM.com
Subject: [Q] Append to last line in file?
Message-Id: <60hecq$4a0@miso.wwa.com>
Hi there. I'm having some difficulties, probably just with the syntax
of what I'm trying to do. I am attempting to append a word to the
end of the last line in a text file.
The problem I run into is, when I open for appending, it creates a new
line below the last line.
Currently I'm attempting the following:
open FP, "+>>$filename";
seek FP, 0, 0;
print FP, "$newtext ";
close FP;
But it's still printing the newtext on a new line at the end.
Can anyone clue me in? I'm sure it's something simple.
TIA,
Jay Thaler
------------------------------
Date: Fri, 26 Sep 1997 17:21:21 -0700
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: [Q] Append to last line in file?
Message-Id: <Pine.GSO.3.96.970926171459.13188N-100000@usertest.teleport.com>
On 26 Sep 1997 thalerj_NOSPAM@wwa._NOSPAM.com wrote:
> I am attempting to append a word to the
> end of the last line in a text file.
>
> The problem I run into is, when I open for appending, it creates a new
> line below the last line.
> open FP, "+>>$filename";
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check of the return value after opening a
file.
> seek FP, 0, 0;
Do you know what that's doing? Maybe you need to check the docs for seek
in the perlfunc(1) manpage. Then again, maybe seek isn't working. :-)
> print FP, "$newtext ";
> close FP;
>
> But it's still printing the newtext on a new line at the end.
Really? With this code? Maybe the original file ended with a newline, but
that presumes that either your code isn't what you posted or seek isn't
working right. It's possible that you have some concurrency issues as
well. Good luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 26 Sep 1997 16:58:38 -0500
From: Robert Crooks <robert.crooks@nortel.ca>
Subject: Re: Bad start on Win95
Message-Id: <342C2F83.409E@nortel.ca>
Michael Powe wrote:
>
> In article <5vk0bj$qsp@bgtnsc03.worldnet.att.net>,
> 1dja@worldnet.att.net says...
>
> > I am trying to teach myself Perl using Win95 and I am off to a slow
> > start. I've loaded the latest self-extracting version from ActiveWare
> > and when I try to call a program from a "DOS" window I get a error
> > stating "This program cannot be run in DOS mode." When I try to run
> > the program from a "PERL" window the program seems to run and the
> > window instantly closes. Where am I going wrong? The FAQ's don't answer
> > this one. (Or I can't see the answer)
>
> One thing you can do is set your text editor to call perl &
> execute your script from within the editor -- as opposed to
> saving the file & exiting the editor & then running the script.
> You should be able to do this with any standard text editor
> oriented toward use by programmers. If you don't have one (e.g.,
> you are using Notepad), try the Programmer's File Editor (PFE),
> which is a freeware 32-bit MDI editor with many built-in
> programming functions. PFE offers two modes of execution, one of
> which will insert the output into a new document when the script
> exits. Very handy for preserving error messages when the script
> unexpectedly terminates, or when the script just executes and
> terminates (e.g., the famous "hello, world" script).
>
> Get PFE from
>
> http://www.lancs.ac.uk/people/cpaap/pfe/pfefiles.htm
>
> mp
I had the same thing happen to me. However, I executed
c:\windows\Command which brought up a command prompt. It is that
command prompt that I use to run perl.
Robert Crooks
------------------------------
Date: Fri, 26 Sep 1997 17:28:54 -0600
From: "T. LaWall" <tlawallANTISPAM@concentric.net>
Subject: Re: call from IMG tag
Message-Id: <342C4536.25E9@concentric.net>
Abigail wrote:
>
> Michael A. Watson (fishrman@shell.wco.com) wrote on 1487 September 1993
> in <URL: news:60gkkb$sr1$2@news.wco.com>:
> ++ I saw a posting that said you could call a PERL script from a HTML
> ++ IMG tag like this: <IMG SRC="http://your_url/cgi-bin/your_script.cgi">.
>
> Of course. HTML doesn't care. The browser doesn't care. HTTP
> doesn't care. The server doesn't care. There is really, really,
> really, really nothing perl specific to this. It could be
> anything. It might be getting something from a database. It
> might be an Intercal program. Really.
Accually the perl script does care who runs it. A perl script isn't
automatically a CGI script. Special considerations in how the
environment is setup make a CGI script run or not.
The real answer to this question is another question: Are you working
locally (on your hard drive) and trying to get a local cgi script
to work? If you are, you need to have server software on your local
machine and connect to it with the address of http://127.0.0.1
to test any of the CGI scripts you wrote. For CGI to work properly,
you need to have the environment setup for it to run in. The easiest
way to do this is use CGI.pm, or use an HTTP server on your local
machine. If you are running UNIX, get Apache. If you are running
NT or 95, get a copy of OmniHTTPD. It's free, and works well.
>
> ++ I could not get this to work at all. Any hints?
>
> Uhm, did you plug in your computer? Are you sure you are
> asking the question in the right group (I highly doubt it,
> rec.collecting.banana.peels seem to be more appropriate.)
I don't see where it is necessary for the acrid comments. This
is a very valid question, and besides, what the hell are the
newsgroups for? Your flames are hardly appropriate.
> ++ Also if it is possible to do this how can you pass arguments?
>
> Sure you can:
> <IMG SRC="http://your_url/cgi-bin/your_script.cgi%20arg1%arg2%arg3">,
> that's just fine. Of course, you might want to reprogram your
> server to pass arg1, arg2, arg3 as actual arguments, but that's
> a server issue, and not to be addressed in this newsgroup.
Correct me if I'm wrong, but isn't that the purpose of the "misc"
on the comp.lang.perl.misc?
> The perl program really doesn't care whether it's called by an
> HTTP server, the cron deamon, or your cat logging on at night.
See above. Also see some more documentation on how CGI works.
> Abigail
Regards,
Todd
--
-------------------------------------------------
T. LaWall
To reply, remove ANTISPAM from my address
-------------------------------------------------
Where do I want to go today?
With Linux, Anywhere I want, TOLL FREE!
-------------------------------------------------
------------------------------
Date: 27 Sep 1997 00:45:28 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: call from IMG tag
Message-Id: <slrn62olt9.235.abigail@betelgeuse.rel.fnx.com>
T. LaWall (tlawallANTISPAM@concentric.net) wrote on 1487 September 1993
in <URL: news:342C4536.25E9@concentric.net>:
++ Abigail wrote:
++ >
++ > Michael A. Watson (fishrman@shell.wco.com) wrote on 1487 September 1993
++ > in <URL: news:60gkkb$sr1$2@news.wco.com>:
++ > ++ I saw a posting that said you could call a PERL script from a HTML
++ > ++ IMG tag like this: <IMG SRC="http://your_url/cgi-bin/your_script.cgi">.
++ >
++ > ++ I could not get this to work at all. Any hints?
++ >
++ > Uhm, did you plug in your computer? Are you sure you are
++ > asking the question in the right group (I highly doubt it,
++ > rec.collecting.banana.peels seem to be more appropriate.)
++
++ I don't see where it is necessary for the acrid comments. This
++ is a very valid question, and besides, what the hell are the
++ newsgroups for? Your flames are hardly appropriate.
"I got not get this to work at all."
You think that's a valid question? He doesn't even tell us what he
did! He doesn't tell us what he wants! He doesn't tell what errors
he gets! He doesn't even tell us what server or OS he's using!
He doesn't tell us *anything*.
But perhaps you think all threads in newsgroups should start with
"It doesn't work". And we certainly don't need more than one
newsgroup.
++ > ++ Also if it is possible to do this how can you pass arguments?
++ >
++ > Sure you can:
++ > <IMG SRC="http://your_url/cgi-bin/your_script.cgi%20arg1%arg2%arg3">,
++ > that's just fine. Of course, you might want to reprogram your
++ > server to pass arg1, arg2, arg3 as actual arguments, but that's
++ > a server issue, and not to be addressed in this newsgroup.
++
++ Correct me if I'm wrong, but isn't that the purpose of the "misc"
++ on the comp.lang.perl.misc?
No. As you can see, the group spells "comp.lang.perl.misc". See
the 3 words in front of misc? FYI, it doesn't mean this group
is about computers and language and perl and miscellanous all
combined. No sir. It's about miscellanous perl topics.
HTTP servers are discussed in different groups.
Abigail
------------------------------
Date: Fri, 26 Sep 97 18:51:33 EDT (-0400)
From: anybody2@nospam.bellsouth.net (Snow White)
Subject: can 'print' be overridden ?
Message-Id: <875317893.710@bellsouth.net>
Can 'print' be overridden?
The following does not seem to work.
The text 'hello world' is printed but
apparently not by the Override.pm
module since the extra test line is not
printed.
Any ideas?
# main program
use strict;
use Override 'print'; # explicitly overrides 'print' a la Camel book ex
select STDOUT; $|=1;
print "hello world\n";
exit;
# Override.pm module
package Override;
use strict;
use Exporter;
@Override::ISA = qw( Exporter );
@Override::EXPORT_OK = qw( print );
sub print
{ # prints and also speaks text if able
my $Arguments = "@_";
my $Speaking = $ENV{'SPEAKING'};
CORE::print $Arguments;
CORE::print "testing...\n"; # debug
system( "$Speaking $Arguments" ) if $Speaking;
return 1;
}
1;
------------------------------
Date: Fri, 26 Sep 1997 13:30:02 -0700
From: Scott Bettis <R_Scott_Bettis@ccm.hf.intel.com>
Subject: Re: Hex to Binary string conversion?
Message-Id: <342C1B4A.C71D4C5D@ccm.hf.intel.com>
Tom Phoenix wrote:
> On Fri, 26 Sep 1997, Scott Bettis wrote:
>
> > I can't seem to find any perl code to convert numbers/strings
> between
> > hex, dec and binary formats.
>
> Check out the perlfunc(1) manpage, which has functions called hex,
> pack,
> and unpack, among others which you may be able to use. Hope this
> helps!
Thank you. You pointed me in the right direction. This is what I came
up with:
sub Bin2Hex {
local($bin) = @_;
return unpack ("H2", pack("B8","$bin"));
}
Right now it assumes 8 binary to 2 hex digits, but could easily be
changed. Thanks again.
Scott bettis
Intel Corp.
------------------------------
Date: 26 Sep 1997 23:23:04 GMT
From: sabat@us.oracle.com (Steve Abatangle)
Subject: Re: How can I tell which modules are installed ?
Message-Id: <60hg4o$404$1@inet16.us.oracle.com>
Tom Phoenix (rootbeer@teleport.com) wrote:
: > Is there an easy way to find exactly which module are already installed?
:
: Yes: Ask the sysadmin. :-) But if the sysadmin won't let you run Perl,
: IMHO you should install a new one. :-)
This is a bogus answer. What if -- as in my case -- you need a
program to be aware of whether or not a module is installed?
: But it wouldn't be hard to write a program to run on a web server which
: would report the names of installed modules. Is that the kind of server
It would? If you know of a way to find out what modules are installed,
do tell. I've searched the FAQ and Camel book to no avail.
--
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
sabat <sabat@oracle.com> .
http://www.area51.org . " You have no right to despise
purveyors of modern myth . the present. " -- Baudelaire
------------------------------
Date: Fri, 26 Sep 1997 17:41:25 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Steve Abatangle <sabat@us.oracle.com>
Subject: Re: How can I tell which modules are installed ?
Message-Id: <Pine.GSO.3.96.970926173243.13188R-100000@usertest.teleport.com>
On 26 Sep 1997, Steve Abatangle wrote:
> Tom Phoenix (rootbeer@teleport.com) wrote:
>
> : > Is there an easy way to find exactly which module are already installed?
> :
> : Yes: Ask the sysadmin. :-) But if the sysadmin won't let you run Perl,
> : IMHO you should install a new one. :-)
> This is a bogus answer.
Did you see the smilies? But, despite those, it isn't bogus. You snipped
the original poster's complaint that he couldn't run Perl (or most other
commands and programs) from the command line. If he can't run Perl, how
can he find out what's installed on the server? Asking the sysadmin is
the easier and more-reliable way of the two methods I can think of. And
unless you like having a BOFH, you should petition to be able to run Perl
from the command line, if only to check your scripts before installing
them on a webserver.
> What if -- as in my case -- you need a
> program to be aware of whether or not a module is installed?
You could have your program search just the directories of @INC, but if
that comes up empty, you still don't know whether the module you want was
simply in some other directory that you'd need to 'use lib' for. You could
make your program search every directory to see whether it can find the
module, but that would be a slow and inefficient way to do it. (And there
are, of course, security implications of using a module found in any
random user's filespace.)
> : But it wouldn't be hard to write a program to run on a web server which
> : would report the names of installed modules.
> It would? If you know of a way to find out what modules are installed,
> do tell.
Just list every .pm file found in the @INC directories (and their
subdirectories) for starters. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 27 Sep 1997 00:53:29 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: How can I tell which modules are installed ?
Message-Id: <60hle9$5mu@news-central.tiac.net>
In article <60hg4o$404$1@inet16.us.oracle.com>,
Steve Abatangle <sabat@us.oracle.com> wrote:
>Tom Phoenix (rootbeer@teleport.com) wrote:
>
>: > Is there an easy way to find exactly which module are already installed?
>:
>: Yes: Ask the sysadmin. :-) But if the sysadmin won't let you run Perl,
>: IMHO you should install a new one. :-)
>
>
>This is a bogus answer. What if -- as in my case -- you need a
>program to be aware of whether or not a module is installed?
you can wrap an eval around a require and see if it fails e.g.
foreach $module (qw/Text::Soundex Foo::Bar/) {
eval "require $module";
warn "oops, no $module\n" if $@;
}
>: But it wouldn't be hard to write a program to run on a web server which
>: would report the names of installed modules. Is that the kind of server
>
>
>It would? If you know of a way to find out what modules are installed,
>do tell. I've searched the FAQ and Camel book to no avail.
Perl searches down the @INC list of directories for modules, so one quick
hack might be
#!/usr/local/bin/perl -w
use File::Find;
foreach $dir (@INC) {
find (\&wanted, $dir);
}
sub wanted {
return unless /\.pm$/;
my $file = "$File::Find::dir/$_";
$file =~ s(^\Q$dir\E/?)();
$file =~ s(/)(::)g;
print "$file\n";
}
Which is by no means complete.
If you need to add modules but can't get teh sys admin to help you might
want to look at makemaker's documentation which lets you specify a prefix
to use while building & installing extensions - then you juest need to
use lib qw/ ... /;
or set the PERL5LIB environment variable to let applications find them -
but you may need to add a few paths rather than just one if you're
updating core modules or adding compiled extensions.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: 26 Sep 1997 23:38:41 GMT
From: sabat@us.oracle.com (Steve Abatangle)
Subject: How Does a Script Know If a Module is Installed?
Message-Id: <60hh21$404$2@inet16.us.oracle.com>
Is there any way to find out if a module is installed from
inside a script?
Before you ask why I'd want to, imagine an installer script
for an application that requires the DBI module.
If the user's system doesn't have DBI, and doesn't realize
that you need it, I'd like to TELL him he needs it -- rather
than just having the installer script just bug out.
I've looked in all the appropriate places (perlfaq, this
newsgroup, Camel book, Exporter(3), perlmod, perlmodlib, etc.).
Thanks.
--
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
sabat <sabat@oracle.com> .
http://www.area51.org . " You have no right to despise
purveyors of modern myth . the present. " -- Baudelaire
------------------------------
Date: Fri, 26 Sep 1997 17:31:33 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Steve Abatangle <sabat@us.oracle.com>
Subject: Re: How Does a Script Know If a Module is Installed?
Message-Id: <Pine.GSO.3.96.970926172945.13188Q-100000@usertest.teleport.com>
On 26 Sep 1997, Steve Abatangle wrote:
> Is there any way to find out if a module is installed from
> inside a script?
You could look through @INC and see what you find in those directories.
But if you actually need the module in your script, it's probably simplest
to just 'use' it. A compromise might be to wrap an eval {} around a
require. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 26 Sep 1997 17:13:18 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: kinlam <kinlam@mec.cuny.edu>
Subject: Re: How to access Manual page
Message-Id: <Pine.GSO.3.96.970926171259.13188M-100000@usertest.teleport.com>
On Fri, 26 Sep 1997, kinlam wrote:
> I have just install perl on AIX , and I note it that there are some
> manual doc. that come with it, Can anyone help to access it
Use the 'perldoc' command. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 26 Sep 1997 23:00:40 GMT
From: jgloudon@bbn.remove.com (Jason Gloudon)
Subject: Re: how to create array of file handles?
Message-Id: <60heqo$6u3$1@daily.bbnplanet.com>
Trudno zhit' v derevne bez nagana. (alex@kawo2.rwth-aachen.de) wrote:
: Hi,
: how do you create an array of handles? Or how do you get
: a file handle if you know a file descriptor? (the way back
: is fileno).
Duplicate the code in IO::Handle. Really the code there is
a good example of what you are trying to duplicate.
: PS: I've seen that IO:Socket can be used for server programs,
: but i am not allowed to install it at my web-server.
You are basically going to rewrite the code in this module as well.
Jason Gloudon
------------------------------
Date: 26 Sep 1997 22:01:10 GMT
From: jeremy@wishbone.stanford.edu (Jeremy Brinkley)
Subject: Re: How to generate a regexp from the strings you want to match ?
Message-Id: <60hbb6$pt$2@nntp.Stanford.EDU>
On Fri, 26 Sep 1997 10:23:40 GMT, Frederic GARZON (fgarzon@cern.ch) put forth:
> Is there any program/module to automatically generate regexps from the
> strings you want to be matched ?
>
> Ex :
>
> Larry wall \
> larry mall | --> /[Ll]a(r){1,2}y [mw]all/
> lary wall /
I'd like to point out that your regexp matches:
Lary mall
lary mall
Larry mall
Lary wall
larry wall
which the program would not know if you intended it to match,
in addition to an infinite number of strings of the form
"blahLarry mallblah".
How about:
#!/usr/bin/perl -w
# genregexp.pl
while ($line = <STDIN>) {
chomp($line);
next if ($line =~ /^$/);
$line = "^$line\$";
push(@strings, $line);
}
print "/^(";
$, = "|";
print @strings;
print ")$/"
and you get:
echo '
Larry wall
larry mall
lary wall' | genregexp.pl => /^(Larry wall|larry mall|lary wall)$/
--
Jeremy Brinkley
System Administrator
Stanford Blood Center
jeremy@wishbone.stanford.edu
finger for PGP key (2.6.2) or
http://wishbone.stanford.edu/~jeremy
------------------------------
Date: 26 Sep 1997 22:11:17 GMT
From: grosch@ichips.intel.com (Scott Grosch)
Subject: INPUT/OUTPUT from typemaps not functioning
Message-Id: <60hbu5$56g@news.or.intel.com>
I have this as my typemap file. Note the LDAPMod * entry that defines an
INPUT and OUTPUT. None of this code is going into the .c file generated from
the .xs file when xsubpp runs. I've included the .xs code and the resulting
C funtion at the end. What am I doing wrong?
----------------------------------------------------------------------
TYPEMAP
LDAP * T_PTROBJ
LDAPMessage * T_PTROBJ
LDAPMod * T_LDAPMod
OUTPUT
T_LDAPMod
{
int i;
HV *hv = newHV();
AV *av = newAV();
hv_store(hv, "mod_op", 6, newSViv($var->mod_op), 0);
hv_store(hv, "mod_type", 8, newSVpv($var->mod_type, 0), 0);
for (i = 0; $var->mod_values[i]; i++) {
av_push(av, $var->mod_values[i]);
}
hv_store(hv, "mod_values", 10, newRV_noinc((SV *) av));
$arg = newRV_noinc((SV *) hv);
}
INPUT
T_LDAPMod
{
if (SvROK($arg) && SvTYPE(SvRV($arg)) == SVt_PVHV) {
SV **s, **ary;
HV *i = (HV *) SvRV(arg);
$var->mod_op = (s = hv_fetch(i, "mod_op", 6, 0)) ? SvIV(*s) : 0;
if ((s = hv_fetch(i, "mod_type", 8, 0)) ? SvPV(*s, na) : 0)
strcpy($var->mod_type, SvPV(*s, na));
else
$var->mod_type[0] = '\0';
if (s = hv_fetch(i, "mod_values", 10, 0)) {
/* *s should now be a reference to an array */
I32 i, len;
char **mod_values, *ptr;
if (!(SvOK(*s) && SvROK(*s) && SvTYPE(SvRV(*s)) == SvtPVAV))
croak("mod_values must be reference to array");
len = av_len(*s);
printf("allocating\n");
New(0, mod_values, len, char *);
for (i = 0; i < len; i++) {
printf("Grabbing element %d", i);
ary = av_fetch(*s, i, 0);
if (!(SvOK(*ary) && SvROK(*ary) && SvTYPE(ptr=SvRV(*ary)) == SVt_PVPV))
croak("Element %d must be a string", i + 1);
printf("Element is '%s'", ptr);
New(0, mod_values[i], strlen(ptr) + 1, char);
Copy(ptr, mod_values[i], strlen(ptr), char);
printf("Copied '%s'", mod_values[i]);
}
$var->mod_values = mod_values;
}
} else {
croak("argument is not a hash reference");
}
}
----------------------------------------------------------------------
int
blah(it)
LDAPMod * it
PREINIT:
int i;
CODE:
printf("mod_op = %d\n", it->mod_op);
printf("mod_type = %s\n", it->mod_type);
if (it->mod_values==NULL)
croak("mod_values is null in blah");
else
for (i = 0; it->mod_values[i]; i++)
printf("it->mod_values[%d] = '%s'\n", i, it->mod_values[i]);
RETVAL = 1;
OUTPUT:
RETVAL
----------------------------------------------------------------------
And in here there is none of the INPUT section code.
XS(XS_Ldap_blah)
{
dXSARGS;
if (items != 1)
croak("Usage: Ldap::blah(it)");
{
LDAPMod * it;
#line 926 "Ldap.xs"
int i;
#line 927 "Ldap.xs"
int RETVAL;
;
#line 927 "Ldap.xs"
#line 928 "Ldap.xs"
printf("mod_op = %d\n", it->mod_op);
printf("mod_type = %s\n", it->mod_type);
if (it->mod_values==NULL)
croak("mod_values is null in blah");
else
for (i = 0; it->mod_values[i]; i++)
printf("it->mod_values[%d] = '%s'\n", i, it->mod_values[i]);
RETVAL = 1;
#line 938 "Ldap.xs"
ST(0) = sv_newmortal();
sv_setiv(ST(0), (IV)RETVAL);
#line 938 "Ldap.xs"
#line 938 "Ldap.xs"
}
XSRETURN(1);
}
------------------------------
Date: Fri, 26 Sep 1997 23:31:53 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: Installing Perl modules w/o root?
Message-Id: <342d45d7.3881180@woody.wcnet.org>
[original author automagically cc'd via e-mail]
On 23 Sep 1997 16:17:06 -0400, peter@widgetworks.com wrote:
>
>I've installed many perl libraries into the standard library directory
>as root for years... Now I need to install some libraries on a system
>that has Perl 5.003 installed, but to which I do not have root
>access. To wit, I need to install these modules into my home
>directoty. Anyone know how to do this?
>
>Compiling perl and maintaining my own complete library is *not* an
>option.
Yes. It's well documented in the FAQ.
Jeremy
--
Jeremy D. Zawodny
WCNet Technical Geek & Web Stuff
<URL:http://www.wcnet.org/~jzawodn/>
"That's an example of how Perl can bring school yard cruelty to new heights."
-- Jon Orwant at the 1st Annual Perl Conference
------------------------------
Date: Fri, 26 Sep 1997 16:42:09 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Bill Whitehead <wcw@onramp.net>
Subject: Re: Linking HTML forms with PERL scripts in Win 95
Message-Id: <Pine.GSO.3.96.970926164049.13188F-100000@usertest.teleport.com>
On Thu, 25 Sep 1997, Bill Whitehead wrote:
> I am a PERL newbie. I loaded PERL on my Windows 95 machine, and am
> attempting to use the local PERL interpreter to check out HTML and PERL
> code before uploading to the CGI-BIN on my server. But, I can find no
> documentation on how to make PERL respond properly on my local computer
If you write your scripts to use the CGI.pm module (or a similar one which
includes this feature) it's easy to run your scripts from the command
line, either with or without the Perl debugger. The docs on CGI.pm will
tell you about how to make it work. Good luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 26 Sep 1997 16:46:18 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Joe Gottman <joegottman@worldnet.att.net>
Subject: Re: List of aliases
Message-Id: <Pine.GSO.3.96.970926164331.13188G-100000@usertest.teleport.com>
On Wed, 24 Sep 1997, Joe Gottman wrote:
> I'm writing a perl script and I need to get a list of the aliases
> that are defined for the shell I am calling the script from.
If there's a way to do this, it would be a feature of the shell you're
using, so check that shell's docs. But I've never heard of a way to ask a
shell anything while a called program is running.
What you could do is get the shell to save the aliases somewhere before it
starts your script. It could put them into an environment variable,
perhaps, or write them to a file. Given the choice, I'd choose the
environment variable. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Fri, 26 Sep 1997 17:04:07 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Adam Luther <aluther@cdi.org>
Subject: Re: method calls in modules
Message-Id: <Pine.GSO.3.96.970926165730.13188J-100000@usertest.teleport.com>
On Fri, 26 Sep 1997, Adam Luther wrote:
> I've installed a module (GIFgraph), and tried the test program that
> comes in the documentation which includes the following line of code:
>
> $my_graph= new GIFgraph::chart();
>
> when I try to run it perl gives me the following message:
>
> Cannot locate object method "new" via module "GIFgraph::chart".
Is that really what it says? I'd expect it to say this:
Can't locate object method "new" via package "GIFgraph::chart"
Just a little different. But this message, at least, is listed in the
perldiag(1) manpage.
Did you remember to 'use GIFgraph', or 'use GIFgraph::utils', or whichever
incantation was needed?
> the sub new is in GIFgraph.pl
Do you mean GIFgraph.pm?
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 26 Sep 1997 21:21:31 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: mmap?
Message-Id: <60h90r$n87@ns1.arlut.utexas.edu>
Calle Dybedahl <qdtcall@esb.ericsson.se> writes:
> smcdow@arlut.utexas.edu (Stuart McDow) writes:
>
> > Pardon me if this is a FAQ.
>
> No. Do your research *first*, then post.
Oh, please. No need to be rude.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
------------------------------
Date: Fri, 26 Sep 1997 18:28:58 -0400
From: Roy Morris <rmorris@cgocable.net>
Subject: Msdos version stumps perl users !
Message-Id: <342C372A.E6758807@cgocable.net>
<HTML>
I am very surprised that no one has come across this problem before ?
<BR>the system("command"); function must be one of the most common functions
know
<BR>to man ?
<BR>let me try this again .
<BR>I am calling a system("cls"); function under the MsDos version of perl.
This function
<BR>does not seem to operate under this version. I performs as expected
under win95/nt
<BR>Ntvdm and command sessions.
<BR>Has anyone run across this problem yet ?
<BR>
<BR> </HTML>
------------------------------
Date: Fri, 26 Sep 1997 17:09:02 -0700
From: "Creede Lambard" <fearless@io.com>
Subject: Re: Msdos version stumps perl users !
Message-Id: <60hj5s$k88@news.microsoft.com>
This is a multi-part message in MIME format.
------=_NextPart_000_001C_01BCCA9E.E30DB0A0
Content-Type: text/plain;
charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable
This seems really odd. CLS has been in DOS since there was DOS. What =
versions of DOS and perl are you using? Can you print out a snippet of =
the code in context so we can see what's happening around it? I'm sure =
you're not doing this:
system("cls") || die "Sorry, you can't clear the screen. Ha ha ha!";
but I did until I figured out that system() returns a 0 when it =
completes successfully rather than a 1. (In fact, I think if you tried =
this you'd get a blank screen *and* a mocking laugh from you console! =
:D)
-- Creede
Roy Morris wrote in message <342C372A.E6758807@cgocable.net>...
I am very surprised that no one has come across this problem before =
?=20
the system("command"); function must be one of the most common =
functions know=20
to man ?=20
let me try this again .=20
I am calling a system("cls"); function under the MsDos version of =
perl. This function=20
does not seem to operate under this version. I performs as expected =
under win95/nt=20
Ntvdm and command sessions.=20
Has anyone run across this problem yet ?=20
=20
=20
------=_NextPart_000_001C_01BCCA9E.E30DB0A0
Content-Type: text/html;
charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Dwindows-1252 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.0123.0"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 face=3DArial size=3D2>This seems really odd. =
CLS has been=20
in DOS since there was DOS. What versions of DOS and perl are you using? =
Can you=20
print out a snippet of the code in context so we can see what's =
happening around=20
it? I'm sure you're not doing this:</FONT></DIV>
<DIV><FONT color=3D#000000 face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>system("cls") || die =
"Sorry, you=20
can't clear the screen. Ha ha ha!";</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>but I did until I figured out that =
system() returns=20
a 0 when it completes successfully rather than a 1. (In fact, I think if =
you=20
tried this you'd get a blank screen *and* </FONT><FONT face=3DArial =
size=3D2> a=20
mocking laugh from you console! :D)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>-- Creede</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 solid 2px; MARGIN-LEFT: 5px; PADDING-LEFT: =
5px">
<DIV>Roy Morris<RMORRIS@CGOCABLE.NET> wrote in message <<A=20
=
href=3D"mailto:342C372A.E6758807@cgocable.net">342C372A.E6758807@cgocable=
.net</A>>...</DIV>I=20
am very surprised that no one has come across this problem before ? =
<BR>the=20
system("command"); function must be one of the most common =
functions know <BR>to man ? <BR>let me try this again . <BR>I am =
calling a=20
system("cls"); function under the MsDos version of perl. =
This=20
function <BR>does not seem to operate under this version. I performs =
as=20
expected under win95/nt <BR>Ntvdm and command sessions. <BR>Has =
anyone run=20
across this problem yet ? <BR> <BR> =
</BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_001C_01BCCA9E.E30DB0A0--
------------------------------
Date: Fri, 26 Sep 1997 17:52:06 -0400
From: ken@forum.swarthmore.edu (Ken Williams)
Subject: Re: Nearest Neighbor routine
Message-Id: <ken-2609971752060001@news.swarthmore.edu>
In article <342C1C21.183CD1C0@gizmo.usc.edu>, Joe Allen
<joeallen@gizmo.usc.edu> wrote:
>Hi,
>
>I use the following snippet to determine the euclidean distance
>between a set of target vectors and a set of vectors output by a
>neural net. It opens a file of target vectors and a file of output
>vectors and returns, for each output vector, the name of the target
>vector that is closest to it in euclidean distance (the so called
>nearest neighbor).
>
>Its a pretty pedestrian approach and it takes a subjectively long time
>when the files are large (2-300 elements per vector, 1000 line files).
>Can anyone suggest a general solution that might be faster? Actually
>any comments appreciated. The vectors are of arbitrary length, have a
>name in the first column, and are made up of floats, e.g.:
>
>#Targets
>a 1 0 0 . . . etc
>b 0 1 0
>c 1 1 0
>...etc.
>
>#Outputs
>output1 .90897 .78765 .69076
>output2 .00897 .78765 .69076
>output3 .48767 .23987 .87349
>...etc.
>
>Thanks,
>
>Joe Allen
>joeallen@siva.usc.edu
>
>
>#!/usr/bin/perl -w
>use diagnostics;
>
>open(TARGETS,"<$ARGV[0]") or die "cant open targets: $!\n";
>open(OUTPUTS,"<$ARGV[1]") or die "cant open outputs: $!\n";
>
>while (<TARGETS>)
>{
> next if /^$/;
You could change this to "next unless $_;" and perl wouldn't have to do
regular expressions - same in while() loop below.
> @line = split;
> $targetname[$.]=shift @line;
> for $i (0..$#line){$targets[$.][$i] = $line[$i];}
>}
>
>$targetlength=$#line;
>$.=0;
>
>while (<OUTPUTS>)
>{
> $mindiff=10000000;
> next if /^$/;
> @line = split;
> $outputname[$.]=shift @line;
>
> if ($targetlength!=$#line){die "vector lengths unequal\n";};
Technically you shouldn't really call it target _length_ if you're going
to use $#array, because that gives you the index of the last element, not
the length of the array - it's off by 1. The length of the array is given
by using @array in a scalar context. You could do this:
$targetlength = @line;
# skipping....
if ($targetlength != @line){die "vector lengths unequal\n";};
Of course, since you defined $targetlength in terms of $#line also, your
code works fine. It's just a style thing, I guess.
>
> for $i (1..$targetlength)
> {
> $diff=0;
> for $j (0..$#line){
> $diff += (abs(($targets[$i][$j]-$line[$j])**2));
> }
> $diff= sprintf("%.3f", $diff**.5);
There's no need to compute the square root every time, is there? Since
the square root function is monotonoic increasing, just find the vector
for which the _square_ of the distance to your lattice points is
minimized. Then when you're done with the for() loop, compute its square
root.
This might save you a lot of time, depending on how long perl takes to do
$num**.5 . I imagine it's slower than doing $num**2 .
>
> if($diff<=$mindiff){ $mindiff=$diff; $winner=$targetname[$i] };
> }
> print "$outputname[$.] $winner $mindiff\n" ;
>}
So factoring the square-rooting operation out of the for() loop is the
only real time-saving thing I can think of.
-Ken Williams
The Math Forum
ken@forum.swarthmore.edu
------------------------------
Date: 27 Sep 1997 00:40:56 GMT
From: burt@ici.net (Burt Lewis)
Subject: Pause or delay in perl?
Message-Id: <60hkmo$d76$1@bashir.ici.net>
Hi,
I'm doing some processing in a while loop and at the end of the last
statement, I want to pause about 10 seconds then continue with the while
loop.
Appreciate any help with this, I can't find it.
Thanks!
Burt Lewis
------------------------------
Date: Fri, 26 Sep 1997 16:09:27 -0700
From: Rob McMillin <rlm@syseca-us.com>
To: alpha-osf-managers@ornl.gov
Subject: Perl 5.003 + DU4.0B: getservbyent doesn't seem to work
Message-Id: <342C40A7.258A0F0E@syseca-us.com>
I'm running Perl 5.003 (compiled on a 3.2D-1 box, but otherwise running
successfully) on an AlphaServer 1000 4/233. Is there any reason anyone out
there can think of why the following code snippet should not yield "smtp"?
print gethostbyport(25,"tcp");
------------------------------
Date: Fri, 26 Sep 1997 19:01:27 -0400
From: Yash Khemani <yash@teczar.com>
Subject: Re: Perl and Databases
Message-Id: <342C3EC7.95BB26EF@teczar.com>
Julian W H Osborne wrote:
>
> Hi,
>
> I have a small problem which I'm _praying_ I might resolve with all your
> help.
>
> Here goes. I have an MS-Access DB which I need firstly to convert to
> something that will sit on a unix box (any one know of a utility to do
> this?) . Once I've got the DB over to unix I need to play around with
> it using perl. If anyone can be me any pointer I'd be greatful.
>
> Thanks in advance.
>
> Julian.
there are several excellent relational database packages available for
unix. though many are commercial and very costly for most, there are
a few free ones available - search the net.
as far as moving your data from access to whatever, you can export your
access database tables to a delimited file. every database package out
there should have some facility for pulling in such data. for example,
sybase has bcp.
if you require further help, please feel free to hollar.
yash khemani
------------------------------
Date: Fri, 26 Sep 1997 16:39:24 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Dawn <grapeflavour@hotmail.com>
Subject: Re: Perl CGI Security
Message-Id: <Pine.GSO.3.96.970926163738.13188D-100000@usertest.teleport.com>
[ Didn't I answer this in private mail to you the other day when you'd
asked the same question on the non-existant group comp.lang.perl? ]
On 25 Sep 1997, Dawn wrote:
> I was wondering if anyone had any suggestions on books and
> websites that would give me information on writing perl CGIs with little
> or no security holes.
Don't make scripts with little security holes! :-)
Start with the perlsec(1) manpage and the WWW security FAQ.
http://www.w3.org/Security/Faq/
I recommend using 'use strict', -w, and -T on all CGI scripts. Good luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 26 Sep 1997 21:41:34 GMT
From: billy@bahamas.cast.msstate.edu (Billy Chambless)
Subject: Re: Reverse Engineer Time strings
Message-Id: <60ha6e$pgp$1@NNTP.MsState.Edu>
In article <342B9FB4.7220@hnashe.com>, Godfrey Smith <godfrey@hnashe.com> writes:
|> I have to take a string and translate it into the
|> numerical time format. (since the epoch)
|> the strings look like this:
|> 22/Sep/1997:12:23:26
Look at Time::Local and the timelocal() function.
------------------------------
Date: 26 Sep 1997 23:11:37 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: TCL Speed vs PERL
Message-Id: <60hff9$lke@agate.berkeley.edu>
In article <34293A70.7F5E1E20@metacard.com>,
Scott Raney <raney@metacard.com> wrote:
> Tcl is comparable, or even faster, than Perl and MetaTalk in a couple
> of areas, specifically running subprocesses and some file system I/O
> operations.
Can you be more specific, please?
I'm puzzled by this statement. Most overhead in these operation would
come from OS, *and* Perl uses some *dirty* tricks to work quickier
than C (yes!) with at least "I" part of I/O.
Oh, I see. Tcl also works around buffering. In which areas are its
workarounds better than Perl's?
Ilya
------------------------------
Date: 26 Sep 1997 20:54:29 GMT
From: "Authorized User" <matthew.kravitz@systecinc.com>
Subject: WHILE LOOP LOGIC
Message-Id: <01bccabe$377a7320$7cfce59b@matthewk.systecinc.com>
hola-
i am writing a simple 'while loop' script. i need to read in a string from
an external file and take that array and split it into seperate variables.
for example:
external file contains:
line1 xxxxx yyyyy
line2 vvvvvvv ccccc
my Perl script :
open(LISTFILE,<external_file_name>);
while ($LISTVAR=<LISTFILE>) {
if ($LISTVAR=~ /line/ ) {
###HOW DO I INITIALIZE THE INDIVIDUAL VARIABLES
###LIKE LINE1, xxxxx, and yyyyy ?
...
thanks for the help...
matthew kravitz
------------------------------
Date: Fri, 26 Sep 1997 17:12:15 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Authorized User <matthew.kravitz@systecinc.com>
Subject: Re: WHILE LOOP LOGIC
Message-Id: <Pine.GSO.3.96.970926170712.13188L-100000@usertest.teleport.com>
On 26 Sep 1997, Authorized User wrote:
> Newsgroups: comp.lang.perl.misc, comp.lang.perl.tk, de.comp.lang.perl
I don't see anything in your question that merits this being posted to
c.l.p.tk.
> Subject: WHILE LOOP LOGIC
There's no need to shout! :-)
> i am writing a simple 'while loop' script. i need to read in a string
> from an external file and take that array and split it into seperate
> variables.
What array?
> for example:
>
> external file contains:
> line1 xxxxx yyyyy
> line2 vvvvvvv ccccc
>
> my Perl script :
>
> open(LISTFILE,<external_file_name>);
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check of the return value after opening a
file.
> while ($LISTVAR=<LISTFILE>) {
You should use defined() in there; current versions of Perl will warn you
about this if you use -w.
> if ($LISTVAR=~ /line/ ) {
Are you sure that that's what you want? You could anchor the search, or
(better) you could use substr.
if (substr($LISTVAR, 0, 4) eq 'line') { ... }
> ###HOW DO I INITIALIZE THE INDIVIDUAL VARIABLES
> ###LIKE LINE1, xxxxx, and yyyyy ?
Use split, or a pattern match in a list context.
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.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 1087
**************************************
