[29680] in Perl-Users-Digest
Perl-Users Digest, Issue: 924 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 10 18:10:25 2007
Date: Wed, 10 Oct 2007 15:09:06 -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 Wed, 10 Oct 2007 Volume: 11 Number: 924
Today's topics:
Converting hex to decimal when printed? faren451@gmail.com
Displaying hex numbers as decimal? faren451@gmail.com
Re: Displaying hex numbers as decimal? <wahab@chemie.uni-halle.de>
Re: Does Perl micro-optimize? <bik.mido@tiscalinet.it>
Re: file uploader script <barn104_1999@yahoo.com>
https access - NET::SSL or Crypt::SSLeay ? <wheeledBob@yahoo.com>
Re: join("") somehow changes characters after 'z' <hjp-usenet2@hjp.at>
Re: join("") somehow changes characters after 'z' <ben@morrow.me.uk>
Re: join("") somehow changes characters after 'z' <ben@morrow.me.uk>
Re: join("") somehow changes characters after 'z' <rvtol+news@isolution.nl>
Re: Left margin's for ActivePerl's html help file (Graham)
Re: Regex problem. <bik.mido@tiscalinet.it>
Re: Regex problem. <bik.mido@tiscalinet.it>
Re: Regex problem. <wahab@chemie.uni-halle.de>
Re: Regex problem. <bik.mido@tiscalinet.it>
required perl programmer <tatasushil@gmail.com>
Re: The Modernization of Emacs: terminology buffer and JernauEmGurgeh@googlemail.com
Re: The Modernization of Emacs: terminology buffer and <kennytilton@optonline.net>
www.yedil.com best hindi entertainment site diprat7@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 10 Oct 2007 13:10:05 -0700
From: faren451@gmail.com
Subject: Converting hex to decimal when printed?
Message-Id: <1192047005.567103.92350@k79g2000hse.googlegroups.com>
Hi, ok, trying this again, since my first post seems to be non-
existent...
I am reading in 2-digit hex values from a file and would like to
output them as decimals. Through online surfing, it seems like the
easiest way to do this is to use printf. However, when I played
around with printf, it seems like all hex values need to have 0x in
front to make it work. So I tried using variables to essentially
concatenate 0x to my 2-digit hex values--but they all print as 0's!
My script is below:
print "Enter filename to parse: ";
chomp($filename = <>);
$FilePath = "$filename";
sysopen(HANDLE, $FilePath, O_RDONLY) or die "Cannot open file";
@events = <HANDLE>;
close(HANDLE);
$Outfile = "out_$filename";
sysopen(OHANDLE, $Outfile, O_RDWR|O_CREAT, 0755) or die "Cannot create
file";
foreach $events (@events)
{
while($events =~ /(\s.*?\s)/g)
{
# hex data fields
$tmp = $1;
$tmp =~ s/^\s+//;
$tmp =~ s/\s+$//;
$hexval = "0x$tmp";
printf OHANDLE "$hexval=>%d,", $hexval;
printf "$hexval=>%d,", $hexval;
}
close(OHANDLE);
Sample input file is:
EB 70 07 8A 51 C5 98 1B 01 00 00 00 00 00 00 02 00 00
00 00 00 00 00 00 00 01 01 00 01 00 00 00 00 00 00
00 02 00 00 00 01 00 01 01 00 01 02 00 00 00 00 00
01 00 01 00 00 93 10 60 00
I appreciate any and all help! I am a complete Perl newbie and have
no idea why this does not work as advertised. I also tried the built-
in hex() function, but it has the same problem.
Thanks!
------------------------------
Date: Wed, 10 Oct 2007 13:01:27 -0700
From: faren451@gmail.com
Subject: Displaying hex numbers as decimal?
Message-Id: <1192046487.128105.156760@o80g2000hse.googlegroups.com>
Hi, I have been trying to figure out how to display hex numbers as
decimals after reading in the hex from a file. Reading several posts
online, it seems like the easy way is to use printf. However, printf
does not seem to like me using a variable to make the hex number. For
example, my input files only have a 2-digit hex number, so I need to
add 0x in front to make printf work (as I found by experimenting with
the command line), but this does not work well with variables--
everything is converted to 0's. My script is below:
print "Enter filename to parse: ";
chomp($filename = <>);
$FilePath = "$filename";
sysopen(HANDLE, $FilePath, O_RDONLY) or die "Cannot open file";
@events = <HANDLE>;
close(HANDLE);
$Outfile = "out_$filename";
sysopen(OHANDLE, $Outfile, O_RDWR|O_CREAT, 0755) or die "Cannot create
file";
foreach $events (@events)
{
$fieldnum = 0;
while($events =~ /(\s.*?\s)/g)
{
$fieldnum++;
# date/time/week
if($fieldnum == 2)
{
printf OHANDLE "$1,";
}
# hex data fields
if($fieldnum > 6)
{
$tmp = $1;
$tmp =~ s/^\s+//;
$tmp =~ s/\s+$//;
$hexval = "0x$tmp";
printf OHANDLE "$hexval=>%d,", $hexval;
printf "$hexval=>%d,", $hexval;
}
}
close(OHANDLE);
Sample data fields in the file are:
EB 70 07 8A 51 C5 98 1B 01 00 00 00 00 00 00 02 00 00
00 00 00 00 00 00 00 01 01 00 01 00 00 00 00 00 00
00 02 00 00 00 01 00 01 01 00 01 02 00 00 00 00 00
01 00 01 00 00 93 10 60 00
I appreciate any help! I am a completely Perl newbie, so I have no
idea why this will not work. The built-in hex() function also does
not work, I suspect for the same reason?
Thanks!
------------------------------
Date: Wed, 10 Oct 2007 22:26:01 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: Displaying hex numbers as decimal?
Message-Id: <fejcgt$1aur$1@nserver.hrz.tu-freiberg.de>
faren451@gmail.com wrote:
> Hi, I have been trying to figure out how to display hex numbers as
> decimals after reading in the hex from a file. Reading several posts
> online, it seems like the easy way is to use printf. However, printf
> does not seem to like me using a variable to make the hex number. For
> example, my input files only have a 2-digit hex number, so I need to
> add 0x in front to make printf work (as I found by experimenting with
> the command line), but this does not work well with variables--
> everything is converted to 0's. My script is below:
> ...
> I appreciate any help! I am a completely Perl newbie, so I have no
> idea why this will not work. The built-in hex() function also does
> not work, I suspect for the same reason?
You have to differentiate between 'numeric literals', like 0xabc
or 123456 or 0333 and the actual perl values, which are of type
"signed integer" (IV) or "unsigned integer" (UV).
If you write them out, you choose a "representation", which might
be "binary" (%b) or "decimal" (%d) or hex (%h). The Perl function
"hex" does convert *strings* containing a hex sequence
(eg. perl -e ' print hex "10" ' ==> prints 16)
If you have hex-strings in your file, then you just
put them in the hex function and you'll get "normal
perl values" out, which might be written in any
representation later on.
Example:
==>
...
print "Enter filename to parse: ";
chomp(my $filename = <>);
my $FilePath = $filename;
open my $fh, '<', $FilePath or die "$FilePath - $!";
my @events = <$fh>;
close $fh;
my $Outfile = "out_$filename";
open $fh, '>', $Outfile or die "$Outfile - $!";
for my $events (@events) {
my $fieldnum = 0;
while( $events =~ /(\S+)/g ) {
# date/time/week
printf $fh "$1," if ++$fieldnum == 2;
# hex data fields
if($fieldnum > 6) {
my $hexval = hex $1;
printf $fh "%02X=>%d,", $hexval, $hexval;
printf "%02X=>%d,", $hexval, $hexval
}
}
}
close $fh;
...
<==
Regards
Mirco
------------------------------
Date: Wed, 10 Oct 2007 22:06:58 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Does Perl micro-optimize?
Message-Id: <g2cqg3h708thgdep1klbdvpuqu00ibiiol@4ax.com>
On Wed, 10 Oct 2007 10:23:01 -0700, rihad <rihad@mail.ru> wrote:
>if ($hash{'A-String-Of-Any-Length'} eq 'foo') { ... }
>else if ($hash{'A-String-Of-Any-Length'} eq 'bar') { ... }
If you have many such chained elsif's, then you *may* want to go the
road of HoH. I seldom if ever use explicit elsif's.
>Would Perl notice that hash lookup needs to be resolved only once, and
>optimize further accesses? Or does one need to explicitly use a $tmp
>for that?
Sometimes I like to exploit C<for>'s aliasing properties for this
kinda things. Such use is occasionally controversial.
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: Wed, 10 Oct 2007 14:04:19 -0700
From: ll <barn104_1999@yahoo.com>
Subject: Re: file uploader script
Message-Id: <1192050259.978516.323640@o3g2000hsb.googlegroups.com>
On Oct 10, 10:07 am, Gunnar Hjalmarsson <nore...@gunnar.cc> wrote:
> ll wrote:
> > I'm working with an uploader script and am trying to establish the
> > parent directory to which files will be uploaded. However, after the
> > parent directory is set in the code and the file is uploaded, a folder
> > is created 'under' the cgi-bin folder that has the full path name as
> > its title, rather than using that path as the basis upon which to
> > concatenate the rest of the path. The page, when run, says that the
> > file has been uploaded successfully, but when following the link it
> > generates to the file, it cannot be opened, due to a repeat in the
> > path (e.g.www.mysite.com/uploads/uploads/test.txt)
>
> > Here is the URL for the download for this:http://www.cnctek.com/bizdb-html/download.html
>
> > Follow this link:
> > Download File Uploader - use "guest" for user name and password
>
> If that script doesn't work as expected, please consult the
> documentation or the script author.
>
> If you want to write your own script, and are encountering difficulties
> when doing so, this group may be a good place to ask for help. Btw, you
> may want to make use of the CPAN module CGI::UploadEasy.
>
> --
> Gunnar Hjalmarsson
> Email:http://www.gunnar.cc/cgi-bin/contact.pl
Gunnar,
Thanks for your reply. I've now got the files to upload (to "cgi-bin/
upload/" - for some reason I cannot get them to upload to "root/
upload/". I am able to open the files from the ftp client, although
when I try opening them via the link created (which turns out to be
the empty "root/upload/" directory) on the page, I get the following
error:
"Not Found
The requested URL /upload/comm_khicks.gif was not found on this
server.
Additionally, a 404 Not Found error was encountered while trying to
use an ErrorDocument to handle the request. "
I would like a way to view/open the files within the "root/upload/"
directory. Thanks for the tip re CGI::UploadEasy.
Louis
------------------------------
Date: Wed, 10 Oct 2007 20:34:38 GMT
From: still me <wheeledBob@yahoo.com>
Subject: https access - NET::SSL or Crypt::SSLeay ?
Message-Id: <nrcqg3h2c2dho4j16vaqhsg63iqmkitlus@4ax.com>
I need to pull a web page with Perl and echo it back. I am familiar
with crude LWP use (crude 'cause I'm a newbie). I understand that to
pull from an https server I will need NET::SSL or Crypt::SSLeay.
Will NET::SSL do the job? I have a feeling that it will be easier to
get my host to install that, although I have asked for both.
Also, could someone post a simple example of pulling a page with it? I
don't need password access & such, just a very simple pull of a page
from an https server that I will echo back to the calling browser.
Thanks,
------------------------------
Date: Wed, 10 Oct 2007 20:52:17 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: join("") somehow changes characters after 'z'
Message-Id: <slrnfgq7r1.g3o.hjp-usenet2@zeno.hjp.at>
On 2007-10-09 21:13, Ben Morrow <ben@morrow.me.uk> wrote:
> Perl doesn't know what character encoding you are expecting on STDOUT.
> As a result, it is printing the raw bytes of its own internal
> representation,
No, it isn't. It prints strings which contain only characters
in the range [0 .. 255] as 1 byte per character, and strings which
contain characters outside of this range as 1 utf8 sequence per
character. This is independent of how the strings are represented
internally. Consider this:
#!/usr/bin/perl
use utf8;
my $x = "\x{B0}";
utf8::upgrade($x);
print STDERR utf8::is_utf8($x) ? "wide\n" : "byte\n";
print $x;
__END__
% ./foo | od -tx1
wide
0000000 b0
0000001
After the upgrade, $x is internally represented as a wide string (as can
be seen from the output "wide" on STDERR), put it still prints only one
byte to STDOUT.
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: Wed, 10 Oct 2007 21:18:44 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: join("") somehow changes characters after 'z'
Message-Id: <4movt4-ss91.ln1@osiris.mauzo.dyndns.org>
Quoth Cloink <Cloink_Friggson@ntlworld.com>:
> Could someone explain in even more layman terms (I struggle with
> Perl), whether this will help me with a similar encoding problem I
> have?
>
> Please note that thhe URI::Escape::uri_unescape() function does not
> cater for the latter encodings.
uri_unescape decodes each %xx sequence into the bytes it represents. If
those bytes are supposed to be UTF8, you can convert them to Perl
character strings with Encode::decode; that is,
my $chars = Encode::decode utf8 =>
URI::Escape::uri_unescape $uri_chars;
> I receive from a JavaScript-encoded URL in a web/cgi environment,
> potentially UTF8 data encoded via encodeURIComponent(); for example a
> £-sign (GBP-pound-sign, in case that got mis-translated) is charCode
> 163 and becomes %C2%A3. You can do this in your web browser by typing
> this in your address bar:-
> javascript:alert(encodeURIComponent('£'))
> (if you have £-sign on your keyboard! the not-sign, ¬, and broken
> pipe, ¦, chars do it too).
>
> I have managed to get compatability between JS & Perl, up to 255
> (possibly higher, don't have the code in front of me here - certainly,
> I've got a £-sign working); however, I know that the compatability
> will break for the higher-order characters that will be encoded in JS
> to a series of THREE %xx's, eg %11%A2%4D (no idea what that might be).
I'm not sure how you got £ working... I think you must have some
confusion somewhere about whether your strings are bytes or characters,
or perhaps about whether you are using UTF8 or ISO8859-1.
length uri_unescape '%C2%A3'
returns 2, but if it was correctly decoded into a single £ character it
should return 1.
Ben
------------------------------
Date: Wed, 10 Oct 2007 21:22:36 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: join("") somehow changes characters after 'z'
Message-Id: <ctovt4-ss91.ln1@osiris.mauzo.dyndns.org>
Quoth "Peter J. Holzer" <hjp-usenet2@hjp.at>:
> On 2007-10-09 21:13, Ben Morrow <ben@morrow.me.uk> wrote:
> > Perl doesn't know what character encoding you are expecting on STDOUT.
> > As a result, it is printing the raw bytes of its own internal
> > representation,
>
> No, it isn't. It prints strings which contain only characters
> in the range [0 .. 255] as 1 byte per character, and strings which
> contain characters outside of this range as 1 utf8 sequence per
> character. This is independent of how the strings are represented
> internally.
Thanks for the correction. Hmm, that's just... *broken*. The results are
guaranteed to be absolutely useless... it would be better to print ?s,
or print nothing; especially as characters over 255 were new in 5.8 so
there were no back-compat issues.
Ben
------------------------------
Date: Wed, 10 Oct 2007 22:48:46 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: join("") somehow changes characters after 'z'
Message-Id: <fejl5e.rk.1@news.isolution.nl>
Paul Lalli schreef:
> $ perl -le'print map { chr($_) } grep { (chr($_) =~ /\p{IsAlpha}/) }
> (1..256);'
Did you mean 1..256, or 0..255?
Once you add a chr(256) to a (non-utf8) string, the whole string just
gets updated to utf8. That's all.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Wed, 10 Oct 2007 21:08:32 GMT
From: graham@nospam.steelworks.org.uk (Graham)
Subject: Re: Left margin's for ActivePerl's html help file
Message-Id: <470c03e1.4535385@news.freenetname.co.uk>
I made the following mod to the "ul" section of the Active.css file to
resolve this problem:
/* Graham 19 Sep 2007: changed margin from -15px to 15px */
ul
{
list-style-image: url("images/greysmallbullet.gif");
margin: 0 0 0 15px;
}
On Mon, 1 Oct 2007 10:50:50 -1000, Sean Nakasone
<seannakasone@yahoo.com> wrote:
>Yes, renaming the css files worked. I'm using IE 6.
>thankyou very much.
--
Graham Steel: graham@nospam.steelworks.org.uk
Web: http://www.steelworks.org.uk
------------------------------
Date: Wed, 10 Oct 2007 21:59:20 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Regex problem.
Message-Id: <60aqg3pidrecp0s76da7hvml3pm71ee16m@4ax.com>
On Wed, 10 Oct 2007 14:55:22 -0000, it_says_BALLS_on_your forehead
<simon.chao@fmr.com> wrote:
>> >A B B c A c B d A A
>>
>> >I have a string as represented above. They are separated by spaces of
>> >unknown length. I need to match As and Bs and store them in array in
>> >the order they occur, or as they occur. The array filled from above
>> >string should contain: ABBABAA.
>>
>> my @AandBs = /[AB]/g;
>
>That won't quite work since 'A' and 'B' are representative of more
>complex strings, and so can't fit into a character class.
Then he should have said so. In fact I admit I was in a hurry and
didn't read the rest of his post: somwhat my fault. But then one thing
is to say that the problem is about
A B B c A c B d A A
and later specify that A is not A and B is not B and another thing is
to say so to begin with. However if the problem is not more clearly
defined, one can suppose that
my @AandBs = /one|two or three/g;
will be enough. If the OP wants to exclude a bone and two or
threesome, then he may want to do
my @AandBs = /\b(?:one|two or three)\b/g;
If he wants something more complicated, then he should say 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: Wed, 10 Oct 2007 22:01:34 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Regex problem.
Message-Id: <8qbqg3dmrg2mspoel6fufigti022lol865@4ax.com>
On Wed, 10 Oct 2007 16:56:20 -0000, Ash <ashishrai@gmail.com> wrote:
>Thanks for the replies guys, solution by Michele does work,
>apparently I didn't use "|" operator between regexs :(.
That is surprising, since my "solution" *didn't* include the
alternation operator, at least not the one I had posted as of this
writing.
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: Wed, 10 Oct 2007 22:49:52 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: Regex problem.
Message-Id: <fejdtk$1bde$1@nserver.hrz.tu-freiberg.de>
Michele Dondi wrote:
> On Wed, 10 Oct 2007 16:56:20 -0000, Ash <ashishrai@gmail.com> wrote:
>> Thanks for the replies guys, solution by Michele does work,
>> apparently I didn't use "|" operator between regexs :(.
>
> That is surprising, since my "solution" *didn't* include the
> alternation operator, at least not the one I had posted as of
> this writing.
His isp is advantagedata.com, which is (seen from Europe)
behind .ALTER.NET, most probably located in the U.S.
So this is probably a relativistic thing connected to earth
rotation (his net requests are in earth-rotation direction).
Regards
M.
------------------------------
Date: Wed, 10 Oct 2007 23:41:02 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Regex problem.
Message-Id: <nmhqg3d31e2vg16q8jt3e8sbic5uphp3rn@4ax.com>
On Wed, 10 Oct 2007 22:49:52 +0200, Mirco Wahab
<wahab@chemie.uni-halle.de> wrote:
>> That is surprising, since my "solution" *didn't* include the
>> alternation operator, at least not the one I had posted as of
>> this writing.
>
>His isp is advantagedata.com, which is (seen from Europe)
>behind .ALTER.NET, most probably located in the U.S.
>
>So this is probably a relativistic thing connected to earth
>rotation (his net requests are in earth-rotation direction).
'LOL'.say;
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: Wed, 10 Oct 2007 13:27:56 -0700
From: susheel <tatasushil@gmail.com>
Subject: required perl programmer
Message-Id: <1192048076.943101.136430@o3g2000hsb.googlegroups.com>
Hi
Position: Perl Programmer
Location: Plano, TX
Months: 6-12
(Do let me know if you are comfortable with this req.... & get back to
me with your up date resume)
Skills:
eHealth Infrastructure and application
support in the GNOC, Network Knowledge
Unix knowledge (as in at least navigation on a UNIX platform)
CA eHealth experience a plus a huge plus
Proficient in Perl, Perl CGI and Perl Modules with the equivalent of
at least 3 years of experience.
Proficient in HTML and Web design with the equivalent of at least 3
years of experience.
Susheel / NOBLE Systemsware
E-mail:susheel@noblesystemsware.com
Direct: 847- 874- 7057 / 3040 / 7098
Fax: 847-995-1049
Yahoo ID:susheel_nobles
send me an up dated resume to susheel@noblesystemsware.com
------------------------------
Date: Wed, 10 Oct 2007 11:50:24 -0700
From: JernauEmGurgeh@googlemail.com
Subject: Re: The Modernization of Emacs: terminology buffer and keybinding
Message-Id: <1192042224.888211.261790@r29g2000hsg.googlegroups.com>
On 10 Oct, 02:05, nebulou...@gmail.com wrote:
> Do not bluntly contradict me in public.
2 + 2 = 5
------------------------------
Date: Wed, 10 Oct 2007 15:34:31 -0400
From: Ken Tilton <kennytilton@optonline.net>
Subject: Re: The Modernization of Emacs: terminology buffer and keybinding
Message-Id: <kP9Pi.190$et6.172@newsfe12.lga>
nebulous99@gmail.com wrote:
> On Oct 8, 7:32 am, Joost Kremers <joostkrem...@yahoo.com> wrote:
>
>>bbo...@gmail.com wrote:
>>
>>>Don't both "man" and those words for measurement come ultimately from
>>>words for "hand" (similarly to words like "manual", as in labor)?
>>
>>no.
>
>
> Do not bluntly contradict me in public.
I am reminded of my tai chi teacher in NYC, who used to come over to
correct me and say, "I used to do it that way."
Or, "What you are doing is good. What I do is...".
His school is very successful.
kenny
--
http://www.theoryyalgebra.com/
"Mother always told me, if you tell a lie,
always rehearse it. If it don't sound good
to you, it won't sound good to no one else."
- Satchel Paige
------------------------------
Date: Wed, 10 Oct 2007 11:28:13 -0700
From: diprat7@gmail.com
Subject: www.yedil.com best hindi entertainment site
Message-Id: <1192040893.356025.186880@o3g2000hsb.googlegroups.com>
www.yedil.com best hindi entertainment site
with vidoes,photo sharing,photo rating features
its really gona rock you
www.yedil.com
------------------------------
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 924
**************************************
