[25741] in Perl-Users-Digest
Perl-Users Digest, Issue: 7981 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Apr 16 06:05:31 2005
Date: Sat, 16 Apr 2005 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 Sat, 16 Apr 2005 Volume: 10 Number: 7981
Today's topics:
Re: alternatives to HTTP (=?iso-8859-1?q?Markus_B._Kr=FCger?=)
Re: alternatives to HTTP <mcmurtri@dslextreme.com>
capture output from print command to variable in perl (championsleeper)
Re: capture output from print command to variable in pe <noreply@gunnar.cc>
Re: capture output from print command to variable in pe <matternc@comcast.net>
Re: capture output from print command to variable in pe <tadmc@augustmail.com>
Re: capture output from print command to variable in pe <tintin@invalid.invalid>
Re: capture output from print command to variable in pe <nobull@mail.com>
Re: Creating a non-existing database through Perl ioneabu@yahoo.com
Re: Creating a non-existing database through Perl <hackeras@gmail.com>
Re: Finding CPU stats on Win? <thepoet_nospam@arcor.de>
Re: Help with downloading large files <yyusenet@yahoo.com>
Magic <> makes STDIN unusable - How to fix? (Vorxion)
Re: Magic <> makes STDIN unusable - How to fix? <skuo@psi.nsc.com>
Re: Magic <> makes STDIN unusable - How to fix? (Vorxion)
Re: memory leak in loop <sisyphus1@nomail.afraid.org>
Re: newbie baffled by de/referencing with subroutines <ebohlman@omsdev.com>
Re: regex help <sbryce@scottbryce.com>
Re: regex help <smcbutler@hotmail.com>
Re: regex help <someone@example.com>
Re: SIGPIPE delay on open2 exec failure xhoster@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 16 Apr 2005 00:34:47 +0200
From: markusk@pvv.org (=?iso-8859-1?q?Markus_B._Kr=FCger?=)
Subject: Re: alternatives to HTTP
Message-Id: <uvf6ny8hk.fsf@pvv.org>
Josef Moellers <josef.moellers@fujitsu-siemens.com> writes:
> jrefactors@hotmail.com wrote:
>
> > web services are using HTTP also?
>
> web services _are_ using HTTP. Almost nobody else uses it.
While most web services use HTTP or HTTPS, they may also use other
message transports, such as SMTP, FTP, RMI, and so on. See, for
instance, the architecture description from the W3C Web Services
Architecture Group:
http://www.w3.org/TR/ws-arch/
--
,------------------- Markus Bjartveit Krüger ---------------------.
' `
` E-mail: markusk@pvv.org WWW: http://www.pvv.org/~markusk/ '
)-------------------------------------------------------------------(
------------------------------
Date: Fri, 15 Apr 2005 22:51:43 -0700
From: Kevin McMurtrie <mcmurtri@dslextreme.com>
Subject: Re: alternatives to HTTP
Message-Id: <mcmurtri-C3971A.22514315042005@corp-radius.supernews.com>
In article <1113541497.985110.26050@z14g2000cwz.googlegroups.com>,
jrefactors@hotmail.com wrote:
> HTTP is the protocol that how client server communicates. HTTP is on
> top of TCP/IP stack. correct?
>
> I want to ask if there are alternatives to HTTP? web services are using
> HTTP also?
>
> please advise. thanks!!
What are the your goals? HTTP is often used as a base because it is not
only extensible, but easy to trim down too. HTTP variations include
WebDAV for file access, SOAP for system-independent remote method
invocation, SIP for phones, and many more.
There are also older protocols like FTP, SMTP, NNTP, Gopher, Telnet,
etc. I think SFTP has its own protocol too. There's serialized Java
objects over RMI.
SOAP and Java RMI are common for web services but software development
for them can be so labor-intensive that few find it worth the effort.
It would have to be a big, long-term project that's dedicated to web
services before you'd start to see gains in development efficiency. You
can always make up your own protocol for smaller tasks. Utilities like
Castor make it easy to send complex data as XML streams.
------------------------------
Date: 15 Apr 2005 15:32:40 -0700
From: strepxe@yahoo.co.uk (championsleeper)
Subject: capture output from print command to variable in perl
Message-Id: <103a78f3.0504151432.6e465502@posting.google.com>
i know its possible to get the epoch time in perl using the command
print time;
how can i capture this in a variable in a perl script? i've got a
feeling i'm missing something fundamental from my perl knowledge but
can't find out how to do it in the books i've been through.
------------------------------
Date: Sat, 16 Apr 2005 00:41:10 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: capture output from print command to variable in perl
Message-Id: <3caucdF6mm42iU1@individual.net>
championsleeper wrote:
> i know its possible to get the epoch time in perl using the command
> print time;
That statement uses two functions: print() and time(). time() *returns*
the epoch time which is printed to STDOUT by print().
perldoc -f time
perldoc -f print
> how can i capture this in a variable in a perl script?
my $time = time;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 15 Apr 2005 18:44:11 -0400
From: Chris Mattern <matternc@comcast.net>
Subject: Re: capture output from print command to variable in perl
Message-Id: <QfidnWjp9eMh3v3fRVn-rg@comcast.com>
championsleeper wrote:
> i know its possible to get the epoch time in perl using the command
> print time;
"time" gets the epoch time. "print" just prints it.
> how can i capture this in a variable in a perl script? i've got a
> feeling i'm missing something fundamental from my perl knowledge but
> can't find out how to do it in the books i've been through.
time is a perl built-in function. Here you are then using the built-in
function print to print the value it returns. You can also just assign
that value to a variable:
my $nowtime = time;
perldoc -f time for more information on time. You should probably
read perldoc -f print as well; you seem shaky on what print
actually does.
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: Fri, 15 Apr 2005 20:39:28 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: capture output from print command to variable in perl
Message-Id: <slrnd60r6g.dic.tadmc@magna.augustmail.com>
championsleeper <strepxe@yahoo.co.uk> wrote:
> i know its possible to get the epoch time in perl using the command
> print time;
> how can i capture this in a variable in a perl script? i've got a
> feeling i'm missing something fundamental from my perl knowledge but
> can't find out how to do it in the books i've been through.
See the "Assignment Operators" section in:
perldoc perlop
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 16 Apr 2005 15:45:13 +1200
From: "Tintin" <tintin@invalid.invalid>
Subject: Re: capture output from print command to variable in perl
Message-Id: <dT%7e.19156$1S4.1908577@news.xtra.co.nz>
"championsleeper" <strepxe@yahoo.co.uk> wrote in message
news:103a78f3.0504151432.6e465502@posting.google.com...
>i know its possible to get the epoch time in perl using the command
> print time;
> how can i capture this in a variable in a perl script? i've got a
> feeling i'm missing something fundamental from my perl knowledge but
> can't find out how to do it in the books i've been through.
In all your Perl scripting experience, have you never done something like:
$var = 'value';
or
$var = 99;
or
$var = time;
Amazing.
------------------------------
Date: 15 Apr 2005 23:38:27 -0700
From: "nobull@mail.com" <nobull@mail.com>
Subject: Re: capture output from print command to variable in perl
Message-Id: <1113633507.645713.33410@o13g2000cwo.googlegroups.com>
championsleeper wrote:
> i know its possible to get the epoch time in perl using the command
> print time;
> how can i capture this in a variable in a perl script? i've got a
> feeling i'm missing something fundamental from my perl knowledge but
> can't find out how to do it in the books i've been through.
As others have pointed out you can simply put the return value of
time() into a variable. But if you really had had a reason to want to
capture the output of print to a variable.
sub subroutine_i_cannot_alter {
print time;
}
my $capture;
{
require AtExit;
open my $capture_handle, '>', \$capture or die $!;
my $saved_handle = select $capture_handle;
my $restore_output_handle = AtExit->new(sub{ select $saved_handle
});
subroutine_i_cannot_alter();
}
print "Captured <<<$capture>>>\n";
------------------------------
Date: 15 Apr 2005 19:04:41 -0700
From: ioneabu@yahoo.com
Subject: Re: Creating a non-existing database through Perl
Message-Id: <1113617081.622246.20830@f14g2000cwb.googlegroups.com>
beatnik wrote:
> Gunnar Hjalmarsson wrote:
> > [ Provide some context when replying to a message, and don't
> > unnecessarily start a new thread.
> >
> > Study the posting guidelines for this group before posting again.
> > http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html ]
> >
> > beatnik wrote:
> >
> >> Yes but actually "nikos_db" would be the first database in
existance.
>
> Sorry, here is the relevant code i was talking about:
>
> <code>
> This is some per of my make.pl
> Its supposed to create first time the database nikos_db or if its
> already there to just delete it and recreate it.
>
> $db = ($ENV{'SERVER_NAME'} ne 'nikolas.50free.net')
> ? DBI->connect('DBI:mysql:nikos_db', 'root', '')
> : DBI->connect('DBI:mysql:nikos_db:50free.net', 'nikos_db',
'*****')
> or print font({-size=>5, -color=>'Lime'}, $DBI::errstr) and
exit 0;
>
> $db->do( "drop database if exists nikos_db" );
> $db->do( "create database nikos_db" );
> $db->do( "use nikos_db" );
> </code>
Is the problem that DBI requires you to specify an existing database to
connect? Just use one that is always there, like 'test' or 'mysql' and
then you can create your new one.
wana
------------------------------
Date: Sat, 16 Apr 2005 11:34:06 +0300
From: beatnik <hackeras@gmail.com>
Subject: Re: Creating a non-existing database through Perl
Message-Id: <d3qilv$5dd$1@nic.grnet.gr>
ioneabu@yahoo.com wrote:
> Is the problem that DBI requires you to specify an existing database to
> connect? Just use one that is always there, like 'test' or 'mysql' and
> then you can create your new one.
Well i dont know what DBI requires, but what if there isnt such
databases as test or mysql?
Lets assume that there is no other database available. Then what?
Iam tellign this because my webpage script runs in 2 different machines.
One has 'test' and 'mysql' other doesnt.
So the aproach of connecting to a diff database wont work but even if it
did its other database dependant.
------------------------------
Date: Sat, 16 Apr 2005 09:53:25 +0200
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: Finding CPU stats on Win?
Message-Id: <4260c460$0$1493$9b4e6d93@newsread4.arcor-online.net>
guice666 wrote
> Nice, now I just gotta find out if there's a way to read if a CPU has
> Hyperthreading enabled or not (or if it's possible).
>
> I searched for Hyperthread on the MS Library site and came back with
> zero results. Know where I might need to look to find this out?
I'm not sure if there's a reasonably simple way at all to query
that information. I don't have a HT system here,
but maybe if you toy around with the different WMI classes
(Win32_Processor's SocketDesignation parameter, the
Win32_ComputerSystem and Win32_ComputerSystemProcessor
classes) you can find something. Maybe the cpucount tool
from intel could also be of some help for you, but if I recall
correctly it's just available as a binary. If not, you will most
probalby have to go the hard way, reading out cpuid using
some inlined C or assembler code and comparing the appropriate
bit value in EBX.
But now the whole thing is getting away from perl quite fast,
so I'm setting an X-Post and FollowUp to
comp.os.ms-windows.programmer.misc.
-Chris
------------------------------
Date: Fri, 15 Apr 2005 16:48:15 -0600
From: YYUsenet <yyusenet@yahoo.com>
Subject: Re: Help with downloading large files
Message-Id: <d3pgbi$4tl$1@news.xmission.com>
Tad McClellan wrote:
> sales@Downloads4Dialups.com <sales@Downloads4Dialups.com> wrote:
>
>
>>If you are having difficulty downloading large files, please check out
>
>
>
> I strongly urge all readers of this message to think long
> and hard before doing business with a spammer.
>
>
I guess that there are enough people out there who will actually do
buisness with spammers (Jaynes makes $750,000USD a month!)
--
k g a b e r t (at) x m i s s i o n (dot) c o m
*Use Mozzila/Firefox*!
http://www.spreadfirefox.com/?q=user/register&r=71209
------------------------------
Date: 15 Apr 2005 20:23:23 -0400
From: vorxion@knockingshopofthemind.com (Vorxion)
Subject: Magic <> makes STDIN unusable - How to fix?
Message-Id: <42605afb$1_1@news.iglou.com>
If someone could please help me? I'm having issues with the <> operator.
I've read the docs on it, tried using close(ARGV), re-opening STDIN to "-",
and a slew of other things.
The upshot of this is that if I'm using <> and I supply @ARGV filenames,
Curses' wgetch() works fine. However, if I give input via STDIN instead,
I continuously get -1 on that function forever, which simply makes my
larger program unusable and entirely unresponsive.
Can anyone help, please? I've read up on eof(), perlop's section on <>,
and nothing is helping so far. I suspect it's possible, but it's gotta be
tricky, whatever the fix.
Sample code:
#!/usr/local/bin/perl
use strict;
use warnings;
$| = 1;
my @file_lines = <>; # Use filename in @ARGV, it's fine.
# Use a pipe or redirect, and getch()
# never works correctly.
use Curses;
initscr;
my $win = new Curses;
$win->clear;
$win->refresh;
$win->keypad(1);
noecho;
$win->addstr(0,0,"Enter keystroke: ");
$win->move(0,19);
$win->refresh;
while (my $keypress = $win->getch) {
$win->addstr(2,0,"Got key |${keypress}|.\n") if defined(${keypress});
}
endwin;
exit;
------------------------------
Date: Fri, 15 Apr 2005 19:51:59 -0700
From: Steven Kuo <skuo@psi.nsc.com>
Subject: Re: Magic <> makes STDIN unusable - How to fix?
Message-Id: <Pine.LNX.4.60.0504151940550.5323@psi.nsc.com>
On Fri, 15 Apr 2005, Vorxion wrote:
> If someone could please help me? I'm having issues with the <> operator.
> I've read the docs on it, tried using close(ARGV), re-opening STDIN to "-",
> and a slew of other things.
>
> The upshot of this is that if I'm using <> and I supply @ARGV filenames,
> Curses' wgetch() works fine. However, if I give input via STDIN instead,
> I continuously get -1 on that function forever, which simply makes my
> larger program unusable and entirely unresponsive.
>
> Can anyone help, please? I've read up on eof(), perlop's section on <>,
> and nothing is helping so far. I suspect it's possible, but it's gotta be
> tricky, whatever the fix.
STDIN got redirected and now you need access back to
the controlling terminal?
> Sample code:
>
> #!/usr/local/bin/perl
>
> use strict;
> use warnings;
>
> $| = 1;
>
> my @file_lines = <>; # Use filename in @ARGV, it's fine.
> # Use a pipe or redirect, and getch()
# never works correctly.
# Assuming you have the requisite OS, try adding this:
open (STDIN, "+</dev/tty")
or die $!;
# before the rest of your code using Curses.pm
> use Curses;
> initscr;
> my $win = new Curses;
> $win->clear;
> $win->refresh;
> $win->keypad(1);
> noecho;
> $win->addstr(0,0,"Enter keystroke: ");
> $win->move(0,19);
> $win->refresh;
> while (my $keypress = $win->getch) {
> $win->addstr(2,0,"Got key |${keypress}|.\n") if defined(${keypress});
> }
> endwin;
> exit;
--
Hope this helps,
Steven
------------------------------
Date: 15 Apr 2005 23:17:06 -0400
From: vorxion@knockingshopofthemind.com (Vorxion)
Subject: Re: Magic <> makes STDIN unusable - How to fix?
Message-Id: <426083b2$1_1@news.iglou.com>
In article <Pine.LNX.4.60.0504151940550.5323@psi.nsc.com>, Steven Kuo wrote:
>
>STDIN got redirected and now you need access back to
>the controlling terminal?
Yup.
># Assuming you have the requisite OS, try adding this:
>
>open (STDIN, "+</dev/tty")
> or die $!;
>
># before the rest of your code using Curses.pm
Worked like a charm, but why +< instead of just < ? You only read from
STDIN...
Thanks for the fix!
>Hope this helps,
Indeed it did, thanks!
--
Vorxion - Founder of the knocking-shop of the mind.
"You have it, you sell it, you've still got it--what's the difference?"
--Diana Trent, "Waiting for God", on why a modelling agency is really a
knocking-shop. Applied by me to the field of consulting. :)
The Sci-Fi fan's solution to debt: Reverse the polarity on your charge card.
------------------------------
Date: Sat, 16 Apr 2005 11:48:33 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: memory leak in loop
Message-Id: <42606ee2$0$5394$afc38c87@news.optusnet.com.au>
"Mike Solomon" <mike_solomon@lineone.net> wrote in message
news:56568be5.0504150854.4b74f777@posting.google.com...
> Using the following code I get a memory leak
>
> I am using ActiveState Perl 5.8.0 on Windows
>
> I suspect it is caused by Xbase
>
> Any ideas to fix it would be much appreciated
>
> use strict;
> use XBase;
>
That module has not been updated on cpan in over 9 years. Maybe try using
DBD::Xbase instead. (It's available as a ppm from ActiveState.)
Cheers,
Rob
------------------------------
Date: 16 Apr 2005 00:29:07 GMT
From: Eric Bohlman <ebohlman@omsdev.com>
Subject: Re: newbie baffled by de/referencing with subroutines
Message-Id: <Xns9639C7A71C365ebohlmanomsdevcom@130.133.1.4>
"Jessica" <konradj@mindspring.com> wrote in news:1113170027.017229.15810
@g14g2000cwa.googlegroups.com:
> Thanks for your reply, Sinan. You're right, I haven't checked the
> posting guidelines (abject apologies from this thoroughly befuddled
> newbie). Also I did not use warnings or strict, as that's not what our
> instructor has us do, for better or worse.
Can we have some clarification here? Are you saying
1) Your instructor specifically told his class *not* to use warnings and
strict? or
2) Your instructor simply didn't tell his class to use them?
If 1) is the case, then your instructor is B A D, period. He's
deliberately teaching his students bad habits. In that case it looks
like *all* the fault lies with the instructor.
If 2) is the case, then your instructor isn't experienced enough in Perl
to be teaching it; that's probably not so much his fault as the
institution's fault for trying to cut corners in order to save money.
But if that's the case, the worst thing any of his students can do is
take the attitude "I don't need to do anything the instructor didn't
specifically tell me to do"; that's really the same as "I won't learn
this if it's not going to be on the test."
Assuming that your goal in taking a Perl class is more ambitious than
just being able to say "I took a Perl class once"--in other words,
assuming that your goal is to eventually be able to write Perl programs--
then you're hoping to reach a point where you *won't* have an instructor
telling you what to do and there *won't* be any examinations. But once
you reach that point, you *won't* know everything there is to know about
Perl programming (since your name isn't "Larry Wall") even though you'll
still need to know more about it. And that means being able to pick up
stuff on your own. That means becoming aware of what are considered
"best practices" in the field and observing them unless/until you're able
to articulate why your needs would be better served by something else.
When learning a programming language, you really *do* have to do a lot of
self-study beyond what's taught in the classroom and what's part of the
assigned coursework. Because if a class is taught properly, the
classroom time and the assignments will be devoted to only those aspects
of the language that are difficult to pick up through self-study; there
simply isn't time for what amounts to the instructor reading the textbook
or the widely-available reference material to his class.
With Perl, you're fortunate in that you don't have to go digging around
to find good reference material; it's already there on your computer!
The one thing a lot of people have to get used to is that Perl's
documentation is quite "information-dense" whereas most software
documentation is "information-sparse" (full of screen shots, lists of
menu items, and similar stuff that would be immediately obvious to anyone
who's ever used the software). There's a lot of meat on those bones!
But you don't have to eat it all at once. Just develop a basic mental
model of how the material is organized, so that when you have a question
nagging at you, you have some idea of where to look for the answer.
And probably the single most important important thing you can do is to
get in the habit of *always* looking for the answers to such questions,
even if they seem trivial or not of immediate importance (and if the
answers don't leave you completely enlightened, feel quite free to come
here and ask for clarification; questions of the form "I was wondering
about...It says in perlop that...But I still quite don't get...And I
wonder why it's done that way" are valuable not just to you, but to other
readers of the group, because they get people thinking, learning new
things, and re-examining old assumptions. You can learn an awful lot
simply by reading the responses to well-asked questions (WAQs) here).
------------------------------
Date: Fri, 15 Apr 2005 16:05:43 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: regex help
Message-Id: <e72dnYaNN4orp_3fRVn-gQ@comcast.com>
axel@white-eagle.invalid.uk wrote:
> This would not work as expected if a value such as 'e = 23' appeared.
You are correct.
> my %hash = split / +/, $string;
>
> might be better.
Much better.
------------------------------
Date: 15 Apr 2005 15:57:56 -0700
From: "si" <smcbutler@hotmail.com>
Subject: Re: regex help
Message-Id: <1113605876.028308.198940@g14g2000cwa.googlegroups.com>
thx alot! :)
very very helpful...
------------------------------
Date: Sat, 16 Apr 2005 00:15:04 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: regex help
Message-Id: <cOY7e.53470$7Q4.14939@clgrps13>
Scott Bryce wrote:
>
> my %hash = split / */, $string;
ioneabu@yahoo.com wrote:
>
> my %hash = split / /, $str;
Is someone actually teaching people to use split() like this?
There must be a lot of bad examples out there on the web. :-)
John
--
use Perl;
program
fulfillment
------------------------------
Date: 15 Apr 2005 22:50:32 GMT
From: xhoster@gmail.com
Subject: Re: SIGPIPE delay on open2 exec failure
Message-Id: <20050415185032.572$wR@newsreader.com>
George Glynn <gglynn@nickelkid.com> wrote:
> Perl 5.8.5 on Fedora Core 3...
>
...
> Why didn't it hit the SIGPIPE handler trying to write to TOPROC on line
> 15?
...
>
> I'm sure I'm just missing the subtleties of IPC, so can anyone clue me in
> as to what's happening here?
For me on 5.8.0 it does SIGPIPE on line 15, so this may be a bug
rather than some expected behavior.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 7981
***************************************
