[19902] in Perl-Users-Digest
Perl-Users Digest, Issue: 2097 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 8 21:05:37 2001
Date: Thu, 8 Nov 2001 18:05:06 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <1005271506-v10-i2097@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 8 Nov 2001 Volume: 10 Number: 2097
Today's topics:
Re: Direct iteration over aoh <goldbb2@earthlink.net>
Re: How to assign initial value to variable? (Tad McClellan)
Re: need help, error correction <uri@stemsystems.com>
Re: need help, error correction (Tad McClellan)
Re: need help, error correction <mgjv@tradingpost.com.au>
Re: need help, error correction (Tad McClellan)
Newbie: Handline CSV files properly <aeropaul@sbcglobal.net>
Re: Newbie: Handline CSV files properly (Tad McClellan)
Online Perl Docs (Mark McKay)
Re: Online Perl Docs (Tad McClellan)
Re: passing array values from perl to javascript <hugo@fractalgraphics.com.au>
quick question about real-time display of print output (Carl)
Re: quick question about real-time display of print out <wuerz@yahoo.com>
Re: quick question about real-time display of print out <mischief@velma.motion.net>
Using TCP "keep alives" with IO::Socket nokesja@netscape.net
Writing directly to a port <thecoder@n0spam.usa.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 08 Nov 2001 19:59:30 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Direct iteration over aoh
Message-Id: <3BEB2A72.6FE8193C@earthlink.net>
Holger wrote:
[snip]
> print join("\n", @array, '');
>
> Now I have changed the array to a hashref because I needed to
> store more data than just the text. I do the output this way:
>
> #!/usr/local/bin/perl -w
> use strict;
> my @array;
> $array[0] = {text => 'one'};
> $array[1] = {text => 'two'};
> $array[2] = {text => 'three'};
>
> foreach my $line (@array)
> {
> print "$line->{text}\n";
> }
>
> My question is whether it can be done directly or more perlish
> like in the first example. I'm a bit disturbed by the explicit
> loop.
print join("\n", map( $_->{text}, @array ), "");
or:
print $_, "\n" foreach map $_->{text}, @array;
or:
print $_->{text}, "\n" foreach @array;
Personally, I would have done the print with your original @array as:
print $_, "\n" foreach @array;
This is because if you print an undef value, it prints nothing [as you
would expect], and it produces no warnings. If you concatenate [and
join does do a concatenation] with an undef value, it does produce
warnings.
And I would use the third of my three suggested replacements.
--
Klein bottle for rent - inquire within.
------------------------------
Date: Thu, 08 Nov 2001 23:35:45 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: How to assign initial value to variable?
Message-Id: <slrn9um060.kn4.tadmc@tadmc26.august.net>
spamfree <spamfree@go-away.net> wrote:
>> spamfree <spamfree@go-away.net> wrote:
>> >#!/usr/bin/perl -Tw
>>
>>
>> use strict;
>I get software server error with strict.
Yes that is supposed to happen, violations of strict are fatal errors.
The next step would be to go fix them.
If you had shown us the actual code, we could have provided actual
help in resolving the strict issues...
>I have heard you advise others to use strict and suggest it should be used
>as the default (mandatory) :-)
You are perceptive :-)
>I get server error
Server? What server? We're talking Perl here, Perl does not need a server.
>even with $var initialized with 'my'
strict requires[1] _declarations_ (as with my()). You are not
required to also initialize (ie. set them to a value).
my $foo; # no value set, yet strict is happy
>and find it
>difficult to debug
They should be brain-dead easy to repair as the message usually
points right to the line that needs fixing.
>as I don't have access to server logs.
You should do all of your initial testing from the command line. Even
better if it is on your own computer rather than an ISP's 'puter.
The ISP business is pretty cut-throat. If your's is silly enough
to withhold from you the output from your very own programs, then
you should really be shopping around for an ISP with a measurable
clue quotient.
You seem to be using Perl for CGI applications (only one of
its MANY uses), so you should already know how to see the
error messages even without access to the "server logs".
Because you have surely looked for Perl FAQs that mention CGI:
perldoc -q CGI
"How can I get better error messages from a CGI program?"
>What other factors
>come into play?
I dunno what that might mean. Sorry.
>I also have a follow up with T switch... i'll leave that for another post
>:-)
Good move. It is bad netiquette to bundle disparite questions
in the same post. Each different topic should get it's own
carefully chosen Subject, so that others with the same problem
will be able to find the thread.
>Tad I now have this:
>sub check_data{
> if ( $surname =~ tr/a-zA-Z\n\t //c) { #allows alphabetic only
Golly, even the inventor of the World Wide Web (Tim Berners-Lee)
won't be allowed to use your system!
And neither will "Joe Foreman 3rd", "Joe Foreman 4th" ...
Why allow newlines and tabs in a proper name?
>Thank Tad
You're welcome.
[1] strict does not really _require_ declarations. You can have
a strict-clean program with lots of variables and zero
variable declarations. How to do this is indicated in the
message that you get when you use an undeclared variable.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 08 Nov 2001 23:18:25 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: need help, error correction
Message-Id: <x7n11wsvex.fsf@home.sysarch.com>
ever heard of whitespace? i won't look at that code until i can see
spaces between most of the operators. and if you use strict, how come
none of the variables are declared with my?
and i have too many other comments that will be redundant when the usual
gang get done with it.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
-- Stem is an Open Source Network Development Toolkit and Application Suite -
----- Stem and Perl Development, Systems Architecture, Design and Coding ----
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 08 Nov 2001 23:35:46 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: need help, error correction
Message-Id: <slrn9um2p3.kn4.tadmc@tadmc26.august.net>
MAGiC MANiAC^mTo <no_mto@hotmail.com> wrote:
>Hi there thanks for your quick answers :)
I charge a fee:
You must never again post an upside-down quoted followup.
http://www.geocities.com/nnqweb/nquote.html
Thanks :-)
>> But you *really really* should have "use strict;" turned on you know...
>
>When I do this, I get this...
>
>Global symbol "$tmp1" requires explicit package name at c:\!TEST\TEST.CGI
Short version:
Put 3 characters in front of the first use of any variable
to make strict shut up:
my $tmp1 = 'mumble mumble';
^^^
Longer version:
type:
perldoc strict
and read what it says.
And for an even longer version:
http://perl.plover.com/FAQs/Namespaces.html
For the cost of typing 3 chars per variable, you get automatic
help finding common programming mistakes. Sounds like a good deal!
>Damn, its very hard to understand all those messages.
All of the messages that perl might issue are described in
the perldiag.pod standard doc. Looking up your message there
should be a first step in figuring out what's going on.
I guess you are talking about this message:
-----------------------------
=item Global symbol "%s" requires explicit package name
(F) You've said "use strict vars", which indicates that all variables
must either be lexically scoped (using "my"), declared beforehand using
"our", or explicitly qualified to say which package the global variable
is in (using "::").
-----------------------------
>I don't know whats happening, everytime those messages for a simply short
>code...
>Do perl always give messages even when a code is correct?
I always enable warnings and strict, then work on the code
until it makes no messages at all.
(it is a *lot* easier to start with them than it is to retrofit
them into an existing program)
[ Jeopardectomy ]
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 08 Nov 2001 23:40:04 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: need help, error correction
Message-Id: <slrn9um5v5.1on.mgjv@verbruggen.comdyn.com.au>
On Thu, 8 Nov 2001 23:50:34 +0100,
MAGiC MANiAC^mTo <no_mto@hotmail.com> wrote:
>
> Maybe its a good idea to post my code here to request of there is someone
> who like to
Ok. But you should repost your REAL code, not something you made up.
And you should limit the amount of code you post. This is way too
much. Also, format your code nicely if you want people to read it.
> P.s. I don't want to use CGI.pm, or such kind of...
Well, then you probably are on your own. CGI.pm is a standard module,
distributed with Perl. Most people wouldn't even consider creating CGI
programs without it (or at least with one of the other non-standard
CGI modules). The CGI protocol and the things around it are full of
pitfalls.
There may be reasons not to want to use CGI.pm, but they should be
really really really good.
> #!/usr/bin/perl
#!/usr/bin/perl -w
> use strict;
> use diagnostics;
I know this cannot be your real code, because the next line would
generate an error in the presence of the use strict.
> $db1file="db.dat";
So.
Post your real code, but format it, and limit the size. Then, maybe,
someone here will look at it. Don't count on it though, if it's just
rehashing things that are available in the CGI module.
> # don't change below...
Ok.
Martien
--
|
Martien Verbruggen | +++ Out of Cheese Error +++ Reinstall
Trading Post Australia Pty Ltd | Universe and Reboot +++
|
------------------------------
Date: Fri, 09 Nov 2001 00:36:09 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: need help, error correction
Message-Id: <slrn9um6jm.kr5.tadmc@tadmc26.august.net>
MAGiC MANiAC^mTo <no_mto@hotmail.com> wrote:
>I'm just a beginner
>P.s. I don't want to use CGI.pm, or such kind of...
^^^^^^^^^^
That is not good enough.
_Why_ do you not want to use a module for URL decoding?
It is easy to get wrong. You are new at this. The module author
is an old crufty Perl guru. Whose code is likely to work better?
Plus it is less work than redeveloping it yourself!
>#!/usr/bin/perl
>
>use strict;
>use diagnostics;
A very good start! You have potential :-)
>$xid=0;
>$xin=1;
>$xout=2;
>$xinactive=3;
>$xpriority=4;
>$xresethits=5;
>$xuser=6;
>$xemail=7;
>$xpassword=8;
>$xstatics=9;
>$xsite=10;
>$xdescription=11;
>$xurl=12;
I get the feeling you could make a better choice of data structure
than a bunch of individual scalar variables.
[snip URL decoding]
>$param_in=$param{'in'};
>$param_out=$param{'out'};
>$param_id=$param{'id'};
Why copy them? You can use them straight from the %param hash.
>$form_username=$param{'username'};
>$form_email=$param{'email'};
>$form_sitename=$param{'sitename'};
>$form_description=$param{'description'};
>$form_url=$param{'url'};
>$form_loginname=$param{'loginname'};
>$form_password=$param{'password'};
>$form_verifypassword=$param{'verifypassword'};
>$form_emailstatics=$param{'emailstatics'};
Yuck! What a mess. Use a hash to group things:
my %form = ( username => $param{'username'}
email => $param{'email'}
);
or even copy them with a loop:
foreach my $name ( qw/username email/ ) {
$form{$name} = $param{$name};
}
or use these ones straight from the %param hash too.
>open(DATA,$db1file) or die "error: can't find the file: $db1file \n\n";
Always include the $! special variable in your diagnostic message.
You should probably leave the newlines off of the end too.
># new member signup...
>$tmp1="Verify password field is empty!" unless defined $form_verifypassword;
Hey, that code looks familiar :-)
That is a truly awful choice of variable name. Name it for what
it is, $message or something.
>$tmp1="Password field is empty!" unless defined $form_password;
>$tmp1="Login name field is empty!" unless defined $form_loginname;
>$tmp1="Url field is empty!" unless defined $form_url;
>$tmp1="Description field is empty!" unless defined $form_description;
>$tmp1="Site name field is empty!" unless defined $form_sitename;
>$tmp1="Email field is empty!" unless defined $form_email;
>$tmp1="Username field is empty!" unless defined $form_username;
You are overwriting messages if there is more than one thing wrong.
You should perhaps be concatenating them instead?
You could easily test all of those in a loop too, if they were in a hash.
>unless($tmp1 eq ""){
I like:
unless ( length $tmp1 ) {
better.
Also, whitespace is not a scarce resource, feel free to use as
much as you like to make your code easier to read.
> print $tmp1;
>}
The entire if() test is not needed. If $tmp1 is empty, the print()
just won't output anything.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 08 Nov 2001 23:43:35 GMT
From: Paul Johnson <aeropaul@sbcglobal.net>
Subject: Newbie: Handline CSV files properly
Message-Id: <cd6muts2hc4ud3ot3febsrfmb3j204a1nb@4ax.com>
I'm fairly new to perl and have a question about the best way to
handle comma or tab delimited files where individual fields contain
newlines.
The standard "while (<...>)" only returns one line at a time, so I
assume one would have to count the fields, and for lines with fewer
than the expected fields, concatenate the subsequent lines until the
expected field count was met. But then what to do with the newlines,
just embed them in the string?
This comes up because I an trying to do some field manipulation on a
database that contains multi-line address fields.
What is the best way to handle this sort of situation?
I would also appreciate pointers to any examples online or in print.
TIA,
Paul
------------------------------
Date: Fri, 09 Nov 2001 00:45:10 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Newbie: Handline CSV files properly
Message-Id: <slrn9um76o.ku1.tadmc@tadmc26.august.net>
Paul Johnson <aeropaul@sbcglobal.net> wrote:
>I'm fairly new to perl and have a question about the best way to
>handle comma or tab delimited files where individual fields contain
>newlines.
>
>What is the best way to handle this sort of situation?
With a module that understands CSV format.
Go to:
http://search.cpan.org
and type "CSV" (without the quotes) into the little search box.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 8 Nov 2001 16:29:23 -0800
From: mark@kitfox.com (Mark McKay)
Subject: Online Perl Docs
Message-Id: <52de739f.0111081629.55f91b41@posting.google.com>
Is there some good online HTML documentation for perl that would be
similar to the Camel book? (I have the Camel book, but think that
something with an electronic index and cut and paste abilities would
be even better). I've looked at CPAN, but the only comprehensive
documentation I could find was for the modules.
Mark McKay
------------------------------
Date: Fri, 09 Nov 2001 00:45:09 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Online Perl Docs
Message-Id: <slrn9um72o.ku1.tadmc@tadmc26.august.net>
Mark McKay <mark@kitfox.com> wrote:
>Is there some good online HTML documentation for perl that would be
>similar to the Camel book?
Yes. And it is probably already on your own hard drive.
(and it is _better_ than the Camel book)
perl ships with over 1500 "pages" of documentation. They are in
files with a .pod extension.
perl also ships with a program, pod2html, that will reformat
the .pod file into an HTML file for you.
Find out where they got installed on your system, and
Bob's your uncle.
>(I have the Camel book, but think that
>something with an electronic index and cut and paste abilities would
>be even better).
Plain POD is way better than HTML for that...
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 09 Nov 2001 09:11:52 +0800
From: hugo <hugo@fractalgraphics.com.au>
Subject: Re: passing array values from perl to javascript
Message-Id: <3BEB2D58.15CCBDE4@fractalgraphics.com.au>
Hi Geoff
Excuse my ignorance, but I thought you always needed javascript to
generate a new Window.
Perhaps this sounds stupid, but how would you do this with perl only?
Thanks
Hugo
Geoff wrote:
>
> "hugo" <hugo@fractalgraphics.com.au> wrote in message
> news:3BE9E7EF.DC65BD88@fractalgraphics.com.au...
> > Hi
> >
> > I am trying to pass an array with values from a perl to a javascript
> > array, then open a new window which displays the javascript array
> > values. I am reading in the perl array into the javascript array with
> > print statements, and this seems to work well (when I look at thepage
> > source). However, when I try to transfer the javascript array values to
> > a new window, and display them, nothing happens. An alert statement
> > attempting to display the [0] index value of the javascript array states
> > that it is undefined.
> >
> > Here is my code:
> >
> > 1. First, in my perl code, I read fill in the javascript array with
> > values from the perl array (@data is my perl array and jsinfile is my
> > javascript array):
> >
> > print "<SCRIPT LANGUAGE=\"javascript\">";
> > print "var jsinfile = new Array();";
> > for ($i = 0; $i < @data; $i++) {
> > chomp $data[$i];
> > print "jsinfile[$i] = \"$data[$i]\"";
> > }
> > print "</SCRIPT>";
> >
> > Then I have a form with a button to view the new page, with an onClick
> > statement, passing the jsinfile array to the function which opens the
> > new page:
> >
> > print "<FORM METHOD=\"POST\" ENCTYPE=\"multipart/form-data\">";
> > print "<p>View double-spaced file?";
> > print "<INPUT TYPE=\"SUBMIT\" VALUE=\"View\"
> > onClick=\"javascript:open_outfile1(jsinfile)\">";
> > print "</FORM>";
> >
>
> This should probably be a button, not a submit [button]. That way, it won't
> actually submit the form.
>
> > Then I have the javascript function which is activated by onClick and
> > opens the new window. The new window is opened but no jsinfile values
> > are displayed in the page. Note that this function occurs earlier in the
> > code (i.e. higher up), but that shouldn't matter. The window alert on
> > the third line states that jsinfile is undefined.
>
> I think you should just write the new page with a Perl script.
>
> > print "<SCRIPT LANGUAGE=\"javascript\">";
> > print "function open_outfile1(jsinfile) {";
> > print "window.alert(\"jsinfile (in javascript function) is : \" +
> > jsinfile[0]);";
> > print "newWindow =
> >
> window.open('','newWin','toolbar=yes,location=yes,scrollbars=yes,resizable=y
> es,width=500,height=500,');";
> > print "newWindow.document.write(\"<html><head><title>Double spaced
> > file<\/title><\/head><body bgcolor=#FFFFFF>\");";
> > print "for (i =0; i < jsinfile.length; i++) {";
> > print " newWindow.document.writeln(jsinfile[i]);";
> > print " newWindow.document.writeln(\"<br>\");";
> > print "}";
> > print "newWindow.document.write(\"<\/body></\html>\");";
> > print "newWindow.document.close();";
> > print "}";
> > print "</SCRIPT>";
> >
> > I think I may be doing something wrong in passing the value of jsinfile
> > to the javascript function. Perhaps filling in values for jsinfile by
> > printing it in the first window, does not make it follow that they can
> > be transferred to another window? I am not very clear on that. If this
> > is not the way to do it, how then do I open a new window and transfer
> > array values from a perl array to the new window? Note that I do not
> > want to do this with a FORM ACTION statement, as then my main window
> > will be changed (not a new window opened).
> >
> > Any help will be greately appreciated.
> >
> > Thanks
> >
> > Hugo
> >
> > --
> > Dr Hugo Bouckaert
> > R&D Support Engineer, Fractal Graphics
> > 57 Havelock Street, West Perth 6005
> > Western Australia 6009
> > Tel: +618 9211 6000 Fax: +618 9226 1299
> > Email:hugo@fractalgraphics.com.au
> > Web: http://www.fractalgraphics.com.au
>
> As I said before, why use JavaScript? Why not just do everything with Perl?
>
> Geoff
--
Dr Hugo Bouckaert
R&D Support Engineer, Fractal Graphics
57 Havelock Street, West Perth 6005
Western Australia 6009
Tel: +618 9211 6000 Fax: +618 9226 1299
Email:hugo@fractalgraphics.com.au
Web: http://www.fractalgraphics.com.au
------------------------------
Date: 8 Nov 2001 16:26:46 -0800
From: carl_ivar@yahoo.com (Carl)
Subject: quick question about real-time display of print output
Message-Id: <274af38.0111081626.bd6a0a1@posting.google.com>
With this simple code:
#!/usr/bin/perl
$x = 1;
while ($x <= 10) {
print "$x ";
sleep 1;
$x++
}
Why does it take 10 seconds for all the numbers to display? If I put
a newline after $x, they display in "real time" at 1-second intervals.
But without the newline, it spits out all ten numbers at once at the
end. How can I get it to display in "real time" without the newline?
Thanks!
Carl
------------------------------
Date: 08 Nov 2001 19:30:46 -0500
From: Mona Wuerz <wuerz@yahoo.com>
Subject: Re: quick question about real-time display of print output
Message-Id: <m3u1w4dbux.fsf@DCCMBX01.njitdm.campus.njit.edu>
carl_ivar@yahoo.com (Carl) writes:
> Why does it take 10 seconds for all the numbers to display? If I put
> a newline after $x, they display in "real time" at 1-second intervals.
> But without the newline, it spits out all ten numbers at once at the
> end. How can I get it to display in "real time" without the newline?
Buffering. Set the variable $| to a true value at the beginning of
your script to get unbuffered output. Read about it in perlvar.
$| = 1;
--
$_="\n,rekcah egnufeB rehtona tsuJ";#v1<?>g\:pv-<5<
s s\S+(?:B)sunpack'u',q q$;')E4qsee;#>60#^<(v!<)g6<
print scalar reverse,$@ unless m,[+;#]55,;m:_,:#^1<
------------------------------
Date: Fri, 09 Nov 2001 00:58:59 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: quick question about real-time display of print output
Message-Id: <tumaijstuo1td1@corp.supernews.com>
Carl <carl_ivar@yahoo.com> wrote:
> With this simple code:
> #!/usr/bin/perl
> $x = 1;
> while ($x <= 10) {
> print "$x ";
> sleep 1;
> $x++
> }
> Why does it take 10 seconds for all the numbers to display? If I put
> a newline after $x, they display in "real time" at 1-second intervals.
> But without the newline, it spits out all ten numbers at once at the
> end. How can I get it to display in "real time" without the newline?
It's a buffering issue. Try adding this line somewhere before the loop:
$|++;
The newlines were causing the stream buffering mechanism attached to
STDOUT to flush. If you make the stream to autoflush ( which is what
the $| variable controls -- read perlvar for info on Perl's predeclared
variables ) then the problem is solved.
Chris
--
It's not the U in UBE that pisses people off. It's the B.
-- Martien Verbruggen in clp.misc
------------------------------
Date: Fri, 09 Nov 2001 01:22:36 GMT
From: nokesja@netscape.net
Subject: Using TCP "keep alives" with IO::Socket
Message-Id: <3beb2fdc.60bb.1804289383@opus.randori.com>
Greetings,
I've been scouring the internet, news, all the PerlFAQ's,
PerlMonks, and every O'reilly book I have ... and I cannot
find any article that discusses how to utilize the perl
IO::Socket module and TCP 'keep-alives'. I have a
home-grown application that speaks pure TCP/IP with the
remote host, but the firewall in-between us keeps timing my
application out, because there is a lot of idle time on the
socket. We have many applications running through this
firewall so we cannot change the time-out settings on it.
Thus, I keep getting random socket drop offs every time the
firewalll times out my connection.
Since we have written our own extensive perl modules,
incorporating the IO::Socket interface, it is too much
trouble to change it. We have numerous network based apps
using this module and changing it extensively means a year
of regression testing. It would be less trouble to get a
dedicated firewall for our problem. In the hopes of not
having to spend the extra $$ on a new PIX, I'm trying to
figure out how I can send 'keep-alive' packets via the
IO::Socket::INET module.
Can anyone help me shed some light on this?
Thanks in advance.
- Jeff
------------------------------
Date: Fri, 09 Nov 2001 00:34:16 GMT
From: The Coder <thecoder@n0spam.usa.net>
Subject: Writing directly to a port
Message-Id: <Pine.LNX.4.40.0111090132300.16734-100000@mrrouter>
Hello, I want to write directly to a port within Perl in Linux. So the C
variant of outb.
Reason for this is I need to control an LCD screen. It works in C, but I
want to rewrite it in Perl.
Any ideas?
Thanks!
--
* Linux: because a PC is a terrible thing to waste
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 2097
***************************************
