[12916] in Perl-Users-Digest
Perl-Users Digest, Issue: 326 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 1 17:07:14 1999
Date: Sun, 1 Aug 1999 14:05:08 -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 Sun, 1 Aug 1999 Volume: 9 Number: 326
Today's topics:
Re: [Summary] Korn Shell or Perl? (Michael Wang)
Re: Announcement: "CRAP" <jeffp@crusoe.net>
cgi-lib.pl / File Upload <Andrew.Holman@mci.com>
Re: Change relative links to absolute (brian d foy)
Re: compare two flat data files ? (Abigail)
Re: Confusion with the Schwartzian Transform used in so (Larry Rosler)
Re: Confusion with the Schwartzian Transform used in so (Anno Siegel)
Re: Confusion with the Schwartzian Transform used in so (brian d foy)
external file access (PerlLinux)
Re: Flock <tchrist@mox.perl.com>
help needed - database driven html pages <jesper@dreamer.dk>
Re: How do I set up samba (Abigail)
Re: How to compare two files and get the differences ? (Michael Wang)
Re: How to compare two files and get the differences ? (Abigail)
Re: Looking for Perl4 for Unix (Benjamin Franz)
Re: Looking for Perl4 for Unix <gellyfish@gellyfish.com>
Newbie Simple Question (NiteFever)
Re: Newbie Simple Question (Michael Wang)
Re: Newbie Simple Question (Abigail)
Re: NEWSFLASH: Supremes rule anti-advert-ware illegal (Reini Urban)
Re: Perl with oracle questions ... (Asher)
Q: perl driver for window nt and oracle 8 ? tedchyn@yahoo.com
Question about formatting/(CR/LF) in PERL <psikat@yahoo.com>
Re: Question about formatting/(CR/LF) in PERL <uri@sysarch.com>
Re: Send a mail with multiple recepients (Michael Wang)
Re: system function broken - ActivePerl - build 517 or (Reini Urban)
Re: system function broken - ActivePerl - build 517 or (Anno Siegel)
Re: system function broken - ActivePerl - build 517 or (Malcolm Hoar)
VERY,VERY URGENT: I need help with the Net::FTP module <b.schindlholzer@tirol.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 Aug 1999 20:17:10 GMT
From: mwang@tech.cicg.ml.com (Michael Wang)
Subject: Re: [Summary] Korn Shell or Perl?
Message-Id: <7o2a06$kau$1@news.ml.com>
brian d foy <brian@pm.org> wrote:
>
> i told you to use tie(), but you don't seem to have
>done any homework on what tie() does. you should have seen that it
>allows you to abstract the notions of FETCHing and STOREing a value.
>this allows you to abstract your stream. the perltie man page will
>probably not be read by you though.
I think I know what tie() does.
It declares a variable a class object, and then you use the
class member function such as FETCH and STORE on the object.
But I did not figure out how this will help to solve my problem.
So I solved the problem in other way (following a suggestion
through private email).
Instead of collecting all the io stream, and put them "together",
then pipe to a common block, which presents a memory overflow
problem when applied to large amount of data in Perl, I let each
of io streams pipe to the common block as I collect them.
The difference between Perl and Shell, as I see it, in dealing with
this kind of problem, is that in Perl I have to handle this manually
with the code, in Shell it is handled by the interpreter.
In dealing it manually, it requires that I repeat the common block
in the code, or use a function if the common block is large, which
is less elegant. But it seems a simpler solution than using tie()
which I have yet to figure out.
The two approaches are illusted below with two pieces of
Perl code and one piece of shell code:
"Collect", and then "Pipe" in Perl. "out of memory" problem.
my @hits;
if ($opt_d eq "all") {
for ( split /,/, $opt_b ) {
if (/local/) {
push @hits, keys %beeper_byname;
} elsif (/yp/) {
push @hits, map /(\w+)/, `ypcat -k beeper.byname`;
}
}
} else {
@hits = split /,\s*/, $opt_d;
}
for (@hits) {
next if /YP_/;
print "$_\n";
}
"Pipe" while "collecting" in Perl. This is handled by the code.
No "out of memory" problem.
if ($opt_d eq "all") {
for ( split /,/, $opt_b ) {
if (/local/) {
for (keys %beeper_byname) {
next if /YP_/;
print "$_\n";
}
} elsif (/yp/) {
open(FH, "ypcat -k beeper.byname |") or die;
while (<FH>) {
next if /YP_/;
print "$_\n";
}
close(FH) or die;
}
}
} else {
for (split /,\s*/, $opt_d) {
next if /YP_/;
print "$_\n";
}
}
"Pipe" while "collecting", this is handled by Shell. No "out of memory"
problem.
if [[ $opt_d == "all" ]]; then
for i in ${opt_b//,/ /}
do
if [[ $i == "local" ]]; then
for k in ${!beeper_byname[@]}; do echo $k; done
elif [[ $i == "yp" ]]; then
ypcat -k beeper.byname
fi
done
else
echo ${opt_d//,/ /}
fi | while read j
do
j=${j%% *}
case $j in
*YP_*) ;;
*) echo $j;;
esac
done
--
Michael Wang
http://www.mindspring.com/~mwang
------------------------------
Date: Sun, 1 Aug 1999 15:06:58 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Announcement: "CRAP"
Message-Id: <Pine.GSO.4.10.9908011503090.28810-100000@crusoe.crusoe.net>
> do you indicate that something wrong with "(localtime)[5] + 1900"?
> That is what I use in my code.
>
> Jeff "(localtime)[5] + 1900" Pinyan
Nonono! Rather, that is the CORRECT way to get the year out of the
localtime() function (or one of many correct ways).
Matt Wright has been seen doing this:
# this code is almost verbatim
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
# note: he doesn't USE all those variables,
# but he assigns them. go figure!
$mon++;
print "The date is $mon/$mday/19$year";
As you can very well imagine, next year, that will print 19100.
Other people try to get around it like this:
if ($year >= 70){ $year = "19$year"; }
else { $year = "20$year" }
Sigh...
CRAP is going to make sure EVERY reader of the CRAP articles understands
the problems with programs that do that.
http://www.pobox.com/~japhy/perl/crap
--
jeff pinyan japhy@pobox.com
japhy's little hole in the (fire) wall: http://www.pobox.com/~japhy
perl stuff japhy+perl@pobox.com
japhy's perl supposit^Wrepository: http://www.pobox.com/~japhy/perl
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN
------------------------------
Date: Sun, 01 Aug 1999 20:14:17 GMT
From: "Andrew Holman" <Andrew.Holman@mci.com>
Subject: cgi-lib.pl / File Upload
Message-Id: <tU1p3.71$DV2.17616@PM01NEWS>
I am using the example off of the cgi-lib.pl page,
for the file upload scripts. However, I want to verify that
someone chose a file. On the html it shows the filename text box is named
upfile, and the notes text box is named notes. However when I try and do
error checking
to make sure that someone entered a filename in the upfile text box it does
not work.
I have tried
if ($in{'upfile'} eq "" ) {
print "No file chosen!";
} else
do whatever ....
}
this does not work. When I have an if elsif else statement it totally skips
the the first
part where if the filename is "". This is what I get when I print @in to the
page....
Content-Disposition: form-data; name="upfile"; filename="C:\Program
Files\Outlook Express\msoe.txt" Content-Type: text/plain
Content-Disposition: form-data; name="note" Content-Disposition: form-data;
I am looking for a way to check that filename="" up there. If it is blank
then print a message then if it is ok then check note and make sure it is
ok, then continue on. I have tried just about everything I could think of
and it didn't work. Any help in helping me determine how the check and see
if filename="" would be greatly appreciated.
Thanks,
Andy
--
Andrew J. Holman
MCI WorldCom
Engineer III
DaimlerChrysler NMC
------------------------------
Date: Sun, 01 Aug 1999 14:43:18 -0400
From: brian@pm.org (brian d foy)
Subject: Re: Change relative links to absolute
Message-Id: <brian-0108991443180001@1cust187.tnt3.durham.nc.da.uu.net>
In article <7o1r4v$1is$1@nnrp1.deja.com>, mark@bstar.net wrote:
>I've got a variable that holds one whole HTML page in it.
>I'd like to convert all the relative links in it to absolute links (but
>not mess with the already absolute links)
the URI::URL module has this functionality.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 1 Aug 1999 15:28:23 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: compare two flat data files ?
Message-Id: <slrn7q9be6.poh.abigail@alexandra.delanet.com>
Yeong Mo/Director Hana co. (factory@factory.co.kr) wrote on MMCLXI
September MCMXCIII in <URL:news:7o1s11$stm$1@news1.kornet.net>:
?? I want to compare two flat data files for just second array at each line.
Stop asking the same question over and over again, and start reading the FAQ!
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: Sun, 1 Aug 1999 11:05:05 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Confusion with the Schwartzian Transform used in sorting
Message-Id: <MPG.120e2c2bc92de9ff989d8a@nntp.hpl.hp.com>
In article <7o1uia$6a2$1@lublin.zrz.tu-berlin.de> on 1 Aug 1999 17:02:02
-0000, Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> says...
> meteorman <twade@nobmispam.net> wrote in comp.lang.perl.misc:
...
> ># file needing sorted alphabetically
> >Iron Mountain,spot1.html
> >Badger Butte,spot2.html
> >Anthony Lakes,spot3.html
>
> With these data you don't need a Schwartzian. Just sort the strings
> as they come.
That is just happenstance. But if we added another line, for example:
Badger Butte Lake,spot4.html
this sort would fail, because 'comma' sorts lexicographically higher
than 'space'. Unless the field separator is guaranteed to sort below
any character in the data, the fields *must* be separated for sorting.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 1 Aug 1999 18:15:49 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Confusion with the Schwartzian Transform used in sorting
Message-Id: <7o22sl$6g6$1@lublin.zrz.tu-berlin.de>
Larry Rosler <lr@hpl.hp.com> wrote in comp.lang.perl.misc:
>In article <7o1uia$6a2$1@lublin.zrz.tu-berlin.de> on 1 Aug 1999 17:02:02
>-0000, Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> says...
>> meteorman <twade@nobmispam.net> wrote in comp.lang.perl.misc:
>...
>> ># file needing sorted alphabetically
>> >Iron Mountain,spot1.html
>> >Badger Butte,spot2.html
>> >Anthony Lakes,spot3.html
>>
>> With these data you don't need a Schwartzian. Just sort the strings
>> as they come.
>
>That is just happenstance. But if we added another line, for example:
>
> Badger Butte Lake,spot4.html
>
>this sort would fail, because 'comma' sorts lexicographically higher
>than 'space'. Unless the field separator is guaranteed to sort below
>any character in the data, the fields *must* be separated for sorting.
Yes, you're right. I was just thinking... well, nothing in particular
I guess. Thanks for the correction.
Anno
------------------------------
Date: Sun, 01 Aug 1999 14:42:01 -0400
From: brian@pm.org (brian d foy)
Subject: Re: Confusion with the Schwartzian Transform used in sorting
Message-Id: <brian-0108991442020001@1cust187.tnt3.durham.nc.da.uu.net>
In article <MPG.120e2c2bc92de9ff989d8a@nntp.hpl.hp.com>, lr@hpl.hp.com
(Larry Rosler) wrote:
>In article <7o1uia$6a2$1@lublin.zrz.tu-berlin.de> on 1 Aug 1999 17:02:02
>-0000, Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> says...
>> meteorman <twade@nobmispam.net> wrote in comp.lang.perl.misc:
>...
>> ># file needing sorted alphabetically
>> >Iron Mountain,spot1.html
>> >Badger Butte,spot2.html
>> >Anthony Lakes,spot3.html
>>
>> With these data you don't need a Schwartzian. Just sort the strings
>> as they come.
>
>That is just happenstance. But if we added another line, for example:
>
> Badger Butte Lake,spot4.html
>
>this sort would fail, because 'comma' sorts lexicographically higher
>than 'space'. Unless the field separator is guaranteed to sort below
>any character in the data, the fields *must* be separated for sorting.
you don't really need to separate the fields. you could write
your own sort subroutine in which the field separator sorts higher
than everything. that's not a better solution than separating the
fields though. ;)
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 01 Aug 1999 20:27:41 GMT
From: perllinux@aol.com (PerlLinux)
Subject: external file access
Message-Id: <19990801162741.18763.00004448@ng-ba1.aol.com>
I am trying to write a program module that opens an external file, reads all
entried in that file, until there are no more to read. from there, i want a
user to enter input and want to check the user's input against what i have read
in. if what the user has entered does not match anything i have read in, i
want the list of entries read in from the external file to print. then i want
the user to be prompted to enter another value. i want this to continue until
the user enters a valid choice. i have tried doing this a few different way,
but i whatever i do i cannot seem to get to work. any help would be
appreciated.
fwi: this is perl script that is running in a unix shell...it is not a cgi
script.
Thank you,
PerlLinux@aol.com
------------------------------
Date: 1 Aug 1999 12:48:07 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Flock
Message-Id: <37a49667@cs.colorado.edu>
In comp.lang.perl.misc,
ltcdrmikej@aol.comno.spam (Michael James OConnor) writes:
:Had a few questions about flock.
:
:1) Isn't a shared lock the same as no lock at all? Is there some way of
:itemizing what processes can have access to a file with a shared lock?
A shared lock is granted when there are no exclusive lockers.
An exclusive lock is granted when there are no lockers.
:2) If, for some reason, a file is locked with flock then the next flock call
:fails, resulting in a fallback to a fcntl call, would that mean that both
:processes could access that file?
No, I don't think that it works that way, but you haven't given
enough detail, or I haven't gotten enough sleep, to understand
you.
:From what I've gathered, those two types of
:locks are oblivious to each other.
Yes, no, maybe, and that depends.
What matters here is what perl's flock function is calling.
In many cases, that's your native flock(2) function. But
it depends.
On Linux, flock and fcntl locks can see each other just fine,
although flock has saner semantics.
:3) Does anyone have a list of which of the three locking types are available
:for what operating systems? (I especially need lockf documentation.)
lockf is virtually always merely a wrapper around fcntl. I really
think you probably want flock nearly always. See the examples
from PCB for using flock, fcntl, and roll-your-own.
:4) I have a list of peculiarities for each specific locking type, but
:I'm always looking for more. Also, any peculiarities with operating
:system support would be appreciated.
Search for postings of mine that mention both flock and fcntl in the
same article, and don't restrict yourself to this newsgroup. I've
posted about this.
--tom
--
Even if you do learn to speak correct English, whom are you going to
speak it to?
--Clarence Darrow
------------------------------
Date: Sun, 1 Aug 1999 22:53:18 +0200
From: "Jesper Lindhardt" <jesper@dreamer.dk>
Subject: help needed - database driven html pages
Message-Id: <Qp2p3.217$M48.641197124@blade.mobilixnet.dk>
Hi everyone,
I am working on the site cops.dk (http://www.cops.dk), which is an online
reference to differenet law enforcement related things.
Recently I got the new idea of expanding it into a newsbulletin, where I'll
post news regarding law enforcement.
The way I would like to do it, is to build a database in MS Access, and then
use that file to build the different HTML pages - so that I only need
templates and then grap the text from my database file.
Also, I would like to make a 'related news' box, where I have links to
related topics, again based on information in the database.
I can build up the database myself (and with the help of a friend I got),
but I'm not very strong with Perl (actually I just got my first book about
it), so I would really appreciate any help I could get there - Either here
or by Email .
Thanks,
Jesper
--
http://www.cops.dk
------------------------------
Date: 1 Aug 1999 15:30:23 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How do I set up samba
Message-Id: <slrn7q9bhu.poh.abigail@alexandra.delanet.com>
Romiko (rvdd@iafrica.com) wrote on MMCLXI September MCMXCIII in
<URL:news:7o1fbs$21pi$1@nnrp01.ops.uunet.co.za>:
@@ I need NT to access Linux Redhat and vica verca, how do I set it up.
Hire someone with a clue.
What the hell has this to do with Perl?
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: 1 Aug 1999 19:04:44 GMT
From: mwang@tech.cicg.ml.com (Michael Wang)
Subject: Re: How to compare two files and get the differences ?
Message-Id: <7o25oc$jfb$1@news.ml.com>
Yeong Mo/Director Hana co. <factory@factory.co.kr> wrote:
>aaa.txt has the following lines;
>f1, 123, .........
>f2, 222, .........
>f3, 5555, .......
>f4, xxx, ........
>....................
>
>and bbb.txt has the following lines;
>f2, 222, ...........
>f3, 5555, .........
>......................
I would just go with
system("diff aaa.txt bbb.txt"); or
`diff "aaa.txt" "bbb.text"`
It is diff's job.
--
Michael Wang
http://www.mindspring.com/~mwang
------------------------------
Date: 1 Aug 1999 15:19:57 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to compare two files and get the differences ?
Message-Id: <slrn7q9aub.poh.abigail@alexandra.delanet.com>
Yeong Mo/Director Hana co. (factory@factory.co.kr) wrote on MMCLXI
September MCMXCIII in <URL:news:7o1nhu$obh$1@news1.kornet.net>:
== Let's guess
== aaa.txt has the following lines;
Stealth emails are rude. Don't do that.
== There is a line including "123" or "xxx"($category) at aaa.txt, but there is
== no line including "123" or "xxx" at bbb.txt
RTFFAQ.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\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: Sun, 01 Aug 1999 18:12:20 GMT
From: snowhare@long-lake.nihongo.org (Benjamin Franz)
Subject: Re: Looking for Perl4 for Unix
Message-Id: <860p3.63$wh2.10440@typhoon01.swbell.net>
In article <se41o7.ke2.ln@magna.metronet.com>,
Tad McClellan <tadmc@metronet.com> wrote:
>MuXXie (handyman@asis.com) wrote:
>
>: I thought it would be easy to find.
>
>
> Programs that have been superceded for a few *years* are often
> not easy to find.
>
> Can you buy Windows 3.1 nowadays?
<tweak>
<URL:http://search.ebay.com/cgi-bin/texis/ebay/results.html?query=windows+3.1&ht=1&maxRecordsReturned=300&maxRecordsPerPage=50&SortProperty=MetaEndSort>
"Yes." The median price appears to be between $5 US and $8 US for
unopened original install disks.
>:)
</tweak>
>: But wow...what a chore... I can't even find it.
>
>
> Good.
>
> Look for Perl 5 instead.
>
>
>: Isn't it free? :)
>
>
> Yes, but nobody wants it.
>
Hmmm...I've got some 4 year old Slackware CDROMs around. They
have the 4.036 source on them somewhere. I wonder what
I could get for it on EBay. >:)
--
Benjamin Franz
------------------------------
Date: 1 Aug 1999 19:07:48 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Looking for Perl4 for Unix
Message-Id: <7o25u4$36p$1@gellyfish.btinternet.com>
On Sat, 31 Jul 1999 18:42:42 -0800 MuXXie wrote:
> I thought it would be easy to find.
>
> My ISP told me I can use it in my directory on their server
> if I get it and put it there myself.
>
> But wow...what a chore... I can't even find it.
>
> Isn't it free? :)
>
Sorry why was it that you wanted to use perl 4 ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 01 Aug 1999 19:19:43 GMT
From: abc@abc.net (NiteFever)
Subject: Newbie Simple Question
Message-Id: <37a4aa11.14019301@news5.bellatlantic.net>
How do I pass file name into my perl script?
Example..
someperlfile file1 file2
Where "someperfile" is the name of the perl script and "file1" &
"file2" are the files I want to pass to "someperfile".
Any help would be great...thanks in advance
------------------------------
Date: 1 Aug 1999 20:20:57 GMT
From: mwang@tech.cicg.ml.com (Michael Wang)
Subject: Re: Newbie Simple Question
Message-Id: <7o2a79$kb8$1@news.ml.com>
NiteFever <abc@abc.net> wrote:
>How do I pass file name into my perl script?
>Example..
>someperlfile file1 file2
via @ARGV.
--
Michael Wang
http://www.mindspring.com/~mwang
------------------------------
Date: 1 Aug 1999 15:35:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Newbie Simple Question
Message-Id: <slrn7q9bsd.poh.abigail@alexandra.delanet.com>
NiteFever (abc@abc.net) wrote on MMCLXI September MCMXCIII in
<URL:news:37a4aa11.14019301@news5.bellatlantic.net>:
-- How do I pass file name into my perl script?
--
-- Example..
--
-- someperlfile file1 file2
--
-- Where "someperfile" is the name of the perl script and "file1" &
-- "file2" are the files I want to pass to "someperfile".
You do it just as you typed above..... Why didn't you just try?
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== 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: Sun, 01 Aug 1999 18:14:28 GMT
From: rurban@xarch.tu-graz.ac.at (Reini Urban)
Subject: Re: NEWSFLASH: Supremes rule anti-advert-ware illegal
Message-Id: <37a48e03.290822470@judy.x-ray.local>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> March 32, 2002
...
>Furthermore, the text-based web browser, Lynx, is now illegal to use
>except on your own sites,...
I especially liked the lynx section at most :)
--
Reini
------------------------------
Date: Sun, 01 Aug 1999 09:58:54 GMT
From: asher@localhost.localdomain (Asher)
Subject: Re: Perl with oracle questions ...
Message-Id: <slrn7q85d1.vd.asher@localhost.localdomain>
On Thu, 29 Jul 1999 12:07:28 -0700, Praveen Mohan <praveenm@cisco.com> wrote:
>1> Which Oracle 8.0 libraries must be available for a perl script to work?
>
>2> Are they already linked into the oraperl module or are they shared?
DBD::Oracle is probably a better choice than OraPerl. It can make it
easier to move your application to another RDBMS if the need arises.
See:
http://www.cpan.org/authors/id/TIMB/DBD-Oracle-1.03.readme
------------------------------
Date: Sun, 01 Aug 1999 19:58:59 GMT
From: tedchyn@yahoo.com
Subject: Q: perl driver for window nt and oracle 8 ?
Message-Id: <7o28u0$agl$1@nnrp1.deja.com>
Sir, Is there perl drivers (dbd,dbi) for window nt and oracle 8 out
somewhere ?
Thanks in advance Ted Chyn(tedchyn@yahoo.com)
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Sun, 1 Aug 1999 16:07:23 -0700
From: "Psi-kat" <psikat@yahoo.com>
Subject: Question about formatting/(CR/LF) in PERL
Message-Id: <7o29q6$33h$1@news.auaracom.net>
Hi. Alright, here's a brief synopsis of my problem. I've got a script
that's fetching files from the net, using the IO::Socket package. Now, it
works fine, except when it comes to getting an image file. When I read the
file requested and output it to a file, there's an extra chr(13) for every
chr(10) in the file. I've tried cutting off the last character in the line
and readding it (since it's always a chr(10)), and always get a
chr(10).chr(13) instead of the chr(10). Is this a bug? I mean, try this
program here:
print chr(10);
and redirect the output to a file, and look at that file in your most
trusted Hex editor and you'll find that it's actually 0A0D (or
chr(10).chr(13)) even though it's only supposed to be an 0A. I'm using
Winblows 95...so could this just be a Microsoft thing? Is there any ways
around this? If not, how do I retrieve a file using HTTP on the net without
changing its format at all and without using FTP? Thanks for any help that
could be provided :)
------------------------------
Date: 01 Aug 1999 16:48:49 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Question about formatting/(CR/LF) in PERL
Message-Id: <x74sijmdla.fsf@home.sysarch.com>
>>>>> "P" == Psi-kat <psikat@yahoo.com> writes:
P> Hi. Alright, here's a brief synopsis of my problem. I've got a
P> script that's fetching files from the net, using the IO::Socket
P> package. Now, it works fine, except when it comes to getting an
P> image file. When I read the file requested and output it to a
P> file, there's an extra chr(13) for every chr(10) in the file. I've
P> tried cutting off the last character in the line and readding it
P> (since it's always a chr(10)), and always get a chr(10).chr(13)
P> instead of the chr(10). Is this a bug? I mean, try this program
P> here:
P> changing its format at all and without using FTP? Thanks for any
P> help that could be provided :)
read up on binmode in perl and binary/text modes in ftp.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 1 Aug 1999 18:54:14 GMT
From: mwang@tech.cicg.ml.com (Michael Wang)
Subject: Re: Send a mail with multiple recepients
Message-Id: <7o254m$ja3$1@news.ml.com>
In article <7o1hrv$rvg$1@nnrp1.deja.com>, <marcza@my-deja.com> wrote:
>If I want to send a mail from perl with several (more than 1)
>recepients. How do I specify it:
>To: xxx@xxx.xxx yyy@yyy.yyy ...
>To: xxx@xxx.xxx, yyy@yyy.yyy, ...
>Read: What's the delimiter between the set of recepients ?
It is
$realname <$email>, $realname <$email>, ...
Sample code:
push(@email, "$realname <$email>");
...
open(SENDMAIL, "|/usr/lib/sendmail -oi -t")
or die ("Can't fork for sendmail: $!\n");
print(SENDMAIL "To: ", join(', ', @email), "\n");
print(SENDMAIL "$message\n");
close(SENDMAIL) or printout(4, "sendmail didn't close nicely\n");
--
Michael Wang
http://www.mindspring.com/~mwang
------------------------------
Date: Sun, 01 Aug 1999 18:07:17 GMT
From: rurban@xarch.tu-graz.ac.at (Reini Urban)
Subject: Re: system function broken - ActivePerl - build 517 or 518
Message-Id: <37a4876c.289135164@judy.x-ray.local>
mike@zelea.com (Michael Allan) wrote:
>> Try using this syntax and see if it helps:
>> print system '"CALC.EXE"';
even this will work
perl -e "system '\"calc\"'"
but all standard perl's I use (5.00502 and 5.00558, AP's 518 is 5.00503)
do accept
perl -e "system 'calc'"
the offending parts in AP's pp_sys.c and win32.c look fine to me. hmm.
--
Reini
------------------------------
Date: 1 Aug 1999 18:18:56 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: system function broken - ActivePerl - build 517 or 518
Message-Id: <7o232g$6he$1@lublin.zrz.tu-berlin.de>
Reini Urban <rurban@sbox.tu-graz.ac.at> wrote in comp.lang.perl.misc:
>mike@zelea.com (Michael Allan) wrote:
>>> Try using this syntax and see if it helps:
>>> print system '"CALC.EXE"';
>
>even this will work
>perl -e "system '\"calc\"'"
>
>but all standard perl's I use (5.00502 and 5.00558, AP's 518 is 5.00503)
>do accept
>perl -e "system 'calc'"
That is not so much a question of what Perl accepts but what the
shell does to the quotes.
Anno
------------------------------
Date: Sun, 01 Aug 1999 19:45:14 GMT
From: malch@malch.com (Malcolm Hoar)
Subject: Re: system function broken - ActivePerl - build 517 or 518
Message-Id: <7o284a$aa416k_002@nntp1.best.com>
In article <7o232g$6he$1@lublin.zrz.tu-berlin.de>, anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>>but all standard perl's I use (5.00502 and 5.00558, AP's 518 is 5.00503)
>>do accept
>>perl -e "system 'calc'"
>
>That is not so much a question of what Perl accepts but what the
>shell does to the quotes.
Bingo! Yes, and not just the quotes either. There are
significant differences using system() with ActivePerl on
Win NT compared to Win 95/98. i.e. the default CMD.EXE and
COMMAND.COM shells respectively. With COMMAND.COM you may
find that forwardslash and backslash in the command pathname
behave differently. There would appear to be other issues
as well; COMMAND.COM cannot redirect STDERR. Others seem
too bizare to even characterize.
Quoting alone is a major mess especially if one needs to
handle long file names, embedded spaces etc.
I'd be interested to hear any views on alternative strategies
for cross-platform compatibitity with system(). For example:
1. Using Open2() and/or Open3() versus system().
2. Using an alternate shell on Windoze systems. Cygwin bash
for example?
Some may feel this discussion belongs in a windows newsgroup
but, I for one, would prefer to see the Perl community take
a lead in order to maintain the tremendous track-record in
cross platform compatibility. Nevertheless, e-mail would be
welcome from anyone who feels that is more appropriate.
--
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Malcolm Hoar "The more I practice, the luckier I get". |
| malch@malch.com Gary Player. |
| http://www.malch.com/ Shpx gur PQN. |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Sun, 01 Aug 1999 21:27:52 +0200
From: bernie <b.schindlholzer@tirol.com>
Subject: VERY,VERY URGENT: I need help with the Net::FTP module and ActiveStates Perl!!!
Message-Id: <37A49FB8.E894712B@tirol.com>
Hello
I have downloaded the latest libnet-modules because i needed the perl
modules for FTP (Net::FTP)
But it seems that i'm not able to get thoose modules running.
I know how to program it and i also have some examples that use the
Net::FTP module but none of them works.
What do I have to do in WinNT so that i can use this moduls in my
scripts??
A short description would be cool.
I'm looking for your answers!!
Regards
bernie
------------------------------
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". 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 V9 Issue 326
*************************************
