[10161] in Perl-Users-Digest
Perl-Users Digest, Issue: 3754 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 18 19:08:06 1998
Date: Fri, 18 Sep 98 16:00:19 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 18 Sep 1998 Volume: 8 Number: 3754
Today's topics:
Re: /etc/passwd file <strat@pacifier.com>
Re: any way to encrypt my script? <sneaker@sneex.fccj.org>
Re: any way to encrypt my script? <sneaker@sneex.fccj.org>
Can CGI return page but continue processing? mark_thomas@my-dejanews.com
can't get DBD-Oracle to install khai@expert-market.com
Re: Converting from Unix script to an NT script (Steve Linberg)
HELP!Perl Date! <marlboro9@hknet.com>
Re: how can I get perl to tell the difference between f <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: how can I get perl to tell the difference between f (brian d foy)
Re: How large is a scalar? and related declaration ques (Matthew Bafford)
Re: how safe is xor encryption ? <eashton@bbnplanet.com>
How to access 'main' variables from another package spark_1998@my-dejanews.com
Re: How to access 'main' variables from another package (Sean McAfee)
Module download problem nguyen.van@imvi.bls.com
Needed: NT SCSI Info Utils ?? (Jeff Lawrence)
Re: Needed: NT SCSI Info Utils ?? <eashton@bbnplanet.com>
No Parse Header question <webmaster@comox-valley.com>
Re: passing argument !!!! nguyen.van@imvi.bls.com
Re: Perl for Win32 dilemma (Hans-Georg Rist)
perl generated pages and frames... <gargl@worldnet.net>
PLESE HELP ME!!! cim@online.ee
Re: Question about regex across multiple lines (Abigail)
Re: STDERR redirection X 2 ?? (Mark-Jason Dominus)
Re: trying to use print<<END; with CGI.pm (Harold Bamford)
where is Date::Parse? nguyen.van@imvi.bls.com
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 18 Sep 1998 14:45:46 -0700
From: "Christian Brink" <strat@pacifier.com>
Subject: Re: /etc/passwd file
Message-Id: <3602d4ab.0@news.pacifier.com>
Elaine -HappyFunBall- Ashton wrote in message
<3602C6B1.452A6AA0@bbnplanet.com>...
>Christian Brink wrote:
>
>> >PS> Is there a way to remove users from Red Hat Linux?
>
>> Yes kind of... but DO NOT DO IT... IT IS VERY VERY BAD....
>
>Having been an admin on systems with 12k+ users that changed frequently,
>I would wonder a bit at that since I cannot think of any user account
>that would be so critical as to merely disable it. Poorly written
>programs get rewritten properly really fast when they rely on a
>non-permanent account. If you can't remove an account smoothly than I
>would think that you are doing it wrong. Just my own humble experience.
>
>e.
In the scope of your situation yes I would agree wholeheartedly, but most
admins I know manage 100-300 users and don't need to worry about reclaiming
UID's (I'm assuming your motivation).
I was also taking into consideration :
1. The original poster was most likely not going to administer a large
number of people and the payback of removing a user does not come into
play.(or if the poster was going to admin a large number of users, from the
post we could tell s/he is in a good deal of trouble and should start
pounding the books I recommended).
2. The procedure of removing all files and references associated with a UID
and username can be daunting task and should not be handled by inexperienced
admins. (yes I have removed users usually by hand)
3. I felt condoning user removal would tell the poster to explore that
option, when most likely it would be fruitless.
IOW yes it was a halfassed answer but, that is what I had planned.
C. Christian Brink,CNE
IS-Manager
All-Sports Supply, LLC
Clackamas,OR
strat@pacifier.com
chrisb@assi.com
------------------------------
Date: Fri, 18 Sep 1998 18:33:38 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
Subject: Re: any way to encrypt my script?
Message-Id: <3602DFC2.A5D1FD09@sneex.fccj.org>
Uri Guttman wrote:
> perl hackers don't like to hide code. in fact we like
> to show it off in CPAN.
>
Hear! Hear!
Besides, see sig for
further explanation :]
-Sneex-
__________________________________________________________________
Bill Jones | FCCJ Webmaster | http://webmaster.fccj.org/Webmaster
__________________________________________________________________
We are the CLPM... Lower your standards and surrender your code...
We will add your biological and technological distinctiveness to
our own... Your thoughts will adapt to service us...
...Resistance is futile...
------------------------------
Date: Fri, 18 Sep 1998 18:35:41 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
Subject: Re: any way to encrypt my script?
Message-Id: <3602E03D.64614B9D@sneex.fccj.org>
bitnut1@my-dejanews.com wrote:
>
> Now, which is it:
> -- Perl is an immature language and unusable for serious work, or
> -- Perl users are immature and unable to answer a simple question.
Neither.
Most solutions are too busy being built; who wants to hide
perfection? If you have something good, share it :]
If you are afraid someone will take your idea and make it better,
that's called progress - it's what makes the world go 'round!
-Sneex- :]
__________________________________________________________________
Bill Jones | FCCJ Webmaster | http://webmaster.fccj.org/Webmaster
__________________________________________________________________
We are the CLPM... Lower your standards and surrender your code...
We will add your biological and technological distinctiveness to
our own... Your thoughts will adapt to service us...
...Resistance is futile...
------------------------------
Date: Fri, 18 Sep 1998 20:50:23 GMT
From: mark_thomas@my-dejanews.com
Subject: Can CGI return page but continue processing?
Message-Id: <6tuh2f$k3t$1@nnrp1.dejanews.com>
Is there any way for a Perl CGI script to send back a complete HTML page and
close the connection, then perform some other functions before quitting?
In other words, is there any other way to close the output stream without
exiting the Perl program? (i suppose you could use fork() but is there any
other way?)
Thanks
Mark Thomas
mark_thomas@my-dejanews.com
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Fri, 18 Sep 1998 22:11:56 GMT
From: khai@expert-market.com
Subject: can't get DBD-Oracle to install
Message-Id: <6tulrc$prg$1@nnrp1.dejanews.com>
hello everyone,
i'm trying to install dbd-oracle-0.45 on a sco-unix release5, and i got this
error:
$ perl Makefile.PL
Can't load module DBI, dynamic loading not available in this perl.
(You may need to build a new perl executable which either supports
dynamic loading or has the DBI module statically linked into it.)
at Makefile.PL line 17
BEGIN failed--compilation aborted at Makefile.PL line 17.
two days ago, i tried to reinstall perl5.004 with dynamic loading and it
didn't compile. so i'm wondering how do you make dbi-0.87 to statically link
to perl so that dbd would compile. please email me at khai@my-dejanews.com
if you has a solution. thanks lots khai
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Fri, 18 Sep 1998 17:15:18 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Converting from Unix script to an NT script
Message-Id: <linberg-1809981715180001@ltl1.literacy.upenn.edu>
In article <3602BA25.BD5DFDE0@systec.com>, "S. DeLong"
<sdelong@systec.com> wrote:
> I have been given the task of converting a script that runs on a unix
> box to run on a NT box. This particular script is reading a data from a
> delimited text file. Unfortunately, I am not a PERL scripter. One
> statement in the setup.pl file is asking for the record delimiter of the
> text file. I know it is a <CR><LF> but I don't know how to show this
> representation in the script -
>
> Are there any other major considerations when converting from a script
> intended for unix?
>
> Any help would be appreciated.
>
> Thanks - Sandy
There are always considerations when converting a script from any platform
to any other platform. It gets more complicated as the script makes more
use of platform-specific facilities that may or may not exist, or may be
different between platforms.
If the script is small and only deals with reading and parsing a text
file, the differences will be few. Line endings are one difference. As
you said, line endings under DOS are ^J^M. In Unix, they're just ^J, and
on Macs, they're just ^M. You can use the \cJ syntax in a regex to
indicate a control-J, and \cM to make a control-M.
For the most part, Perl will deal with line endings just fine without any
special tweaks. You might want to look up the $/ variable (record
seperator) to find out more about it, perhaps this will help you.
If you need more specific help, you might want to post some of the source
code of the script you're working with.
Good luck.
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Sat, 19 Sep 1998 06:16:53 +0800
From: =?iso-8859-1?Q?=A2=FC=A2=F0=A2=F1=A2=ED=A2=EE?= <marlboro9@hknet.com>
Subject: HELP!Perl Date!
Message-Id: <3602DBD5.4F81BD77@hknet.com>
Hay!I'm a Hong Kong people!I use a Matt's Guestbook at Hypermart,How can
I get a Hong Kong date&time?On Hypermart,The time is EST time,& can I
get the GMTime?The Matt's Guestbook get time perl script is here:
# Get the Date for Entry
$date = `$date_command +"%A, %B %d, %Y at %T (%Z)"`; chop($date);
$shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);
Please Help me!Thank!
thief
------------------------------
Date: 18 Sep 1998 23:30:10 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: how can I get perl to tell the difference between files and directories?
Message-Id: <83k931153x.fsf@vcpc.univie.ac.at>
Re: how can I get perl to tell the difference between files
and directories?, Knight
<843943n34@knight_storm@usa.net.sprynet.com> said:
Knight> How can I get perl to tell the difference between
Knight> files and directories? I have it on Windows 95. Any
Knight> help here is greatly appreciated. Thank you.
And nurse, he needs it stat!
perldoc -f stat
perldoc perlfunc "-X" group of operations
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Fri, 18 Sep 1998 17:50:18 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: how can I get perl to tell the difference between files and directories?
Message-Id: <comdog-ya02408000R1809981750180001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6tucuj$7rn$1@juliana.sprynet.com>, "Knight" <knight_storm@usa.net> posted:
>How can I get perl to tell the difference between files and directories? I
>have it on Windows 95. Any help here is greatly appreciated. Thank you.
see the file test operators, such as -d. good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers needs volunteers! <URL:http://www.pm.org/to-do.html>
------------------------------
Date: Fri, 18 Sep 1998 17:49:31 -0400
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: How large is a scalar? and related declaration question. (clarification)
Message-Id: <MPG.106c66b1258087489896a3@news.south-carolina.net>
In article <36027AA1.3A48@DejahsPrivateIce.com> on Fri, 18 Sep
1998 10:22:11 -0500, Mary E Tyler (dejah@DejahsPrivateIce.com)
pounded in the following text:
=> Mary E Tyler wrote:
=>
=> > and that is a declaration... but there are just scalars and lists in
=> > PERL and so i am confused as to how to declare anything...
For variable declaration, look up my and local.
my is what you want most of the time. Local is handy for cases
such as $/ (the input delimiter) where you want the change to
last only through the block. Subroutines get the 'localized'
value.
Eg:
$_ = "Hello, World!";
{
local $_ = "LaLa";
print "$_\n"; # Prints LaLa
}
print "$_\n"; # Prints Hello, World!
My is a totally differant idea. My actually creates a new
instance of that variable and assigns it to the current block
(for lack of a better term). my variables do not pass to
subroutines.
=>
=> i *know* you don't *have* to declare anything. I *know* that is the
=> *point* of having such loose typing. But i *have* seen references in the
=> documentation to "declaring variables" and an indication that this is a
=> *desirable* thing. Now either this means something different from what i
=> think it means, or there is actually a way to declare variables. SOME
=> ONE TELL ME WHAT IT IS!!! (pant pant pant)
=>
When predeclaring variables you main objective is to keep from
messing up other code. Since your changes (or variable) are
local to that block, no harm is done.
=> > speaking of which, when i *do* declare a sub routine, the interpreter
=> > balks and complains at me. then i realized, the camel says that i can
=> > prototype a subroutine, but it doesn't show *how*. here is a C function
=> > prototype
=> >
=> > int FooInt (IntIn int, Format char);
=>
=> okay, the answer i received via email looked like this:
=>
=> sub FooInt($$) {...}
This declares a sub that can be called like this:
FooInt 1234, "Some Text";
or
FooInt "...", "...";
Any less arguments and Perl will complain.
To predeclare, just do this:
sub FooInt($$);
...
...
...
sub FooInt($$)
{
...
...
...
}
See the Camel for more information. (Under subroutines in the
index).
=> for the corresponding prototype in PERL. which is not a prototype at
=> all, as i understand the definition. This is a function/subroutine
=> definition. So is the definition all there is... or is there a separate
=> prototype like in C? Okay, so another question about the above code, how
=> do i refer to those scalars (in the ($$)) in the body of the code
=> belonging to that sub? is this more correct?
=>
=> sub FooInt ($OneThing, $AnotherThing) {...}
=>
=> then i can refer to $OneThing and $AnotherThing in the body of the code?
=> okay, if so, that is exactly what i did. The interpreter burped at me
=> calling all sorts of bogus errors.
Named parameters not yet implemented (or are they in 5.005?).
Eg:
#!/usr/bin/perl -w
sub AddEm($$);
print "AddEm(1, 2) == ", AddEm(1, 2), "\n";
sub AddEm($$);
{
my $Num1 = shift; # Shortcut
my $Num2 = shift @_; # Same thing
$Num1 + $Num2; # The last value in the block is the
# one returned. This could be:
# return $Num1 + $Num2
}
__END__
=> >
=> > what would be the corresponding prototype in PERL?
=> >
=> > what's more... how do you *call* it?
=>
=> as for calling:
=> i called it like this
=>
=> $Foo=&FooInt ($This, $That);
If predeclared, the & is not needed.
=> thanks in advance,
=> dejah,
Hope This Helps!
--Matthew
------------------------------
Date: Fri, 18 Sep 1998 22:18:10 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: how safe is xor encryption ?
Message-Id: <3602D9BC.6E62CA71@bbnplanet.com>
Jim Woodgate wrote:
> I don't have my "Applied Cryptography" book at work, but I believe
> there is a mathematical proof that proves that XOR when done correctly
> is 100% secure. I can check the relevant sections for you when I get
> home...
I just ordered a copy from amazon. :) I still am resistant to say that
anything is 100% secure. They said the Titanic was unsinkable too.
> I would guess that you got the keys, without the keys you would be
> unable to break XOR...
It was phenomenal how easy it was to get the keys. Linux boxes as user
workstations make great sniffers. You are only as secure as the weakest
link in the chain.
e.
"All of us, all of us, all of us trying to save our immortal souls, some
ways seemingly more round-about and mysterious than others. We're having
a good time here. But hope all will be revealed soon." R. Carver
------------------------------
Date: Fri, 18 Sep 1998 22:22:58 GMT
From: spark_1998@my-dejanews.com
Subject: How to access 'main' variables from another package
Message-Id: <6tumg2$qhk$1@nnrp1.dejanews.com>
I've looked in various books about this, but I find the descriptions
very confusing. I want to access variables from the 'main' package from
another package. It's clear enough for scalars:
$main::{var}
I'm confused about the syntax here, though. The '$' sign is bound to 'main',
right? So, %main:: is an hash of all the symbols in main. So how does perl
know I want the scalar. I need to be able to access hashes and filehandles in
main, not just scalars.
If I create a filehandle and a hash in main:
$phone{'steve'} = "1234";
open LOG ">filename";
how do I access these symbols from another package?
Thanks
Steve
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Fri, 18 Sep 1998 22:49:02 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: How to access 'main' variables from another package
Message-Id: <yrBM1.3622$F7.13726835@news.itd.umich.edu>
In article <6tumg2$qhk$1@nnrp1.dejanews.com>,
<spark_1998@my-dejanews.com> wrote:
>I've looked in various books about this, but I find the descriptions
>very confusing. I want to access variables from the 'main' package from
>another package. It's clear enough for scalars:
>$main::{var}
No, this refers to the symbol table entry for the typeglob called "var" in
package "main". To get at the scalar "var" in package "main", just say
$main::var (or $::var for short).
>I'm confused about the syntax here, though. The '$' sign is bound to 'main',
>right? So, %main:: is an hash of all the symbols in main. So how does perl
>know I want the scalar.
It doesn't; you have to tell it. If you were determined to access the
scalar via the symbol table (something you should almost never need to
do), you would say
${$main::{var}}
The array and hash would be @{$main::{var}} and %{$main::{var}}.
>I need to be able to access hashes and filehandles in
>main, not just scalars.
>If I create a filehandle and a hash in main:
> $phone{'steve'} = "1234";
> open LOG ">filename";
>how do I access these symbols from another package?
$main::phone{'steve'} or $::phone{'steve'}
and
print main::LOG "data" or print ::LOG "data"
respectively.
--
Sean McAfee | GS d->-- s+++: a26 C++ US+++$ P+++ L++ E- W+ N++ |
| K w--- O? M V-- PS+ PE Y+ PGP?>++ t+() 5++ X+ R+ | mcafee@
| tv+ b++ DI++ D+ G e++>++++ h- r y+>++** | umich.edu
------------------------------
Date: Fri, 18 Sep 1998 21:42:11 GMT
From: nguyen.van@imvi.bls.com
Subject: Module download problem
Message-Id: <6tuk3k$ns4$1@nnrp1.dejanews.com>
Hi guys,
I tried to download "GetDate" module,but get problem when "make test".
Following is the error message.
PERL_DL_NONLAZY=1 /usr/bin/perl -I./blib/arch -I./blib/lib
-I/opt/lib/perl5/sun4-solaris/5.00404 -I/opt/lib/perl5 -e 'use Test::Harness
qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
t/getdate...........WARNING: Date::GetDate requires Date::Parse for years >=
2000 at blib/lib/Date/GetDate.pm line 10. Can't locate Date/Parse.pm in @INC
(@INC contains: ./blib/arch ./blib/lib /opt/lib/perl5/sun4-solaris/5.00404
/opt/lib/perl5/sun4-solaris/5.00404 /opt/lib/perl5/sun4-solaris/5.00404
/opt/lib/perl5 /opt/lib/perl5/sun4-solaris/5.00404
/opt/lib/perl5/sun4-solaris/5.00404 /opt/lib/perl5
/opt/lib/perl5/site_perl/sun4-solaris /opt/lib/perl5/site_perl/sun4-solaris
/opt/lib/perl5/site_perl . /opt/lib/perl5/sun4-solaris/5.00404 /opt/lib/perl5
/opt/lib/perl5/site_perl/sun4-solaris /opt/lib/perl5/site_perl .) at
blib/lib/Date/GetDate.pm line 16. dubious Test returned status 2 (wstat 512,
0x200) DIED. FAILED test 109 Failed 1/109 tests, 99.08% okay Failed Test
Status Wstat Total Fail Failed List of failed
-----------------------------------------------------------------------------
-- t/getdate.t 2 512 109 1 0.92% 109 Failed 1/1 test scripts, 0.00%
okay. 1/109 subtests failed, 99.08% okay. *** Error code 2
Any idea?
Thanks
Van Nguyen
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Fri, 18 Sep 98 20:13:01 GMT
From: jeffl@plaza.ds.adp.com (Jeff Lawrence)
Subject: Needed: NT SCSI Info Utils ??
Message-Id: <6tuf76$dfi@myst.plaza.ds.adp.com>
I'm looking some utility that I can invoke from the command-line or a PERL
script that lists attached system SCSI devices. Specifically, I need the
ability to tell if an NT system has a SCSI CDROM attached.
Please cc: jeffl@plaza.ds.adp.com
TIA
------------------------------
Date: Fri, 18 Sep 1998 21:26:50 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Needed: NT SCSI Info Utils ??
Message-Id: <3602CDB4.ABCAAAB4@bbnplanet.com>
Jeff Lawrence wrote:
> I'm looking some utility that I can invoke from the command-line or a PERL
> script that lists attached system SCSI devices. Specifically, I need the
> ability to tell if an NT system has a SCSI CDROM attached.
You could use 'showdisk' in a Perl script.
e.
"All of us, all of us, all of us trying to save our immortal souls, some
ways seemingly more round-about and mysterious than others. We're having
a good time here. But hope all will be revealed soon." R. Carver
------------------------------
Date: 18 Sep 1998 21:39:20 GMT
From: "Martin " <webmaster@comox-valley.com>
Subject: No Parse Header question
Message-Id: <01bde1e9$746a6040$1a8005d1@synapse>
I am attempting to :
get search string and choose search engine via form (done)
connect with various search engines after sending the string (done)
display query results (done)
However I wish to display the results on my own html, I am sending the
appropiate
headers (and socket calls) but the resulting text is appended to by the
search engines own results page..
How would I extract all the address's and summaries from the results and
display
them on my own html...
------------------------------
Date: Fri, 18 Sep 1998 21:10:27 GMT
From: nguyen.van@imvi.bls.com
Subject: Re: passing argument !!!!
Message-Id: <6tui83$li6$1@nnrp1.dejanews.com>
Hi guys,
none of this is working
any better other way?
Thanks
Van
In article <MPG.106c3216f54be1989897ac@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) wrote:
> [Posted to comp.lang.perl.misc and a copy mailed.]
>
> In article <6ttrl5$qbq$1@nnrp1.dejanews.com> on Fri, 18 Sep 1998 14:44:53
> GMT, dave@mag-sol.com <dave@mag-sol.com> says...
> > In article <360253EC.9175A8E2@america.net>,
> > Garry Williams <garry@america.net> wrote:
> ...
> > > system("browser_crno.ksh '$DATE' > $DOCS_DIR/$out_put");
> >
> > I think you'll need
> >
> > system("browser_crno.ksh \'$DATE\' > $DOCS_DIR/$out_put");
> >
> > otherwise the variable $DATE won't get interpolated. Might be even better
> > to use the generic quoting operators.
> >
> > system(qq[browser_crno.ksh "$DATE" > $DOCS_DIR/$out_put]);
>
> Not at all. The function of the single quotes is to bind the value of
> $DATE into a single argument for the shell and to prevent further
> evaluation. As far as the double-quoted argument for 'system' is
> concerned, they are just characters in the string, and don't affect the
> interpolation of $DATE at all.
>
> People really should test their assertions, instead of just posting: "I
> think you'll need...".
>
> #!/usr/local/bin/perl -w
> use strict;
>
> my $foo = 'bar';
> print "'$foo'\n";
> __END__
>
> is all it takes!
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Laboratories
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Fri, 18 Sep 1998 22:44:26 GMT
From: hans-georg.rist@zkrd.de (Hans-Georg Rist)
Subject: Re: Perl for Win32 dilemma
Message-Id: <3602e18d.1803137@news.uni-ulm.de>
"Paul Pype" <ppype@connect.ab.ca> wrote:
>I am a Perl newbie working with ActiveState's Perl for Win32 v5.00502. I
>think I've found a bug in the interpreter, but I may just be missing
>something obvious. I would like to find out if other's have experienced
>similar behaviour:
>
>The code for my very simple script is:
>
> print "Enter a list, one element on each line (Ctrl-Z to end):\n";
> @newlist = <STDIN>;
> @newlist = reverse( @newlist );
> print "The list in reverse order is: \n @newlist";
Prepend a newline:
print "\nThe list in reverse order is: \n @newlist";
and it always works (but don't ask me why).
HG
--
| Hans-Georg Rist ZKRD, Zentrales Knochenmarkspender-Register
| Helmholtzstr. 10 Deutschland, gGmbH
| P.O.B. 4244 German National Registry of Bone Marrow Donors
| D-89032 Ulm http://www.zkrd.uni-ulm.de
| Phone: +49 731 1507-46, Fax: -50, email: hans-georg.rist@zkrd.de
------------------------------
Date: Fri, 18 Sep 1998 23:20:32 +0200
From: "GaRgL" <gargl@worldnet.net>
Subject: perl generated pages and frames...
Message-Id: <6tuirn$6so$1@minus.oleane.net>
how can i print to different frames using perl ?
i'm currently reading the faq...
------------------------------
Date: Fri, 18 Sep 1998 22:02:13 GMT
From: cim@online.ee
Subject: PLESE HELP ME!!!
Message-Id: <3602d6f6.29483588@news.online.ee>
I have the following problem with Perl:
The code below will return the first 180 chars from $INPUT{'update'},
but i need it to return all chars before this appears: </P>
How could i do it?
I'm using perl5.
$blaa = substr($INPUT{'update'}, 0, 180);
Please help me.
------------------------------
Date: 18 Sep 1998 21:38:45 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Question about regex across multiple lines
Message-Id: <6tujt5$m70$1@client3.news.psi.net>
Michael D Lewis (mlewis@nmia.com) wrote on MDCCCXLIV September MCMXCIII
in <URL: news:6tuepr$nvn@hume.nmia.com>:
FAQ.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: 18 Sep 1998 17:14:36 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: STDERR redirection X 2 ??
Message-Id: <6tuifs$m4l$1@monet.op.net>
In article <3602A09C.649118BA@cowboys.anet-dfw.com>,
Tom Turton <tturton@cowboys.anet-dfw.com> wrote:
>At at some point in my script, I want to redirect it to a file, but
>then I want to switch it back to the screen.
open OLDSTDERR, ">&STDERR";
open STDERR, "> error.log";
# Stderr is now going to the error log
open STDERR, ">&OLDSTDERR";
# Stderr is now going wherever it was going before.
If you just want to connect STDERR to the same place that STDOUT is
connected, use
open STDERR, ">&STDOUT";
------------------------------
Date: 18 Sep 1998 22:08:57 GMT
From: hbamford@marconi.ih.lucent.com (Harold Bamford)
Subject: Re: trying to use print<<END; with CGI.pm
Message-Id: <6tullp$9of@ssbunews.ih.lucent.com>
>print<<END;
>
>Al,
> What is it doing? Just saying that
> it is not working _without_ a code
> sample doesn't help us troubleshoot
> the problem.
>
>Brent
>
>END
Well, it works OK for me. However, since 'END' has special
significance to Perl, you might want to try a different token:
#!perl -w
use strict;
print<<"EOF";
Al,
What is it doing? Just saying that
it is not working _without_ a code
sample doesn't help us troubleshoot
the problem.
Brent
END
--
-- Harold Bamford
mailto:hbamford@lucent.com
(630)713-1351
------------------------------
Date: Fri, 18 Sep 1998 21:55:18 GMT
From: nguyen.van@imvi.bls.com
Subject: where is Date::Parse?
Message-Id: <6tuks6$onr$1@nnrp1.dejanews.com>
Hi guys,
I couldn't find Date::Parse. Do you know where it is located?
Thanks
Van Nguyen
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3754
**************************************
