[29787] in Perl-Users-Digest
Perl-Users Digest, Issue: 1030 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 13 18:09:42 2007
Date: Tue, 13 Nov 2007 15:09:06 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 13 Nov 2007 Volume: 11 Number: 1030
Today's topics:
error in tkGlue.c when building Tk mariakvelasco@gmail.com
Re: fastcgi vs mod perl vs apache vs lighttpd vs perlba <cwilbur@chromatico.net>
hexadecimal addition <hara.acharya@gmail.com>
Re: hexadecimal addition <jurgenex@hotmail.com>
Re: hexadecimal addition (Doug Miller)
Re: hexadecimal addition (Doug Miller)
Re: hexadecimal addition <njc@cookie.uucp>
Re: Index of first and last non-"\xff" in a long string <krahnj@telus.net>
Mtime <no@spam.tonsjunkmail.com>
Re: Mtime <abigail@abigail.be>
Re: Mtime (Steven M. O'Neill)
Re: Mtime <joost@zeekat.nl>
OS X, installing modules from CPAN <justin.0711@purestblue.com>
Re: OS X, installing modules from CPAN <glex_no-spam@qwest-spam-no.invalid>
Re: Processing a while within a while <wyzelli@yahoo.com.au>
Re: Processing a while within a while <wyzelli@yahoo.com.au>
Re: Processing a while within a while Russell.Mottram@gmail.com
seting cookies to use some links with perl <francois.rappaz@unifr.ch>
Using fork() <qalex1@gmail.com>
Re: Using fork() <krahnj@telus.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 13 Nov 2007 14:47:56 -0800
From: mariakvelasco@gmail.com
Subject: error in tkGlue.c when building Tk
Message-Id: <1194994076.021311.225120@i13g2000prf.googlegroups.com>
Hello all,
We are trying to install Tk-804.027_501 on Solaris 10 using Perl
version 5.8.4. We were able to create the makefile through the command
perl Makefile.PL; however, when running make, we are getting errors
regarding the file tkGlue.c
tkGlue.c: In function `do_comp':
tkGlue.c:5250: warning: passing arg 1 of `Perl_pregcomp' from
incompatible pointer type
tkGlue.c:5250: warning: passing arg 2 of `Perl_pregcomp' makes pointer
from integer without a cast
tkGlue.c:5250: too few arguments to function `Perl_pregcomp'
tkGlue.c: In function `Tcl_GetRegExpFromObj':
tkGlue.c:5319: `RXf_UTF8' undeclared (first use in this function)
tkGlue.c:5319: (Each undeclared identifier is reported only once
tkGlue.c:5319: for each function it appears in.)
tkGlue.c:5319: `RXf_PMf_FOLD' undeclared (first use in this function)
*** Error code 1
make: Fatal error: Command failed for target `tkGlue.o'
Is there anyone on here that is familiar with these errors or does
anyone have any suggestions on how to get rid of these errors. We
would really appreciate your help.
Thanks!
------------------------------
Date: 13 Nov 2007 10:12:13 -0500
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: fastcgi vs mod perl vs apache vs lighttpd vs perlbal
Message-Id: <87hcjqi3hu.fsf@mithril.chromatico.net>
>>>>> "g" == gavino <gavcomedy@gmail.com> writes:
g> what is fastest combo folks?
(no doubt referring to this:)
Subject: Re: fastcgi vs mod perl vs apache vs lighttpd vs perlbal
It depends on your configuration and what you're doing. Performance
for all of them is configuration-dependent: an installation of any of
them, tuned to suit your application's specific performance needs,
them will most likely perform better an untuned installation of any of
the others.
(Did you finally get tired of trolling comp.lang.lisp and
comp.lang.python?)
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Tue, 13 Nov 2007 15:39:57 -0000
From: king <hara.acharya@gmail.com>
Subject: hexadecimal addition
Message-Id: <1194968397.461330.168010@s15g2000prm.googlegroups.com>
I have a register lets say F0200088 (hexadecimal number)
And I want to jump 7 dwords so that I will reach F02000B0 (i.e 88 will
become B0 in hex)
How can I do hexa addition in perl to get this value of F02000B0.
I tried this but not getting it.
sprintf "%X\n",oct("0xF0200088")+oct("0x08");
------------------------------
Date: Tue, 13 Nov 2007 15:58:42 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: hexadecimal addition
Message-Id: <SQj_i.1142$OJ.828@trndny06>
king wrote:
> I have a register lets say F0200088 (hexadecimal number)
>
> And I want to jump 7 dwords so that I will reach F02000B0 (i.e 88 will
> become B0 in hex)
>
> How can I do hexa addition in perl to get this value of F02000B0.
>
> sprintf "%X\n",oct("0xF0200088")+oct("0x08");
But 0xF0200088 + 0x08 is 0xF0200090 and not 0xF02000B0. Are you adding the
wrong numbers?\
jue
------------------------------
Date: Tue, 13 Nov 2007 16:27:41 GMT
From: spambait@milmac.com (Doug Miller)
Subject: Re: hexadecimal addition
Message-Id: <1gk_i.45513$eY.1400@newssvr13.news.prodigy.net>
In article <1194968397.461330.168010@s15g2000prm.googlegroups.com>, king <hara.acharya@gmail.com> wrote:
>
>I have a register lets say F0200088 (hexadecimal number)
>
>And I want to jump 7 dwords so that I will reach F02000B0 (i.e 88 will
>become B0 in hex)
On what system is a dword 5.57143 bytes long?
0xF02000B0 - 0xF0200088 = 0x28 = decimal 40
>
>How can I do hexa addition in perl to get this value of F02000B0.
>
>I tried this but not getting it.
>
>sprintf "%X\n",oct("0xF0200088")+oct("0x08");
0xF0200088 + 0x8 = 0xF0200090
--
Regards,
Doug Miller (alphageek at milmac dot com)
It's time to throw all their damned tea in the harbor again.
------------------------------
Date: Tue, 13 Nov 2007 17:33:26 GMT
From: spambait@milmac.com (Doug Miller)
Subject: Re: hexadecimal addition
Message-Id: <mdl_i.2604$0Q5.726@nlpi070.nbdc.sbc.com>
In article <1gk_i.45513$eY.1400@newssvr13.news.prodigy.net>, spambait@milmac.com (Doug Miller) wrote:
>In article <1194968397.461330.168010@s15g2000prm.googlegroups.com>, king
> <hara.acharya@gmail.com> wrote:
>>
>>I have a register lets say F0200088 (hexadecimal number)
>>
>>And I want to jump 7 dwords so that I will reach F02000B0 (i.e 88 will
>>become B0 in hex)
>
>On what system is a dword 5.57143 bytes long?
Oops, too many fives -- meant 5.7143
>
>0xF02000B0 - 0xF0200088 = 0x28 = decimal 40
>>
>>How can I do hexa addition in perl to get this value of F02000B0.
>>
>>I tried this but not getting it.
>>
>>sprintf "%X\n",oct("0xF0200088")+oct("0x08");
>
>0xF0200088 + 0x8 = 0xF0200090
>
--
Regards,
Doug Miller (alphageek at milmac dot com)
It's time to throw all their damned tea in the harbor again.
------------------------------
Date: Tue, 13 Nov 2007 14:55:14 -0600
From: Neil Cherry <njc@cookie.uucp>
Subject: Re: hexadecimal addition
Message-Id: <slrnfjk3pi.a1u.njc@cookie.uucp>
On Tue, 13 Nov 2007 15:39:57 -0000, king wrote:
>
> I have a register lets say F0200088 (hexadecimal number)
>
> And I want to jump 7 dwords so that I will reach F02000B0 (i.e 88 will
> become B0 in hex)
0xF02000B0 - 0xF0200088 = 0x28 ( that's not 7 dwords! That's 0x0A)
> How can I do hexa addition in perl to get this value of F02000B0.
>
> I tried this but not getting it.
>
> sprintf "%X\n",oct("0xF0200088")+oct("0x08");
>
Uhm your math is very strange!
Example:
perl -e '
$a = 0xF0200088 + (7 * 4);
printf "\n0x%x\n", $a;
'
0xf02000a4
--
Linux Home Automation Neil Cherry ncherry@linuxha.com
http://www.linuxha.com/ Main site
http://linuxha.blogspot.com/ My HA Blog
Author of: Linux Smart Homes For Dummies
------------------------------
Date: Tue, 13 Nov 2007 16:50:42 GMT
From: "John W. Krahn" <krahnj@telus.net>
Subject: Re: Index of first and last non-"\xff" in a long string
Message-Id: <4739D5C7.A5A3CD95@telus.net>
w.c.humann@arcor.de wrote:
>
> On Nov 12, 10:08 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> > Interesting... which version of perl? With
> > This is perl, v5.8.8 built for i386-freebsd-64int
> >
> > and adding this
> >
> > innerm => sub {
> > local $_ = $str;
> > /[^\xff].*[^\xff]/s;
[ SNIP ]
> Stange enough with my ($l,$m,$r) = (5000, 1, 5000); 'innerm' fails!?
Not strange at all. The pattern has to match at least two [^\xff]
characters.
John
--
use Perl;
program
fulfillment
------------------------------
Date: Tue, 13 Nov 2007 15:44:35 -0600
From: "M" <no@spam.tonsjunkmail.com>
Subject: Mtime
Message-Id: <13jk6m2gka8l223@corp.supernews.com>
Is there an easy way to get perl to return the mtime of the oldest file in a
directory?
M
------------------------------
Date: 13 Nov 2007 21:49:09 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: Mtime
Message-Id: <slrnfjk6ul.qnk.abigail@alexandra.abigail.be>
_
M (no@spam.tonsjunkmail.com) wrote on VCLXXXVII September MCMXCIII in
<URL:news:13jk6m2gka8l223@corp.supernews.com>:
|| Is there an easy way to get perl to return the mtime of the oldest file in a
|| directory?
No.
Reason #1 is that "oldest file" isn't clearly defined. Reason #2 is that
for some definitions of "oldest", including the very obvious one, you need
a piece of information that many filesystems don't keep track of.
None of these reasons have anything to do with the language you try to
solve the problem with.
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: Tue, 13 Nov 2007 22:06:13 +0000 (UTC)
From: steveo@panix.com (Steven M. O'Neill)
Subject: Re: Mtime
Message-Id: <fhd74l$lls$1@reader1.panix.com>
Abigail <abigail@abigail.be> wrote:
> _
>M (no@spam.tonsjunkmail.com) wrote on VCLXXXVII September MCMXCIII in
><URL:news:13jk6m2gka8l223@corp.supernews.com>:
>|| Is there an easy way to get perl to return the mtime of the oldest file in a
>|| directory?
>
>
>No.
>
>Reason #1 is that "oldest file" isn't clearly defined. Reason #2 is that
>for some definitions of "oldest", including the very obvious one, you need
>a piece of information that many filesystems don't keep track of.
>
>None of these reasons have anything to do with the language you try to
>solve the problem with.
http://groups.google.com/group/comp.unix.shell/msg/777922ad16818eec?dmode=source&hl=en
--
Steven O'Neill steveo@panix.com
Brooklyn, NY http://www.panix.com/~steveo
------------------------------
Date: 13 Nov 2007 22:12:46 GMT
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: Mtime
Message-Id: <473a215e$0$2871$e4fe514c@dreader28.news.xs4all.nl>
On Tue, 13 Nov 2007 15:44:35 -0600, M wrote:
> Is there an easy way to get perl to return the mtime of the oldest file
> in a directory?
>
> M
Depends on what you call the oldest file. Many file systems don't have a
concept of oldest file (for IMHO good reasons, regardless of Abigail's
comments).
see "perldoc -f readdir" and "perldoc -f -X" (especially -M and -C).
Also, looking for inode in your favorite Unix manual (or google) may be
helpful.
Joost.
------------------------------
Date: Tue, 13 Nov 2007 15:58:00 -0000
From: Justin C <justin.0711@purestblue.com>
Subject: OS X, installing modules from CPAN
Message-Id: <1984.4739c988.bc25e@zem>
I'm using OS X (10.4.10), I've installed a few modules system wide with:
sudo -H cpan -i Module::Name
I'd like to look at the build directory, there are some examples of the
module in use. The problem is, I can't find .cpan in /root... there is
no /root!
Does anyone know where, under OS X, .cpan is? Not a user one, the one
that would be under /root on a Linux system.
Justin.
--
Justin C, by the sea.
------------------------------
Date: Tue, 13 Nov 2007 11:17:34 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: OS X, installing modules from CPAN
Message-Id: <4739dc2e$0$3572$815e3792@news.qwest.net>
Justin C wrote:
> I'm using OS X (10.4.10), I've installed a few modules system wide with:
>
> sudo -H cpan -i Module::Name
>
> I'd like to look at the build directory, there are some examples of the
> module in use. The problem is, I can't find .cpan in /root... there is
> no /root!
>
> Does anyone know where, under OS X, .cpan is? Not a user one, the one
> that would be under /root on a Linux system.
CPAN knows where.
cpan> o conf cpan_home
------------------------------
Date: Tue, 13 Nov 2007 14:14:47 GMT
From: "Peter Wyzl" <wyzelli@yahoo.com.au>
Subject: Re: Processing a while within a while
Message-Id: <rji_i.12047$CN4.8276@news-server.bigpond.net.au>
<Russell.Mottram@gmail.com> wrote in message
news:1194961069.236004.202710@i13g2000prf.googlegroups.com...
> On Nov 14, 12:11 am, "Peter Wyzl" <wyze...@yahoo.com.au> wrote:
>> <Russell.Mott...@gmail.com> wrote in message
>>
>> > This is the code I'm working on:
>>
>> > while (($TelnetTime,$Telnetvalue)= each(%TelnetEntry))
>> > {
>> > while (($SecTime,$SecUser) = each(%SecTime))
>> > {
>> > if ($SecTime < $TelnetTime) # If the time the user logged on is less
>> > than the time that Telnet was started, then do the following:
>> > {
>> > print "\n";
>> > print "The Telnet Service was run by $SecTime{$SecTime}"; #
>> > Prints the user logged on at that time.
>> > print "\n";
>> > print "The time was: ".scalar localtime $TelnetTime; # Prints the
>> > time that Telnet was started. The key and value are the same in this
>> > hash.
>> > print "\n";
>> > }
>> > }
>> > }
>>
>> > I'm pretty sure the problem lies in - if ($SecTime < $TelnetTime) - as
>> > the current result of this code running is that all of the values in
>> > both tables are printing out.
>>
> Thanks for replying! I was hoping someone would soon :)
>
> Here is the contents of %TelnetEntry:
>
> 11929403381192940338
> 11917632661191763266
> 11905538451190553845
> 11929809061192980906
> 11924529191192452919
> 11917583541191758354
> 11924529301192452930
> 11905536661190553666
> 11929792871192979287
> 11917581701191758170
> 11905527891190552789
> 11929533691192953369
> 11924527891192452789
> 11929534021192953402
> 11917579801191757980
> 11929746761192974676
> 11930031091193003109
> 11924529091192452909
> 11924527951192452795
>
> And here is the contents of %SecTime:
>
> 1192658788default
> 1192571374default
> 1192950646Sally
> 1192832626default
> 1193002890Geoff
> 1192510043default
> 1192953674default
> 1192784691default
> 1192708778default
> 1193002332default
> 1192865201default
> 1192921241default
> 1192744166default
> 1192950649Sally
> 1192708779default
> 1193003814default
> 1192949678default
> 1192679121default
> 1192744165default
> 1192510044default
> 1192953673default
> 1192865204default
> 1192489060default
> 1192658787default
> 1192953485Sally
> 1192950582default
> 1192950864default
> 1192397205default
> 1192888366default
Ok, so the problem here is not your code, its your algorithm. Basically
what is happening, is that for progressively greater values in %TelnetTime,
you are matching more and more entries in %SecTime, since you are only doing
a simple lessthan comparison. Think of it this way...
One list contains values from 1 to 3, and so does the other. If we loop
through the first list and for every value in that list loop through the
second list to see if it is a lower value, the output will be something
like:
1 < 1 False
1 < 2 False
1 < 3 False
2 < 1 True
2 < 2 False
2 < 3 False
3 < 1 True
3 < 2 True
3 < 3 False
So in that simple scenario we print 3 outputs (one for each True) so the
output would be 1, 2, 3...
You need to define a better algorithm for determining what is going on...
and probably something that showed all the people logged on for each time
might actually be more useful.
This might illustrate more clearly what is happening...and bear in mind this
doesn't sort the timestamps which would make sense...
while (($TelnetTime,$Telnetvalue)= each(%TelnetEntry)){
print "Telnet started at " .scalar localtime $TelnetTime;
while (($SecTime,$SecUser) = each(%SecTime)){
if ($SecTime < $TelnetTime) {
print "\n$SecTime{$SecTime} was logged on";
}
}
print "\n";
}
Hope that helps...
P
------------------------------
Date: Tue, 13 Nov 2007 14:17:28 GMT
From: "Peter Wyzl" <wyzelli@yahoo.com.au>
Subject: Re: Processing a while within a while
Message-Id: <Yli_i.12048$CN4.9692@news-server.bigpond.net.au>
"Peter Wyzl" <wyzelli@yahoo.com.au> wrote in message
news:rji_i.12047$CN4.8276@news-server.bigpond.net.au...
<snip>
One list contains values from 1 to 3, and so does the other. If we loop
> through the first list and for every value in that list loop through the
> second list to see if it is a lower value, the output will be something
> like:
>
> 1 < 1 False
> 1 < 2 False
> 1 < 3 False
> 2 < 1 True
> 2 < 2 False
> 2 < 3 False
> 3 < 1 True
> 3 < 2 True
> 3 < 3 False
Course for this illustration those should actually be > or the list is back
to front... gah!
P
------------------------------
Date: Tue, 13 Nov 2007 14:53:23 -0000
From: Russell.Mottram@gmail.com
Subject: Re: Processing a while within a while
Message-Id: <1194965603.572322.209910@k35g2000prh.googlegroups.com>
Thank you very much! My frustrations are over. It does make a lot more
sense!
Now I just have to clean it up a bit and that's it!
Have a great day!
On Nov 14, 1:17 am, "Peter Wyzl" <wyze...@yahoo.com.au> wrote:
> "Peter Wyzl" <wyze...@yahoo.com.au> wrote in message
>
> news:rji_i.12047$CN4.8276@news-server.bigpond.net.au...
>
> <snip>
>
> One list contains values from 1 to 3, and so does the other. If we loop
>
> > through the first list and for every value in that list loop through the
> > second list to see if it is a lower value, the output will be something
> > like:
>
> > 1 < 1 False
> > 1 < 2 False
> > 1 < 3 False
> > 2 < 1 True
> > 2 < 2 False
> > 2 < 3 False
> > 3 < 1 True
> > 3 < 2 True
> > 3 < 3 False
>
> Course for this illustration those should actually be > or the list is back
> to front... gah!
>
> P
------------------------------
Date: Tue, 13 Nov 2007 08:24:50 -0800
From: Francois <francois.rappaz@unifr.ch>
Subject: seting cookies to use some links with perl
Message-Id: <1194971090.806438.158210@57g2000hsv.googlegroups.com>
Hi
I would like to use a link "Import into textBib" wich is displayed
depending on user's preferences. I tried to set these from a script
before displaying the page but it does not work. am I missing
something obvious ?
Thanks for any help
Francois
My script below:
use LWP;
use HTML::Parser;
use HTML::FormatText;
use HTML::Tree;
use HTML::Form;
# use DateTime::Duration;
use HTTP::Headers;
use HTTP::Cookies;
use HTTP::Cookies::Netscape;
use strict;
use warnings;
#Get the cookies in defining the preferences pages
#save the cookies in a file
#
my $url=3D"http://scholar.google.com/scholar_setprefs";
my $ua =3D LWP::UserAgent->new;
$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:
1=2E8.1.9) Gecko/20071025 Firefox/2.0.0.9');
my $c =3D HTTP::Cookies::Netscape->new(file=3D>"cookies.txt",
autosave=3D>"1");
my $h =3D HTTP::Headers->new(
Accept =3D> "text/xml,application/xml,application/xhtml+xml,text/
html;q=3D0.9,text/plain;q=3D0.8,image/png,*/*;q=3D0.5",
Host =3D> "www.unifr.ch",
);
$h->referer("http://www.unifr.ch/dokpe/index.htm");
$h->server("Apache/2.0.46 (Red Hat)");
$h->user_agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:
1=2E8.1.9) Gecko/20071025 Firefox/2.0.0.9");
my $req =3DHTTP::Request->new(GET=3D>$url,$h);
# $c->add_cookie_header($req);
$ua->cookie_jar($c);
my $res =3D$ua->request($req);
# $c->add_cookie_header($req);
# print $h->as_string,"\n";
die ($res->status_line) unless ($res->is_success);
# get the form and set the preference to have the bibTex Link
displayed
my @forms =3D HTML::Form->parse($res->content(), $res->base());
# $forms[0]->dump();
# die;
my $box =3D $forms[0]->find_input("scis");
die "pas de box\n" unless $box;
# foreach my $box (@rbox){
#print $box->disable()?"inactif":"actif","\n";
my @v =3D$box->possible_values;
# $box->value( $v[2] );
foreach my $v (@v){print "value : $v\n";}
# $box->value(undef);
$box->value("yes");
#}
my $input =3D $forms[0]->find_input("scisf");
if ($input){
$input->value("4");
} else {die "pas de select\n";}
my $bt =3D $forms[0]->find_input("submit");
$forms[0]->dump;
# send the form
#
if ($bt) {
$res =3D $ua->request($bt->click($forms[0]));
die ($res->status_line) unless ($res->is_success);
} else {print "bt undef\n";}
# die ($res->status_line) unless ($res->is_success);
print $res->status_line,"\n";
# get the cookie back
#
$c->extract_cookies($res);
print $res->base,"\n\n";
$url =3D "http://scholar.google.com/scholar?num=3D1&q=3D%22fribourg,
+switzerland%22+-
author:fribourg&hl=3Den&lr=3D&as_ylo=3D2007&as_yhi=3D2007&as_subj=3Dbio+chm=
+eng
+med+phy&sa=3DN";
$req =3DHTTP::Request->new(GET=3D>$url,$h);
$c->add_cookie_header($req);
# $ua->cookie_jar($c);
#
$res =3D$ua->request($req);
die ($res->status_line) unless ($res->is_success);
my $tree =3D HTML::TreeBuilder->new->parse($res->content);
my @bibtexlinks =3D getbibtex($tree);
foreach my $l (@bibtexlinks){
print "$l\n";
}
my $formatter =3D HTML::FormatText->new();
my $ascii =3D $formatter->format($tree);
print $ascii;
sub getbibtex {
my ($tree) =3D @_;
my @out;
my @links =3D $tree->look_down('_tag'=3D>'a', 'class'=3D>'fl');
foreach my $a (@links){
push @out, $a->attr('href');
# push @out, $a->attr('href');
}
# $tree->delete;
return @out;
}
Script end
The ouput gives for the form (and the relevant prefs seem correct)
GET http://scholar.google.com/scholar_setprefs [prefform]
nosubmit=3D<UNDEF> (image)
submit=3DSave Preferences (submit)
inststart=3D0 (hidden readonly)
hl=3Den (option) [...]
lang=3Dall (radio) [*all|some]
lr=3D<UNDEF> (checkbox) [*<UNDEF>/...]
lr=3D<UNDEF> (checkbox) [*<UNDEF>/...]
lr=3D<UNDEF> (checkbox) [*<UNDEF>/...]
lr=3D<UNDEF> (checkbox) [*<UNDEF>/...]
lr=3D<UNDEF> (checkbox) [*<UNDEF>/...]
lr=3D<UNDEF> (checkbox) [*<UNDEF>/...]
lr=3D<UNDEF> (checkbox) [*<UNDEF>/...]
lr=3D<UNDEF> (checkbox) [*<UNDEF>/...]
instq=3D (text)
instfind=3DFind Library (submit)
num=3D10 (option) [*10|20|30|50|100]
newwindow=3D<UNDEF> (checkbox) [*<UNDEF>/off|1/ ...]
scis=3Dyes (radio) [:no|*yes]
scisf=3D4 (option) [*4/BibTeX|3/EndNote|2/
RefMan|1/RefW
orks|5/WenXianWang]
submit=3DSave Preferences (submit)
the status is ok
200 OK
the base url also http://scholar.google.com/schhp?hl=3Den&lr=3D
but the requested link is not display:
/scholar?num=3D1&hl=3Den&lr=3D&cites=3D17696021159454281461
/scholar?num=3D1&hl=3Den&lr=3D&q=3Drelated:9Y4Rq3zllPUJ:scholar.google.com/
http://www.google.com/search?hl=3Den&lr=3D&q=3D%22STEINGER%22+%22Predicting=
+adaptive+e
volution%22
Dump of the result page:
Scholar Home
-
Advanced Scholar Search
Scholar Preferences
Scholar Help
Search only in:
Biology, Life Sciences, and Environmental Science
Chemistry and Materials Science
Engineering, Computer Science, and Mathematics
Medicine, Pharmacology, and Veterinary Science
Physics, Astronomy, and Planetary Science
Search in all subject areas.
Scholar All articles - Recent articles
Results 1 - 1 of about 290 for "fribourg, switzerland"
-author:fribourg. (0.08 seconds)
All Results
A Dulloo
J Montani
A Felikson
P Lavenex
U Albrecht
Predicting adaptive evolution under elevated atmospheric CO2 in the
perennial grass Bromus erectus
T STEINGER, A STEPHAN, B SCHMID - Global Change Biology, 2007 -
ingentaconnect.com
... 1 Present Address: D=E2=94=9C=C2=AEpartement de Biologie, Unit=E2=94=
=9C=C2=AE Ecologie &
Evolution, Universit=E2=94=9C=C2=AE
de Fribourg, Chemin du Mus=E2=94=9C=C2=AEe 10, CH-1700 Fribourg,
Switzerland. ...
Cited by 1 - Related Articles - Web Search
------------------------------
Date: Tue, 13 Nov 2007 16:15:11 -0000
From: Q <qalex1@gmail.com>
Subject: Using fork()
Message-Id: <1194970511.814528.228370@22g2000hsm.googlegroups.com>
I'm trying to use fork and have the processes interact with each
other... Is this possible? Something like:
my $pid = fork();
my $gotit = 0;
if ($pid) {
while (1) {
if $gotit = 0 {
<do a thing>
$gotit = 1;
}
}
} else {
while (1) {
my $input = <STDIN>;
print $input;
$gotit = 0; #when I get input, I want to set gotit back to 0 so
the parent starts again.
}
}
Is there a good way to accomplish this?
------------------------------
Date: Tue, 13 Nov 2007 17:00:24 GMT
From: "John W. Krahn" <krahnj@telus.net>
Subject: Re: Using fork()
Message-Id: <4739D80D.BEE4C4A@telus.net>
Q wrote:
>
> I'm trying to use fork and have the processes interact with each
> other... Is this possible?
perldoc perlipc
John
--
use Perl;
program
fulfillment
------------------------------
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 V11 Issue 1030
***************************************
