[29615] in Perl-Users-Digest
Perl-Users Digest, Issue: 859 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 17 21:09:44 2007
Date: Mon, 17 Sep 2007 18:09: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, 17 Sep 2007 Volume: 11 Number: 859
Today's topics:
Can perl start another perl script and then exit? <bill@ts1000.us>
Re: Can perl start another perl script and then exit? <asolkar@gmail.com>
Re: Can perl start another perl script and then exit? <ben@morrow.me.uk>
Re: Can perl start another perl script and then exit? <bill@ts1000.us>
Re: Challenge: CPU-optimized byte-wise or-equals (for a <brian.d.foy@gmail.com>
Re: Challenge: CPU-optimized byte-wise or-equals (for a <bik.mido@tiscalinet.it>
Re: Challenge: CPU-optimized byte-wise or-equals (for a jgraber@ti.com
Re: Challenge: CPU-optimized byte-wise or-equals (for a <m@rtij.nl.invlalid>
Command line option for split xlue897@rogers.com
Re: Command line option for split <dummy@example.com>
Re: Command line option for split <bik.mido@tiscalinet.it>
Re: csv, perl and German umlaute <josef.moellers@fujitsu-siemens.com>
Re: FAQ 4.18 Does Perl have a Year 2000 problem? Is Per <brian.d.foy@gmail.com>
Free trips around the globe!!!!!!!!!! nutsbreaker1@gmail.com
Help Prima work on WIndows!! <jismagic@gmail.com>
how to remove duplicate header line in CGI dmedhora@gmail.com
Re: how to remove duplicate header line in CGI xhoster@gmail.com
Re: Installing XS Modules on Windows -- Like Pulling Te <bik.mido@tiscalinet.it>
Re: looking at parsing procedures <zaxfuuq@invalid.net>
Re: looking at parsing procedures <bik.mido@tiscalinet.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 17 Sep 2007 15:44:13 -0700
From: Bill H <bill@ts1000.us>
Subject: Can perl start another perl script and then exit?
Message-Id: <1190069053.257334.95610@r29g2000hsg.googlegroups.com>
I need to have a perl script start another script and then exit,
returning completed header information to a web page. The other
program will continue running on the server processing some pdf files,
and when done it will set a flag.
The web page, once it initiates the 1st program (which starts the
background program) and receive the status from the 1st program (using
flash) will then start a 3rd program, which checks for the "done
flag", if it isn't set it will tell the web page (flash) to try again.
This will continue to the 2nd program is complete.
So, can I start a 2nd script in perl and have the 1st program exit
without effecting the 2nd program? System() would just wait, Exec()
would start the 2nd and leave the 1st behind.
If this is something obvious that I am missing, please point me in the
right direction.
Thanks
Bill H
------------------------------
Date: Tue, 18 Sep 2007 00:03:31 -0000
From: Mahesh Asolkar <asolkar@gmail.com>
Subject: Re: Can perl start another perl script and then exit?
Message-Id: <1190073811.783602.262360@d55g2000hsg.googlegroups.com>
On Sep 17, 3:44 pm, Bill H <b...@ts1000.us> wrote:
> I need to have a perl script start another script and then exit,
> returning completed header information to a web page. The other
> program will continue running on the server processing some pdf files,
> and when done it will set a flag.
>
> The web page, once it initiates the 1st program (which starts the
> background program) and receive the status from the 1st program (using
> flash) will then start a 3rd program, which checks for the "done
> flag", if it isn't set it will tell the web page (flash) to try again.
> This will continue to the 2nd program is complete.
>
> So, can I start a 2nd script in perl and have the 1st program exit
> without effecting the 2nd program? System() would just wait, Exec()
> would start the 2nd and leave the 1st behind.
>
> If this is something obvious that I am missing, please point me in the
> right direction.
Sounds like something threads could do. Have you tried 'perldoc
threads'?
HTH,
Mahesh.
------------------------------
Date: Tue, 18 Sep 2007 01:06:49 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Can perl start another perl script and then exit?
Message-Id: <pdh3s4-681.ln1@osiris.mauzo.dyndns.org>
Quoth Bill H <bill@ts1000.us>:
> I need to have a perl script start another script and then exit,
> returning completed header information to a web page. The other
> program will continue running on the server processing some pdf files,
> and when done it will set a flag.
>
> The web page, once it initiates the 1st program (which starts the
> background program) and receive the status from the 1st program (using
> flash) will then start a 3rd program, which checks for the "done
> flag", if it isn't set it will tell the web page (flash) to try again.
> This will continue to the 2nd program is complete.
It is probably possible to do this without polling, which would be
easier on the network. I don't know if Flash times out HTTP requests,
but if it can be told not to one obvious way is for the third script to
simply hold off sending a reply until it is done. Of course, if you want
to do other Flash stuff simultaneously, this may not be possible unless
you can get Flash to make the request asynchronously.
> So, can I start a 2nd script in perl and have the 1st program exit
> without effecting the 2nd program? System() would just wait, Exec()
> would start the 2nd and leave the 1st behind.
>
> If this is something obvious that I am missing, please point me in the
> right direction.
perldoc -q background
Ben
------------------------------
Date: Mon, 17 Sep 2007 17:07:06 -0700
From: Bill H <bill@ts1000.us>
Subject: Re: Can perl start another perl script and then exit?
Message-Id: <1190074026.540825.73630@g4g2000hsf.googlegroups.com>
On Sep 17, 8:03 pm, Mahesh Asolkar <asol...@gmail.com> wrote:
> On Sep 17, 3:44 pm, Bill H <b...@ts1000.us> wrote:
>
>
>
>
>
> > I need to have a perl script start another script and then exit,
> > returning completed header information to a web page. The other
> > program will continue running on the server processing some pdf files,
> > and when done it will set a flag.
>
> > The web page, once it initiates the 1st program (which starts the
> > background program) and receive the status from the 1st program (using
> > flash) will then start a 3rd program, which checks for the "done
> > flag", if it isn't set it will tell the web page (flash) to try again.
> > This will continue to the 2nd program is complete.
>
> > So, can I start a 2nd script in perl and have the 1st program exit
> > without effecting the 2nd program? System() would just wait, Exec()
> > would start the 2nd and leave the 1st behind.
>
> > If this is something obvious that I am missing, please point me in the
> > right direction.
>
> Sounds like something threads could do. Have you tried 'perldoc
> threads'?
>
> HTH,
> Mahesh.- Hide quoted text -
>
> - Show quoted text -
Thanks for the tip Mahesh. Will look into threads.
BIll H
------------------------------
Date: Mon, 17 Sep 2007 11:46:33 -0400
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: Challenge: CPU-optimized byte-wise or-equals (for a meter of beer)
Message-Id: <170920071146338745%brian.d.foy@gmail.com>
In article <9o1te3tk0ak0bgi0053frtk3ej7813nrhj@4ax.com>, Michele Dondi
<bik.mido@tiscalinet.it> wrote:
> As I wrote in reply to Charlton, I'm stopping anyway, but I can't see
> how so: are texts posted to public fora and newsgroups supposed to
> count as copyrighted material?
Well, depending on the source country and local laws, yes, authorship
is generally automatically counted as copyrighted material just by the
act of creation. The author publishes it in a certain way, such as on
Perlmonks. That doesn't necessarily mean he wants it published in some
other way.
See "transformative effect" discussions about copyright, which I
mentioned earlier.
> Do you see a problem of ethic nature?
Well, I do, but that doesn't mean that everyone does. I certainly think
it is rude to the author to simply repost an entire post.
> (Especially taking into account the inclusion of proper attributions
> and/*or* a link to the original post?)
I don't think you gave proper attribution. You linked to the original
post, but you did not identify the original author in the clpm message.
------------------------------
Date: Mon, 17 Sep 2007 18:35:25 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Challenge: CPU-optimized byte-wise or-equals (for a meter of beer)
Message-Id: <nvate399t6g5im9t9ekqkr9f6sgugrb83l@4ax.com>
On Mon, 17 Sep 2007 11:46:33 -0400, brian d foy
<brian.d.foy@gmail.com> wrote:
>> (Especially taking into account the inclusion of proper attributions
>> and/*or* a link to the original post?)
>
>I don't think you gave proper attribution. You linked to the original
>post, but you did not identify the original author in the clpm message.
Well, re this particular point I was about to answer you in the
use.perl journal, and I will probably do anyway. You're of course
right and it would be poinltless to claim that I did. (BTW: did you
notice how I emphasized "or" above?) Still I hope you will agree that
1. in all the other posts "of the same nature" I did include the name
or the nick of the original author;
2. even in this particular one I specified that I'm not the author of
the original post, and giving the link also gives one the means to
check who the latter actually is.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 17 Sep 2007 14:46:21 -0500
From: jgraber@ti.com
Subject: Re: Challenge: CPU-optimized byte-wise or-equals (for a meter of beer)
Message-Id: <yvnbqc1oz1u.fsf@famous02.dal.design.ti.com>
jgraber@ti.com writes:
> Michele Dondi <bik.mido@tiscalinet.it> writes:
>
> > I have two very long (>64k) strings of equal lengths - $s1 and $s2.
> > They are strings of bytes, meaning that any value from chr(0) to
> > chr(255) is legal. $s2, however, will not have any chr(0). $s1 may or
> > may not have any. What I need to do is look at each byte in $s1 and if
> > it is chr(0), replace it with the corresponding byte in $s2.
>
> (my $s1m = $s1) =~ tr/\000-\377/\377\000/;
> $s1 |= ($s2 & $s1m);
Converted to a subroutine suitable for previous benchmark program
sub trandor_ref{
my ($s1ref, $s2ref) = @_;
(my $s1m = $$s1ref) =~ tr/\000-\377/\377\000/;
$$s1ref |= ($$s2 & $s1m);
}
Benchmark results:
Rate avar2 moritz trandor_ref
avar2 1244/s -- -26% -95%
moritz 1673/s 34% -- -93%
trandor_ref 22904/s 1741% 1269% --
Another example of Perl writing better C than I do.
If perl6 had another version of tr/// that returned the resulting
string instead of the number of matches, this could be a 1-liner.
--
Joel
------------------------------
Date: Mon, 17 Sep 2007 22:08:15 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Challenge: CPU-optimized byte-wise or-equals (for a meter of beer)
Message-Id: <pan.2007.09.17.20.03.38@rtij.nl.invlalid>
On Sun, 16 Sep 2007 23:22:32 +0000, xhoster wrote:
>> Why do you think it'll behave otherwise?
>
> Because I wrote it that way on purpose, and because I tested it.
I apologize, you are right.
M4
------------------------------
Date: Mon, 17 Sep 2007 10:32:41 -0700
From: xlue897@rogers.com
Subject: Command line option for split
Message-Id: <1190050361.001713.243710@22g2000hsm.googlegroups.com>
Hi,
Can we specify the [limit] option for split in command line? For perl
code, we can do things like
@F=split /pattern/, expr, limit;
in command line, we can express pattern like
perl -F"/pattern/" -anle '...'
but how can we specify the limit in command line?
Thanks,
Steven
------------------------------
Date: Mon, 17 Sep 2007 19:25:46 GMT
From: "John W. Krahn" <dummy@example.com>
Subject: Re: Command line option for split
Message-Id: <_wAHi.67814$vP5.40891@edtnps90>
xlue897@rogers.com wrote:
>
> Can we specify the [limit] option for split in command line?
No.
> For perl code, we can do things like
>
> @F=split /pattern/, expr, limit;
That is what you are going to have to do.
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Mon, 17 Sep 2007 21:01:40 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Command line option for split
Message-Id: <lmjte3d5ka1ppfqbo20537b02aimmaheqr@4ax.com>
On Mon, 17 Sep 2007 10:32:41 -0700, xlue897@rogers.com wrote:
>Can we specify the [limit] option for split in command line? For perl
>code, we can do things like
No, I don't really think so.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 17 Sep 2007 17:12:11 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: csv, perl and German umlaute
Message-Id: <fcm5gi$ail$1@nntp.fujitsu-siemens.com>
abadiya wrote:
> Hi,
>=20
> I'm using Mason/Perl. At the moment I'm trying to pull data out of a
> csv-file into an html file with the help of Perl. Works fine but I
> have problems with the displayal of German umlaute. Sometimes they are
> displayed, sometimes I get questionmarks where the umlaute should be.
> Changes almost every time I refresh the page.
>=20
> I've got this line at the beginning of my code to force the page to
> use utf8 but it won't work.
> <%method .utf8></%method>
>=20
> Can you help me?
You know that with Text::CSV_XS you have to specify "binary =3D> 1" with =
the new method to pick up those letters (BTDTGT)?
As you have shown us no code, there's little we can tell about what you=20
may do wrong.
--=20
These are my personal views and not those of Fujitsu Siemens Computers!
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
Date: Mon, 17 Sep 2007 11:50:45 -0400
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 4.18 Does Perl have a Year 2000 problem? Is Perl Y2K compliant?
Message-Id: <170920071150453847%brian.d.foy@gmail.com>
In article <slrnfer32e.1tip.usenet@debranded.larseighner.com>, Lars
Eighner <usenet@larseighner.com> wrote:
> In our last episode, <68b0s4-0ii.ln1@blue.stonehenge.com>, the lovely and
> talented PerlFAQ Server broadcast on comp.lang.perl.misc:
>
> > 4.18: Does Perl have a Year 2000 problem? Is Perl Y2K compliant?
>
> Isn't it about time to give this FAQ its gold watch and send it off to the
> home?
The year 2000 just hit Eithiopia :)
------------------------------
Date: Mon, 17 Sep 2007 11:33:43 -0700
From: nutsbreaker1@gmail.com
Subject: Free trips around the globe!!!!!!!!!!
Message-Id: <1190054023.827184.187060@n39g2000hsh.googlegroups.com>
http://world-traveling-destinations.blogspot.com/
------------------------------
Date: Mon, 17 Sep 2007 18:26:07 -0000
From: jis <jismagic@gmail.com>
Subject: Help Prima work on WIndows!!
Message-Id: <1190053567.540124.52230@d55g2000hsg.googlegroups.com>
I am having really a tought time making Prima work on WIndows.
I get an error "No appropriate Codec found"
I have installed
1. Prima 1.22
2. Prima-prigraph-win32-1.01 from CPAN.
3. I use WIndows xp.
4. Visual Studio 6.0
Anything I can do to make it work fine.
My sample code was
use Prima qw(Application);
# create a new image from scratch
my $i = Prima::Image-> new(
width => 32,
height => 32,
type => im::BW, # same as im::bpp1 | im::GrayScale
);
# draw something
$i-> begin_paint;
$i-> color( cl::White);
$i-> ellipse( 5, 5, 10, 10);
$i-> end_paint;
# mangle
$i-> size( 64, 64);
# file operations
$i-> save('paint.gif') or die "Error saving:$@\n";
$i-> load('paint.gif') or die "Error loading:$@\n";
Cheers,
Jis
------------------------------
Date: Mon, 17 Sep 2007 13:25:11 -0700
From: dmedhora@gmail.com
Subject: how to remove duplicate header line in CGI
Message-Id: <1190060711.085227.70010@d55g2000hsg.googlegroups.com>
Hi,
When I write a CGI script in perl I seem to get this line printed out
TWICE !
Content-Type: text/html; charset=iso-8859-1
It also shows up in the web browser as the first line, when I execute
the same from my cgi-bin
dir.
Any idea how I may get rid of this duplication ? It could be causing
problems while
I debug and run my programs..
Thanks:)
------------------------------
Date: 17 Sep 2007 22:10:53 GMT
From: xhoster@gmail.com
Subject: Re: how to remove duplicate header line in CGI
Message-Id: <20070917181056.607$Q8@newsreader.com>
dmedhora@gmail.com wrote:
> Hi,
> When I write a CGI script in perl I seem to get this line printed out
> TWICE !
>
> Content-Type: text/html; charset=iso-8859-1
>
> It also shows up in the web browser as the first line, when I execute
> the same from my cgi-bin
> dir.
>
> Any idea how I may get rid of this duplication ?
Figure out which part of your code is printing both of these, and take out
whichever part it makes the most sense to take out.
You could try to tie STDOUT to something that will filter out
a second header, but at that point you pretty much have to face
the fact that the code is now in control of you and not the other
way around. Time to start working on a fundamental re-design.
If you use fatalsToBrowser then a fatal error might cause an extra header
to be printed if one has already been printed. This has never caused
me a problem, so I just live with it. It tries to guess if you have
already printed a header, but I believe the way it does this, and
the effectiveness of it, changes from version to version.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Mon, 17 Sep 2007 17:13:27 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Installing XS Modules on Windows -- Like Pulling Teeth
Message-Id: <o86te3t7mc7e317184pso4hns4jqj9mlj3@4ax.com>
On Mon, 17 Sep 2007 11:42:00 +0100, Ben Morrow <ben@morrow.me.uk>
wrote:
>> >I'm running on Windows with ActivePerl, and I'm trying to install
>> >XML::LibXML. It's not in the PPM repository, so that's out of the
>> >question. I downloaded MinGW, so I have gcc, and I downloaded both
>>
>> Did you try other repositories?
>>
>> http://win32.perl.org/wiki/index.php?title=PPM_Repositories
>
>Given the number of questions that come up with this answer, do you
>suppose ActiveState could be persuaded to include them by default? I
>guess they don't want support requests for things they cannot support...
Well, pehaps they should. After all, they would still include their
own repository as the first one.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 17 Sep 2007 11:10:54 -0700
From: "Wade Ward" <zaxfuuq@invalid.net>
Subject: Re: looking at parsing procedures
Message-Id: <ae6dnccCWIStKHPbnZ2dnUVZ_v6rnZ2d@comcast.com>
"merl the perl" <zaxfuuq@invalid.net> wrote in message
news:0tKdnQDBi4kFvHPbnZ2dnUVZ_h6vnZ2d@comcast.com...
>I have posted in the memorable past about using the Perl Programming
>Language to make a unBuckeyesque yikes.
>
> Instead of something thnt has to do with Ohio; im looking to develop my
> first if statemnet. Hot here in the desert.
>
> I would lijke to use tppl to test for a condition.
>
> The condition for which I would like to test is whether the dude ho sends
> it is 'Wade Ward'.
>
> This person must use perl programming . Sometimes blind.
>
> , and, for good measure, tja.
Nice spelling, dude.
Instead, let's look at the subject line using the following script:
#!/usr/bin/perl -w
use strict;
use Net::NNTP ();
use constant NUMBER_OF_ARTICLES => 10;
use constant GROUP_NAME => 'alt.solaris.x86';
use constant SERVER_NAME => 'newsgroups.comcast.net';
use constant NNTP_DEBUG => 0;
my $nntp = Net::NNTP->new(SERVER_NAME, 'Debug' => NNTP_DEBUG) or die;
my $USER = '';
my $PASS = '';
$nntp->authinfo($USER,$PASS) or die $!;
my($article_count, $first_article, $last_article) =
$nntp->group(GROUP_NAME) or die;
# Which XOVER fields contain Subject: and From:?
my $count = 0;
my %xover_fmt = map( ($_, $count++), @{ $nntp->overview_fmt or die} );
die unless exists $xover_fmt{'Subject:'};
my $subject_offset = $xover_fmt{'Subject:'};
my $from_offset = $xover_fmt{'From:'};
my(@xover, $start_article);
RETRIEVE: while ($#xover+1 < NUMBER_OF_ARTICLES and $last_article >=
$first_article) {
# How many articles do we need? Stop retrieving if we have enough
my $articles_required = NUMBER_OF_ARTICLES - ($#xover+1) or last
RETRIEVE;
# Fetch overview information for the articles
$start_article = $last_article - ($articles_required-1);
$start_article = $start_article > $first_article ? $start_article :
$first_article;
my $xover_query = $start_article == $last_article ?
$start_article :
[$start_article, $last_article];
my $xover_ref = $nntp->xover($xover_query) or die;
# Store headers for the articles we've retrieved
foreach (sort {$b <=> $a} keys %$xover_ref) {
push @xover, $xover_ref->{$_};
}
} continue {
# Move the pointer forward to fetch previous articles
$last_article = $start_article - 1;
}
# Disconnect from the NNTP server
$nntp->quit;
print join("\n", map ($_->[$subject_offset].' from
'.$_->[$from_offset], @xover)),"\n";
# end script begin output
Re: Solaris compile problems from jjnunes@sonic.net
vmware tools for solaris 10 from apogeusistemas@gmail.com
Re: Question On Endianness And Solaris Sparc Versus IA32 File Systems from
andrew@cucumber.demon.co.uk (Andrew Gabriel)
Re: Question On Endianness And Solaris Sparc Versus IA32 File Systems from
Thomas Tornblom <thomas@Hax.SE>
Question On Endianness And Solaris Sparc Versus IA32 File Systems from
Thomas Dineen <tjjdineen@comcast.net>
Re: Dual boot from "Canuck57" <dave-no_spam@unixhome.net>
Re: yikes: OS 10 install from "Wade Ward" <zaxfuuq@invalid.net>
video prpbs from "Trevor Dunstan" <trevordunstan@netspace.net.au>
Hot Jobs - HCL - Noida/Chennai/Gurgaon/Mumbai from simmidas2007@yahoo.co.in
Re: NICs and hyperthreading... from "Gary R. Schmidt" <grschmidt@acm.org>
How do I test the subject line to see whether 'Solaris' occurs?
--
Wade Ward
wade@zaxfuuq.net
"I ain't got time to bleed."
--Jesse the Chomco
------------------------------
Date: Mon, 17 Sep 2007 21:00:03 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: looking at parsing procedures
Message-Id: <vkjte31tvcgba67vpr7ej9f3rh089plceh@4ax.com>
On Mon, 17 Sep 2007 11:10:54 -0700, "Wade Ward" <zaxfuuq@invalid.net>
wrote:
>How do I test the subject line to see whether 'Solaris' occurs?
/Solaris/
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
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 859
**************************************
