[28548] in Perl-Users-Digest
Perl-Users Digest, Issue: 9912 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 31 18:05:55 2006
Date: Tue, 31 Oct 2006 15:05:11 -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, 31 Oct 2006 Volume: 10 Number: 9912
Today's topics:
Re: Following a redirect <glex_no-spam@qwest-spam-no.invalid>
Re: Following a redirect <nospam@home.com>
Re: Following a redirect <DJStunks@gmail.com>
Re: Following a redirect <hjp-usenet2@hjp.at>
Re: Homemade youtube style (Flash??) videos? (Todd H.)
Re: Homemade youtube style (Flash??) videos? <jpstewart@binaryfoundry.ca>
Re: Homemade youtube style (Flash??) videos? <ignoramus18920@NOSPAM.18920.invalid>
Re: Homemade youtube style (Flash??) videos? <ignoramus18920@NOSPAM.18920.invalid>
Re: Homemade youtube style (Flash??) videos? (Marc Espie)
Re: Homemade youtube style (Flash??) videos? <ignoramus18920@NOSPAM.18920.invalid>
Re: Homemade youtube style (Flash??) videos? <jpstewart@binaryfoundry.ca>
Re: Homemade youtube style (Flash??) videos? <ignoramus18920@NOSPAM.18920.invalid>
Re: Homemade youtube style (Flash??) videos? <ignoramus18920@NOSPAM.18920.invalid>
Re: Interesting behaviour with lexical variable <benmorrow@tiscali.co.uk>
max # of threads gmlvsk2@gmail.com
Re: max # of threads xhoster@gmail.com
Re: max # of threads gmlvsk2@gmail.com
Re: max # of threads gmlvsk2@gmail.com
Re: Perl equivalent to unix script <benmorrow@tiscali.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 31 Oct 2006 13:15:40 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Following a redirect
Message-Id: <4547a0c0$0$506$815e3792@news.qwest.net>
Nospam wrote:
> I noticed this, but I also tried the script with 'http://www.google.com'
> which normally redirects to google.co.uk, but in the script just stays as
> google.com
[...]
> my $url = 'http://www.google.com';
> my $response = $ua->get($url);
> print "$url \n";
You expect get() to overwrite your $url variable? Or are you saying that
the content in $response isn't from google.co.uk?
Possibly, 'google.co.uk' might be found in the $response.
------------------------------
Date: Tue, 31 Oct 2006 20:29:23 GMT
From: "Nospam" <nospam@home.com>
Subject: Re: Following a redirect
Message-Id: <DmO1h.10366$p8.7347@newsfe3-win.ntli.net>
"J. Gleixner" <glex_no-spam@qwest-spam-no.invalid> wrote in message
news:4547a0c0$0$506$815e3792@news.qwest.net...
> Nospam wrote:
>
> > I noticed this, but I also tried the script with 'http://www.google.com'
> > which normally redirects to google.co.uk, but in the script just stays
as
> > google.com
> [...]
> > my $url = 'http://www.google.com';
> > my $response = $ua->get($url);
> > print "$url \n";
>
> You expect get() to overwrite your $url variable? Or are you saying that
> the content in $response isn't from google.co.uk?
>
> Possibly, 'google.co.uk' might be found in the $response.
My problem is how to do I show that the response has
'http://www.google.co.uk' ?
how do I get response; to show the url it has redirected to? as a print
statement?
------------------------------
Date: 31 Oct 2006 13:22:14 -0800
From: "DJ Stunks" <DJStunks@gmail.com>
Subject: Re: Following a redirect
Message-Id: <1162329734.589905.203250@m73g2000cwd.googlegroups.com>
Nospam wrote:
> "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid> wrote:
> > Nospam wrote:
> >
> > > I noticed this, but I also tried the script with 'http://www.google.com'
> > > which normally redirects to google.co.uk, but in the script just stays
> as
> > > google.com
> > [...]
> > > my $url = 'http://www.google.com';
> > > my $response = $ua->get($url);
> > > print "$url \n";
> >
> > You expect get() to overwrite your $url variable? Or are you saying that
> > the content in $response isn't from google.co.uk?
> >
> > Possibly, 'google.co.uk' might be found in the $response.
>
> My problem is how to do I show that the response has
> 'http://www.google.co.uk' ?
>
> how do I get response; to show the url it has redirected to? as a print
> statement?
the get() method in LWP::UserAgent returns an HTTP::Response object.
HTTP::Response has a base() method which will return "the base URI for
this response" and which, as the docs clearly state, "might not be the
original URI that was passed to $ua->request() method, because we might
have received some redirect responses first."
-jp
------------------------------
Date: Tue, 31 Oct 2006 22:42:47 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Following a redirect
Message-Id: <slrnekfgqn.t4c.hjp-usenet2@yoyo.hjp.at>
On 2006-10-31 20:29, Nospam <nospam@home.com> wrote:
> "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid> wrote in message
> news:4547a0c0$0$506$815e3792@news.qwest.net...
>> Nospam wrote:
>> > I noticed this, but I also tried the script with
>> > 'http://www.google.com' which normally redirects to google.co.uk,
>> > but in the script just stays
[...]
>> You expect get() to overwrite your $url variable? Or are you saying
>> that the content in $response isn't from google.co.uk?
>>
>> Possibly, 'google.co.uk' might be found in the $response.
>
> My problem is how to do I show that the response has
> 'http://www.google.co.uk' ?
Look at the content: http://www.google.co.uk has lots of links to other
sites at google.co.uk, it has the text "pages from the UK", etc. should
be pretty easy to distinguish from www.google.com.
Alternatively you can turn off redirect handling by setting
requests_redirectable to [], by overriding redirect_ok, or maybe by
setting max_redirect to 0.
hp
--
_ | Peter J. Holzer | > Wieso sollte man etwas erfinden was nicht
|_|_) | Sysadmin WSR | > ist?
| | | hjp@hjp.at | Was sonst wäre der Sinn des Erfindens?
__/ | http://www.hjp.at/ | -- P. Einstein u. V. Gringmuth in desd
------------------------------
Date: 31 Oct 2006 13:21:09 -0600
From: comphelp@toddh.net (Todd H.)
Subject: Re: Homemade youtube style (Flash??) videos?
Message-Id: <847iyg1eca.fsf@ripco.com>
Ignoramus18920 <ignoramus18920@NOSPAM.18920.invalid> writes:
> Like many people, I make pictures and videos and place them on my own
> website (self hosted). I wrote a perl script that makes HTML index
> files for directory structures, along with such nice features as image
> thumbnails, RSS feed for updates, and even "video thumbnails" (small
> animated GIFs that represent first several seconds of a video at the
> rate of one frame per second).
>
> That's all nice. What I would like, though, is to also add
> functionality to generate whatever Youtube is doing to make videos
> that you can see embedded in a page, with the pause and resume buttons
> etc. I assume that it is a Flash presentation. Is there some transcode
> module or perl module that would let me convert a DivX file into a
> video like youtube?
Isn't everything in youtube a flash video object?
I'm under the impression you'd need Macromedia flash to do the
conversion, but I've not actually done it myself.
--
Todd H.
http://www.toddh.net/
------------------------------
Date: Tue, 31 Oct 2006 14:11:20 -0500
From: John-Paul Stewart <jpstewart@binaryfoundry.ca>
Subject: Re: Homemade youtube style (Flash??) videos?
Message-Id: <pnjk14-v9p.ln1@mail.binaryfoundry.ca>
Ignoramus18920 wrote:
>
> That's all nice. What I would like, though, is to also add
> functionality to generate whatever Youtube is doing to make videos
> that you can see embedded in a page, with the pause and resume buttons
> etc. I assume that it is a Flash presentation. Is there some transcode
> module or perl module that would let me convert a DivX file into a
> video like youtube?
Does the video have to "embedded" right into the page? If you can live
with opening RealPlayer, you can get free versions of RealProducer Basic
and Helix Server Basic to stream RealVideo to a maximum of 5
simultaneous clients.
Helix Server Basic (no fee, 5 streams):
http://www.realnetworks.com/products/evalservers.html
RealProducer Basic (to convert to RealVideo format):
http://www.realnetworks.com/products/producer/basic.html
(Note that the Linux version of RealProducer is command-line only, no
GUI. The Windows version has both command-line and GUI components.)
The RealPlayer window isn't as nicely integrated with the HTML content
as the Flash stuff that YouTube uses. But RealPlayer should be
available as widely as Flash, so it shouldn't really hurt functionality,
IMHO.
------------------------------
Date: Tue, 31 Oct 2006 19:53:50 +0000 (UTC)
From: Ignoramus18920 <ignoramus18920@NOSPAM.18920.invalid>
Subject: Re: Homemade youtube style (Flash??) videos?
Message-Id: <e4v5g.nlu.19.1@news.alt.net>
On 31 Oct 2006 13:21:09 -0600, Todd H. <comphelp@toddh.net> wrote:
> Ignoramus18920 <ignoramus18920@NOSPAM.18920.invalid> writes:
>
>> Like many people, I make pictures and videos and place them on my own
>> website (self hosted). I wrote a perl script that makes HTML index
>> files for directory structures, along with such nice features as image
>> thumbnails, RSS feed for updates, and even "video thumbnails" (small
>> animated GIFs that represent first several seconds of a video at the
>> rate of one frame per second).
>>
>> That's all nice. What I would like, though, is to also add
>> functionality to generate whatever Youtube is doing to make videos
>> that you can see embedded in a page, with the pause and resume buttons
>> etc. I assume that it is a Flash presentation. Is there some transcode
>> module or perl module that would let me convert a DivX file into a
>> video like youtube?
>
> Isn't everything in youtube a flash video object?
I believe that it is correct.
> I'm under the impression you'd need Macromedia flash to do the
> conversion, but I've not actually done it myself.
I believe that the package I need is called 'SWFTOOLS'. I am going to
install it and give it a try.
i
------------------------------
Date: Tue, 31 Oct 2006 19:55:50 +0000 (UTC)
From: Ignoramus18920 <ignoramus18920@NOSPAM.18920.invalid>
Subject: Re: Homemade youtube style (Flash??) videos?
Message-Id: <e4v98.dtd.17.1@news.alt.net>
On Tue, 31 Oct 2006 14:11:20 -0500, John-Paul Stewart <jpstewart@binaryfoundry.ca> wrote:
> Ignoramus18920 wrote:
>>
>> That's all nice. What I would like, though, is to also add
>> functionality to generate whatever Youtube is doing to make videos
>> that you can see embedded in a page, with the pause and resume buttons
>> etc. I assume that it is a Flash presentation. Is there some transcode
>> module or perl module that would let me convert a DivX file into a
>> video like youtube?
>
> Does the video have to "embedded" right into the page? If you can live
> with opening RealPlayer, you can get free versions of RealProducer Basic
> and Helix Server Basic to stream RealVideo to a maximum of 5
> simultaneous clients.
>
> Helix Server Basic (no fee, 5 streams):
> http://www.realnetworks.com/products/evalservers.html
>
> RealProducer Basic (to convert to RealVideo format):
> http://www.realnetworks.com/products/producer/basic.html
>
> (Note that the Linux version of RealProducer is command-line only, no
> GUI. The Windows version has both command-line and GUI components.)
>
> The RealPlayer window isn't as nicely integrated with the HTML content
> as the Flash stuff that YouTube uses. But RealPlayer should be
> available as widely as Flash, so it shouldn't really hurt functionality,
> IMHO.
Right now my index files simply refer to .avi files via A HREF=
links.
What I want is to change the links to poit to HTML pages that would
embed a Flash presentation AND also have a link to download .avi
files.
If I fail at that, I would consider other solutions, but I would
prefer to get Flash to work. I downloaded something called 'swftools"
and will soon give it a try.
i
------------------------------
Date: Tue, 31 Oct 2006 20:16:35 +0000 (UTC)
From: espie@lain.home (Marc Espie)
Subject: Re: Homemade youtube style (Flash??) videos?
Message-Id: <ei8av3$krv$1@biggoron.nerim.net>
If you can, try to avoid that, please.
There are sites that do embed video in various formats using just javascript.
YouTube doesn't work everywhere. It assumes you have flash running. Flash
isn't available on every platform. Flash isn't available on every processor.
These days, there ARE decoders for a variety of platforms that work almost
`everywhere'. After google's summer of code, the latest mplayer has improved
ffmpeg decoder, which means there's a variety of platforms on which you
can use those videos. Both konqueror and mozilla can show embedded videos,
including on OSes and on platforms for which there is absolutely NO flash
available.
If you start with perl, which is THE most portable script language ever,
don't cripple your style with flash, please.
------------------------------
Date: Tue, 31 Oct 2006 20:45:09 +0000 (UTC)
From: Ignoramus18920 <ignoramus18920@NOSPAM.18920.invalid>
Subject: Re: Homemade youtube style (Flash??) videos?
Message-Id: <e525m.knh.17.1@news.alt.net>
On Tue, 31 Oct 2006 20:16:35 +0000 (UTC), Marc Espie <espie@lain.home> wrote:
> If you can, try to avoid that, please.
>
> There are sites that do embed video in various formats using just javascript.
> YouTube doesn't work everywhere. It assumes you have flash running. Flash
> isn't available on every platform. Flash isn't available on every processor.
> These days, there ARE decoders for a variety of platforms that work almost
> `everywhere'. After google's summer of code, the latest mplayer has improved
> ffmpeg decoder, which means there's a variety of platforms on which you
> can use those videos. Both konqueror and mozilla can show embedded videos,
> including on OSes and on platforms for which there is absolutely NO flash
> available.
>
> If you start with perl, which is THE most portable script language ever,
> don't cripple your style with flash, please.
Well, I think that my plan is not as bad as you think.
My index page would carry a list of clickable thumbnails, still
thumbnails for regular images and short animated GIF thumbnails
representing videos. (already being done) The reader who clicks on a
video thumbnail would be sent to a small HTML page with two elements:
- a inline Flash animation
- a link to download an AVI video.
So, people without Flash would be able to view videos just fine, by
downloading .AVI's.
I am not trying to prevent my readers from downloading my videos,
that's not my objective, I just like the conveniences of Flash
(embedded video, pause etc).
i
------------------------------
Date: Tue, 31 Oct 2006 15:13:14 -0500
From: John-Paul Stewart <jpstewart@binaryfoundry.ca>
Subject: Re: Homemade youtube style (Flash??) videos?
Message-Id: <qbnk14-1ip.ln1@mail.binaryfoundry.ca>
Ignoramus18920 wrote:
> I downloaded something called 'swftools" and will soon give it a try.
I hadn't heard of swftools before, but it sure sounds like it fits your
original requirements...and it sounds like it fits the bill for
something I'm working on. So thanks for the tip!
------------------------------
Date: Tue, 31 Oct 2006 21:04:04 +0000 (UTC)
From: Ignoramus18920 <ignoramus18920@NOSPAM.18920.invalid>
Subject: Re: Homemade youtube style (Flash??) videos?
Message-Id: <e5396.r3o.17.1@news.alt.net>
On Tue, 31 Oct 2006 15:13:14 -0500, John-Paul Stewart <jpstewart@binaryfoundry.ca> wrote:
> Ignoramus18920 wrote:
>> I downloaded something called 'swftools" and will soon give it a try.
>
> I hadn't heard of swftools before, but it sure sounds like it fits your
> original requirements...and it sounds like it fits the bill for
> something I'm working on. So thanks for the tip!
The short of it is that it does not work for me, does not want to read
the DivX file nor the MPEG file. I suspect that something is deficient
with the way I installed the avifile library. I will try to push a
little in this direction. I will give up if that proves too much
effort, after all, I already have something working.
i
------------------------------
Date: Tue, 31 Oct 2006 22:52:15 +0000 (UTC)
From: Ignoramus18920 <ignoramus18920@NOSPAM.18920.invalid>
Subject: Re: Homemade youtube style (Flash??) videos?
Message-Id: <e59k0.js1.17.1@news.alt.net>
After some progress with avi2swf, I whipped up an example of a page
that would show one video in Flash and offer to download it.
The sound does NOT yet work, but I think that I will make it work.
http://igor.chudov.com/tmp/SWF/
I used the following commands to make a small video and convert it to
flash:
transcode -i test.avi -o divx5-test.avi -y xvid,mpeg3 -Z 160x120
avi2swf -T 8 -q 50 -m 44 divx5-test.avi ; ls -l output.swf
(note that divx5-test.avi has sound but output.swf does not -- so
something is wrong with avi2swf).
i
------------------------------
Date: Mon, 30 Oct 2006 18:09:13 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: Interesting behaviour with lexical variable
Message-Id: <9nrh14-sl9.ln1@osiris.mauzo.dyndns.org>
Quoth "Ferry Bolhar" <bol@adv.magwien.gv.at>:
> Hi to all,
>
> while playing with code like this:
>
> use warnings;
> while (my $input = <STDIN>){
> my $num = abs $input;
> print add();
>
> sub add {
> $num + $num;
> }
> }
>
> I found out that once the loop get executed for the second
> time, the variable $sum
ITYM '$num'.
> gets "splitted", taking the new value from $input in the loop, but
> leaving the old, previous value in add().
If you rewrite your loop as
while (my $input = <STDIN>) {
my $num = abs $input;
my $add = sub {
$num + $num;
};
print $add->();
}
it will do what you expect. Named subs are only created once, the first
time the 'sub foo' statement is executed; anon subs are created anew
each time, with a new lexical context.
> I was wondered a litte bit because I couldn't found described
> this behaviour anywhere in the docs.
If you think there is something that could be usefully added to the
'will not stay shared' warning description in perldiag, please draft a
patch :). I agree that this warning could usefully be produced in more
situations; IIRC this would be quite tricky for perl. I don't know the
details of why.
Ben
--
Heracles: Vulture! Here's a titbit for you / A few dried molecules of the gall
From the liver of a friend of yours. / Excuse the arrow but I have no spoon.
(Ted Hughes, [ Heracles shoots Vulture with arrow. Vulture bursts into ]
'Alcestis') [ flame, and falls out of sight. ] benmorrow@tiscali.co.uk
------------------------------
Date: 31 Oct 2006 12:01:10 -0800
From: gmlvsk2@gmail.com
Subject: max # of threads
Message-Id: <1162324869.915430.245700@f16g2000cwb.googlegroups.com>
i use ver 5.8.8 on linux.
2 gig of memory
Running this example perl dies after 295 threads.
JVM lets me create tens of thousands.
Is perl so limited when it comes to threads?
test script---------------------------
use strict;
use threads;
for(my $i=0; ; $i++){
threads->new(\&f1);
print "$i\n";
}
sub f1{
sleep 100;
}
output ----------------------------------
291
292
293
294
295
Thread creation failed: pthread_create returned 12 at tmp.pl line 5.
296
Thread creation failed: pthread_create returned 12 at tmp.pl line 5.
297
Thread creation failed: pthread_create returned 12 at tmp.pl line 5.
298
Thread creation failed: pthread_create returned 12 at tmp.pl line 5.
299
...
Thread creation failed: pthread_create returned 12 at tmp.pl line 5.
383
Out of memory!
Segmentation fault
------------------------------
Date: 31 Oct 2006 22:23:58 GMT
From: xhoster@gmail.com
Subject: Re: max # of threads
Message-Id: <20061031172437.584$gG@newsreader.com>
gmlvsk2@gmail.com wrote:
> i use ver 5.8.8 on linux.
> 2 gig of memory
what architecture and version of linux?
> Running this example perl dies after 295 threads.
Hmmm. I get 1232 with the 5.8.8 on a machine with 2 gig of memory before
it does with a out of memory error. God knows why I would want to, but I
can.
This is perl, v5.8.8 built for i686-linux-thread-multi
2.4.21-15.0.3.ELsmp #1 SMP Tue Jun 29 18:04:47 EDT 2004 i686 unknown
unknown GNU/Linux
> JVM lets me create tens of thousands.
So, if you need tens of thousands of threads, use Java.
> Is perl so limited when it comes to threads?
Apparently. I've never viewed the creation of threads as a worthy goal
in and of itself, so it doesn't seem like much of a limitation to me.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 31 Oct 2006 14:52:15 -0800
From: gmlvsk2@gmail.com
Subject: Re: max # of threads
Message-Id: <1162335135.843268.182840@e64g2000cwd.googlegroups.com>
Here is some more info
Linux 2.6.15-1.2054_FC5smp #1 SMP Tue Mar 14 16:05:46 EST 2006 i686
i686 i386 GNU/Linux
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
Platform:
osname=linux, osvers=2.6.9-22.18.bz155725.elsmp,
archname=i386-linux-thread-multi
uname='linux hs20-bc1-6.build.redhat.com 2.6.9-22.18.bz155725.elsmp
#1 smp thu nov 17 15:34:08 est 2005 i686 i686 i386 gnulinux '
config_args='-des -Doptimize=-O2 -g -pipe -Wall
-Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector
--param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic
-fasynchronous-unwind-tables -Dversion=5.8.8 -Dmyhostname=localhost
-Dperladmin=root@localhost -Dcc=gcc -Dcf_by=Red Hat, Inc.
-Dinstallprefix=/usr -Dprefix=/usr -Darchname=i386-linux
-Dvendorprefix=/usr -Dsiteprefix=/usr -Duseshrplib -Dusethreads
-Duseithreads -Duselargefiles -Dd_dosuid -Dd_semctl_semun -Di_db
-Ui_ndbm -Di_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio
-Dinstallusrbinperl=n -Ubincompat5005 -Uversiononly
-Dpager=/usr/bin/less -isr -Dd_gethostent_r_proto
-Ud_endhostent_r_proto -Ud_sethostent_r_proto -Ud_endprotoent_r_proto
-Ud_setprotoent_r_proto -Ud_endservent_r_proto -Ud_setservent_r_proto
-Dinc_version_list=5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 -Dscriptdir=/usr/bin'
hint=recommended, useposix=true, d_sigaction=define
usethreads=define use5005threads=undef useithreads=define
usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing
-pipe -Wdeclaration-after-statement -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
optimize='-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions
-fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386
-mtune=generic -fasynchronous-unwind-tables',
cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe
-Wdeclaration-after-statement -I/usr/local/include -I/usr/include/gdbm'
ccversion='', gccversion='4.1.0 20060228 (Red Hat 4.1.0-1)',
gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='gcc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lresolv -lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread
-lc
perllibs=-lresolv -lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
libc=/lib/libc-2.3.90.so, so=so, useshrplib=true,
libperl=libperl.so
gnulibc_version='2.3.90'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E
-Wl,-rpath,/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE'
cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY PERL_IMPLICIT_CONTEXT
PERL_MALLOC_WRAP USE_ITHREADS USE_LARGE_FILES
USE_PERLIO USE_REENTRANT_API
Built under linux
Compiled at Mar 1 2006 18:29:53
@INC:
/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.8
/usr/lib/perl5/site_perl/5.8.7
/usr/lib/perl5/site_perl/5.8.6
/usr/lib/perl5/site_perl/5.8.5
/usr/lib/perl5/site_perl/5.8.4
/usr/lib/perl5/site_perl/5.8.3
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.8
/usr/lib/perl5/vendor_perl/5.8.7
/usr/lib/perl5/vendor_perl/5.8.6
/usr/lib/perl5/vendor_perl/5.8.5
/usr/lib/perl5/vendor_perl/5.8.4
/usr/lib/perl5/vendor_perl/5.8.3
/usr/lib/perl5/vendor_perl
/usr/lib/perl5/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/5.8.8
.
------------------------------
Date: 31 Oct 2006 14:52:42 -0800
From: gmlvsk2@gmail.com
Subject: Re: max # of threads
Message-Id: <1162335162.246297.98340@e3g2000cwe.googlegroups.com>
Here is some more info
Linux 2.6.15-1.2054_FC5smp #1 SMP Tue Mar 14 16:05:46 EST 2006 i686
i686 i386 GNU/Linux
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
Platform:
osname=linux, osvers=2.6.9-22.18.bz155725.elsmp,
archname=i386-linux-thread-multi
uname='linux hs20-bc1-6.build.redhat.com 2.6.9-22.18.bz155725.elsmp
#1 smp thu nov 17 15:34:08 est 2005 i686 i686 i386 gnulinux '
config_args='-des -Doptimize=-O2 -g -pipe -Wall
-Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector
--param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic
-fasynchronous-unwind-tables -Dversion=5.8.8 -Dmyhostname=localhost
-Dperladmin=root@localhost -Dcc=gcc -Dcf_by=Red Hat, Inc.
-Dinstallprefix=/usr -Dprefix=/usr -Darchname=i386-linux
-Dvendorprefix=/usr -Dsiteprefix=/usr -Duseshrplib -Dusethreads
-Duseithreads -Duselargefiles -Dd_dosuid -Dd_semctl_semun -Di_db
-Ui_ndbm -Di_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio
-Dinstallusrbinperl=n -Ubincompat5005 -Uversiononly
-Dpager=/usr/bin/less -isr -Dd_gethostent_r_proto
-Ud_endhostent_r_proto -Ud_sethostent_r_proto -Ud_endprotoent_r_proto
-Ud_setprotoent_r_proto -Ud_endservent_r_proto -Ud_setservent_r_proto
-Dinc_version_list=5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 -Dscriptdir=/usr/bin'
hint=recommended, useposix=true, d_sigaction=define
usethreads=define use5005threads=undef useithreads=define
usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing
-pipe -Wdeclaration-after-statement -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
optimize='-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions
-fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386
-mtune=generic -fasynchronous-unwind-tables',
cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe
-Wdeclaration-after-statement -I/usr/local/include -I/usr/include/gdbm'
ccversion='', gccversion='4.1.0 20060228 (Red Hat 4.1.0-1)',
gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='gcc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lresolv -lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread
-lc
perllibs=-lresolv -lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
libc=/lib/libc-2.3.90.so, so=so, useshrplib=true,
libperl=libperl.so
gnulibc_version='2.3.90'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E
-Wl,-rpath,/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE'
cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY PERL_IMPLICIT_CONTEXT
PERL_MALLOC_WRAP USE_ITHREADS USE_LARGE_FILES
USE_PERLIO USE_REENTRANT_API
Built under linux
Compiled at Mar 1 2006 18:29:53
@INC:
/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.7/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.6/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.8
/usr/lib/perl5/site_perl/5.8.7
/usr/lib/perl5/site_perl/5.8.6
/usr/lib/perl5/site_perl/5.8.5
/usr/lib/perl5/site_perl/5.8.4
/usr/lib/perl5/site_perl/5.8.3
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.7/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.6/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.8
/usr/lib/perl5/vendor_perl/5.8.7
/usr/lib/perl5/vendor_perl/5.8.6
/usr/lib/perl5/vendor_perl/5.8.5
/usr/lib/perl5/vendor_perl/5.8.4
/usr/lib/perl5/vendor_perl/5.8.3
/usr/lib/perl5/vendor_perl
/usr/lib/perl5/5.8.8/i386-linux-thread-multi
/usr/lib/perl5/5.8.8
.
------------------------------
Date: Mon, 30 Oct 2006 18:13:02 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: Perl equivalent to unix script
Message-Id: <eurh14-sl9.ln1@osiris.mauzo.dyndns.org>
[newsgroups trimmed, f'ups set]
Quoth "Mike" <mikedawg@gmail.com>:
> Ok. . . Well, I'm sure here comes another dumb question. I'm fairly
> handy with unix and unix scripting, however, I'm terrible at perl.
>
> What I'm looking to do with a perl script is the equivalent of the
> following unix (bash) script:
>
> cat tempfile1 | sort > newfile2; rm tempfile1
>
> I'm not completely comfortable with file handling in perl, and I think
> it should be easy to do, but I've been unsuccessful in trying to do it.
perldoc -f open
"I/O Operators" in perlop
perldoc -f sort
perldoc -f print
perldoc -f unlink
Make an attempt to solve the problem yourself. If you fail, post what
you have, and we will help you fix it.
Ben
--
We do not stop playing because we grow old;
we grow old because we stop playing.
benmorrow@tiscali.co.uk
------------------------------
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 9912
***************************************
