[24957] in Perl-Users-Digest
Perl-Users Digest, Issue: 7207 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 4 11:07:55 2004
Date: Mon, 4 Oct 2004 08:05:11 -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, 4 Oct 2004 Volume: 10 Number: 7207
Today's topics:
Re: CGI.pm sticky hidden fields: why? <bernie@fantasyfarm.com>
Re: conditional help <abigail@abigail.nl>
Re: Explorer doesn't run my perl cgi program like netsc (Allen)
Re: Explorer doesn't run my perl cgi program like netsc (Allen)
Re: Explorer doesn't run my perl cgi program like netsc <tadmc@augustmail.com>
File::Find adding bits? <dkoleary@olearycomputers.com>
Re: File::Find adding bits? <dkoleary@olearycomputers.com>
Re: hack out chunk from large text file? (Anno Siegel)
Re: hack out chunk from large text file? <tadmc@augustmail.com>
Help needed with Hash (Page)
Re: how do i automatically close a Msgbox based on a ti <kiloran@nowhere.com>
Re: how do i automatically close a Msgbox based on a ti <MrReallyVeryNice.REMOVE.NO.SPAM@Yahoo.REMOVE.NO.SPAM.com>
Re: how do i automatically close a Msgbox based on a ti <josef.moellers@fujitsu-siemens.com>
Re: How Google/Amazon/eBay use? <nospam@bigpond.com>
Re: How Google/Amazon/eBay use? (krakle)
Re: How Google/Amazon/eBay use? (krakle)
Re: How Google/Amazon/eBay use? <derernst@NO#SP#AMgmx.ch>
Re: How Google/Amazon/eBay use? <kevin@pricetrak.com>
How to flush a stinkin' socket? (your name here)
Re: Is HTTPS Proxy Secure? <NOtheSpaceGirlSPAM@subhuman.net>
Re: Is HTTPS Proxy Secure? <tadmc@augustmail.com>
Re: match a long string in Regex.. <b-patton@ti.com>
Re: match a long string in Regex.. <tadmc@augustmail.com>
Re: Odd sort() problem <bigal187@invalid.rx.eastcoasttfc.com>
reading a list of files (john williams)
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Re: Two write to a file with flock, what will happen? <nospam@bigpond.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 04 Oct 2004 08:21:55 -0400
From: Bernie Cosell <bernie@fantasyfarm.com>
Subject: Re: CGI.pm sticky hidden fields: why?
Message-Id: <glf2m0dg2os4us4e8tcs401ph9qquaukl6@library.airnews.net>
"Alan J. Flavell" <flavell@ph.gla.ac.uk> wrote:
} On Sun, 3 Oct 2004, Bernie Cosell wrote:
} > Interesting, the other side of the coin is that you have to remember
} > *ALL*THE*TIME* that if you change a value it *wont*get*changed* and so
} > you'l come back into your CGI with wrong stuff... You slip up once
} > remembering to stick in the annoying "-override" and your CGI pgm
} > misbehaves.
}
} If that's what you *routinely* want, then you'd be better advised
} to use the -nosticky pragma. Documented below
} http://stein.cshl.org/WWW/software/CGI/#import
Indeed, I tried that and it didn't suffice - I think it didn't disable the
machinery entirely and mostly didn't work right. But I see what my problem
here might be [and LDS probably *HAS* done what I wanted]. In the version
I have online, the nosticky does:
>>> This makes CGI.pm not generating the hidden fields
>>> .submit and .cgifields. It is very useful if you don't
>>> want to have the hidden fields appear in the querys
>>> tring in a GET method.
But in the online docs for the latest version, the description of nosticky
makes more sense [and actually does what I want]:
>>> Turns off "sticky" behavior in fill-out forms. Every form element will act
>>> as if you passed -override.
And so I retract my complaint..:o) [and I need to nag the sysadmins to get
the latest version of CGI.pm!] Thanks!
/Bernie\
--
Bernie Cosell Fantasy Farm Fibers
bernie@fantasyfarm.com Pearisburg, VA
--> Too many people, too few sheep <--
------------------------------
Date: 04 Oct 2004 07:48:10 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: conditional help
Message-Id: <slrncm201p.qgs.abigail@alexandra.abigail.nl>
Joe Smith (Joe.Smith@inwap.com) wrote on MMMMLI September MCMXCIII in
<URL:news:I4_7d.197410$3l3.79898@attbi_s03>:
:: buildmorelines wrote:
::
:: > and this doesnt and generates syntax error?
:: >
:: > #!/usr/bin/perl
:: > print "true" if $ARGV[0];
:: > else print "false";
::
:: Because perl is not C.
::
:: if() {...} elsif() {...} elsif() {...} else {...};
::
:: The else part in perl is surrounded by braces.
But
print "true" if $ARGV [0];
else {print "false"}
is a syntax either. It has nothing at all to do with "an else part
needs to be surrounded by braces". It has everything to do with
the if being a *statement modifier*. It does not *have* an else part.
Correct ways of writing this include:
if ($ARGV [0]) {print "true"}
else {print "else"}
print $ARGV [0] ? "true" : "false"
print "true" if $ARGV [0];
print "false" unless $ARGV [0];
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
------------------------------
Date: 4 Oct 2004 02:40:15 -0700
From: allen.taylor@halliburton.com (Allen)
Subject: Re: Explorer doesn't run my perl cgi program like netscape does.
Message-Id: <cac1749e.0410040140.fbe9fd9@posting.google.com>
Sherm Pendley <spamtrap@dot-app.org> wrote in message news:<Bc-dnc_zAtiFScbcRVn-sw@adelphia.com>...
> Allen wrote:
>
> > I have a fully tested and functional perl cgi program that works fine
> > using Netscape. However, when I click on a submit button in Explorer,
> > nothing happens at all. No logged messages, no error messages. I've
> > tried searching the internet for some answers but have found nothing
> > relevant yet. Does anybody have any ideas?
>
> First of all, are you certain that the problem is Perl-related? Perl
> tends to complain *loudly* when things go wrong, so a failure that
> leaves no traces in the error log is usually a clue to look elsewhere.
>
> Check if the form is being submitted at all - if the CGI never runs, the
> problem is guaranteed to be in the client. If it's in the client, check
> for HTML errors - you *did* validate the HTML, right? And check for
> JavaScript problems, especially if there's form validation or some funky
> onSubmit scripting that could prevent the form from being sent if it's
> buggy.
>
I agree that is not a perl problem. It works perfectly well when using
Netscape or Mozilla. The form loads in Explorer no problem. The first
two sections of the CGI program produce the desired responses.
However, the final 'submit' button doesn't do anything in Explorer, in
Netscape it works as expected. I have validated the HTML.
> sherm--
------------------------------
Date: 4 Oct 2004 06:07:05 -0700
From: allen.taylor@halliburton.com (Allen)
Subject: Re: Explorer doesn't run my perl cgi program like netscape does.
Message-Id: <cac1749e.0410040507.14e79b0b@posting.google.com>
Sherm Pendley <spamtrap@dot-app.org> wrote in message news:<Bc-dnc_zAtiFScbcRVn-sw@adelphia.com>...
> Allen wrote:
>
> > I have a fully tested and functional perl cgi program that works fine
> > using Netscape. However, when I click on a submit button in Explorer,
> > nothing happens at all. No logged messages, no error messages. I've
> > tried searching the internet for some answers but have found nothing
> > relevant yet. Does anybody have any ideas?
>
> First of all, are you certain that the problem is Perl-related? Perl
> tends to complain *loudly* when things go wrong, so a failure that
> leaves no traces in the error log is usually a clue to look elsewhere.
>
> Check if the form is being submitted at all - if the CGI never runs, the
> problem is guaranteed to be in the client. If it's in the client, check
> for HTML errors - you *did* validate the HTML, right? And check for
> JavaScript problems, especially if there's form validation or some funky
> onSubmit scripting that could prevent the form from being sent if it's
> buggy.
>
I have managed to solve this problem and I thank everybody that
responded. microsh*t's IE was very particular where the 'end_form' was
located in the perl CGI script. The logic was fine and Netscape (of
course) ran it perfectly. IE on the other hand seems to be very
particular about where the 'end_form' was located.
> sherm--
------------------------------
Date: Mon, 4 Oct 2004 07:44:25 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Explorer doesn't run my perl cgi program like netscape does.
Message-Id: <slrncm2hd9.igq.tadmc@magna.augustmail.com>
Allen <allen.taylor@halliburton.com> wrote:
> I agree that is not a perl problem.
Then why are you talking about it in the Perl newsgroup?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 04 Oct 2004 14:30:02 GMT
From: Doug O'Leary <dkoleary@olearycomputers.com>
Subject: File::Find adding bits?
Message-Id: <K7d8d.4580$GT4.4124@news.flashnewsgroups.com>
OK; this one's got me confused...
I have a function that's supposed to search a UNIX system for
.rhosts files. From the main section of the script, it's called
simply wiith:
### Users
check_weak_access();
Here are the functions:
sub check_weak_access
{
print_hdr("~/.rhosts & ~/.netrc");
my @files;
File::Find::find(sub {rhosts_wanted(".rhosts", \@files)}, '/');
foreach my $file (sort @files)
{ my ($mode, $uid, $gid) = (stat($file))[2,4,5];
my $user = getpwuid($uid) || $uid;
my $group = getgrgid($gid) || $gid;
my $owner = sprintf("%s:%s", $user, $group);
printf ("%-45s %-16s %04o\n", $file, $owner, $mode % 07777);
}
}
sub rhosts_wanted
{ my ($search, $files) = @_;
my ($dev,$ino,$mode,$nlink,$uid,$gid);
(($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_));
if ($dev < 0)
{ $File::Find::prune = 1; }
else
{ push(@{$files}, $File::Find::name) if (/^$search\z/s); }
}
When I run it, I get the following:
# ./audit
======================================================================
~/.rhosts & ~/.netrc
======================================================================
/admins/user1/.rhosts user1:sys 0760
/admins/user2/.rhosts user2:users 0654
/admins/oracle/.rhosts oracle:dba 0674
/home/user3/.rhosts 11056:sys 0674
/home/user4/.rhosts root:sys 0654
/home/user5/.rhosts user5:users 0410
/home/user6/.rhosts user6:users 0410
/home/user7/.rhosts user7:users 0610
/home/user8/.rhosts user8:users 0654
/home/user9/.rhosts user9:net 0410
/home/user10/.rhosts user10:grp 0676
/home/user11/.rhosts user11:users 0610
The problem is - those aren't the right permissions. 1 has been
added to all group perms...
# perl -e 'printf("%04o\n", (stat("/admins/oracle/.rhosts"))[2] & 07777)'
0664
# perl -e 'printf("%04o\n", (stat("/home/user10/.rhosts"))[2] & 07777)'
0666
# perl -e 'printf("%04o\n", (stat("/home/user11/.rhosts"))[2] & 07777)'
0600
Now that's just weird... Can anyone tell me what I messed up?
Thanks.
Doug
--
--------
Senior UNIX Admin
O'Leary Computer Enterprises
dkoleary@olearycomputers.com (w) 630-904-6098 (c) 630-248-2749
resume: http://home.comcast.net/~dkoleary/resume.html
------------------------------
Date: Mon, 04 Oct 2004 14:48:34 GMT
From: Doug O'Leary <dkoleary@olearycomputers.com>
Subject: Re: File::Find adding bits?
Message-Id: <6pd8d.4581$GT4.4093@news.flashnewsgroups.com>
Yep; I'm an idiot...
> printf ("%-45s %-16s %04o\n", $file, $owner, $mode % 07777);
perhaps should be $mode & 07777...
That's a good typo!
Doug
--
--------
Senior UNIX Admin
O'Leary Computer Enterprises
dkoleary@olearycomputers.com (w) 630-904-6098 (c) 630-248-2749
resume: http://home.comcast.net/~dkoleary/resume.html
------------------------------
Date: 4 Oct 2004 09:43:50 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: hack out chunk from large text file?
Message-Id: <cjr60m$nte$1@mamenchi.zrz.TU-Berlin.DE>
Jason Kinkade <jkinkade@datashelter.net> wrote in comp.lang.perl.misc:
> I have a text file that looks like.
>
> ---unique id---
> many lines
> ---------------
> ---unique id---
> many lines
> ---------------
> ---unique id---
> many lines
> ---------------
> ...etc.
>
> I want to simply remove a section between the ---unique id--- and
> ---------. Now I know I could go through it line by line and output
> the filtered text to a tmp file then copy the tmp file back, but thats
> impracticle with the file is like a gig in size.
Then you're out of luck. There is n other way.
> Does anyone know a
> way I can operate on the text file directly and remove a section
> without copying the whole file to a tmp file or temporatily into
> memory?
Can't be done with today's standard file systems. If you want to
delete things from the middle of a file, (at least) everything
following the deletion must be rewritten.
Anno
------------------------------
Date: Mon, 4 Oct 2004 07:41:34 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: hack out chunk from large text file?
Message-Id: <slrncm2h7u.igq.tadmc@magna.augustmail.com>
Jason Kinkade <jkinkade@datashelter.net> wrote:
> I know I could go through it line by line and output
^^^^^^^
> the filtered text to a tmp file then copy the tmp file back,
Or you could have Perl do all of that for you by setting $^I
or using the -i command line switch.
> Does anyone know a
> way I can operate on the text file directly and remove a section
> without copying the whole file to a tmp file or temporatily into
> memory?
Nope.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 4 Oct 2004 07:40:33 -0700
From: dummymb@hotmail.com (Page)
Subject: Help needed with Hash
Message-Id: <6742094.0410040640.1c2ec6da@posting.google.com>
I'm sure this has an easy answer, but I'm still learning.
I have the following code...
use XML::Simple;
my $simple = XML::Simple->new();
my $struct = $simple->XMLin("$map", forcearray => 1, keeproot => 1);
for (@{$struct->{treemap}->[0]->{label}}) {
my $lbldate = $_->{date}; if (ref($lbldate) eq "HASH") { $lbldate =
""; }
print '<div unselectable="on" class="lbl">'."\n";
print $_."\n"; # this is the line with the problem
print "</div>\n";
}
which reads the following XML file (code snipped to show relavent
XML):
<label date="09/28/2004">CONTRIBUTION</label>
<label date="09/28/2004">COST</label>
<label date="09/28/2004">MILES</label>
Everything seems to work fine, but instead of getting the words
"CONTRIBUTION", "COST", or "MILES", I get "HASH(0x1c282ec)". This
same code works fine for some other XML, so I'm confused. How do I
fix the line above to display the contents of the label object and not
the HASH?
------------------------------
Date: Mon, 4 Oct 2004 07:58:55 +0100
From: "Kiloran" <kiloran@nowhere.com>
Subject: Re: how do i automatically close a Msgbox based on a timer?
Message-Id: <cjqs7p$bga$1@avnika.corp.mot.com>
"Dwayne Kuan" <misc@echoesofsilence.com> wrote in message
news:20041003122513.116$Bl@news.newsreader.com...
>
>
> hi, I'm writing a script that produces a MsgBox but when i do that, i
> notice that control goes to the MsgBox window and the script waits for
> something to happen to that MsgBox before continuing.
>
> is there any way for me to get that script to automatically close that
> msgbox say in 5 seconds?
>
> the script is as below:
>
>
>
> use Win32;
> use LWP::Simple qw(get);
> use Win32::GuiTest qw(FindWindowLike GetWindowText SetForegroundWindow
> SendKeys);
> $Win32::GuiTest::debug = 1; # Set to "1" to enable verbose mode
>
> $result = Win32::MsgBox("something is DOWN",48,'test');
> closealertwindow();
>
> sub closealertwindow
> {
> my @windows = FindWindowLike(undef, "^test!");
> if( !@windows ){
> die "Cannot find window with title/caption\n";
> } else {
> printf( "Window handle of application is %x\n", $windows[ 0 ] );
> sleep 5;
> SetForegroundWindow( $windows[ 0 ] );
> SendKeys("~");
> }
> }
Here's some Visiual Basic code which displays a window for 5 seconds. You
can probably work out how to convert it to Perl:
With CreateObject("Wscript.Shell")
.popup "This may take a few minutes to start running." &chr(10) & _
"Please be patient", 5, "Msg", 4096 + 64
End With
--Kiloran
------------------------------
Date: Mon, 04 Oct 2004 01:55:55 -0700
From: MrReallyVeryNice <MrReallyVeryNice.REMOVE.NO.SPAM@Yahoo.REMOVE.NO.SPAM.com>
Subject: Re: how do i automatically close a Msgbox based on a timer?
Message-Id: <MJ-dnUd91pmQjfzcRVn-uw@comcast.com>
Here is an example that might prove useful to you. In a nutshell, the
script:
- writes the MsgBox code into a temporary file,
- spawns a process for perl.exe that will execute the content of the
temporary file,
- waits for 5 seconds and then kills the process (the message box
disappears).
- deletes the temporary file
I would not claim that this a great solution but it does the job for me
under W2K, ActiveState Perl 5.8 build 806.
Note that I did not attempt to keep any of your code so you still have
to migrate the various scripts to reach your final solution. Also,
listen to the gurus if they comment on this sample code. I'm sure that
they could provide you with better solutions and certainly they could
hint at some improvements.
Have fun and let us know if that does the trick.
MrReallyVeryNice
===================================================================
use strict;
use warnings;
use Win32;
use Win32::Process;
use IO::File;
use POSIX qw(tmpnam);
my $name;
my $fh;
do { $name = tmpnam() }
until $fh = IO::File->new($name, O_RDWR|O_CREAT|O_EXCL);
print $fh <<EOF;
use strict;
use warnings;
use Win32;
my \$result = Win32::MsgBox("something is DOWN",48,'test');
EOF
$fh->autoflush(1);
#To print the content of $fh
#seek($fh, 0, 0) or die "seek: $!";
#print <$fh>;
my $ProcessObj;
sub ErrorReport{
print Win32::FormatMessage( Win32::GetLastError() );
}
Win32::Process::Create($ProcessObj,
'c:/Program Files/ActivePerl5.8.build806/bin/perl.exe',
"perl $name",
0,
NORMAL_PRIORITY_CLASS,
".")|| die ErrorReport();
$ProcessObj->Wait(5000);
$ProcessObj->Kill(0);
END { unlink($fh) or die "Couldn't unlink $name : $!" }
------------------------------
Date: Mon, 04 Oct 2004 11:35:50 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: how do i automatically close a Msgbox based on a timer?
Message-Id: <cjr5c2$7ne$1@nntp.fujitsu-siemens.com>
Dwayne Kuan wrote:
> hi, I'm writing a script that produces a MsgBox but when i do that, i
> notice that control goes to the MsgBox window and the script waits for
> something to happen to that MsgBox before continuing.
>=20
> is there any way for me to get that script to automatically close that
> msgbox say in 5 seconds?
I wrote a small script for my wife to notify her to insert a certain=20
CDROM. I use after to check for the CDROM and then "destroy" to get rid=20
of the widget.
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Mon, 04 Oct 2004 19:13:15 +1000
From: Gregory Toomey <nospam@bigpond.com>
Subject: Re: How Google/Amazon/eBay use?
Message-Id: <2scihdF1j3qtaU2@uni-berlin.de>
http://www-free.info wrote:
> As far as I know
> Amazon uses Perl
> eBay uses C
> Google, was not using PHP at
> all before late 2003. I bet it is using C.
>
> I am pretty sure that Google does not use database. Not sure about Amazon
> or eBay
Just to make this thread not totally useless, the following paper summarises
the "google file system" architechture:
http://www.cs.rochester.edu/sosp2003/papers/p125-ghemawat.pdf
(Until receently, ebay used IIS, one of the few major sites to dp sp).
gtoomey
------------------------------
Date: 4 Oct 2004 07:18:28 -0700
From: krakle@visto.com (krakle)
Subject: Re: How Google/Amazon/eBay use?
Message-Id: <237aaff8.0410040618.63076561@posting.google.com>
"http://www-free.info" <aa@bb.cc> wrote in message news:<rvSdnb3DUews5f3cRVn-qA@rogers.com>...
> Google, was not using PHP at
> all before late 2003. I bet it is using C.
Google uses C and Perl. So I read...
>
> I am pretty sure that Google does not use database. Not sure about Amazon or
> eBay
And HOW did youc ome up with that???? Ofcourse they are using some
sort of databasing software....obviously..
------------------------------
Date: 4 Oct 2004 07:23:35 -0700
From: krakle@visto.com (krakle)
Subject: Re: How Google/Amazon/eBay use?
Message-Id: <237aaff8.0410040623.1b480fd0@posting.google.com>
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message news:<Bf48d.4079$eq1.2873@trnddc08>...
> http://www-free.info wrote:
> > I am pretty sure that Google does not use database. Not sure about
> > Amazon or eBay
>
> Excuse me?
> Where do you think they store their millions of articles/queries/items?
>
> jue
Tupperware.
------------------------------
Date: Mon, 4 Oct 2004 16:40:37 +0200
From: "Markus Ernst" <derernst@NO#SP#AMgmx.ch>
Subject: Re: How Google/Amazon/eBay use?
Message-Id: <416160e7$0$14773$afc38c87@news.easynet.ch>
Jürgen Exner wrote:
> http://www-free.info wrote:
>> I am pretty sure that Google does not use database. Not sure about
>> Amazon or eBay
>
> Excuse me?
> Where do you think they store their millions of
> articles/queries/items?
>
> jue
Store?? I thaught they were in the computer...
--
Markus
------------------------------
Date: Mon, 04 Oct 2004 15:53:03 +0100
From: Kevin Thorpe <kevin@pricetrak.com>
Subject: Re: How Google/Amazon/eBay use?
Message-Id: <4161626b$0$13912$afc38c87@news.easynet.co.uk>
Jürgen Exner wrote:
> http://www-free.info wrote:
>
>>I am pretty sure that Google does not use database. Not sure about
>>Amazon or eBay
>
>
> Excuse me?
> Where do you think they store their millions of articles/queries/items?
RAIP - redundant array of inexpensive pigeons
------------------------------
Date: 4 Oct 2004 05:53:49 -0700
From: hik2sanity@hotmail.com (your name here)
Subject: How to flush a stinkin' socket?
Message-Id: <a794b8d.0410040453.67a3bda5@posting.google.com>
You may be familar with the following code snippet as it was taken
from some posts in this group. However, whatever I do, I cannot get
this message through the socket immediately which causes the other
side to determine I am in trouble because it hasn't received a health
check. The message finally shows up after I issue the shutdown
command, which is unacceptable. Any ideas? Windows peculiarity?
use strict;
use IO::Socket;
my $msg = 'Take me to your leader';
my $conn = IO::Socket::INET->new( PeerAddr => '127.0.0.33',
PeerPort => '8089',
Proto => 'tcp');
die "Cannot connect: $!\n" unless $conn;
$conn->autoflush(1);
$conn->print($msg);
$conn->shutdown(1);
sleep 3;
$conn->shutdown(2);
------------------------------
Date: Mon, 04 Oct 2004 11:40:49 +0100
From: SpaceGirl <NOtheSpaceGirlSPAM@subhuman.net>
Subject: Re: Is HTTPS Proxy Secure?
Message-Id: <2scnlhF1jgupfU1@uni-berlin.de>
Tad McClellan wrote:
> http://www-free.info <aa@bb.cc> wrote:
>
>>I am trying to access some senstive data on a blocked server, so I am using
>>proxy on HTTPS port. I think the proxy can cache anything. So I wonder what
>>kind of cached data it will look like on proxy? Over HTTPS layer, when the
>>encrption and and decryptiong occur? If a key is passed via proxy as well,
>>then even the data is encrypted, the proxy with the key can still know what
>>is going. What is the point of using SSL/HTTPS when the encrypted key is
>>passed in plain text first?
>
>
>
> What is your Perl question?
>
>
What was your HTML question Tad? :p
--
x theSpaceGirl (miranda)
# lead designer @ http://www.dhnewmedia.com #
# remove NO SPAM to email, or use form on website #
------------------------------
Date: Mon, 4 Oct 2004 08:06:02 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Is HTTPS Proxy Secure?
Message-Id: <slrncm2ilq.iil.tadmc@magna.augustmail.com>
http://www-free.info <aa@bb.cc> wrote:
[ Attributions missing here.
Please learn the proper way of composing a followup.
]
>> > What is the point of using SSL/HTTPS when the encrypted key is
>> > passed in plain text first?
>>
>>
>> What is your Perl question?
>>
>
> I use perl as the download script.
Oh, I see.
Since I use Perl to manage my cooking recipes, I can ask the Perl
newsgroup if it is pronounced "Tah-mate-oh" or "Tah-mott-oh"?
You have not properly partioned the problem.
Finding the answer will be much harder if you look for it
in the wrong places.
Ask questions about SSL/HTTPS in a newsgroup that is about
such things.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 04 Oct 2004 08:46:13 -0500
From: "Billy N. Patton" <b-patton@ti.com>
Subject: Re: match a long string in Regex..
Message-Id: <cjrk75$tu$1@home.itg.ti.com>
Alont wrote:
> original string:(it's one line):
> javascript:if(confirm('http://validator.w3.org/ \n\nThis file was not
> retrieved by Teleport Pro, because it is addressed on a domain or path
> outside the boundaries set for its Starting Address. \n\nDo you want
> to open it from the server?'))window.location='
>
> because 'http://validator.w3.org/' is variable, so I wrote:
>
> javascript:if\(confirm\('(.*|(\\n)*) \\n\\nThis file was not
> retrieved by Teleport Pro, because it is addressed on a domain or path
> outside the boundaries set for its Starting Address\. \\n\\nDo you
> want to open it from the server?'))window.location='
>
> I have tried/change again and again,
> but it can't match, why?
>
> this is all the code:
>
> sub deleteTrash {
> my $original = "javascript:if\(confirm\('(.*|(\\n)*) \\n\\nThis file
> was not retrieved by Teleport Pro, because it is addressed on a domain
> or path outside the boundaries set for its Starting Address\.
> \\n\\nDo you want to open it from the
> server\?'\)\)window\.location='";
> my $body = shift;
> if($body =~ s/$original//g)
> {
> return 0;
> }
> else
> {
> return $body;
> }
> }
>
A day late and a dollar short
FYI
What I've found to help me GREATLY with large complex regexp is to use
the x option. It makes reading MUCH easier.
instead of having
$line =~ /^\s*(some_regx) (another_regex) .../; you get hte picture
I like
$line =~ /^\s*
(some_regex)\s+ # looking for this
(another_regex)\s+ # looking for that
...
/x;
I've have if/then/else where regex fill one complete page
Without the x option this would be almost impossible to write or debug.
What the x does is
1. ignore white space
2. ignore comments
3. ignore <cr>
For big harry regexp's use the x option
--
___ _ ____ ___ __ __
/ _ )(_) / /_ __ / _ \___ _/ /_/ /____ ___
/ _ / / / / // / / ___/ _ `/ __/ __/ _ \/ _ \
/____/_/_/_/\_, / /_/ \_,_/\__/\__/\___/_//_/
/___/
Texas Instruments ASIC Circuit Design Methodlogy Group
Dallas, Texas, 214-480-4455, b-patton@ti.com
------------------------------
Date: Mon, 4 Oct 2004 09:11:56 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: match a long string in Regex..
Message-Id: <slrncm2mhc.1h4.tadmc@magna.augustmail.com>
Billy N. Patton <b-patton@ti.com> wrote:
> What I've found to help me GREATLY with large complex regexp is to use
> the x option. It makes reading MUCH easier.
Which is why it will be "on" by default in Perl 6.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 4 Oct 2004 07:28:28 -0700
From: "187" <bigal187@invalid.rx.eastcoasttfc.com>
Subject: Re: Odd sort() problem
Message-Id: <2sd547F1gn5ipU1@uni-berlin.de>
Tony Skelding wrote:
> "John W. Krahn" <someone@example.com> wrote in message
> news:<DJF6d.2511$eq.1514@edtnps84>...
>> 187 wrote:
>>> I friend of mine recently accessed me for a little one liner to
>>> nicely display all the paths in the $PATH vartiable on his NT 5.1
>>> (aka XP Pro) machine: (sorry for word wrap)
>>>
>>> C:\> perl -e "print qq{\n}, join(qq{\n}, sort { lc{$a} cmp
>>> lc($b) } split(/;/, $ENV {'PATH'})), qq{\n};"
>>>
>>> [snip]
>>>
>>> I get the same sort of oddness on my Linux machine as well:
>>>
>>> $ perl -e 'print qq{\n}, join(qq{\n}, sort { lc{$a} cmp lc($b) }
>>> split(/:/, $ENV{"PATH"})), qq{\n};'
>>>
>>> [snip]
>>>
>>> Both Perl's are 5.6.1, though my Linux also has 5.8.2 which does
>>> similar, though different order:
>>>
>>> $ perl5.8.2 -e 'print qq{\n}, join(qq{\n}, sort { lc{$a} cmp
>>> lc($b) } split(/:/, $ENV{"PATH"})), qq{\n};'
>>>
>>> [snip]
>>>
>>> What is going on here? Why is sort doing this? I've used sort(),
>>> map(), and grep() in cascaded form like this before without this
>>> problem; split() returns an array, which get sucked into sort(),
>>> who spits it back out to join(), does it not?
>>
>> As others have pointed out the problem is with the anonymous hash in
>> "lc{$a}" however if you want to make this more portable and remove
>> all those quotes and braces and parentheses:
>>
>> perl -e 'use Env q/@PATH/; print $/, map $_ . $/, sort { lc $a cmp
>> lc $b } @PATH'
>>
>>
>> John
>
> Or even
>
> perl -le 'print for sort { lc $a cmp lc $b } split ":", $ENV{PATH}'
Though its not as portable as the quoted one above yours, as different
OS's use different seperators in the PATH variable; example: unix uses a
colon, where as win32 uses a semicolon, hence why the "use ENV q/@PATH/
" is so handy.
------------------------------
Date: 4 Oct 2004 07:52:49 -0700
From: john_williams4321@hotmail.com (john williams)
Subject: reading a list of files
Message-Id: <298e5c19.0410040652.4a8732e2@posting.google.com>
Hi,
I have a list of files:
basename_001.ext
...
basename_1000.ext
I would like to be able to read them one by one, and process each
file, then write the files one by one as:
basename_out_0001.ext
...
basename_out_1000.ext
due to the large number of files, I need this to be automated.
Any help would be appreciated, thanks in advance
John
------------------------------
Date: Mon, 04 Oct 2004 12:18:19 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <10m2fsb8dr9jdbd@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 27 Sep 2004 12:41:49 GMT and ending at
04 Oct 2004 10:40:49 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2004 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
faq\@(?:.*\.)?denver\.pm\.org
comdog\@panix\.com
Totals
======
Posters: 183
Articles: 633 (263 with cutlined signatures)
Threads: 121
Volume generated: 1216.0 kb
- headers: 598.2 kb (10,936 lines)
- bodies: 582.3 kb (18,892 lines)
- original: 358.9 kb (12,283 lines)
- signatures: 34.8 kb (818 lines)
Original Content Rating: 0.616
Averages
========
Posts per poster: 3.5
median: 2 posts
mode: 1 post - 84 posters
s: 5.0 posts
Posts per thread: 5.2
median: 3 posts
mode: 1 post - 25 threads
s: 5.4 posts
Message size: 1967.1 bytes
- header: 967.8 bytes (17.3 lines)
- body: 942.0 bytes (29.8 lines)
- original: 580.5 bytes (19.4 lines)
- signature: 56.3 bytes (1.3 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
34 96.9 ( 39.6/ 52.9/ 44.4) tadmc@augustmail.com
33 48.9 ( 28.5/ 18.3/ 7.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
28 42.9 ( 27.7/ 15.1/ 9.9) Joe Smith <Joe.Smith@inwap.com>
22 60.8 ( 21.7/ 35.7/ 28.5) abigail@abigail.nl
18 34.1 ( 18.9/ 13.9/ 6.4) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
18 42.0 ( 26.8/ 13.4/ 10.3) Sherm Pendley <spamtrap@dot-app.org>
17 31.6 ( 16.2/ 15.3/ 6.7) "Paul Lalli" <mritty@gmail.com>
17 26.1 ( 12.9/ 13.1/ 4.9) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
14 23.2 ( 12.7/ 10.5/ 5.2) "Jürgen Exner" <jurgenex@hotmail.com>
12 23.5 ( 15.3/ 8.2/ 3.4) "@" <asdf@asdfsadf.com>
12 21.6 ( 10.4/ 11.2/ 6.2) "A. Sinan Unur" <usa1@llenroc.ude.invalid>
10 20.4 ( 9.4/ 8.2/ 2.9) John Bokma <postmaster@castleamber.com>
9 16.2 ( 11.0/ 4.0/ 2.5) ? the Platypus {aka David Formosa} <dformosa@zeta.org.au>
9 19.5 ( 10.1/ 9.4/ 6.1) Shawn Corey <shawn.corey@sympatico.ca>
9 13.1 ( 6.5/ 4.6/ 2.6) Michele Dondi <bik.mido@tiscalinet.it>
8 13.3 ( 8.4/ 5.0/ 2.2) Christian Winter <thepoet_nospam@arcor.de>
8 13.6 ( 7.9/ 5.2/ 2.0) Sisyphus <kalinaubears@iinet.net.au>
8 14.1 ( 5.9/ 8.2/ 5.5) wana <ioneabu@yahoo.com>
7 14.8 ( 4.6/ 8.7/ 5.4) "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
7 12.9 ( 5.4/ 7.5/ 3.7) "187" <bigal187@invalid.rx.eastcoasttfc.com>
These posters accounted for 47.4% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
33 48.9 ( 28.5/ 18.3/ 7.7) Gunnar Hjalmarsson <noreply@gunnar.cc>
32 96.9 ( 39.6/ 52.9/ 44.4) tadmc@augustmail.com
28 42.9 ( 27.7/ 15.1/ 9.9) Joe Smith <Joe.Smith@inwap.com>
22 60.8 ( 21.7/ 35.7/ 28.5) abigail@abigail.nl
18 42.0 ( 26.8/ 13.4/ 10.3) Sherm Pendley <spamtrap@dot-app.org>
18 34.1 ( 18.9/ 13.9/ 6.4) "A. Sinan Unur" <1usa@llenroc.ude.invalid>
17 31.6 ( 16.2/ 15.3/ 6.7) "Paul Lalli" <mritty@gmail.com>
17 26.1 ( 12.9/ 13.1/ 4.9) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
14 23.2 ( 12.7/ 10.5/ 5.2) "Jürgen Exner" <jurgenex@hotmail.com>
11 21.6 ( 10.4/ 11.2/ 6.2) "A. Sinan Unur" <usa1@llenroc.ude.invalid>
9 13.1 ( 6.5/ 4.6/ 2.6) Michele Dondi <bik.mido@tiscalinet.it>
9 23.5 ( 15.3/ 8.2/ 3.4) "@" <asdf@asdfsadf.com>
9 19.5 ( 10.1/ 9.4/ 6.1) Shawn Corey <shawn.corey@sympatico.ca>
9 20.4 ( 9.4/ 8.2/ 2.9) John Bokma <postmaster@castleamber.com>
8 13.6 ( 7.9/ 5.2/ 2.0) Sisyphus <kalinaubears@iinet.net.au>
8 13.3 ( 8.4/ 5.0/ 2.2) Christian Winter <thepoet_nospam@arcor.de>
8 16.2 ( 11.0/ 4.0/ 2.5) ? the Platypus {aka David Formosa} <dformosa@zeta.org.au>
7 13.6 ( 7.8/ 5.8/ 3.5) Brian McCauley <nobull@mail.com>
7 14.8 ( 4.6/ 8.7/ 5.4) "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
6 15.9 ( 7.5/ 8.1/ 3.5) ksflock.takeaway@yahoo.com
These posters accounted for 54.0% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
96.9 ( 39.6/ 52.9/ 44.4) 34 tadmc@augustmail.com
60.8 ( 21.7/ 35.7/ 28.5) 22 abigail@abigail.nl
48.9 ( 28.5/ 18.3/ 7.7) 33 Gunnar Hjalmarsson <noreply@gunnar.cc>
42.9 ( 27.7/ 15.1/ 9.9) 28 Joe Smith <Joe.Smith@inwap.com>
42.0 ( 26.8/ 13.4/ 10.3) 18 Sherm Pendley <spamtrap@dot-app.org>
34.1 ( 18.9/ 13.9/ 6.4) 18 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
31.6 ( 16.2/ 15.3/ 6.7) 17 "Paul Lalli" <mritty@gmail.com>
26.1 ( 12.9/ 13.1/ 4.9) 17 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
23.5 ( 15.3/ 8.2/ 3.4) 12 "@" <asdf@asdfsadf.com>
23.2 ( 12.7/ 10.5/ 5.2) 14 "Jürgen Exner" <jurgenex@hotmail.com>
21.6 ( 10.4/ 11.2/ 6.2) 12 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
20.4 ( 9.4/ 8.2/ 2.9) 10 John Bokma <postmaster@castleamber.com>
19.5 ( 10.1/ 9.4/ 6.1) 9 Shawn Corey <shawn.corey@sympatico.ca>
16.2 ( 11.0/ 4.0/ 2.5) 9 ? the Platypus {aka David Formosa} <dformosa@zeta.org.au>
15.9 ( 7.5/ 8.1/ 3.5) 7 ksflock.takeaway@yahoo.com
15.1 ( 0.5/ 14.6/ 14.6) 1 Greg Bacon <gbacon@hiwaay.net>
14.8 ( 4.6/ 8.7/ 5.4) 7 "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
14.1 ( 5.9/ 8.2/ 5.5) 8 wana <ioneabu@yahoo.com>
13.6 ( 7.8/ 5.8/ 3.5) 7 Brian McCauley <nobull@mail.com>
13.6 ( 7.9/ 5.2/ 2.0) 8 Sisyphus <kalinaubears@iinet.net.au>
These posters accounted for 48.9% of the total volume.
Top 12 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
34 44.4 tadmc@augustmail.com
22 28.5 abigail@abigail.nl
18 10.3 Sherm Pendley <spamtrap@dot-app.org>
28 9.9 Joe Smith <Joe.Smith@inwap.com>
33 7.7 Gunnar Hjalmarsson <noreply@gunnar.cc>
17 6.7 "Paul Lalli" <mritty@gmail.com>
18 6.4 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
12 6.2 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
14 5.2 "Jürgen Exner" <jurgenex@hotmail.com>
17 4.9 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
12 3.4 "@" <asdf@asdfsadf.com>
10 2.9 John Bokma <postmaster@castleamber.com>
These posters accounted for 38.0% of the original volume.
Top 12 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.840 ( 44.4 / 52.9) 34 tadmc@augustmail.com
0.798 ( 28.5 / 35.7) 22 abigail@abigail.nl
0.770 ( 10.3 / 13.4) 18 Sherm Pendley <spamtrap@dot-app.org>
0.656 ( 9.9 / 15.1) 28 Joe Smith <Joe.Smith@inwap.com>
0.556 ( 6.2 / 11.2) 12 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
0.489 ( 5.2 / 10.5) 14 "Jürgen Exner" <jurgenex@hotmail.com>
0.457 ( 6.4 / 13.9) 18 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
0.435 ( 6.7 / 15.3) 17 "Paul Lalli" <mritty@gmail.com>
0.419 ( 7.7 / 18.3) 33 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.415 ( 3.4 / 8.2) 12 "@" <asdf@asdfsadf.com>
0.373 ( 4.9 / 13.1) 17 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.356 ( 2.9 / 8.2) 10 John Bokma <postmaster@castleamber.com>
Bottom 12 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.840 ( 44.4 / 52.9) 34 tadmc@augustmail.com
0.798 ( 28.5 / 35.7) 22 abigail@abigail.nl
0.770 ( 10.3 / 13.4) 18 Sherm Pendley <spamtrap@dot-app.org>
0.656 ( 9.9 / 15.1) 28 Joe Smith <Joe.Smith@inwap.com>
0.556 ( 6.2 / 11.2) 12 "A. Sinan Unur" <usa1@llenroc.ude.invalid>
0.489 ( 5.2 / 10.5) 14 "Jürgen Exner" <jurgenex@hotmail.com>
0.457 ( 6.4 / 13.9) 18 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
0.435 ( 6.7 / 15.3) 17 "Paul Lalli" <mritty@gmail.com>
0.419 ( 7.7 / 18.3) 33 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.415 ( 3.4 / 8.2) 12 "@" <asdf@asdfsadf.com>
0.373 ( 4.9 / 13.1) 17 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.356 ( 2.9 / 8.2) 10 John Bokma <postmaster@castleamber.com>
12 posters (6%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
33 Is PHP still slower than Perl?
24 How to test if I got Mod_Perl in apache?
21 Precedence of exponentiation
19 While query
18 Odd sort() problem
18 How to merge .wav files
16 Sample perl code does not work (from Perl cookbook, 2nd ed.)
16 Syntax appears inconsistent - why is this?
16 Custom Perl Scripting
15 help with eval
15 tr problem
13 Return top-N of Hashes - hash splice?
13 How to check size of harddisk?
12 making easy things difficult: @a-@b
11 #define-like feature in Perl
10 process control
10 (was: decode the form information)
9 references to filehandle?
9 Loop through scalar?
9 Write filename w/ scalar and bareword
These threads accounted for 48.5% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
63.3 ( 35.6/ 24.6/ 12.3) 33 Is PHP still slower than Perl?
50.5 ( 19.6/ 30.0/ 18.5) 21 Precedence of exponentiation
49.0 ( 26.5/ 20.9/ 10.1) 24 How to test if I got Mod_Perl in apache?
39.3 ( 17.6/ 20.2/ 11.9) 18 How to merge .wav files
35.5 ( 17.9/ 16.9/ 5.9) 18 Odd sort() problem
34.4 ( 2.1/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
34.0 ( 18.1/ 15.2/ 10.7) 19 While query
32.0 ( 16.4/ 14.1/ 8.9) 16 Syntax appears inconsistent - why is this?
31.1 ( 15.9/ 14.4/ 6.9) 16 Sample perl code does not work (from Perl cookbook, 2nd ed.)
29.8 ( 16.4/ 12.6/ 8.3) 15 help with eval
24.8 ( 15.5/ 8.7/ 3.8) 15 tr problem
24.3 ( 9.9/ 13.8/ 7.1) 12 making easy things difficult: @a-@b
23.1 ( 13.5/ 9.0/ 5.1) 13 Return top-N of Hashes - hash splice?
22.8 ( 16.3/ 6.0/ 3.8) 16 Custom Perl Scripting
21.9 ( 8.4/ 13.2/ 6.0) 10 process control
20.9 ( 12.6/ 7.2/ 3.9) 13 How to check size of harddisk?
19.2 ( 10.5/ 8.0/ 3.9) 11 #define-like feature in Perl
17.8 ( 7.8/ 9.6/ 4.6) 9 Write filename w/ scalar and bareword
16.5 ( 9.0/ 7.3/ 3.6) 10 (was: decode the form information)
15.6 ( 8.3/ 6.3/ 4.0) 8 CGI scripts and modular design?
These threads accounted for 49.8% of the total volume.
Top 17 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.702 ( 10.7/ 15.2) 19 While query
0.658 ( 8.3/ 12.6) 15 help with eval
0.644 ( 3.8/ 6.0) 16 Custom Perl Scripting
0.631 ( 8.9/ 14.1) 16 Syntax appears inconsistent - why is this?
0.615 ( 18.5/ 30.0) 21 Precedence of exponentiation
0.591 ( 11.9/ 20.2) 18 How to merge .wav files
0.568 ( 5.1/ 9.0) 13 Return top-N of Hashes - hash splice?
0.548 ( 3.9/ 7.2) 13 How to check size of harddisk?
0.516 ( 7.1/ 13.8) 12 making easy things difficult: @a-@b
0.499 ( 12.3/ 24.6) 33 Is PHP still slower than Perl?
0.494 ( 3.6/ 7.3) 10 (was: decode the form information)
0.492 ( 3.9/ 8.0) 11 #define-like feature in Perl
0.485 ( 10.1/ 20.9) 24 How to test if I got Mod_Perl in apache?
0.480 ( 6.9/ 14.4) 16 Sample perl code does not work (from Perl cookbook, 2nd ed.)
0.455 ( 6.0/ 13.2) 10 process control
0.434 ( 3.8/ 8.7) 15 tr problem
0.351 ( 5.9/ 16.9) 18 Odd sort() problem
Bottom 17 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.702 ( 10.7 / 15.2) 19 While query
0.658 ( 8.3 / 12.6) 15 help with eval
0.644 ( 3.8 / 6.0) 16 Custom Perl Scripting
0.631 ( 8.9 / 14.1) 16 Syntax appears inconsistent - why is this?
0.615 ( 18.5 / 30.0) 21 Precedence of exponentiation
0.591 ( 11.9 / 20.2) 18 How to merge .wav files
0.568 ( 5.1 / 9.0) 13 Return top-N of Hashes - hash splice?
0.548 ( 3.9 / 7.2) 13 How to check size of harddisk?
0.516 ( 7.1 / 13.8) 12 making easy things difficult: @a-@b
0.499 ( 12.3 / 24.6) 33 Is PHP still slower than Perl?
0.494 ( 3.6 / 7.3) 10 (was: decode the form information)
0.492 ( 3.9 / 8.0) 11 #define-like feature in Perl
0.485 ( 10.1 / 20.9) 24 How to test if I got Mod_Perl in apache?
0.480 ( 6.9 / 14.4) 16 Sample perl code does not work (from Perl cookbook, 2nd ed.)
0.455 ( 6.0 / 13.2) 10 process control
0.434 ( 3.8 / 8.7) 15 tr problem
0.351 ( 5.9 / 16.9) 18 Odd sort() problem
17 threads (14%) had at least ten posts.
Top 8 Targets for Crossposts
============================
Articles Newsgroup
-------- ---------
40 comp.lang.php
12 comp.lang.perl.modules
8 comp.infosystems.www.authoring.site-design
8 comp.infosystems.www.authoring.tools
4 comp.object
2 alt.www.webmaster
1 news.answers
1 comp.answers
Top 20 Crossposters
===================
Articles Address
-------- -------
15 John Bokma <postmaster@castleamber.com>
9 Gunnar Hjalmarsson <noreply@gunnar.cc>
5 "@" <asdf@asdfsadf.com>
4 Scott W Gifford <gifford@umich.edu>
3 "Tony Marston" <tony@marston-home.demon.co.uk>
3 Shawn Corey <shawn.corey@sympatico.ca>
3 psyshrike <shrike@cyberspace.org>
2 "http://www-free.info" <aa@bb.cc>
2 Ilya Zakharevich <nospam-abuse@ilyaz.org>
2 <jari.aalto <AT> poboxes.com> (Jari Aalto+mail.perl)
2 tadmc@augustmail.com
2 Daniel Tryba <news_comp.lang.perl.misc@canopus.nl>
2 Sherm Pendley <spamtrap@dot-app.org>
2 Tim Tyler <tim@tt1lock.org>
1 Abhinav <matrix_calling@yahoo.dot.com>
1 Topmind <topmind@technologist.com>
1 "Jürgen Exner" <jurgenex@hotmail.com>
1 "A. Sinan Unur" <1usa@llenroc.ude.invalid>
1 "Chung Leong" <chernyshevsky@hotmail.com>
1 Darin McBride <dmcbride@naboo.to.org.no.spam.for.me>
------------------------------
Date: Mon, 04 Oct 2004 19:15:24 +1000
From: Gregory Toomey <nospam@bigpond.com>
Subject: Re: Two write to a file with flock, what will happen?
Message-Id: <2scileF1j3qtaU3@uni-berlin.de>
http://www-free.info wrote:
> Will the second process wait for the first one to finish?
>
> If so, for how long or how many tries?
Get the flock out of here, otherwise know as deadlock.
gtoomey
------------------------------
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 7207
***************************************
