[13267] in Perl-Users-Digest
Perl-Users Digest, Issue: 677 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 30 06:07:16 1999
Date: Mon, 30 Aug 1999 03:05:09 -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 Mon, 30 Aug 1999 Volume: 9 Number: 677
Today's topics:
Re: Beginner's Question: testing array membership (Larry Rosler)
Re: Binary to Text (Larry Rosler)
Re: calling another perl script <jkline@one.net>
database problem on BSD <d.khan@abm.at>
File listing <hult.holmstrom@swipnet.se>
Re: identifying an empty line (Matthew Bafford)
ksh2perl?? <mark.stellaard@knoware.nl>
Re: ksh2perl?? <rra@stanford.edu>
Re: Need to get number of days in a specific month <kmsproule@worldnet.att.net>
Re: Need to get number of days in a specific month <johnohara@compuserve.com>
parsing through constant multiline input <cfadling@ix.netcom.com>
Re: Perl Y2K Bugs on the Internet (Larry Rosler)
Re: Perl Y2K Bugs on the Internet <mambuhl@earthlink.net>
Re: Question about sendmail (Malcolm Ray)
Random number (Glenn Paulsen)
Re: Ready to get to work but... <wyzelli@yahoo.com>
Re: Ready to get to work but... (Abigail)
Re: Ready to get to work but... <wyzelli@yahoo.com>
Redirecting STDERR to STDOUT (on NT) (Paulius)
Re: Sockets and Threads <jkline@one.net>
stack stuffing <bstrap@icsi.net>
stat function (Dallas Kidd)
Re: stat function (Abigail)
test tester@test.com
Un-escaping html form inputs <aggie@linuxcountry.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 29 Aug 1999 23:23:26 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Beginner's Question: testing array membership
Message-Id: <MPG.1233c3332da405ea989ed1@nntp.hpl.hp.com>
In article <BHoy3.8$3%6.180@news1.online.no> on Mon, 30 Aug 1999
07:33:41 +0200, Trond Michelsen <mike@crusaders.no> says...
> Gregory Firth <gfirth@worldnet.att.net> wrote in message
> news:37ca0f8a.45856888@news3.newscene.com...
> > Suppose I have an array: @array = qw(word1 word2 word3 word4 word5);
> >
> > What is the simplest (or the most elegant) method for testing if a
> > variable is a member of @array? I could use a foreach and interate
> > though the list, but I suspect there is a simpler method such as
> >
> > if ($array{"word1"}) { # this doesn't work of course
>
> This would have worked if you had used a hash, but if you want to use an
> array you should take a look at the grep function:
>
> if (grep {$_ eq 'word1'} @array) {
> do_your_stuff();
> }
Far better, Gregory should take a look at perlfaq4: "How can I tell
whether a list or array contains a certain element?", which includes the
following words of wisdom:
Please do not use
$is_there = grep $_ eq $whatever, @array;
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sun, 29 Aug 1999 23:16:04 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Binary to Text
Message-Id: <MPG.1233c178d4532e3c989ed0@nntp.hpl.hp.com>
In article <37C9F222.8F5E12BD@rochester.rr.com> on Sun, 29 Aug 1999
22:53:23 -0400, Bob Walton <bwalton@rochester.rr.com> says...
> hamish wrote:
>
> > I am new to Perl and am trying to read a binary file and convert it to text.
...
> Hamish, your task of "converting from binary to text" leaves
> a lot of room for interpretation. If the interpretation you want is
> hexadecimal, try:
>
> map {printf OUTFILE "%02x",ord($_)} split(//,$buffer);
Heavens! There are four Perl functions in that statement, and it gives
the correct results, so it is valid Perl, but it isn't The Way To Do It
nevertheless.
Benchmark: timing 256 iterations of Map0, Map1, Unpack...
Map0: 50 wallclock secs (50.03 usr + 0.00 sys = 50.03 CPU)
Map1: 38 wallclock secs (37.23 usr + 0.00 sys = 37.23 CPU)
Unpack: 1 wallclock secs ( 0.77 usr + 0.00 sys = 0.77 CPU)
#!/usr/local/bin/perl -w
use strict;
use Benchmark;
my $buffer = 'A' x 8192;
timethese(1 << (shift || 0), {
Map0 => sub { map {sprintf '%02x', ord} split //, $buffer },
Map1 => sub {
sprintf '%02x' x length $buffer, map ord, split //, $buffer },
Unpack => sub { unpack 'H*' => $buffer },
});
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 30 Aug 1999 03:27:54 -0400
From: Joe Kline <jkline@one.net>
To: b chung <bchung@ci.south-el-monte.ca.us>
Subject: Re: calling another perl script
Message-Id: <37CA327A.6E9C3C14@one.net>
< posted and cc'd to Betty >
b chung wrote:
>
> Hi,
>
> How do I call another perl script with parameter inside a perl script
> and return the result or send the return to stdeout.
>
> Not using require or use command.
I tried finding something in the FAQ that jumps out at me, probably
because I've been enjoying Tiberian Sun way to late into the night.
Any how, back to the topic at hand.
There are a couple of basic methods to execute system commands:
1) using backticks ``
2) system
3) open pipes
I'll just cover 1 & 2.
If you want to capture the output of a system command, use backticks.
$output = `some_command arg1 arg2`;
@output = `some_command arg1 arg2`;
In scalar context all the the output gets jammed together, newlines
and all. In list context each line gets put into an element in the
list.
If you just want to execute the command and not really care about the
output, system is the way to go.
system("some_command arg1 arg2");
system("some_command", "arg1", "arg2");
Depending upon how you do system, changes out the shell interprets the
arguments. That which I leave as an exercise to the reader.
Hint: perldoc -f system
You might want to also look at open pipes as well.
joe
-----------== 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: Mon, 30 Aug 1999 10:07:54 +0200
From: "Daniel Khan" <d.khan@abm.at>
Subject: database problem on BSD
Message-Id: <7qde4h$4mr$1@news.netway.at>
i create a database with dbmopen - then i create keys and get them with
keys(%DB) - now the foreach loop doesn't work on it - it's like there are no
keys - this thing works on all other servers except the one running BSD with
SSL.
could anyone help?
------------------------------
Date: Mon, 30 Aug 1999 11:56:48 +0200
From: "Magnus Hult" <hult.holmstrom@swipnet.se>
Subject: File listing
Message-Id: <kzsy3.4142$fi.7940@nntpserver.swip.net>
Hello,
I'd like to get all files in a directory matching a specific criteria, ex
"*.txt", and maybe load them into an array, so that I can for example have a
drop down combo with all those files in it. How do I do?
Thanks,
Magnus Hult
hult.holmstrom@swipnet.se
------------------------------
Date: Mon, 30 Aug 1999 09:40:28 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: identifying an empty line
Message-Id: <slrn7skiok.n5.*@dragons.duesouth.net>
Once upon a time (Sun, 29 Aug 1999 18:30:48 -0700), Makarand Kulkarni
<makkulka@cisco.com> was attempting to figure out Ilya's new Perl regex
features, and accidently sent the following to comp.lang.perl.misc:
: [ Jimtaylor5 wrote:
:
: > Can anyone tell me how I could write code to identify an empty line (a line
: > with no text on it).
:
: The regexp that matches an empty line is // or /^$/
// has a documented behavior that is NOT matching an empty string.
And, Jimtaylor5 was not exactly clear, but maybe one of these is what he
wants:
!length($a)
!($a =~ /\S/)
$a =~ /^\s*$/
$a =~ /^$/
!(() = split /./, $a)
HTH,
--Matthew
------------------------------
Date: Mon, 30 Aug 1999 10:23:59 +0200
From: "Mark Stellaard" <mark.stellaard@knoware.nl>
Subject: ksh2perl??
Message-Id: <7qdior$p15$1@tasmania.dev.ict.nl>
Hi,
Does anybody know if there are conversion programs (scripts)
who translate ksh (shell script) to Perl (script's) ??
Thanx Mark
------------------------------
Date: 30 Aug 1999 01:43:25 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: ksh2perl??
Message-Id: <ylhflhvetu.fsf@windlord.stanford.edu>
Mark Stellaard <mark.stellaard@knoware.nl> writes:
> Does anybody know if there are conversion programs (scripts) who
> translate ksh (shell script) to Perl (script's) ??
: I've heard that there is a shell (bourne or csh) to perl filter, does
: anyone know of this or where I can get it?
Yeah, you filter it through Tom Christiansen. :-)
Larry Wall
:) In general, I'm afraid there isn't an easy way to do this beyond
rewriting the script in Perl. Too much is different in mentality between
shell and Perl. (Well, you could trivially convert it to a Perl script
that runs a bunch of shell commands, but there hardly seems to be a
point in doing that.)
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Sun, 29 Aug 1999 23:42:55 -0700
From: "Kevin M. Sproule" <kmsproule@worldnet.att.net>
Subject: Re: Need to get number of days in a specific month
Message-Id: <7qd937$o8c$1@bgtnsc02.worldnet.att.net>
Kai Henningsen wrote in message <7NpX$Afmw-B@khms.westfalen.de>...
>abigail@delanet.com (Abigail) wrote on 26.08.99 in
<slrn7s9qu5.lhu.abigail@alexandra.delanet.com>:
>
>> Need Help (needhelp@help.com) wrote on MMCLXXXV September MCMXCIII in
>> <URL:news:37c3b6a5.89153780@news.isdn.net.il>:
>> ;; Hi,
>> ;;
>> ;; How can I get the number of days in a specific month?
>> ;; Lets say I need to know how many days are going to be in February
>> ;; 2005.
>>
>> #!/opt/perl/bin/perl -w
>>
>> use strict;
>>
>> sub days {
>> my $l = length (my $m = lc shift);
>> my $y = shift;
>> return 30 if $l == 9 or $l == 5 and $m le reverse $m;
>> return 31 if $l == 6 or $l % 2;
>> return 30 + (($m le reverse $m) ? 1 : 0) if $l == 4;
>> return 29 - !!($y % 4) + !!($y % 100) - !!($y % 400)
>> if reverse ($m) ge
'wall';
>> return 30 + $m =~ y/c//;
>> die "$m is a very funny month!\n";
>> }
>>
>> __END__
>> 28
>>
>
>This program claims that "Februar" has 31 days, and "Dezember" has 30. The
>rest seem to be right, though.
>
>OTOH, if I use numerical months, it's pure nonsense.
>
>Kai
>--
>http://www.westfalen.de/private/khms/
>"... by God I *KNOW* what this network is for, and you can't have it."
> - Russ Allbery (rra@stanford.edu)
Kai,
Try this numeric version:
sub days {
my $m = int(shift);
my $y = int(shift);
die "$m is not a numeric month!\n" if ($m < 1 || $m > 12);
my @days = qw(31 28 31 30 31 30 31 31 30 31 30 31);
return $days[$m-1] if ($m != 2); # all but February
if (($y % 4 == 0 && $y % 100 != 0) || ($y % 400 == 0)) {
return 29; # leap year
}
return 28;
}
Yours truly,
Kevin Sproule
------------------------------
Date: Mon, 30 Aug 1999 02:52:35 -0700
From: "John M. O'Hara" <johnohara@compuserve.com>
Subject: Re: Need to get number of days in a specific month
Message-Id: <Lvsy3.3629$iy.65877@newsr1.san.rr.com>
Kevin M. Sproule wrote:
>Kai,
>Try this numeric version:
>
>sub days {
> my $m = int(shift);
> my $y = int(shift);
>
> die "$m is not a numeric month!\n" if ($m < 1 || $m > 12);
>
> my @days = qw(31 28 31 30 31 30 31 31 30 31 30 31);
>
> return $days[$m-1] if ($m != 2); # all but February
>
> if (($y % 4 == 0 && $y % 100 != 0) || ($y % 400 == 0)) {
> return 29; # leap year
> }
> return 28;
>}
Here's another variant along the same lines, letting timelocal() do the work
for February. More concise (but too costly?)
use Time::Local;
use strict;
sub month_days {
my ($year, $month) = @_;
$year -= 1900;
return (31,0,31,30,31,30,31,31,30,31,30,31)[$month-1] ||
(timelocal(0,0,0,1,2,$year) - timelocal(0,0,0,1,1,$year))/86400;
}
print month_days(2005, 2), "\n"; # 28
print month_days(2008, 2), "\n"; # 29
print month_days(1999, 8), "\n"; # 31
------------------------------
Date: 30 Aug 1999 02:34:27 PDT
From: Christopher Fadling <cfadling@ix.netcom.com>
Subject: parsing through constant multiline input
Message-Id: <37CA4EF4.5C93F0E5@ix.netcom.com>
First time posting so I thought it would be a good idea to just jump
in. I am attempting to login to an application and then parse through
events and send to output, once started the stream of events should
never stop but there will be long pauses in between. Each event varys
in the number of lines from 5-9, and 4 or 5 of them I need to do
processing on, the way I know how to stop processing lines is that there
is a blank line (I think just a carriage return) in between. I pattern
match on each line that I do processing on. The tough thing is this is
only my 3rd perl prog and I am having trouble finding out what will
work, I will figure out the logging later.
Here is what I have, its a skelaton of just the parts I am struggling
with, how to keep parsing through a block of events via an endless loop.
open (INPUT, "(recieving events part) |");
open (OUTFILE, "(temp output file of parsed events")
while <INPUT> { # while reciving input,
should force you into an endless loop?
while <$INPUT != "\n"> { # while its not a blank
line which means its the end of an event?
$in-eventline = $INPUT
if ($in-eventline !~ /pattern/) { #
pattern on first line which I dont need
elseif ($in-eventline =~ /pattern/) { #
pattern on second line
}
elseif ($in-eventline =~ /pattern/) { #
pattern on third line
}
elseif ($in-eventline =~ /pattern/) { #
pattern on forth line
}
elseif ($in-eventline =~ /pattern/) { #
pattern on fifth line
}
elseif ($in-eventline !~
/pattern1|pattern2|pattern3/) { # pattern on the next few lines I dont
need
}
elseif ($in-eventline =~ /pattern/) { # skip
}
elseif ($in-eventline =~ /pattern/ ) { # skip
}
elseif ($in-eventline =~ /pattern/) { #
pattern on last line
}
} #end of if
} #end of while for blank line match, this is the point where I will
send a single line of parsed stuff to outfile
} # end of first while which *hopefully* it never gets to
I look forward to enlightenment of the gurus :)
Chris
------------------------------
Date: Sun, 29 Aug 1999 23:35:53 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <MPG.1233c6255975914d989ed2@nntp.hpl.hp.com>
In article <7q4iq8$fk2$1@nnrp1.deja.com> on Thu, 26 Aug 1999 23:32:25
GMT, finsol@ts.co.nz <finsol@ts.co.nz> says...
<SNIP of the same rant we have been hearing all year. What will this
person do for a living once we have made it past January 1 unscathed?>
The following was posted to Fun With Perl, but surely should be seen by
the members of this newsgroup, who are explicitly maligned by her in an
international general-news medium.
This on CNN:
http://cnn.com/TECH/computing/9908/24/web.y2k.idg/index.html
Y2K "specialist" Joceleyn Amon looked for Y2K problems "on the web";
here's what she has to say about a certain programming language:
"One of the most vocal programming groups who resent any
mention of Y2K on their newsgroup are developers using the
Perl programming language," she said.
Reading between the lines, it appears that Amon may have read
production Perl code on the web:
"We rarely have our code reviewed by our peers, not even, it
seems, when it is published on the Web for all to see," she
says.
Of course, it's hard to understand how you could read the Perl code
(presumably written for the CGI) on a well-designed webpage. Perhaps
this has some correlation with her findings regarding the "Y19.1K
bug".
There is also something called a "booby trap" bug! And many people
(probably some of them Perl programmers) dispute its existence!!
The only logical solution is not to surf to any Perl-driven web sites
come 1/1/00; who knows WHAT might happen if you're looking at
http://www.perl.com/ come midnight!
--
Ariel Scolnicov |"GCAAGAATTGAACTGTAG"
|ariels@compugen.co.il
Compugen Ltd. |Tel: +972-2-6795059 (Jerusalem) \ NEW
IMPROVED URL!
72 Pinhas Rosen St. |Tel: +972-3-7658520 (Main office)`--------------
------
Tel-Aviv 69512, ISRAEL |Fax: +972-3-7658555
http://3w.compugen.co.il/~ariels
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 30 Aug 1999 04:34:31 -0400
From: Martin Ambuhl <mambuhl@earthlink.net>
To: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <37CA4217.DE88A435@earthlink.net>
Larry Rosler wrote:
>
> In article <7q4iq8$fk2$1@nnrp1.deja.com> on Thu, 26 Aug 1999 23:32:25
> GMT, finsol@ts.co.nz <finsol@ts.co.nz> says...
>
> <SNIP of the same rant we have been hearing all year. What will this
> person do for a living once we have made it past January 1 unscathed?>
>
> The following was posted to Fun With Perl, but surely should be seen by
> the members of this newsgroup, who are explicitly maligned by her in an
> international general-news medium.
I don't know which newsgroup you think "this" is, but I fail to see why
comp.lang.c or should be interested. This continued thread crossposted
to unrelated newsgroups is antisocial usenet abuse. Please fix your
newgroups and followups headers.
--
Martin Ambuhl mambuhl@earthlink.net
__________________________________________________________
Fight spam now!
Get your free anti-spam service: http://www.brightmail.com
------------------------------
Date: 30 Aug 1999 08:55:19 GMT
From: M.Ray@ulcc.ac.uk (Malcolm Ray)
Subject: Re: Question about sendmail
Message-Id: <slrn7skhnn.5lh.M.Ray@carlova.ulcc.ac.uk>
On 30 Aug 1999 02:00:45 GMT, sobrien@id.jefferson.co.us
<sobrien@id.jefferson.co.us> wrote:
>Dan: You are a brave soul posting a question like this to
>the comp.lang.perl.misc newsgroup. If anyone bothers to
>reply at all, you will be told that this is not a Perl issue,
>it's in the manual, to read the Sendmail newsgroup, or some
>other smart-ass answer that won't help you at all.
I don't see why answering a question by pointing the questioner at
good documentation is unhelpful. Quite the reverse. People who ask
questions here which are answered in online documentation to which
they already have access are often simply unaware of the existence
of that documentation, and can benefit greatly from learning of a
resource which can help them to become self-sufficient.
If you had advised him to read the answer to 'how do I send mail?'
in perlfaq9, as well as getting the answer to his immediate question
he'd have learnt of a possible problem with his code which (depending
on where his message body comes from) could result in truncated
messages. Instead, you gave a partial answer, and crowed about it.
--
Malcolm Ray University of London Computer Centre
------------------------------
Date: Mon, 30 Aug 1999 09:39:31 GMT
From: glepa@yahoo.com (Glenn Paulsen)
Subject: Random number
Message-Id: <37ca5002.859340746@news.telia.no>
Hi, i need some help here, im a novice in perl programming and i realy
need this
fast.
Can anyone write a script that generate a random number in the html i
have
listet below, the random number should be inserted where there is a 1
now.
im going to use this as a server side include.
Thanks.
<IFRAME src="http://leader.linkexchange.com/1/X775150/showiframe?"
width="468" height="60" marginwidth="0" marginheight="0" hspace="0"
vspace="0" frameborder="0" scrolling="no
<a href="http://leader.linkexchange.com/1/X775150/clickle"
target="_top">
<p align="center"><img width="468" height="60" border="0" ismap alt
src="http://leader.linkexchange.com/1/X775150/showle?"></IFRAME>
<br>
<a href="http://leader.linkexchange.com/1/X775150/clicklogo"
target="_top"><img
src="http://leader.linkexchange.com/1/X775150/showlogo?" width="468"
height="16" border="0" ismap alt></a><br>
------------------------------
Date: Mon, 30 Aug 1999 17:46:36 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Ready to get to work but...
Message-Id: <E5ry3.1$V75.440@vic.nntp.telstra.net>
Abigail <abigail@delanet.com> wrote in message
news:slrn7sk7mv.23d.abigail@alexandra.delanet.com...
>
> Uhm, point towards the brightest star in the sky? I dunno.
My mama used to say 'if you ain't got nothing useful to say, say nothing!'
> What have browsers to do with testing Perl programs?
If the Perl program is involved with CGI, everything!
It don't matter how many times you say it, and despite the fact that Perl
has many functions other than CGI, the majority of new Perl users are
learning it for CGI. If you were a tad less sarcastic they may be keener to
learn some of the other things, rather than getting fobbed off and being
left with a sour taste about Perl because the 'Perl Guru's (of whom you are
perceived to be one) take the high and mighty tone.
> man perlrun
>
> Abigail
> --
Of course if a comment annoys you, you can just ignore it!
I myself have had many useful comments and answers from this group, and try
to be helpful where I can... but my level of Perl knowledge is pretty low,
so I read a lot of post's where I don't know the answer, in the hope of
further enlightenment. I have noticed the number of snappy sarcastic
responses is quite high, but strangely seem to come mostly from the same
couple of people....
Wyzelli
------------------------------
Date: 30 Aug 1999 03:24:28 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Ready to get to work but...
Message-Id: <slrn7skg3c.23d.abigail@alexandra.delanet.com>
Wyzelli (wyzelli@yahoo.com) wrote on MMCXC September MCMXCIII in
<URL:news:E5ry3.1$V75.440@vic.nntp.telstra.net>:
^^ Abigail <abigail@delanet.com> wrote in message
^^ news:slrn7sk7mv.23d.abigail@alexandra.delanet.com...
^^ >
^^ > Uhm, point towards the brightest star in the sky? I dunno.
^^
^^ My mama used to say 'if you ain't got nothing useful to say, say nothing!'
And the reason you didn't listen to your mama is.... ?
^^ I myself have had many useful comments and answers from this group, and try
^^ to be helpful where I can... but my level of Perl knowledge is pretty low,
^^ so I read a lot of post's where I don't know the answer, in the hope of
^^ further enlightenment. I have noticed the number of snappy sarcastic
^^ responses is quite high, but strangely seem to come mostly from the same
^^ couple of people....
Except for whining about my behaviour (which can be easily solved by
reading the manual of your newsreader and learn how to make a killfile),
did you contribute in any way to the topic of the original question?
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== 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: Mon, 30 Aug 1999 18:00:23 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: Ready to get to work but...
Message-Id: <ziry3.7$V75.609@vic.nntp.telstra.net>
Abigail <abigail@delanet.com> wrote in message
news:slrn7skg3c.23d.abigail@alexandra.delanet.com...
>
> Except for whining about my behaviour (which can be easily solved by
> reading the manual of your newsreader and learn how to make a killfile),
> did you contribute in any way to the topic of the original question?
>
No...
Did you?
Wyzelli
------------------------------
Date: 30 Aug 1999 09:54:28 GMT
From: kaktusaz@takas.lt (Paulius)
Subject: Redirecting STDERR to STDOUT (on NT)
Message-Id: <8E326ED9FKaktusaztakaslt@news.omnitel.net>
Hello everyone,
how can I redirect STDERR to STDOUT so die "string" would work
correctly?
Is it possible at all?
I don't want to use my function.
TIA
Paulius
------------------------------
Date: Mon, 30 Aug 1999 03:30:57 -0400
From: Joe Kline <jkline@one.net>
To: musicmaker@psynet.net
Subject: Re: Sockets and Threads
Message-Id: <37CA3331.41BA84EC@one.net>
< posted and cc'd to Alex >
"Alex R.M. Turner" wrote:
>
> Hi,
>
> I am trying to build a TCP based server in Perl. I have finaly got the
> thing to use non-blocking sockets, but I need a way to control many
> sockets simultaneously. I seem to have two solutions before me: use
> threads, or find a way to make read() or recv() non-blocking (which they
> are seemingly at the moment). I had no luck at the second, and the first
> _seemed_ easy enough. So.. I put 'use Thread;' in my programme, and it
> tells me I don't have the threads library. I went to perl.com and had a
If you read 'perldoc perlipc' you should have caught the bit about
forking. In this way you can handle many sockets simultaneously.
Threading is still experimental, at least until 5.6 comes out.
joe
-----------== 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: Mon, 30 Aug 1999 04:19:41 -0400
From: Shane Tramel <bstrap@icsi.net>
Subject: stack stuffing
Message-Id: <37CA3E9D.F4B88177@icsi.net>
I am looking for information on writing programs for buffer overflow in
perl. In other words i would like to write my own programs and just need
info on where to begin such a task... thank you
------------------------------
Date: Mon, 30 Aug 1999 07:40:06 GMT
From: 8103086@iname.com (Dallas Kidd)
Subject: stat function
Message-Id: <8E32B3B05DallasKiddsolution6c@news.optus.net.au>
Hi,
I am wanting to use the stat function for PERL 5.... on solaris 2.6.
I get nothing back when I use:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
Any suggestions?
Dallas
------------------------------
Date: 30 Aug 1999 03:28:46 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: stat function
Message-Id: <slrn7skgbf.23d.abigail@alexandra.delanet.com>
Dallas Kidd (8103086@iname.com) wrote on MMCXC September MCMXCIII in
<URL:news:8E32B3B05DallasKiddsolution6c@news.optus.net.au>:
^^
^^ I get nothing back when I use:
^^
^^ ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
^^ $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
And $! is?
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
-----------== 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: 30 Aug 1999 08:54:16 GMT
From: tester@test.com
Subject: test
Message-Id: <936003285.527589@krynn.diaspro.com>
Body of test
------------------------------
Date: Mon, 30 Aug 1999 01:19:52 -0500
From: "doug" <aggie@linuxcountry.com>
Subject: Un-escaping html form inputs
Message-Id: <rsk8ma4tj7149@corp.supernews.com>
i am using the save_parameters method of the CGI module to forward form
inputs via email. the resulting mail message contains url-escaped values.
how can i "un-escape" these values prior to sending to the mail pipe?
thanks,
doug
------------------------------
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 677
*************************************
