[7676] in Perl-Users-Digest
Perl-Users Digest, Issue: 1302 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 11 14:17:12 1997
Date: Tue, 11 Nov 97 11:00:27 -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 Tue, 11 Nov 1997 Volume: 8 Number: 1302
Today's topics:
Re: An excellent example of perl madness (or "split stu <usenet-tag@qz.little-neck.ny.us>
Calling a Perl script from a Perl script CAN YOU HELP?? <gdoucet@ait.acl.ca>
Re: Can I confess run-time taint errors? (M.J.T. Guy)
Re: CPAN confusion <kermit@ticnet.com>
Re: CPAN confusion <kermit@ticnet.com>
Re: Diff. between Oraperl & DBI/DBD for Oracle (John D Groenveld)
Re: exec. external shell prog <barnett@houston.Geco-Prakla.slb.com>
Re: Foo - Bar <kelvin@pubgroup.com>
Re: Foo - Bar (Andrew M. Langmead)
Re: Help with Win32::Registry Module (Danny Aldham)
HTML FORM POST to DBASE <kelvin@pubgroup.com>
Installing modules? (Erik Y. Adams)
Re: Installing modules? <tycage@infi.net>
Re: Installing modules? (Mike Stok)
little endin (David Siebert)
Re: odd difference between C and Perl <jd@mukh.asc.ox.ac.uk>
printing lines following the line with a match (PsyTours)
Remote File Mgmt and Registry Query with Win32 Perl <ryan@purdue.edu>
Re: sendmail? <kelvin@pubgroup.com>
Will pay $$ for FORM-to-DBASE perl script <kelvin@pubgroup.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Nov 1997 18:15:01 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: An excellent example of perl madness (or "split stupidity")
Message-Id: <eli$9711111305@qz.little-neck.ny.us>
Gary Howland <ghowland@hotlava.com> wrote:
> But aren't DOS filenames specified like "\\d:...", not "\d:.."?
> The warning I'm talking about here is for *redundant* slashes
> that get ignored.
:r! perl -we ' $a=",.:;_\n";
$b="\Q$a\E";
print "$a$b";
$a=~/$b/&&print "Match\n";
$a=~/$a/&&print "Match again\n"'
,.:;_
\,\.\:\;_\
Match
Match again
Which redundant slashes do you want warnings about again?
Elijah
------
catching up on a week of not reading c.l.p.m (& got your split question right)
------------------------------
Date: Tue, 11 Nov 1997 17:44:45 GMT
From: Guy Doucet <gdoucet@ait.acl.ca>
Subject: Calling a Perl script from a Perl script CAN YOU HELP??
Message-Id: <34689917.48130AD8@ait.acl.ca>
First of all, I'm quite new at Perl...
I am creating CGI scripts with Perl. Our site is run by a Novell Web
Server. I've read a lot about people telling others to check what error
was recieved when their scripts crash. Well the only results that I get
from Perl is from my NetScape 4 browser. Either it comes back with the
message "Contains no data" or that the script worked. There may be an
error log somewhere but ...
Out of curiousity, where do the others run their perl scripts that they
can actually see Perl errors coming back to their screen?
Anyway, I was wondering if there was a way to call a Perl CGI script
from another Perl CGI script. Currently I'm having the first script
write an HTML page with javascript which is instructed to call the next
Perl Script. I was thinking there must be a better way. Is there?
Thanks for all feedback, and thanks too for previous feedback.
Guy Doucet
------------------------------
Date: 11 Nov 1997 17:06:22 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Can I confess run-time taint errors?
Message-Id: <64a3ae$l12$1@lyra.csx.cam.ac.uk>
In article <878509769.23433@dejanews.com>,
<gtuckerkellogg@genetics.com> wrote:
>
>I'd *really* like to see the call stack. I know how to use the
>debugger to get this, but is there a way of getting a fatal
>run-time error to print the call stack?
use diagnostics;
(or perl -Mdiagnostics )
Mike Guy
------------------------------
Date: Tue, 11 Nov 1997 11:27:25 -0600
From: Kermit Tensmeyer <kermit@ticnet.com>
Subject: Re: CPAN confusion
Message-Id: <3468957D.BFA75930@ticnet.com>
Zenin wrote:
>
> Kermit Tensmeyer <kermit@ticnet.com> wrote:
> : I doubt if the win32 version of perl can be used across the net
> : either.
> >snip<
>
> Actually, the Winsock module does a pretty good job of maping
> IO::Socket calls correctly. I've had most of my networking
> programs run with little or no modifications. I'd be surprised
> if it didn't work, actually.
if you can get either the Hummingbird shim or Sockscap to work with
build 310, then you have made a minor miracle. As you say, the winsock
module does a good job but inside the firewall.
Have you been able to read the pod information from the CPAN server
using perl on Win32? The original responder suggested that as the
method
to read the documentation associated with the modules without having
to download the module just to verify that it might meet a local need.
Most Win32 machine had better be behind some firewall (or dial up on
a temporary basis) just an opinion...
>
> : If and only if you are using a Unix workstation on the bare network.
>
> Like I said, Winsock support is pretty darn good. As for your fire
> walls, can't the Net::* stuff be configured to get through them? I
> could have swarn I saw that option fly by when installing it.
>
No. Unless it works with socks or a http proxy (like Harvest or NS)
it
should not go thru a firewall. bare Telnet should be blocked or you
should
get a new firewall. Ftp can be configure for a 'passive' proxy, but
that does not help in this case.
There needs to be a better interface for extracting modules for online
review of the information.
--
-------
Kermit Tensmeyer (E & T - Networking)
Kermit@ticnet.com Dallas
------------------------------
Date: Tue, 11 Nov 1997 11:39:38 -0600
From: Kermit Tensmeyer <kermit@ticnet.com>
Subject: Re: CPAN confusion
Message-Id: <3468985A.E3EA10B4@ticnet.com>
Calle Dybedahl wrote:
>
> Kermit Tensmeyer <kermit@ticnet.com> writes:
>
> > At work I sit behind a firewall. I can browse the CPAN site all I want
> > with a browser, but the CPAN module can not connect unless the perl
> > is socksified.
>
> Wrong. Perl (and the CPAN module) can use the same proxy server your
> browser uses. And while the NT Perl port I have installed on our WinDD
> machine is too old to have the CPAN module included, it does have
> IO::Socket, so I can see no reason why the CPAN module shouldn't work there.
>
Ok. I'll bite. How?
The proxy server I'm using is a SocksV4 server. If perl is not
socksfied, how does it use a proxy or socks server?
If the service that is connecting is port 80 and the content
can be seen on Port 80, then I can browse the content with a
Web client.
< which is what I've suggested that would simplify the problem.
< the suggestion was to use perl -MCPAN to directly access the
pod data for reading over the web.
oh and notice that most of the cpan ftp server do not support
passive ftp, which is one method of connecting to servers that
transverse firewalls.
the problem folks is in socksfying perl, not just perl IO modules.
Perl is intended as a process that runs on one machine, not
as a distributed server that draws on resource from many machines.
Shoot, if you want software that is self-replicating and
acts as a user-interface to replace an OS, just break down
and install FSF-emacs on the machine and be done with it.
(yep you can open up compressed tar files on remote machine,
and run pod-html on single files and display it on your machine
and make it work the way you want it too.
but you better have 32 meg of Ram and 2.5 Gig of harddrive.
remember the complaints about the 'bloat' when Perl moved
from version 3 to version 4?
and perl5 is so much bigger, not to mention Emacs... ;-)
--
-------
Kermit Tensmeyer (E & T - Networking)
Kermit@ticnet.com Dallas
------------------------------
Date: 11 Nov 1997 12:49:14 -0500
From: groenvel@cse.psu.edu (John D Groenveld)
Subject: Re: Diff. between Oraperl & DBI/DBD for Oracle
Message-Id: <64a5qq$mp$1@tholian.cse.psu.edu>
In article <63r595$t1p$1@agate.berkeley.edu>,
jamester <jamester@alumni.eecs.berkeley.edu> wrote:
>Sorry if this has been asked (and answered) before..can't seem to find it in
>the FAQ.
http://www.dejanews.com/ archives much of Usenet, as does AltaVista and
others.
>Can someone tell me what the difference is between Oraperl and DBD/DBI for
>Oracle? What are the advantages of using one to another?
oraperl, the perl4 extension is dead. You'll need DBI/DBD::Oracle, which
includes an Oraperl emulation module. See
http://www.hermetica.com/technologia/DBI/
Happy Perl'ng,
John
groenvel@cse.psu.edu
------------------------------
Date: Tue, 11 Nov 1997 10:10:56 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: exec. external shell prog
Message-Id: <34688390.4D81@houston.Geco-Prakla.slb.com>
Tad McClellan wrote:
>
> Matthias Bodenbinder (mbod@chem.ubc.ca) wrote:
>
> : I am a complete novice to perl and I have a problem executing gnuplot
> : from within a perl script (Linux, perl 5.003).
>
> : The perl script generates a gnuplot file 'foo'. This file can be processed
> : from gnuplot without error message when I invoke gnuplot from the
> : commandline:
>
> : $ gnuplot foo
>
> : gnuplot then generates a postscript file 'out.eps'. Unfortunately this
> : does not work when I invoke gnuplot from within my perl script. There are
> : no error messages (I use 'perl -w') and there is no 'out.eps' file. I
^^^^^^^^^
I ran into a problem with gnuplot (on Solaris2.5.1) where it wouldn't
create the output file because the pathname was too long for it to
handle. It cut off at about 54 characters (I think)....
I have some data files that have text output from an info. gathering
perl script. The following perl script cd's to the directory (using
chdir() ), runs the steps to extract what I need, and saves that off to
a common directory (this is being done on about 5 machines).
Once that is all done, the perl script does the following:
#
-----------------------------------------------------------------------------------------
# Set up files to pass to gnuplot for formatting & output of data
#
-----------------------------------------------------------------------------------------
&gnuFormat($::gnuFormatFileName[0],$::graphTitle[0],$::outputFileName[0],$::gnuDiskFile,
\
$::title1[0],$::title1[1]);
&gnuFormat($::gnuFormatFileName[1],$::graphTitle[1],$::outputFileName[1],$::gnuTapeFile,
\
$::title2[0],$::title2[1]);
system ("/usr/local/bin/gnuplot $::gnuFormatFileName[0]");
system ("/usr/local/bin/gnuplot $::gnuFormatFileName[1]");
print STDOUT ("Processing Complete.\n");
#
-----------------------------------------------------------------------------------------
#
-----------------------------------------------------------------------------------------
# Define gnuFormat subroutine
# Defined to create a file in gnuplot format to be fed to gnuplot for
plotting
#
-----------------------------------------------------------------------------------------
sub gnuFormat {
local
($::gnuFormatFileName,$::graphTitle,$::outputFileName,$::gnuDataFile,$::title1,$::title2)
= @_;
chdir("$::gnuplotDir") or die ("Unable to cd to directory: $!\n");
open (GNU_FORMAT_FILE,">$::gnuFormatFileName")
or die ("Unable to open $::gnuFormatFile: $!\n");
select(GNU_FORMAT_FILE);
$| = 1;
print "set title \"$::graphTitle\"\n";
print "set xlabel \"Number of Samples\"\n";
print "set ylabel \"In MegaBytes\"\n";
print "set terminal postscript\n";
print "set output \"$::outputFileName\"\n";
print "plot \'$::gnuDataFile\' using 0:1 title \"$::title1\" with
linespoints,\'$::gnuDataFile\' using 0:2 title \"$
::title2\" with linespoints\n";
close(GNU_FORMAT_FILE);
}
I expect you know how to use gnuplot, so I won't tell you what all the
variable names are for. (Should be self-explanatory....)
I created mine as a subroutine, because I had two different files
(similar data, but different titles, etc.) that I wanted to use gnuplot
on.
I also had several machines to do it on, so I created a csh script to
rsh to each machine, and run this perl script. Pretty slick,
really.... Saves me from doing a lot of redundant crap.
HTH.
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: Tue, 11 Nov 1997 10:35:08 -0600
From: "Kelvin D. Olson" <kelvin@pubgroup.com>
Subject: Re: Foo - Bar
Message-Id: <3468893C.2781@pubgroup.com>
Georg Edelmayer wrote:
>
> Hi all!
>
> This might be out of subject (and if it is, please ignore this posting)
> but as one who is not a -programmer- but interested in programming i
> once again found 'foo' and 'bar' mentioned in some examples.
>
> I realise that nearly every programming language manual or doc or
> whatever uses foo and bar when explaining code.
> Like 'hello world' is the first thing everyone codes ;-)
>
> So can any of you tell me where this names come from?
> It could be any names, so why foo and bar?
Hi George! I'm so glad you had the courage to ask this controversial
question! I've done some independent research on the subject, and as it
turns out, it's a good thing I did...
<TONGUE LOCATION="CHEEK">You won't hear this from anyone of authority or
notariety in the programming world, as they've all either part of the
conspiracy, or have been "brainwashed," or both.
"Foo" was a fifth-century Druid high priest who, when he wasn't
sacrificing virgins to the evil spirits, experimented with alternative
methods of representing numbers. Rebelling against the Roman Numeral
System, Foo fiddled around with binary, octal, and possibly even
hexadecimal mathematics.
Foo nicknamed a base-5 method as "Bar," as when these numbers were
written, he used an over-bar to distinguish base-5 numbers from the
other methods. The over-bar idea was sort of plaigerized from the Roman
Numeral System, and the characters used for the five numerals were also
so similar to the Roman "I, V, X, L and M." This was intentional, in
order to confuse the Romans (and thereby the early Catholics). And the
base-5 "Bar" numbering system was Foo's favorite because of the five
points in the Satanic symbol of the pentagram.
So in reality, when you see references to "foo" and "bar," it's actually
a sort of mantra, paying homage to one of the most evil mathematicians
of all time.</TONGUE>
May God have mercy on your soul...
Kelvin D. Olson
=================================================
I hope you all enjoyed that as much as I did! <g>
------------------------------
Date: Tue, 11 Nov 1997 16:26:55 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Foo - Bar
Message-Id: <EJHpow.4Jy@world.std.com>
Georg Edelmayer <ged@fortec.tuwien.ac.at> writes:
>So can any of you tell me where this names come from?
>It could be any names, so why foo and bar?
They are nearly universal "Metasyntatic Variables"
<URL:http://www.netmeg.net/jargon/terms/m.html#metasyntactic_variable>
Its fairly widely agreed that "foo" and "bar" have a connection to the
military acronym "FUBAR", although there are some people who feel that
"foo" on its own has its own unconnected history.
<URL:http://www.netmeg.net/jargon/terms/f.html#foo>
--
Andrew Langmead
------------------------------
Date: 10 Nov 1997 20:46:43 -0800
From: danny@lennon.postino.com (Danny Aldham)
Subject: Re: Help with Win32::Registry Module
Message-Id: <648nvj$9ta$1@lennon.postino.com>
scis (asupcsi@cyberramp.net) wrote:
: I have the 5.004 binary dist of perl running under NT. I cannot locate any
: good doc's on the Win32:Registry module that is included. Activeware's
: doc's don't seem to coincide with what is in this distribution. If someone
: could point me to where I can find documentation specific to this module I
: would greatly appreciate it. Or, second best, post some sample source so
: that I may learn how the various calls are used with real world examples.
This script reads thru the registry and displays all the keys.
#!/usr/bin/perl
#Hack send by Roger D. Knapp
#Modified by Philippe Le Berre
#version 1a, 16/7/97,
use Win32::Registry;
my ( $Register, $hkey, $key_list, $key, %RegType );
%RegType = (
0 => 'REG_0',
1 => 'REG_SZ',
2 => 'REG_EXPAND_SZ',
3 => 'REG_BINARY',
4 => 'REG_DWORD',
5 => 'REG_DWORD_BIG_ENDIAN',
6 => 'REG_LINK',
7 => 'REG_MULTI_SZ',
8 => 'REG_RESOURCE_LIST',
9 => 'REG_FULL_RESOURCE_DESCRIPTION',
10 => 'REG_RESSOURCE_REQUIREMENT_MAP');
$Register = "System\\CurrentControlSet\\Control"; #Where do we start from ?
$HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die "$!";
print "$Register\n";
#Loop thru all the keys
&extract_keys($hkey, 2);
#---------------------------------------
#Print spaces
#---------------------------------------
sub print_spaces {
my($spaces) = $_[0];
print " " while ($spaces--);
}
#---------------------------------------
#Extract the subkeys of a specified key
#---------------------------------------
sub extract_keys {
my ($hkey, $spaces) = @_;
my ($newkey,@key_list,$key);
&extract_values($hkey,$name,$spaces+2); #get the values of the current
$hkey->GetKeys(\@key_list); #key the list of its subkeys
&print_spaces(0);
foreach $key (@key_list) { #loop thru the list
if ($key ne "") {
&print_spaces($spaces);
print " $key\n";
if ( $hkey->Open($key, $newkey)) #open the subkey
{
&extract_keys($newkey, $spaces+2); #recurs
}
}
}
$hkey->Close(); #Clean work !
}
#---------------------------------------
#Extract the values of a specified key
#---------------------------------------
sub extract_values {
my ($hkey,$key,$spaces) = @_;
my ($vkey,%value,$RegType,$RegData,$RegValue);
$hkey->GetValues(\%values); #Get hash with the values
foreach $value (%values) { #loop thru the hash
$RegType = $values{$value}->[1]; #Type of the va
$RegData = $values{$value}->[2]; #Value
$RegValue = $values{$value}->[0]; #Name of the va
next if ($RegType eq ''); #do not print default value
$RegValue = 'Default' if ($RegValue eq ''); #name the defau
&print_spaces($spaces+2);
print "$RegValue ($RegType{$RegType})\t:\t";
SWITCH: {
($RegType == 3) && do {
@_ = unpack("N*",$RegData);
foreach $_ (@_) {
printf "0x%1lx ",$_;
}
print "\n";
last SWITCH;
};
($RegType == 4) && do {
printf "Ox%1lx (%2ld)\n", unpack("L",$RegData),
unpack("L",$RegData);
last SWITCH;
};
($RegType == 5) && do {
printf "Ox%1x", unpack("N",$RegData);
last SWITCH;
};
( $RegType < 8 ) && do {
print "$RegData\n";
last SWITCH;
};
print "\n";
}
}
undef %values;
}
--
Danny Aldham SCO Ace , MCSE , JAPH , DAD
I wak'd, she fled, and day brought back my night. jm
------------------------------
Date: Tue, 11 Nov 1997 12:18:51 -0600
From: "Kelvin D. Olson" <kelvin@pubgroup.com>
Subject: HTML FORM POST to DBASE
Message-Id: <3468A18B.41C6@pubgroup.com>
CosmoCreate (a really cool HTML authoring program from SGI) will
automatically create a CGI script to feed FORM POST data back to the
browser (submitter) in HTML table form. It shows the name of the
particular field, the default value, and the entered value. It's really
cool and slick, except that it does me no STINKIN' good to give the data
to the submitter.
I mean... what's the point? "Here's what you submitted, and now it has
gone nowhere. Thanks, goodbye!!"
OK, it does do SOME good... it establishes a CGI perl method of pairing
off variables and their values. But the sad and sadistic thing is that I
can't for the LIFE OF ME get the data to go anywhere but back to the
submitter's browser!
And all I really want to do is to take a string like:
sName=Kelvin+D.+Olson&salenum=54321++&sAddr=7512+Aldrich+Ave+So&sCity=Richfield&sState=MN&sZIP=55423&hphone=%28612%29+522-1200&wphone=%28612%29+869-6462&fax=%28612%29+522-1182&return-email=kelvin@pubgroup.com&bName=Same+as+Ship-To&bAddr=&bCity=&bState=&bZIP=&logo=873&lethead=yes&lhquan=250&second=yes&2ndquan=250&billing=invoice&instructions=&specship=none
...and turn it into:
"Kelvin D. Olson","54321","7512 Aldrich Ave So",...
At that point, I don't care if it e-mails it to me, writes it to a file
on the webserver, or shoots it to the moon. I just need to get the data
into a format that's actually useful for MSAccess, or for that matter,
any other freakin' database program that accepts STANDARD entries.
One other option, that would work almost as well, would be if the
e-mailed pile-o-junk (that I can easily extract into an ASCII file that
includes ONLY the lines-o-junk) could be perl-translated into the normal
characters. I guess the only issue is to be sure that there are no
fields missing. For instance, if a customer doesn't request envelopes, I
need to have "" for that entry, rather than skipping it entirely.
We will pay actual money to get this resolved!
KDO
--
==============================================================
Kelvin D. Olson Director of Media Services
kelvin@pubgroup.com The Publishing Group
(612) 522-1200 x302 Minneapolis, MN
------------------------------
Date: Tue, 11 Nov 1997 07:36:08 -0800
From: erik@earthlink.net (Erik Y. Adams)
Subject: Installing modules?
Message-Id: <erik-1111970736080001@pool028-max1.pasadena.ca.us.dialup.earthlink.net>
So, I've downloaded a module from my nearest CPAN mirror. I've done "perl
Makefile.PL" and "make". Now I've got a bazillion files sitting around,
and I'm not sure which ones to move into the @INC directories.
I realize this is probably different for each module, but are there
step-by-step instructions on how to do this?
Erik
--
----------------------------------------------------------
Erik Y. Adams erik@earthlink.net
Information Systems Consultant 626/795-2701
Internet and Intranet Specialist
------------------------------
Date: Tue, 11 Nov 1997 12:38:39 -0500
From: Ty Cage Warren <tycage@infi.net>
Subject: Re: Installing modules?
Message-Id: <3468981F.5B458479@infi.net>
Erik Y. Adams wrote:
>
> So, I've downloaded a module from my nearest CPAN mirror. I've done "perl
> Makefile.PL" and "make". Now I've got a bazillion files sitting around,
> and I'm not sure which ones to move into the @INC directories.
>
> I realize this is probably different for each module, but are there
> step-by-step instructions on how to do this?
>
> Erik
>
Try 'make install' assuming that you have the permissions to install
to the @INC directories.
You also might want to try 'more README' =)
+---+
Ty Cage Warren tycage@infi.net
Systems Engineer InfiNet
The Web Site of Love: http://tazer.engrs.infi.net/mst3k/
PGP Public Key: http://tazer.engrs.infi.net/~tycage/pgpkey.html
PGP Fingerprint: FF C1 28 CA 80 B5 31 78 B1 24 2E 8C AB DA FB D2
------------->Never invoke anything bigger than your head.<-------------
------------------------------
Date: 11 Nov 1997 18:11:44 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Installing modules?
Message-Id: <64a750$hb2@news-central.tiac.net>
Once you've done the make you should do
make test
make install
(the make install may need to be done as root unless you're building a
private library.)
Hope this helps,
Mike
In article <erik-1111970736080001@pool028-max1.pasadena.ca.us.dialup.earthlink.net>,
Erik Y. Adams <erik@earthlink.net> wrote:
>So, I've downloaded a module from my nearest CPAN mirror. I've done "perl
>Makefile.PL" and "make". Now I've got a bazillion files sitting around,
>and I'm not sure which ones to move into the @INC directories.
>
>I realize this is probably different for each module, but are there
>step-by-step instructions on how to do this?
>
>Erik
>
>--
>----------------------------------------------------------
>Erik Y. Adams erik@earthlink.net
>Information Systems Consultant 626/795-2701
>Internet and Intranet Specialist
--
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@colltech.com | Collective Technologies (work)
------------------------------
Date: 11 Nov 1997 18:37:14 GMT
From: dsiebert@gate.net (David Siebert)
Subject: little endin
Message-Id: <64a8kq$k8c$1@news.gate.net>
I need to write a binary 16bit value to a file in little endin format any
suggestions
------------------------------
Date: Tue, 11 Nov 1997 17:07:58 +0000
From: John Davis <jd@mukh.asc.ox.ac.uk>
Subject: Re: odd difference between C and Perl
Message-Id: <346890EE.132C@mukh.asc.ox.ac.uk>
Many thanks to all who taught me
about Perl's use of doubles.
Nice to learn from you all out
there.
John Davis
------------------------------
Date: Tue, 11 Nov 1997 17:47:04 GMT
From: psycler@netcom.com (PsyTours)
Subject: printing lines following the line with a match
Message-Id: <psyclerEJHtEG.ILA@netcom.com>
I am trying to parse a file where I look for pattern-matching
in a specific line and upon locating that line, that line and
the following 5 lines (only) get print to the output.
What is the easiest way to do this?
I have this simple script so far that prints only the
line that is matched:
open (IN, "outfile");
$line = <IN>;
while ($line ne "") {
if ($line =~ /[7-9][0-9]/ || $line =~ /Query/) {
print "$line\n";
}
$line = <IN>;
}
close (IN);
________________________________________end
Thanks!
------------------------------
Date: Tue, 11 Nov 1997 10:06:25 -0800
From: Ryan Kivett <ryan@purdue.edu>
Subject: Remote File Mgmt and Registry Query with Win32 Perl
Message-Id: <34689EA1.40F@purdue.edu>
Is there anyway to query a registry on an NT server remotely
or check files remotely... I know there are some commands
in Win32::NetAdmin, but these deal with security permissions
and users/groups. I need to run similar queries on a server,
but need to look at its registry. The Win32::Registry has
what I want but its for the local machine.... Anyone have
an idea?
------------------------------
Date: Tue, 11 Nov 1997 10:42:28 -0600
From: "Kelvin D. Olson" <kelvin@pubgroup.com>
To: Tsuyoshi Niwa <niwa@ultinet.net>
Subject: Re: sendmail?
Message-Id: <34688AF4.446B@pubgroup.com>
Tsuyoshi Niwa wrote:
>
> Where can I learn how to write scripts using
> sendmail? I have a trouble that only To: shows up
> in the header and the rest becomes a part of message.
I got the following from elsewhere in the newsgroup(s), and it seemed to
work just grand for me. Hope it is helpful to you!
#!/usr/sbin/perl
open(SENDMAIL, "|/usr/lib/sendmail -t") ||
die "Pipe open failed: $!\n";
print SENDMAIL <<EOF;
From: joeblow@domain1.com
To: yourself@domain2.com
Subject: Daily status message
This is a status message. It contains the values of the variables
$var1 and $var2.
Signed,
Your Program
EOF
close(SENDMAIL ||
warn "Error on pipe close; mail may not have been sent: $!\n";
warn "Mail delivery may have failed! Sendmail exited with status $?.\n"
if $? != 0;
[end of perl script stuff]
I don't understand what it all means, but it worked for me, and I ain't
even using perl 5!!
KDO
--
==============================================================
Kelvin D. Olson Director of Media Services
kelvin@pubgroup.com The Publishing Group
(612) 522-1200 x302 Minneapolis, MN
------------------------------
Date: Tue, 11 Nov 1997 12:28:41 -0600
From: "Kelvin D. Olson" <kelvin@pubgroup.com>
Subject: Will pay $$ for FORM-to-DBASE perl script
Message-Id: <3468A3D9.167E@pubgroup.com>
I want a perl script that will take an ASCII text file consisting of the
HTML form data like:
sName=Kelvin+D.+Olson&salenum=54321&sAddr=7512+Aldrich+Ave.... etc.
and convert it to something like:
"Kelvin D. Olson","54321","7512 Aldrich Ave... etc.
Plain and simple. A one-to-one ratio of input fields to output fields.
No fields missing. I will provide you with any data you require,
including editing the HTML form so it e-mails the ACTUAL submissions to
your address. Worry not, the form ain't really "live" yet. That is, it
isn't being used by customers; only by me (and you, if you'd like) to
submit pretend customers' data.
I'm done playing with this. Inasmuch as I intend to learn to do many fun
things with perl, but for this particular need, I can't help feeling
that I'm re-inventing a VERY POPULAR WHEEL.
KDO
--
==============================================================
Kelvin D. Olson Director of Media Services
kelvin@pubgroup.com The Publishing Group
(612) 522-1200 x302 Minneapolis, MN
------------------------------
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 1302
**************************************
