[13257] in Perl-Users-Digest
Perl-Users Digest, Issue: 667 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 28 08:07:45 1999
Date: Sat, 28 Aug 1999 05:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 28 Aug 1999 Volume: 9 Number: 667
Today's topics:
Backticks and binmode <drummer@MailAndNews.com>
Bug Report: Perl5 - Passing =~ Expression to a Subrouti (Y2K Fear Not)
Re: Bug Report: Perl5 - Passing =~ Expression to a Subr (Abigail)
Re: Bug Report: Perl5 - Passing =~ Expression to a Subr (Y2K Fear Not)
Re: Can anyone lend a hand please? <arunas@an!m.org>
Re: Can someone help PLEASE? <kin@0011.com>
Re: Find 'sendmail' with only ftp... <kin@0011.com>
Re: FTP transfer problem <kmonte@columbus.rr.com>
Re: Hashed sets <srooij@wins.uva.nl>
Re: How to chown a symbolic link in Perl? <seen@statoil.no>
Re: newbie needs help <kmonte@columbus.rr.com>
Re: newbie needs help <wyzelli@yahoo.com>
Re: Pattern Matching (Bart Lateur)
Re: Perl Y2K Bugs on the Internet <mambuhl@earthlink.net>
Re: Perl Y2K Bugs on the Internet <firstsql@ix.netcom.com>
Re: Perl Y2K Bugs on the Internet (Bart Lateur)
Re: Permanent Connection <meowing@banet.net>
Script writing <wyzelli@yahoo.com>
sorting a delimited string by second field <andrew@linksnetwork.com>
SQL-server from Perl (was Re: Japanese Girl Needs Help. <paul@miraclefish.com>
Re: The extent of double-quotish interpolation (Bart Lateur)
Re: UNIX or NT ? <esumerfd@poboxes.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 28 Aug 1999 02:41:38 -0400
From: Drummer <drummer@MailAndNews.com>
Subject: Backticks and binmode
Message-Id: <37D28FFA@MailAndNews.com>
I never noticed this, in Perl, until today, and I'm not sure if it's
an oversight in the syntax of the language, a tiny feature that might
be considered for the future, or something I still don't know about
a language I learn something about every time I program in it.
It happens that I was slinging the output of a subprocess around,
today, on a Win-blows platform, which is one of those places where
you have to binmode your file-handles. As it happens, the output
of the command was NOT text, and so sensitive to CRLF/LF conversions,
Ctrl-Z being recognized as EOF and other legacy lunacy from MS-DOS.
At first, not thinking, I wrote something like
$b = `binary-output-command`;
And then, realizing what was going wrong, I re-wrote it the hard way:
open B, "binary-output-command|" or die;
binmode B;
etc(<B>);
And then it occurred to me, suddenly, that although we have binmode
for FILEHANDLES, Perl really doesn't have a way to say "make the
output of the qx// pseudo-operator go into binmode"--something like
the funny variables $/ or $[ or $| that can be "thrown" to adjust
behavior.
In other words, there really WAS no way for me to write what I was
writing using the qx//, rather than a filehandle, on this platform,
although it would have been just fine, written that way, on UNIX.
I think this is the first time I've stumbled on a situation where
there isn't a way to do something in Perl. *I* think it's something
that should be considered, especially since it looks like there's no
getting rid of the Windoze plague, and so we're stuck with that
platform for a while yet. Or have I overlooked something?
------------------------------
Date: Sat, 28 Aug 1999 07:58:44 GMT
From: Yikes2000@yahoo.com (Y2K Fear Not)
Subject: Bug Report: Perl5 - Passing =~ Expression to a Subroutine
Message-Id: <37c897d4.167014958@news.gte.net>
I discovered this bug in Perl.005.02. Could someone please verify
with other (later) 005 levels?
Bug: When passing an =~ expression to a subroutine, if the LHS is the
empty string, then the number of parameters will be wrong (one less):
#!/usr/local/bin/perl -w
sub printArgs { print ($#_+1)."\n"; }
printArgs( 1, 2, 3 );
printArgs( ('abcd' =~ /[c]/), 2, 3 );
my $tmp = '';
printArgs( ($tmp =~ /[c]/), 2, 3 ); # <--- here's the problem!
$tmp = (''=~ /[c]/);
printArgs( $tmp, 2, 3 );
Result: (Perl.004.04)
3
3
3
3
Result: (Perl.005.02)
3
3
2
3
I spent the whole day upgrading from 004.04 to 005.02 -- not an easy
task since I have to recompile a lot of modules. Then I discovered
this bug which broke some of my scripts. :-(
The workaround is to add "||0" to the =~ operator, like this:
printArgs( ($tmp =~ /[c]/)||0, 2, 3 );
Could someone please pass this bug report to the right person?
Neither the Perl documentation or http://www.perl.com/ mentions how to
report bugs.
P.S. I am using a FreeBSD 2.2.5 system.
------------------------------
Date: 28 Aug 1999 03:18:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Bug Report: Perl5 - Passing =~ Expression to a Subroutine
Message-Id: <slrn7sf715.tt.abigail@alexandra.delanet.com>
Y2K Fear Not (Yikes2000@yahoo.com) wrote on MMCLXXXVIII September
MCMXCIII in <URL:news:37c897d4.167014958@news.gte.net>:
`` I discovered this bug in Perl.005.02. Could someone please verify
`` with other (later) 005 levels?
``
`` Bug: When passing an =~ expression to a subroutine, if the LHS is the
`` empty string, then the number of parameters will be wrong (one less):
Uhm, no, it will not. Remember that the // is done in *list* context.
The result of "" =~ /[c]/ in list context is ().
Use scalar() if you want a scalar result; or use prototypes.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sat, 28 Aug 1999 10:07:28 GMT
From: Yikes2000@yahoo.com (Y2K Fear Not)
Subject: Re: Bug Report: Perl5 - Passing =~ Expression to a Subroutine
Message-Id: <37cbb514.174504107@news.gte.net>
abigail@delanet.com (Abigail) wrote:
>
>Y2K Fear Not (Yikes2000@yahoo.com) wrote on MMCLXXXVIII September
>MCMXCIII in <URL:news:37c897d4.167014958@news.gte.net>:
>`` I discovered this bug in Perl.005.02. Could someone please verify
>`` with other (later) 005 levels?
>``
>`` Bug: When passing an =~ expression to a subroutine, if the LHS is the
>`` empty string, then the number of parameters will be wrong (one less):
>
>Uhm, no, it will not. Remember that the // is done in *list* context.
>The result of "" =~ /[c]/ in list context is ().
>
>Use scalar() if you want a scalar result; or use prototypes.
>
>Abigail
Thank you. And just to clarify, the ("" =~ /[c]/) in printArg( ("" =~
/[c]/), 2, 3 ) is treated in the scalar context by Perl5.004.04, but
in Perl5.005.02, it is a list? (as it should be).
------------------------------
Date: Sat, 28 Aug 1999 00:14:55 -0600
From: "Arunas Salkauskas" <arunas@an!m.org>
Subject: Re: Can anyone lend a hand please?
Message-Id: <37c77e6c@news.cadvision.com>
Writing to a file probably isn't the big problem.
There are basically two approaches to the while thing, one is to use
cookies, where you expect the browser to identify itself to you once you've
decided that the password is valid, and the other is to create a session
identifier and encode that into the URL (ie
/cgi-bin/infoscript.pl/some/path/?sessionid=19290498039807 ), and then make
sure that when somebody responds with this sessionid, that it corresponds to
a user that has recently logged in.
Putting the sessionid in the URL can be tricky - it means you can't
accidentally redirect the person to a plain HTML page unless you know that
all the links out of that page will be able to encode the sessionid into the
URL again (remember this has to be done dynamically, the sessionid has to be
different for every visitor - well not always, but it might help with
security, otherwise I can notice what the id is, and type the URL in by hand
and break in without getting authenticated).
Try making user-password-action files where each line in the file is a row
of these bits of information separated by : or |, and be careful that people
don't use these in their usernames or passwords - that will really mess you
up.
Either way, most of this is very conceptual, and requires a bit of thought,
and perhaps a visit to a newsgroup that deals with CGI, like
comp.infosystems.www.authoring.cgi once you wrap your mind around the
concepts of how to direct the flow of information, then look into the
language of perl, and figure out how to read and write files etc.
You can also make the user pick a username and password, and then use this
to generate a file that the web server would recognize (this requires fairly
low level access to the server) as a source for authenticating users. Then
once they login (the get prompted by the browser) the server will pass a
variable called REMOTE_USER to your CGI programs. Once again, this is a
topic for a CGI group, and possible a web server group.
--
- Arunas Salkauskas
High Point Designs
www.highpointdesigns.com
Richard wrote in message <37c6ce56_2@newsread3.dircon.co.uk>...
>Hi All,
>
>My name is Richard and I'm 17 years old. I'm frantically trying to get to
>grips with Perl. I can get it to do the more simple tasks, such as return
>values from a form when submitted and then act on the contents of a hidden
>field, eg..
>
>if ($in{'action'} eq "gotonextstage") { &some_sub }
>
>I'm Ok with that. But where I really need help is being able to 'register'
a
>user. For example, visitor fills out a form that has Username, Password and
>Full Name as fields. This stuff is stuck in one large user database which
is
>used to validate users when they try to 'log in'. When they try to log in -
>if they are successful - they are given access to a specific subroutine
>within a cgi-program, perhaps containing HTML or such to be protected.
>
>Does anyone know how I can do this? Or maybe you have a sub-routine that
>would be of use to me?
>
>Thanks very much for your time and help.
>
>Best Regards,
>
>Richard.
>
>
------------------------------
Date: Sat, 28 Aug 1999 00:50:49 -0700
From: Kin Lum <kin@0011.com>
Subject: Re: Can someone help PLEASE?
Message-Id: <37C794D9.7C454AB1@0011.com>
alghazn@my-deja.com wrote:
> exec "scriptA.cgi?id=abc&pass=12incz&type=first";
you are trying to use the CGI interface in
the command line interface... so it won't work.
(also, note that exec terminates the current Perl program,
so "system" might be what you want instead)
actually, i suspect that for either GET or POST,
you can just invoke those scripts without arguments...
since for GET, the ENV variables are inherited by the
forked process, and for POST, you just read
the input from STDIN.
These two references are very good for CGI¡R
Cgi
Programming
With Perl
Perl and Cgi for
the World Wide
Web: Visual
Quickstart Guide
more info at
http://www.0011.com/books/perl
------------------------------
Date: Sat, 28 Aug 1999 01:15:52 -0700
From: Kin Lum <kin@0011.com>
Subject: Re: Find 'sendmail' with only ftp...
Message-Id: <37C79AB8.28CB8C66@0011.com>
Hartgeorge wrote:
> The problem: I need to know where sendmail is
> located on their server
can try something like this:
print "Content-type: text/html\n\n<pre>\n";
print `find / -name 'sendmail' -print`;
------------------------------
Date: Fri, 27 Aug 1999 02:36:08 -0400
From: "kmonte" <kmonte@columbus.rr.com>
Subject: Re: FTP transfer problem
Message-Id: <XoLx3.719$mo.24683@viper>
You wrote:
In one of my perl script, i'm reading files beeing transfered by an
other node with ftp. With some big files, it appends sometimes that the
files are not
completly transfered as my script want to process it. Have you an
idea how to coordinate the transfer with the processing of the script?
stat the file before you process it. sleep a period of time, stat again. If
the numbers match, then process, otherwise sleep again. It can be size,
access time, modification time. Whatever you want to use. Once the two tests
match....
------------------------------
Date: Sat, 28 Aug 1999 10:24:24 +0200
From: Steven de Rooij <srooij@wins.uva.nl>
Subject: Re: Hashed sets
Message-Id: <37C79CB8.26AF46C4@wins.uva.nl>
Thanks everyone for answering my question.
I agree with Anno that this is the answer:
> @hash{ @words} = ();
But I like this trick as well,
> @hash{@array} = (1) x @array;
I didn't know this idiom yet. How ignorant! But I could have known that
this is one of those simple things that should be easy :-)
There were other reactions to my posting:
Eric Bohlman wrote:
> The first method is rather slow. The real question is why you're using the
> array rather than a hash in the first place (if it's to keep order, look
> into Tie::IxHash which lets you create a hash whose keys can be retrieved
> with each() or keys() in order of entry).
Tie::IxHash will be the best solution in many cases. But I do like this
way of listing only the unique lines in a text file:
my %hash;
@hash{<>}=();
for (keys %hash) { print }
> As it turns out, this isn't a Frequently Asked Question, but that still
> doesn't excuse you from doing your homework. The FAQ documents that come
> with Perl will quickly enable to tell if a particular question is likely
> to be one that's been asked here over and over again And if so, they'll
> give you your answer far faster than it would take to compose a question,
> post it, and wait for the answer.
I did "do my homework", but as far as I could tell, there was nothing
about this in the FAQ.
Do I sense some frustration here?
Bye all,
Steven
------------------------------
Date: Sat, 28 Aug 1999 12:00:01 +0200
From: "Stein-Erik Engbråten" <seen@statoil.no>
Subject: Re: How to chown a symbolic link in Perl?
Message-Id: <37C7B321.B4E3DC3B@statoil.no>
Tom Christiansen wrote:
> In comp.lang.perl.misc,
> "Stein-Erik Engbråten" <seen@statoil.no> writes:
> :How do I change the UID and/or GID on a symbolic link in Perl (this is
> :on Unix machines, by the way...:-)
>
> Perl doesn't do this. Do you know why many systems don't support the
> idea? Because it conveys no distict functionality. Modes and owners
> and times on symbolic links have no meaning. So why bother? And it's
> very non-portable.
Modes have no meaning on symbolic links, that we agree on. UID's and
GID's on symbolic links don't matter in a security sense, since the mode
doesn't matter.
However, there are at least 2 reasons why ownership matters:
- It tells who made the link. In given circumstances that is
an important piece of information.
- If the UID is suddenly invalid, in the sense that it doesn't have
a defined user corresponding to it, it might trigger off
unwanted actions on it. For instance security systems that
insist that everything has a valid UID/user combination, or else its
gone.
There is a reason why all the major Unix variants (IRIX, AIX, SunOS,
OSF1, ...) has the chown -h and chgrp -h commands. And why OS'es that
didn't have it (SunOS 4, HP-UX 9) have them in the later releases (SunOS
5, HP-UX 10).
Regarding the portability issue, I only know well (most of) the
different Unix variants. Symbolic links as such are non-portable to
(most?) non-Unix systems, but are the UID/GID part of them even more
non-portable?
Regards,
Stein-Erik
------------------------------
Date: Fri, 27 Aug 1999 02:30:00 -0400
From: "kmonte" <kmonte@columbus.rr.com>
Subject: Re: newbie needs help
Message-Id: <ajLx3.718$mo.24956@viper>
You Wrote:
I am in need of assistance. I'm running Perl in Win32, specifically
Win98 (yeah, I actually got it to work). Problem is, whenever I run a Perl
program, the program closes before I can ever see the output. So, I
decided to make a little bit of code that would make the user type 'quit'
before the program exits. Here's the code:
$inputline = <STDIN>;
print( $inputline );
print( "\n \n" );
print ( "Type quit to exit.\n" );
$inputline2 = <STDIN>;
$quitline = "quit";
until ( $inputline2 == $quitline) {
print ( "Please type quit to exit. \n" );
$inputline2 = <STDIN>;
}
I do not know how you plan on calling your code, but all of it needs to
reside within your until loop. It should look something like this:
until ("\L$Inputline\E" eq "quit") {
chomp($Inputline = <STDIN>);
print("$Inputline\n\nType quit to exit\n");
}
Try that on for size.
Kenn
------------------------------
Date: Sat, 28 Aug 1999 17:06:29 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: newbie needs help
Message-Id: <0kMx3.7$1X4.3639@vic.nntp.telstra.net>
The DeLongs <tsaaedel@bright.net> wrote in message
news:qNEx3.158$q_6.4055@cletus.bright.net...
> Attention all knowledgeable Perl people sirs,
>
> I am in need of assistance. I'm running Perl in Win32, specifically
> Win98 (yeah, I actually got it to work). Problem is, whenever I run a Perl
> program, the program closes before I can ever see the output. So, I
decided
> to make a little bit of code that would make the user type 'quit' before
the
> program exits. Here's the code:
>
> $inputline = <STDIN>;
> print( $inputline );
> print( "\n \n" );
> print ( "Type quit to exit.\n" );
> $inputline2 = <STDIN>;
> $quitline = "quit";
> until ( $inputline2 == $quitline) {
> print ( "Please type quit to exit. \n" );
> $inputline2 = <STDIN>;
> }
>
>
> Problem is, if the user types anything at the prompt, the program exits.
> Please correct my foolish errors.
>
> Adel
Try running from the command prompt with perl scriptname.pl
What is happening is what is supposed to happen... the program runs and then
closes.
It is also possible to turn off the 'close on exit' property from the icon
which runs the script if desired.
Wyzelli
------------------------------
Date: Sat, 28 Aug 1999 10:54:12 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Pattern Matching
Message-Id: <37cbbd13.2265052@news.skynet.be>
Andy Molnar wrote:
>DANG! I knew about the backslash's purpose. Why the h3ll didn't I think of
>trying that???
Yup. Note that these options:
print quotemeta($pattern);
and
print "\Q$pattern\E";
will insert them (only) where necessary, for you.
--
Bart.
------------------------------
Date: Sat, 28 Aug 1999 02:53:28 -0400
From: Martin Ambuhl <mambuhl@earthlink.net>
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <37C78768.D61AB64C@earthlink.net>
John Callender wrote:
>
[A bunch of perl-specific stuff]
Please change your newsgroups and followups to not include comp.lang.c,
where this stuff is off-topic. It does not win Perl or its programmers
any friends.
--
Martin Ambuhl mambuhl@earthlink.net
__________________________________________________________
Fight spam now!
Get your free anti-spam service: http://www.brightmail.com
------------------------------
Date: Sat, 28 Aug 1999 00:01:48 -0700
From: Lee Fesperman <firstsql@ix.netcom.com>
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <37C7895C.59B2@ix.netcom.com>
Martin Ambuhl wrote:
> Please change your newsgroups and followups to not include comp.lang.c,
> where this stuff is off-topic. It does not win Perl or its programmers
> any friends.
It is hardly off-topic. As I said, "this date 'feature' is a weakness in Perl (and C,
Javascript, ...) - a poor design."
This date deficiency is in C also (tm_year). Do C programmers have the same parochial
view of it as Perl programmers?
--
Lee Fesperman, FFE Software, Inc. (http://www.firstsql.com)
------------------------------
Date: Sat, 28 Aug 1999 10:54:10 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <37c9ba63.1577006@news.skynet.be>
Lee Fesperman wrote:
>In reality, this date 'feature' is a weakness in Perl (and C, Javascript, ...) - a poor
>design. Because of cross-posting, I'm viewing this from the Java NG. Java has this
>deficiency but has recognized it, replaced it with a correct implementation and
>deprecated the problematic stuff.
How on earth can you "correct the implementation" without loosing
backward compatibility? By adding another function? I think that's why
Perl people object to this addition, which would make the perl
executable bigger: because it's so easy to compensate. All you have to
do is to add 1900 to the year.
And I'm pretty sure that in the original design, tm_year was intended to
return the year in 2 digits. All that "years since 1900" nonsense is
nothing but a backward compatible patch.
--
Bart.
------------------------------
Date: 28 Aug 1999 03:25:17 -0400
From: meow <meowing@banet.net>
Subject: Re: Permanent Connection
Message-Id: <87ogfspdsy.fsf@banet.net>
Steve Wells <wells@cedarnet.org> wrote:
> I have a client that needs to permanently connect to a server
> in order to gather "live" information from it. The server
> sends a heartbeat code every 5 mins to let my client know it
> is alive.
[...]
> The program starts up and sets the alarm signal handler for
> 6 mins. Then connects to the server waiting for information.
> Each time the heartbeat is sent, the alarm is reset for 6 mins.
> If the alarm is called it then it restarts the program in the
> same manner as if you called a -HUP signal.
Sounds reasonable. If you're just wondering if there's a way to do it
without a signal handler, you might consider using select() on the
socket for the timeout, storing the last heartbeat's arrival in a
variable with time(), and comparing that on each pass with the current
time to see if it's been too long.
Or you might even skip the explicit time comparison thingy and just
use a select returning nothing as a death indicator if any data coming
down the pipe, not just the heartbeat, counts as the server being
alive.
------------------------------
Date: Sat, 28 Aug 1999 17:53:55 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Script writing
Message-Id: <t0Nx3.1$j_4.264@vic.nntp.telstra.net>
I have in the past seen posts looking for Perl programmers to perform
contract work, with answers directing them to certin web-sites which offer
links for contract programmers.
I find myself in need of such service and for the life of me cannot find
such a site or even a newsgroup which looks remotely relevant. (Plenty of
jobs but no ad-hoc script development).
Can anyone point me in the right direction please?
Wyzelli
------------------------------
Date: Sat, 28 Aug 1999 12:08:10 +0100
From: "LinksNetwork Admin" <andrew@linksnetwork.com>
Subject: sorting a delimited string by second field
Message-Id: <7q8fnq$lq5$1@uranium.btinternet.com>
Hi,
I have an array of delimited strings, which I would like to sort by the
second field. The data looks something like this:
17|Afghanistan
18|Albania
19|Algeria
20|Andorra
21|Angola
22|Antigua
23|Argentina
24|Armenia
25|Aruba
26|Australia
27|Austria (...etc...)
The numeric field does not necessarily contain sequential values, and may be
between one and four digits in length.
My question is basically, how can I form an expression to return just the
second part of each record, to include in a sort{} operation?
Thanks,
Andrew
------------------------------
Date: Sat, 28 Aug 1999 12:21:25 +0100
From: Paul <paul@miraclefish.com>
Subject: SQL-server from Perl (was Re: Japanese Girl Needs Help.)
Message-Id: <37C7C635.69051911@miraclefish.com>
Eric Turner wrote:
>
> QuestionExchange wrote:
> >
> > As a database you can use all you want:
> > Postgres, MySQL, Access, SQL-server ...
>
> Is it really possible to access a SQL-server database from a Linux box
> via perl? Can you point me to some info/examples?
>
Yes, very. Try DBI/DBD::ODBC on CPAN.
--
paul@miraclefish.com
------------------------------
Date: Sat, 28 Aug 1999 10:54:06 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: The extent of double-quotish interpolation
Message-Id: <37c8b93e.1284311@news.skynet.be>
Rick Delaney wrote:
>I'd prefer to see slices of null lists return null lists
>and slices of lists of undefs return lists of undefs.
Me too. Let me remark that the behaviour of splice() is what you and I
would want of slices too.
@ary = (1..25);
@slice = splice @ary, 20, 10;
print scalar @slice;
This prints "5", not "10".
--
Bart.
------------------------------
Date: Sat, 28 Aug 1999 07:48:35 -0400
From: Edward Sumerfield <esumerfd@poboxes.com>
Subject: Re: UNIX or NT ?
Message-Id: <37C7CC93.9966DB14@poboxes.com>
use Config;
print $Config{'osname'}
Brandon Metcalf wrote:
> The variable $^O contains the os.
>
> Brandon
>
> Mandeep Singh wrote:
>
> > Is there a way to know which operating system you are on from inside
> > perl script?
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 V9 Issue 667
*************************************
