[8143] in Perl-Users-Digest
Perl-Users Digest, Issue: 1761 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 29 13:07:29 1998
Date: Thu, 29 Jan 98 10:00:30 -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 Thu, 29 Jan 1998 Volume: 8 Number: 1761
Today's topics:
Re: 5 REAL languages (was: Re: AOL SPAM) <jdporter@min.net>
Re: @ == @, comparing arrays (Steve)
Re: ARRAYS of filehandles posssible ?!? (Andrew M. Langmead)
Re: Arrgghhhhh! There must be a simple solution to this <Jacqui.Caren@ig.co.uk>
Correction - Re: Printing in triplicate... <orangutan@grungyape.com>
Re: CSV (comma separated, quoted) (Ben Evans)
Re: Debugging Perl and entering input <keefner@kinetic.com>
Re: Debugging Perl and entering input (Richard Bellavance)
Re: delete function <jdporter@min.net>
Error : Runtime exception with win32Api... <fgint@dial.oleane.com>
Re: Freidl's book mystery <jdporter@min.net>
Help with executing app on NT using PERL swilson@nswc.navy.mil
Re: Help with SORT <merlyn@stonehenge.com>
Re: Help with SORT <joseph@5sigma.com>
Re: hex -> int -> byte ??? <jdporter@min.net>
How do you setup named parameters in objects <Patrick.Hayes.CAP_SESA@renault.fr>
Re: module variable scope <jdporter@min.net>
Re: None <jacobsoc@grove.ufl.edu>
Open +< mode for read/write file <dennis.kowalski@daytonoh.ncr.com>
Re: perl script -> secure webpage <Carry.Megens@nym.sc.philips.com>
Perl upload function <internet@reimer.ch>
Perl Win32/ISAPI/DBI question <hatton@dfdis.com>
Printing in triplicate... <orangutan@grungyape.com>
Re: Problems with strings (again) <markm@nortel.ca>
Require or read offserver files? <jacobsoc@grove.ufl.edu>
script does things as different user? <prl2@lehigh.edu>
Seeking Search Engine Code (Steven Savage)
Some possible bugs <vchandra@mail.delcoelect.com>
Re: Survival Of perl (I R A Aggie)
Re: Survival Of perl <jdporter@min.net>
Re: Survival Of perl jsd@bud.com
Re: UNIX to Win: Script *Still* Won't Go (Erik Y. Adams)
Re: UNIX to Win: Script *Still* Won't Go (Andrew Williams)
Re: Webring <adavid@netinfo.com.au>
Where are all the scripts? (Ray Schultz)
Re: why no one ever reply? (Andrew M. Langmead)
Writing Multilingual Software philippe.verdret@eurolang.fr
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 29 Jan 1998 11:54:40 -0500
From: John Porter <jdporter@min.net>
Subject: Re: 5 REAL languages (was: Re: AOL SPAM)
Message-Id: <34D0B450.1A60@min.net>
Adam Turoff wrote:
>
> I assume you mean (not necessarily in order):
> C/C++/Java, FORTRAN, Assembly Language, COBOL, Lithp/Scheme.
Actually I was thinking
Intercal
Pilot
Postscript
Trac
Python
John Porter
------------------------------
Date: Thu, 29 Jan 1998 16:44:41 GMT
From: woodman@ultranet.com (Steve)
Subject: Re: @ == @, comparing arrays
Message-Id: <6aqbb0$s7t$1@decius.ultra.net>
chip@mail.atlantic.net (Chip Salzenberg) wrote:
>Software isn't wiring. In the programming dictionary, the entry
>for "almost right" reads "see 'wrong'".
Gee, wiring tends to buring your house down if you doit wrong =:)
For all you automated email spammers out there, here
is the current board of the Federal Communications Commission.
The FCC Board will be delighted to get some Spam and
learn how to do illegal chain mail:
Chairman Reed Hundt: rhundt@fcc.gov
Commissioner James Quello: jquello@fcc.gov
Commissioner Susan Ness: sness@fcc.gov
Commissioner Rachelle Chong: rchong@fcc.gov
The White House needs some help with fundraising:
president@whitehouse.gov
vicepresident@whitehouse.gov
The Postal Service is always delighted to get more junk mail:
customer@email.usps.gov
And for you pyramid scheme folks, here are two addresses to spam to:
pyramid@ftc.gov
------------------------------
Date: Thu, 29 Jan 1998 16:16:02 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: ARRAYS of filehandles posssible ?!?
Message-Id: <EnJzuq.2Go@world.std.com>
Claus van de Vlierd <vlierd@uni-oldenburg.de> writes:
>As a PERL-novice I would like to call a subroutine
> with a parameter which contains an array of
> FileHandles which this subroutine should use to read the
> approppiate files --- but unfortunately I do not know
> how to do this.
The best way to do this is to use the IO::File module. Check either
the IO::File man page for details or take a look at this entry from
the FAQ.
> How can I make a filehandle local to a subroutine?
> How do I pass filehandles between subroutines?
> How do I make an array of filehandles?
>
> You may have some success with typeglobs, as we always had to use in
> days of old:
>
> local(*FH);
>
> But while still supported, that isn't the best to go about getting
> local filehandles. Typeglobs have their drawbacks. You may well want
> to use the `FileHandle' module, which creates new filehandles for you
> (see the FileHandle manpage):
>
> use FileHandle;
> sub findme {
> my $fh = FileHandle->new();
> open($fh, "</etc/hosts") or die "no /etc/hosts: $!";
> while (<$fh>) {
> print if /\b127\.(0\.0\.)?1\b/;
> }
> # $fh automatically closes/disappears here
> }
>
> Internally, Perl believes filehandles to be of class IO::Handle. You
> may use that module directly if you'd like (see the IO::Handle
> manpage), or one of its more specific derived classes.
>
> Once you have IO::File or FileHandle objects, you can pass them
> between subroutines or store them in hashes as you would any other
> scalar values:
>
> use FileHandle;
>
> # Storing filehandles in a hash and array
> foreach $filename (@names) {
> my $fh = new FileHandle($filename) or die;
> $file{$filename} = $fh;
> push(@files, $fh);
> }
>
> # Using the filehandles in the array
> foreach $file (@files) {
> print $file "Testing\n";
> }
>
> # You have to do the { } ugliness when you're specifying the
> # filehandle by anything other than a simple scalar variable.
> print { $files[2] } "Testing\n";
>
> # Passing filehandles to subroutines
> sub debug {
> my $filehandle = shift;
> printf $filehandle "DEBUG: ", @_;
> }
>
> debug($fh, "Testing\n");
--
Andrew Langmead
------------------------------
Date: Thu, 29 Jan 1998 15:57:39 GMT
From: Jacqui Caren <Jacqui.Caren@ig.co.uk>
Subject: Re: Arrgghhhhh! There must be a simple solution to this script error
Message-Id: <EnJz04.LBn@ig.co.uk>
In article <34B3D01D.211@min.net>, John Porter <jdporter@min.net> wrote:
>James Robshaw wrote:
>>
>> Can anyone please point me in the right direction.
>>
>> I have a perl script that works fine until I try to edit this particular
>> line from
>>
>> print NEWFILE " <body >\n";
>>
>> into
>>
>> print NEWFILE " <body bgcolor="#B4BCCD" text="#000000" link="#000066"
>> vlink="#990000">\n";
>>
>> Is it the repetition of the "#" that causes the error?
>> Can I place a default character in front of the # to prevent the error?
>
>Nope. The problem is with the double-quote characters. Hey, if the
>string starts with a ", it ends at the next (unescaped) ".
>Try changing the whole string to be enclosed in qq//. (Look it up.)
>
> print NEWFILE qq{ <body bgcolor="#B4BCCD" text="#000000"
>link="#000066"
> vlink="#990000">\n};
>
>Actually here I used qq{}. Same diff. Choose enclosing delimiters which
>don't occur in the string literal.
{} are special in that they nest...
i.e.
qq{ aaaa { bbbb } cccc };
is AOK.
Jacqui
Also for outputting large sections of HTML consider using here-is
documents
print NEWFILE <<END;
<HTML>
<HEAD>
<TITLE>aaa</TITLE>
</HEAD>
<body bgcolor="#B4BCCD" text="#000000" link="#000066" vlink="#990000">
...
END
or storing the output in a list and
print NEWFILE join('', @output);
It results in less calls to stdio - which may or may not reduce
process overhead.
--
Jacqui Caren Email: Jacqui.Caren@ig.co.uk
Paul Ingram Group Fax: +44 1483 419 419
140A High Street Phone: +44 1483 424 424
Godalming GU7 1AB United Kingdom
------------------------------
Date: Thu, 29 Jan 1998 12:46:25 -0500
From: "Franklin L. Petersen" <orangutan@grungyape.com>
Subject: Correction - Re: Printing in triplicate...
Message-Id: <6aqf6r$49q$1@cletus.bright.net>
Sorry, I was playing with the script, and left a change in, there is a
correction that needs to be made to see the "real unmodified" version...see
below.
F
>open ( TF, $textfile ) || die "Couldn't open $textfile for reading";
> while ( <TF> ) {
> $groupList = $_;
> @fileList = split (/\s+/, $groupList);
> foreach $fileSet (@fileList) {
this should be $_ not $groupList as posted
($number, $letter, $path) - split (/\s+/, $_);
VOID ($number, $letter, $path) = split ( /\s+/,
$groupList );
------------------------------
Date: 29 Jan 1998 16:11:29 GMT
From: ben@eexpc.eee.nott.ac.uk (Ben Evans)
Subject: Re: CSV (comma separated, quoted)
Message-Id: <slrn6d1agc.9qq.ben@eexpc.eee.nott.ac.uk>
NOTE: Followup-To: line set to poster above as I felt this post
was slightly off-topic. B.
In article <34CC9BE3.8F89D5A@kordsmen.org>, Ken Stevens wrote:
>I am very new to Perl programing... I have installed a great program
>called PerlShop that works wonderfully. The only problem is that it
>saves the data in CSV
>
>ie: "John","Doe", "somestreet","Someplace","25031", etc etc etc.
Errrm. I've just built a set of tools for handling databases being spat out
as CSV from various relational DB systems and I thought the format for a CSV
file only quoted a field if the field contained a comma as a normal
character.
E.g.
----
header
Firstname, Lastname, Address1, Address2, ZIP, foo, bar, weasel
----
John,Doe,XX Somestreet,"No-Go District, Squiggletown",ZZ YYYYY, ...
[Not really a perl point, I know]
>the other problem is each record is its own file and is a random number
>
>ie: 2345678.304
>
>is there a Perl utility to put this in human form? Or can some one help
>me with a sort Who to....
Could someone possibly point me (gently, with only the lightest touch of a
rolled-up newspaper :) ) to where I might find some CSV hacking libraries or
tools. I'm very new to Perl and the only stuff my employers have floating
around tends to drop crap (in the form of other peoples advertising, etc)
all over my output. [Yeah, OK, I am doing cgi, but it pays the rent].
Consequently I'm being asked to do what I'm sure is a massive amount of
"wheel redevelopment". Any pointers would be most gratefully...
Ben
------------------------------
Date: Thu, 29 Jan 1998 09:59:10 -0600
From: "Craig A. Keefner" <keefner@kinetic.com>
Subject: Re: Debugging Perl and entering input
Message-Id: <34D0A74E.BD20A03B@kinetic.com>
this is using 5.003_07 (build 315) of win32 perl
and 2.36 CGI.pm.
There is no problem under 5.004_04 solaris
Craig
Craig A. Keefner wrote:
> I want to debug some scripts and during those scripts
> input can be requested;
>
>
------------------------------
Date: 29 Jan 1998 11:14:42 -0500
From: charlot@CAM.ORG (Richard Bellavance)
Subject: Re: Debugging Perl and entering input
Message-Id: <6aq9ti$jlr@stratus.CAM.ORG>
In article <34D097C0.9650C63D@kinetic.com>,
Craig A. Keefner <keefner@kinetic.com> wrote:
>I want to debug some scripts and during those scripts
>input can be requested;
>
> DB<1> n
>(offline mode: enter name=value pairs on standard input)
>MN
>
>(hitting return and only getting linefeeds...)
>
>how do you enter the input and have the debugger accept it
>and go to the next step?
>
Type the sequence that corresponds to "end-of-file" on your terminal. I see
you're on WinNt, so it should be <Ctrl-Z><Enter>.
Richard, sure this is in CGI.pm's documentation...
--
Richard Bellavance -- charlot@cam.org -- http://www.cam.org/~charlot/
"All along this path I tread / My heart betrays my weary head
With nothing but my love to save / From the cradle to the grave"
(Eric Clapton, "From the cradle")
------------------------------
Date: Thu, 29 Jan 1998 12:35:46 -0500
From: John Porter <jdporter@min.net>
Subject: Re: delete function
Message-Id: <34D0BDF2.5EB5@min.net>
Justin,
Don't get hung up on the word 'delete'. If it doesn't do what you want,
look for other techniques.
If it is natural for the data to be loaded into a hash, then do that,
delete the unwanted elements, and write the hash back out to the file.
The order may not necessarily be the same, but if it has to be, there
are ways to ensure that too.
If the order of the records is important, but not the unique value of
some field, you can load the file into an array, the drop the unwanted
records using e.g. grep or splice, then write the array back out to the
file.
hth,
John Porter
------------------------------
Date: Thu, 29 Jan 1998 18:09:19 +0100
From: "Didier JEANROBERT" <fgint@dial.oleane.com>
Subject: Error : Runtime exception with win32Api...
Message-Id: <6aqd74$jh2$1@minus.oleane.net>
Help me...
I'm trying to use Win32Api with NetGroupEnum and i have :
Error : Runtime exception...
a idea ??
#####################################################"
use Win32::API;
system (cls);
$GroupEnum = new Win32::API("Netapi32", "NetGroupEnum", [P,I,P,I,P,P,P],
I);
$server = "\\\\myserver";
$level = 1;
$buf = " " x 128;
$prefmaxlen = 128;
$entriesread = 0;
$totalentries = 0;
$resume_handle = 0;
$Result = $GroupEnum->Call($server, $level, $buff, $prefmaxlen,
$entriesread, $totalentries, resume_handle) ||Error();
print "\$Result=$Result\n";
sub Error
{
return Win32::FormatMessage(Win32::GetLastError());
}
------------------------------
Date: Thu, 29 Jan 1998 12:08:32 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Freidl's book mystery
Message-Id: <34D0B790.4127@min.net>
Ilya Zakharevich wrote:
>
> [A complimentary Cc of this posting was sent to John Porter
> <jdporter@min.net>],
> who wrote in article <34CF427D.70FE@min.net>:
> > OTOH, it can be argued that *anything* written in C will faster than
> > the equivalent in Perl, by orders of magnitude >=0.
>
> Nonsense.
What Ilya means to say is,
"Perhaps, but if I take the other side of the argument, I will win."
PMFPWIOPM,
John Porter
------------------------------
Date: Thu, 29 Jan 1998 10:51:30 -0600
From: swilson@nswc.navy.mil
Subject: Help with executing app on NT using PERL
Message-Id: <886088718.527368194@dejanews.com>
Hello All,
I would appreciate any help that anyone could give me on this. I am
trying to automate some testing on an NT box using PERL. The windows
console program that I want to run must be executed over 1000 times with
different inputs to it every time. Sort of like a batch file with
variables. For example, my simple PERL script looks like:
for ($i=16; $i < 16384; $i+=16)
{
print 'my_app -a -b -c -l$i';
}
I have PERL running correctly because I can run the "Hello World" type of
program. Can anyone help me out? I would greatly appreciate any comments
offered.
Thanks!
Scott Wilson
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 29 Jan 1998 10:22:15 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: Douglas Wilson <dgwilson@gte.net>
Subject: Re: Help with SORT
Message-Id: <8clnvzgpq0.fsf@gadget.cscaper.com>
>>>>> "Douglas" == Douglas Wilson <dgwilson@gte.net> writes:
Douglas> @list=qw(0 1.11 2.12 2.2 1.2 1.1 2 1.10);
Douglas> @list=sort {
Douglas> my @a=split(/\./,$a);
Douglas> my @b=split(/\./,$b);
Douglas> my $tmp;
Douglas> for $idx (0..$#a) {
Douglas> $tmp=$a[$idx]<=>$b[$idx] and return $tmp
Douglas> }
Douglas> return length(@a)<=>length(@b);
Douglas> } @list;
Douglas> for (@list) {
Douglas> print "$_\n";
Douglas> }
Ooof. That's gonna *hurt* on a long list. Check out the FAQ or
www.effectiveperl.com on how to do a "Schwartzian Transform".
(Named after me, but not *by* me. :-) For this, it'd be something
like:
@list=qw(0 1.11 2.12 2.2 1.2 1.1 2 1.10);
@list =
map {
$_->[0]
} sort {
$a->[1] cmp $b->[1]
} map {
[$_, join "", map { sprintf "%09d", $_ } split /\./]
} @list;
Which works as long as no sublevel in the index exceeds 9 digits.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 214 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Thu, 29 Jan 1998 10:35:10 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Help with SORT
Message-Id: <34D0BD65.1B385A0E@5sigma.com>
Perhaps you'd like to run the code I posted?
-joseph
Jim Michael wrote:
>
> Joseph N. Hall (joseph@5sigma.com) wrote:
> : First, note that as numbers, 1.1 and 1.10 are the same thing.
>
> Since the example given had 1.10 following 1.2 in the result, I think a
> hierarchical ordering is required.
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
Date: Thu, 29 Jan 1998 10:52:37 -0500
From: John Porter <jdporter@min.net>
Subject: Re: hex -> int -> byte ???
Message-Id: <34D0A5C5.258E@min.net>
patrik lundin wrote:
>
> My question is, if I have a string with hexadecimal values
> separated with "-" like this : "-0D-0A-FF-EF-09"...
> How can I convert the hexnumbers to bytes and then write them to
> a binary file.
Well, from your sample string, I would not say the hex numbers
are *separated* by dashes, I'd say each one is *preceded* by a
dash. I assume this in the following code sample:
$str = '-0D-0A-FF-EF-09';
while ( $str =~ /-([0-9a-fA-F]{2})/g ) {
print OUTFILE pack( "C", hex( $1 ) );
}
If you want to know the details of why this works, check out
the man pages on pack() and hex(), and on m//g (the 'g' modifier
of the regex matching operator).
(This code assumes you have opened OUTFILE for writing.)
hth,
John Porter
------------------------------
Date: 29 Jan 1998 17:10:23 +0100
From: Patrick Hayes <Patrick.Hayes.CAP_SESA@renault.fr>
Subject: How do you setup named parameters in objects
Message-Id: <vxjpvlbntw0.fsf@goblin.pdj.renault.fr>
Hello all,
I'm getting into heavy object usage for the first time and I've come up
against a problem unanswered after rereading the FAQ and grepping through the
pods.
How are named parameters setup? Many object modules use named parameters.
Term::Cap for example has the following:
$terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };
Looking through the code brings no light as $self->{TERM} is apparently used
without ever being explicitly created. Could anybody explain what magic is
being used? If Tgetent had code to explicitly populate $self from the
parameters, I'd understand, but as far as I can see, this isn't the case.
Why? Help!
The following code can be used to furthur illustrate my question:
#!/usr/local/bin/perl
package foo;
sub new {
my $class = shift;
my $self = {};
bless $self, $class;
return $self;
}
sub foo {
my $self = shift;
print "This $self->{-this}\n";
}
package main;
$x = foo->new(-this => "is it");
$x->foo;
Shouldn't this print "This is it\n"?
Pat
--
--------------------------------------------------------
Patrick.Hayes.CAP_SESA@renault.fr (33) 01.41.04.64.20
--------------------------------------------------------
------------------------------
Date: Thu, 29 Jan 1998 12:48:11 -0500
From: John Porter <jdporter@min.net>
Subject: Re: module variable scope
Message-Id: <34D0C0DB.27E7@min.net>
Thomas,
"global" variables are variables in the "main" namespace.
Code that is also in the "main" namespace can access the
variables unqualified (as the lines after your "use Test_Mod"
do). Code in some other namespace, such as your package
Test_Mod, needs to qualify the variable name by adding the
namespace name. Namespaces are organized hierarchically,
like directories in your filesystem; the "path" parts are
separated by '::' (double colon). So, in Test_Mod, access
the "global" variables $a and $b by calling them
$main::a and $main::b.
sub set_vars {
$main::a = "A";
$main::b = "B";
}
hth,
John Porter
Thomas Waung wrote:
>
> I am trying to set global variable from within modules, is that
> possible?
> Here's some mock code...
>
> -----
>
> Test.pl
>
> use Test_Mod;
> $a = "a";
> $b = "b";
> Test_Mod::set_vars;
> print "$a $b";
>
> Test_Mod.pm
>
> sub set_vars {
> $a = "A";
> $b = "B";
> }
>
> -----
>
> when I run Test.pl, I get a output of "a b", and I was hoping for "A B".
>
> I'm obviously missing something really obvious...could someone help me?
>
> Thanks in advance,
> -tom
------------------------------
Date: Thu, 29 Jan 1998 11:55:02 -0500
From: Chuck <jacobsoc@grove.ufl.edu>
To: Hal Wigoda <hwigoda@Mcs.Net>
Subject: Re: None
Message-Id: <34D0B465.3568A9F1@grove.ufl.edu>
Hal Wigoda wrote:
> A associate of mine has a cgi form and script
> and he is getting the message "Document has no data".
This should mean exactly that...The CGI form and script aren't outputting
anything. This means that any variables that are to be printed on the screen
are empty when they are printed. Other than that I can't help much.
Chuck
------------------------------
Date: Thu, 29 Jan 1998 10:58:33 -0500
From: Dennis Kowalski <dennis.kowalski@daytonoh.ncr.com>
Subject: Open +< mode for read/write file
Message-Id: <34D0A729.2F51@daytonoh.ncr.com>
The following script creates a file of fixed length (13 bytes) records
The file is then opened again in read/write mode
I seek to offset 13 (Record #2) and read it in
I change Record to RECORD
I seek to offset 13 again
I then do SYSWRITE to rewrite record #2
The $stat gets set to 0
The file is NOT changed by the rewrite
No errors are seen
I am using the Activeware Build 313 on a windows 95 machine
I also tried it on a UNIX box with the same results.
I have tried the reopen and rewrite with the same file handle (TMP)
and it worked the same way.
Does the +< open mode work ???
$TMP = "fixed.txt";
open(TMP,">$TMP") || die "Can not open $TMP";
$buf = " Record 01 ";
$recsize = length($buf);
syswrite TMP, $buf, $recsize;
$buf = " Record 02 ";
syswrite TMP, $buf, $recsize;
$buf = " Record 03 ";
syswrite TMP, $buf, $recsize;
$buf = " Record 04 ";
syswrite TMP, $buf, $recsize;
$buf = " Record 05 ";
syswrite TMP, $buf, $recsize;
close(TMP);
open(TMP2,"+<$TMP") || die "Can not open $TMP for read and write";
$recnum = 2;
$offset = $recsize * ($recnum-1);
seek TMP2, $offset, 0;
$stat = read TMP2, $buf, $recsize;
($buf2 = $buf) =~ s/Record/RECORD/;
$stat = syswrite TMP2, $buf2, $recsize, $offset; # $stat gets 0
die "System write error: $!\n"
unless defined $stat;
seek TMP2, $offset, 0;
$stat = read TMP2, $buf, $recsize;
if ($stat > 0)
{
print "\n Modified Rec # $recnum is $buf\n";
}
close(TMP2);
# end of script
------------------------------
Date: Thu, 29 Jan 1998 14:55:32 GMT
From: Carry Megens <Carry.Megens@nym.sc.philips.com>
Subject: Re: perl script -> secure webpage
Message-Id: <34D09864.48C@nym.sc.philips.com>
alex wrote:
>
> Hi,
>
> Is there anyway in which to create a perl script and the output from
> that page be displayed as a secure web page?
>
> The perl script is on one server which does database stuff and
> generates the application form. I want this application form to be
> secure.
>
> Any ideas?
>
> Alex
One way of achieving this is by not using http:// deamon server
but a secure server https://
Hope this helps you further...
--
Carry Megens Designflow Services M 2.039 !!!
Philips Semiconductors Consumer IC (0o0)
Gerstweg 2 6534 AE Nijmegen \U/
Nijmegen the Netherlands
------------------------------
Date: Thu, 29 Jan 1998 18:03:56 +0000
From: Reimer AG <internet@reimer.ch>
Subject: Perl upload function
Message-Id: <34D0C48C.276E69CF@reimer.ch>
Hi there,
I have wrote a little perl program to upload files via the browse
funtion from the browser. I have install this on unix server and it is
function very well. Now I have try to install this on my new nt-server
inhouse with netscape enterprise server soft. I can upload normal text
files, but when I tried to upload a graphic, the server gives an error
message (Server Error).
I don't know who the bug is. Is it in the perl script or is it the
server soft preferences?
Thanks for any help....
Patrick
------------------------------
Date: Thu, 29 Jan 1998 16:33:36 GMT
From: Charlie Hatton <hatton@dfdis.com>
Subject: Perl Win32/ISAPI/DBI question
Message-Id: <34D0B06C.AB4F12D7@dfdis.com>
I have a somewhat complex problem:
I need to 'borrow' MS IIS on WinNT to authenticate WWW users to an
Oracle database rather than to the NT-based user database. I'd like to
do the dirty work in Perl.
I have this crazy idea that I can specify a different user database
for IIS using ActiveState's Perl ISAPI hooks, from research I've done on
the ISAPI, NSAPI, mod_perl, etc. However, I would think that I'd need
DBI and DBD::Oracle to pull off the connection to Oracle (which is on a
different machine, a Solaris box, but that's probably a less significant
problem, since I have an Oracle Win32 client on the NT box). I've used
DBI/DBD::Oracle extensively on Solaris, but my understanding is that the
DBI/DBD::* available for Win32 is only compatible with the 'native' Perl
port (man, that needs a more creative name) and not the ActiveState
port.
So to talk to IIS, I appear to need a module that works with one
port, and to talk to Oracle, I appear to need a module that works with
the competing (and as yet incompatible) port. Any ideas for getting this
to work, am I missing a key piece (volume?) of information, or is this
just unfeasible?
Thanks in advance for any help -- please post answers here or feel
free to email me at hatton@dfdis.com for clarification, questions, or
with the grand unifying theory. Thanks!
Charlie
------------------------------
Date: Thu, 29 Jan 1998 11:32:41 -0500
From: "Franklin L. Petersen" <orangutan@grungyape.com>
Subject: Printing in triplicate...
Message-Id: <6aqaso$2ss$1@cletus.bright.net>
Can someone tell me why this is printing my results to the screen in
triplicate?
(ie: 1234.gif 1234.gif 1234.gif)
I did check the file.txt there is only one occurrance....
so it's not because the same info is reprinted in there multiple times.
Thanks,
Frank
orangutan@grungyape.com
$textfile = "file.txt";
$flag = 0;
$date = `/usr/bin/date`;
## Start the Program
print "Content-type: text/html\n\n" ;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value
}
$partnum = $FORM{'newpart'};
open ( TF, $textfile ) || die "Couldn't open $textfile for reading";
while ( <TF> ) {
$groupList = $_;
@fileList = split (/\s+/, $groupList);
foreach $fileSet (@fileList) {
($number, $letter, $path) = split ( /\s+/, $groupList );
chomp ( $number );
if ( $number eq $partnum ){
$flag = 1;
($drive, $dwgs, $num1, $num2, $graphic) = split
(/\\/, $path);
print "<base target=\"body\">\n";
print "<a
href=\"/drawing/eng/$dwgs/$num1/$num2/$graphic\">$graphic</a>\n";
}
}
}
if ( $flag eq "0" ) {
print "<body bgcolor=white>\n";
print "<center><h2>I'm sorry, there was no matching part number
found</h2></center>\n";
}
close ( TF );
------------------------------
Date: 29 Jan 1998 11:23:31 -0500
From: Mark Mielke <markm@nortel.ca>
Subject: Re: Problems with strings (again)
Message-Id: <lq1zpkfuu4c.fsf@bmers2e5.nortel.ca>
stephen@bcl.com (Stephen Howe) writes:
> I've hunted everywhere and I can't find how to do this...
> I need to figure out this..:
You should really read up on regular expressions. If you can get a grasp
on them you're set for a long while.
> if I have a line.. say:
> "stephen howe" <stephen@bcl.com>
> I need to take away everything between and including the " " 's...
> I've wondered about index'ing the " " 's and removing everything
> between them but I'm not quite sure how to manage that
Hmmm sorta unclear. To make things really clear i'm going to use to
regular expressions. Then see if you can read "man perlre" and understand
what they do:
my $qualified_email_address = q{"Mark Mielke" <markm@nortel.ca>};
$qualified_email_address =~
/^ # Anchored at the beginning of the string.
" ([^"]*) " # Characters within quotes. (also, can't have " in "")
\s+ # Followed by some whitespace.
< ([^>]*) > # Characters within arrows. (also, can't have > in <>)
$/x; # Anchored at the end of string. (/x = extended syntax)
my($fullname, $emailaddr) = ($1, $2);
$emailaddr =~
/^ # Anchored at the beginning of the string.
([^@]+) # One or more non-"@" characters.
\@ # The literal "@" symbol.
([^@]+) # One or more non-"@" characters.
$/x; # Anchored at the end of string. (/x = extended syntax)
my($userid, $emaildomain) = ($1, $2);
print "fullname = $fullname, emailaddr = $emailaddr\n";
print "userid = $userid, emaildomain = $emaildomain\n";
If you can figure this out you're on your way :-)
mark
-- _________________________
. . _ ._ . . .__ . . ._. .__ . . . .__ | Northern Telecom Ltd. |
|\/| |_| |_| |/ |_ |\/| | |_ | |/ |_ | Box 3511, Station 'C' |
| | | | | \ | \ |__ . | | .|. |__ |__ | \ |__ | Ottawa, ON K1Y 4H7 |
markm@nortel.ca / al278@freenet.carleton.ca |_______________________|
------------------------------
Date: Thu, 29 Jan 1998 11:45:15 -0500
From: Chuck <jacobsoc@grove.ufl.edu>
Subject: Require or read offserver files?
Message-Id: <34D0B21A.F7DA5F1D@grove.ufl.edu>
I am working with Selena Sol's form processor and want faculty members
to have setup files on whatever server they are on. These files need to
be read by the processor on a potentially (and probably) different
server. What can I do? I tried requiring from the URL and it didn't work
because it apparently can't access it. The script works fine when I use
a setup file on the same server as the script.
Please send your ideas to jacobsoc@grove.ufl.edu .
Thanks,
Chuck
------------------------------
Date: Thu, 29 Jan 1998 11:01:48 -0500
From: "Phil R Lawrence" <prl2@lehigh.edu>
Subject: script does things as different user?
Message-Id: <6aq95d$20mo@fidoii.cc.Lehigh.EDU>
I want a script to log into Oracle as a more powerful user than the person
who starts the script. How can I protect the password that goes with that
more powerful userID from prying eyes?
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Phil R Lawrence Phone: 610-758-3051
Programmer / Analyst e-mail: prl2@lehigh.edu
194 Lehigh University Computing Center
E.W. Fairchild - Martindale, Bldg. 8B
Bethlehem, PA 18018
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"I have had to learn the simplest things
last..." -- Charles Olson
(I'm still on the hard things...)
------------------------------
Date: 29 Jan 1998 16:41:30 GMT
From: badger@infinet.com (Steven Savage)
Subject: Seeking Search Engine Code
Message-Id: <6aqbfq$eij@news1.infinet.com>
I am seeking out free, pre-existing PERL code for a simple CGi search
engine. Any sources/advice are appreciated - please email
badger@infinet.com.
--
BADGER
(aka Steve Savage)
---------------------------------------------------------------
/------\ BBB AA DDD GG EEEE RRR
[/ | | \] B B A A D D G E R R
// O| |O \\ BBB AAAA D D G GG EEE RRR
\\ | | // B B A A D D G G E R R
\ | | / BBB A A DDD GG EEEE R R
\ |..| /
\____/ Badger's Den - http://www.infinet.com/~badger
MEMBER OF:
Association of Internet Professionals: http://www.association.org/
Java Lobby: http://www.javalobby.com/
---------------------------------------------------------------
------------------------------
Date: Thu, 29 Jan 1998 12:00:16 -0500
From: "V. Chandrasekhar" <vchandra@mail.delcoelect.com>
Subject: Some possible bugs
Message-Id: <34D0B5A0.52FF@mail.delcoelect.com>
1. I am working with the following version of perl:
Version 4.0 Patch Level 36 1993/02/05
2. I noticed some problems - these are described below.
I am not sure whether I should try and get perl version
upgraded rather than worrying about the problems of this
version. I have interest in learning to call 'c' functions
from perl scripts. I am not sure whether I should upgrade
for this reason alone.
3. I am reproducing a test perl script below:
#!/usr/local/bin/perl -w
format test1 =
ABCD @<<<<<<<<<<<<<<<<<<<<<<<<<
$out
. # Line number 5
#$out = "Printing out something"; Line number 6
$out = ""; # Line number 7
select(STDOUT);
$~ = test1;
write;
__END__
3a. The w switch produces the following error messages:
Possible typo: "out" at test98.pl line 7.
Possible typo: "test1" at test98.pl line 5.
3b. If I run with the script just like above (i.e., with
Line 6 commented out), the output contains an ABCD followed
by a newline - in other words, the spaces after the ABCD in the
format specification are truncated. This happens even when
$out is set to " ".
4. I appreciate all relevant comments.
Regards.
V.Chandrasekhar
------------------------------
Date: Thu, 29 Jan 1998 11:20:36 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Survival Of perl
Message-Id: <fl_aggie-2901981120360001@aggie.coaps.fsu.edu>
In article <34CF3E79.DA862A7E@houston.Geco-Prakla.slb.com>, Dave Barnett
<barnett@houston.Geco-Prakla.slb.com> wrote:
+ Do I use perldoc -f function? Do I use perldoc module name? Which one
+ of the 9 perlfaq's should I start with?
Yes and yes. As for the FAQ's, how about 'perldoc perlfaq' to get the
overview, so you can pick & choose a more specific document.
Besides, it takes less time to do all of the above than it does to
formulate your question, post it to UseNet, and wait for responses
to show up. And you may actually find the answer, and get the _right_
answer.
+ I'm more than willing to read something that makes sense and answers my
+ question(s), but I find it terribly difficult sometimes to find what I
+ need in the FAQ. Maybe this is just me, but there was a recent post
+ regarding the same type of thing.
This is probably because people aren't taught how to search reams of
documentation using simple tools like the grep family. 'more' and
'less' (standard unix pagers) will allow you to do simple string searches,
as well.
+ There has to be a better way, but I'm not sure what it is.
Think about it, and something may come to you.
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/perl/faq/idiots-guide.html>
------------------------------
Date: Thu, 29 Jan 1998 11:41:20 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Survival Of perl
Message-Id: <34D0B130.4CE@min.net>
Tom Christiansen wrote:
>
> Command line runs on user's current computer. CGI runs on the
> webserver instead. I don't really see these as equivalent.
With all due respect, this distinction is pretty meaningless.
The "current computer" may be the user's pc on her desk,
or it may be the unix box to which she has telnetted. The webserver
to which she is 'scraping (:-) may be on a unix box, but it might
be on her own pc (just like I run WebSite for my own purposes).
The best way to characterize the GUI aspect of Web is as a platform
independent UI server, much like X Windows -- but obviously much less
empowered. The UI is abstracted, possibly over a net, from the main
program.
(It could be called rX: restricted X -- just like rsh. Oh, but that
would imply that WWW is the prescription for whatever ails...)
John Porter
------------------------------
Date: Thu, 29 Jan 1998 11:41:12 -0600
From: jsd@bud.com
Subject: Re: Survival Of perl
Message-Id: <886095545.890699777@dejanews.com>
In article <6aol4k$5a9$1@csnews.cs.colorado.edu>,
tchrist@mox.perl.com (Tom Christiansen) wrote:
> Jon Drukman <jsd@hudsucker.gamespot.com> writes:
> :i prefer to think of it as the universal GUI. here at the office i
> :write tons of perl scripts to do various tasks. i could give all the
> :users accounts on the unix machines and let them invoke the scripts
> :from the command line (no doubt suffering 8 billion "what do i type if
> :i want it to delete all the files when it copies" calls in the
> :process) or i can whip up a quick front end html page and a back end
> :perl script and let them invoke it from their win95 browsers with
> :pretty drop down lists and radio buttons.
>
> Command line runs on user's current computer. CGI runs on the
> webserver instead. I don't really see these as equivalent.
use your imagination. our users use windows 95. they don't have
command lines. did you read what i wrote? i said i could give them
shell accounts or i could write web apps instead. httpd+perl is a
very powerful tool for writing "gui" apps with rapid development
cycles.
anyway my original intent was merely to rebutt chip's claim that the
web is nothing but formatted text. i've found another use for it,
one with which i am quite satisfied.
-jon
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Thu, 29 Jan 1998 07:42:34 -0800
From: erik@earthlink.net (Erik Y. Adams)
Subject: Re: UNIX to Win: Script *Still* Won't Go
Message-Id: <erik-2901980742340001@pool019-max8.mpop2-ca-us.dialup.earthlink.net>
I see a few problems here:
>#!/usr/local/bin/perl
>use GD;
>print "Enter The Desired Name of the Output File: ";
>$name=<STDIN>;
>$last=".gif";
>$nme=$name . $last;
Here's a possible problem: $nme probablyh isn't a valid file name. Think
about it: I type "foo[enter]", which sets $name equal to "foo\r\n". That
would make $nme equal to "foo\r\n.gif". Doesn't explain your error, but
it would bite you in the butt later. Change "$name=<STDIN>" to
"chomp($name=<STDIN>)"
>$file = 'C:/perl/datef/start.gif';
>open (GIF, $file) || die "$file: $!";
You have to binmode GIF before reading from it, or you don't get a valid
GIF image, under DOS.
>$im = newFromGif GD::Image(GIF);
>close GIF;
>$fileb = 'C:/perl/datef/baktun.gif';
>open (GIF, $fileb) || die "$fileb: $!";
ditto
>$src = newFromGif GD::Image(GIF);
>close GIF;
>$im->copy($src,169,271,0,0,83,116);
>open(OUT,">$nme") || die;
See above - $nme probably isn't a valid file name.
>binmode (OUT);
You need to sprinkle these a little more around this program.
>print OUT $im->gif;
>close(OUT);
>print "\n";
>print "There should now be a gif named ";
>chop ($name);
>print "$name";
>print ".gif\n";
>print "in the datef directory"
Erik
--
----------------------------------------------------------
Erik Y. Adams erik@earthlink.net
Information Systems Consultant 626/795-2701
Internet and Intranet Specialist
------------------------------
Date: Thu, 29 Jan 1998 17:27:14 GMT
From: andrew@edoc.com (Andrew Williams)
Subject: Re: UNIX to Win: Script *Still* Won't Go
Message-Id: <34dabbda.596214515@news.clark.net>
On Wed, 28 Jan 1998 21:11:41 -0500, nmcnelly@bu.edu (N.A.F. McNelly)
wrote:
>In article <nmcnelly-2201982204270001@ppp-82-12.bu.edu>, nmcnelly@bu.edu
>(N.A.F. McNelly) wrote:
>
>> I am trying to help a friend install one of my scripts on
>> a Windows 95 machine running Win32 perl. The number-crunching
>> bit works just fine, but when it gets to graphics, it's useless.
>> I've checked repeatedly, and he has the script in the same
>> directory with the gifs, where it should be.
>
>Thanks for all who gave advice, but Win still won't run it.
>His new error message is:
>
>Test1 error message - Can't call method "copy" without a package or reference
>at c:\perl\datef\test1.pl line 15
>
>Since this script uses GD.pm, could that be where the source of
>where the error lies? The text that gave the above error message is:
you have installed the GD libraries right?
------------------------------
Date: Fri, 30 Jan 1998 02:55:54 +1100
From: Anthony David <adavid@netinfo.com.au>
Subject: Re: Webring
Message-Id: <34D0A68A.8C9D949A@netinfo.com.au>
Walter Archie wrote:
> Is there a webring Script?
I'm confused. What do we bring?
> Please help me find one.
>
> Thank You,
>
> Justin Archie
--
Anthony David | Opinions expressed ARE
Anthony David & Associates | those of my employer
------------------------------
Date: Thu, 29 Jan 1998 11:07:12 -0600
From: ray@uh.edu (Ray Schultz)
Subject: Where are all the scripts?
Message-Id: <ray-2901981107120001@mathkit1.coe.uh.edu>
I would think, given the 3free2 atmosphire around perl, that there would
be a place where one could go and get already written perl scripts. You
know, 3Why reinvent the wheel2, if it has already been written why write
it again. So the question is where is that place? FTP? WEB? Or what?
--
---
____U_n_i_v_e_r_s_i_t_y___of___H_o_u_s_t_o_n____
Theron Ray Schultz, Doctoral Student, College of Education
ray@uh.edu, (713)680-2997, http://www.coe.uh.edu/~rschultz/
------------------------------
Date: Thu, 29 Jan 1998 15:57:28 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: why no one ever reply?
Message-Id: <EnJyzs.AHt@world.std.com>
angyny@interport.net writes:
>I've posted several times but never get anyone reply.
>I'm still looking for the unzip tool to install Perl on alpha NT.
The readers of this newsgroup are all here because they have an
interest in perl. The population that are using Windows NT on alpha
processors is at least somewhat less. (Readers who use
perl = 100%. Readers who uses Alphas with Windows NT = X% where X must
be less than 100.)
Perhaps if you ask in a newsgroup dedicated NT the the percentage of
readers who use NT on Alphas would be a larger X.
--
Andrew Langmead
------------------------------
Date: Thu, 29 Jan 1998 11:11:29 -0600
From: philippe.verdret@eurolang.fr
Subject: Writing Multilingual Software
Message-Id: <886093676.802029571@dejanews.com>
You can certainly derived a useful solution of the following code:
use Babel;
$errmes = FR->new;
print $errmes->compose(qw(msg1 arg1));
$errmes = WO->new;
print $errmes->compose(qw(msg1 arg1));
$errmes = EN->new;
print $errmes->compose(qw(msg1 arg1 arg2));
#################### The Babel Class ################
require 5.000;
use strict;
package Babel;
$Babel::VERSION = '1.01';
use Carp;
my $debug = 0;
my $pkg = caller;
sub new {
my $self = shift;
my $class = (ref $self or $self);
if ($class eq $pkg) {
$class = defined $_[0] ? $_[0] : "\U$ENV{'LANG'}";
}
if ($class eq '') {
$class = 'EN'; # En disespoir de cause ;-)
}
print STDERR "Current language is $class\n" if $debug;
if (ref $self) { # Object method
$self = bless { %{$self} }, $class;
} else { # class method
$self = bless { }, $class;
$self->initialize;
}
$self;
}
sub message {
my $self = shift;
if (@_) {
$self->{message} = { @_ };
} else {
$self->{message}
}
}
sub language {
my $self = shift;
ref($self);
}
sub compose {
my $self = shift;
my $id = shift;
my $msg = $self->{'message'}->{$id};
unless (defined $msg) {
my $class = ref $self;
croak qq!no message for "$id" in the "$class" class!;
}
my $argnum = @_;
my @formats = ($msg =~ /((?:[^%]|^)(?:%%)*%)/g);
my $formatnum = @formats;
if ($argnum != $formatnum) {
croak qq!bad argument number in message "$id": $argnum, $formatnum
expected\n$msg!;
}
sprintf($msg, @_);
}
sub debug {
my $self = shift;
$debug ^= 1;
}
package FR;
@FR::ISA = qw(Babel);
sub initialize { # id => message content
my $self = shift;
$self->message(
'msg1' => 'un premier message en frangais : %s',
'msg2' => 'un second message en frangais : %s, %s',
);
}
1;
package WO;
@EN::ISA = qw(Babel);
sub initialize {
my $self = shift;
$self->message(
'msg1' => 'li dieuk tchi Wolof: %s',
'msg2' => 'nya rel bi tchi Wolof: %s, %s',
);
}
package EN;
@EN::ISA = qw(Babel);
sub initialize {
my $self = shift;
$self->message(
'msg1' => 'a first message in english: %s',
'msg2' => 'a second message in english: %s, %s',
);
}
1;
__END__
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
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 1761
**************************************
