.
/opinion
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig-{$b}}keys%{$sig};
my $VERSION = '0.01'; #'patched' by
34 wallclock secs (32.87 usr + 0.13 sys = 33.00 CPU) @ 303030.30/s
(n=1000)
Doesn't seem like that much gain from chop() to substr(), but it's
still a gain. 20k/s more...
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};pr
, sorry for going public. I wanted
: to make this clarification.
No, it was public and you made a good clarification.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
pr
in(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig-{$b}}keys%{$sig};
my $VERSION = '0.01'; #'patched' by Jerrad Pierce belg4mit at MIT dot EDU
to 10 ):
* Working group chairs
* Larry
* Contributors and Authors of the Perl 5 core
* People in the AUTHORS file of Perl 5
* Just moderate posting to the list
I am not standing behind any of the above suggestions, just throwing
them out there.
--
print(join(' ', qw(Casey R. Tweten)));my $sig
(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig-{$b}}keys%{$sig};
my $VERSION = '0.01'; #'patched' by Jerrad Pierce belg4mit at MIT dot EDU
ge of, say, the properties of
: complex numbers is as important as knowledge of the guts when building the
: complex number class.
I deffinitley agree.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length
getting getting your box to work after installing
5.004 at /usr ( not /usr/local ).
: 3. Anyone knows which was the previous (original) version, and
: where can I found it?
Look at the CPAN for Perl 5.004
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http
be avoided on this
list.
RFC stuff _is_ over though and for that, you're late.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$s
ill get my job done.
rm them.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig-{$b}}keys%{$sig};
my
cause I've been thinking about writing this for a
while. However, I would probably never use it, personally, I can see times when
others have wanted something close.
=end
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "
printf(
"%4d/%02d/%02d %02d:%02d%02d\n",
unpack( 'A4A2A2A2A2A2', '2918123847' )
);
If printf is perlish, so is unpack, IMHO ;-)
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'
side operation, use Perl.
Kidie: How do I get the length of my array? I used length( @some_array ) and it
didn't work!
=end
Please understand, allowing this to happen may encorage stupidity, which I am
against. However, it's probably a common case.
--
print(join(' ', qw(Casey R. Tweten)));m
Today around 12:01pm, Nathan Torkington hammered out this masterpiece:
: Casey R. Tweten writes:
: Leave length() the way it is now and, if one so desires, they may
: override it on there own to use length for getting:
:
: Not that helpful a suggestion for beginners. They don't know how
Today around 12:19pm, Nathan Torkington hammered out this masterpiece:
: Casey R. Tweten writes:
: Ok, consider allowing:
:
:$a = length @b;
:
: to DWIM, however, when running with warnings, warn the user that Cscalar is
: what they really want.
:
: Just thowing that out
(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig-{$b}}keys%{$sig};
my $VERSION = '0.01'; #'patched' by Jerrad Pierce belg4mit at MIT dot EDU
tansparent shell
ops in Perl, may ( or may not ) be a good application for this suggested
pragma. I tend to fall toward the 'may not' category.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{sit
, qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig-{$b}}keys%{$sig};
my $VERSION = '0.01'; #'patched' by Jerrad Pierce belg4mit at MIT dot EDU
isgo;
print qq(RFC number $rfcnumber matches $matched
time(s):\t$rfcroot$rfcnumber.pod\n) if $matched;
}
__END__
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
pr
TERN, FLAGS)
: 4 match(PATTERN)
:
: because you can't really tell 2 from 3.
If qr() were required for PATTERN, would this become less of an issue? Or no
issue?
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n&qu
that it's all bookkeeping.
Cmy appears to be taking over a lot of Ctie's duties.
=head1 REFERENCES
http://www.howstuffworks.com/c5.htm for C structures
RFC 61 (v2): Interfaces for linking C objects into perlsubs
RFC 75 (v1): first class interface definitions
--
print(join(' ', qw(Casey R. T
://dev.perl.org/rfc/142.pod
I'll copy and paste these into my editor and send them along.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n&q
.
=head1 REFERENCES
Math::Complex
PDL::Math [suggested by Tim Jenness]
p6rfc for bigints [to be written]
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"
the point where you no longer feel tempted to
overstuff the language. Hypotheticality is your friend.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig-{$b}}keys%{$sig};
my $VERSION = '0.01'; #'patched' by Jerrad Pierce belg4mit at MIT dot EDU
contributed to this RFC.
[If I've missed anyone, LET ME KNOW!]
Glenn Linderman [EMAIL PROTECTED] (Co-Author)
Dominic Dunlop [EMAIL PROTECTED](Contributor)
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(len
at least 2 would
be darn useful.
=head1 REFERENCES
RFC 117: Perl syntax support for ranges
LPDL (http://pdl.sourceforge.net/PDLdocs)
http://pdl.perl.org
Numerical Python:
http://starship.python.net/~da/numtut/
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',s
Today around 8:13am, Larry Wall hammered out this masterpiece:
: Karl Glazebrook writes:
: : Who is here anyway?
:
: Don't ask me. I only work here.
Who is the chair of this group? We need an RFC or two to work on.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED
and have two passes on the data.
: Attention, dropsied weasel, we are
: launching our team of legal beagles
: straight for your scrofulous crotch.
:
: xx oo
: FOO
:
: you mean?
--
print(join(' ', qw(Casey
.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig-{$b}}keys%{$sig};
my $VERSION = '0.01'; #'patched' by Jerrad Pierce belg4mit at MIT dot EDU
at.
This suggestion was brought up as a means to make these functions more user
friendly.
If it's impossible, then I'll be glad to forget about it.
[Insert many replies that agree here, I'm sure.]
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~c
to understand this
problem/bug/feature/not too noticed 'thing'.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig
and
each(). Also in perlfaq4, although I bet this is not a frequent question.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."
Today around 10:11am, John Porter hammered out this masterpiece:
: Casey R. Tweten wrote:
:
: sub func {
:return qw/KeyOne Value1 KeyTwo Value2/;
: }
:
: print "$_\n" foreach keys func();
:
: Please. There are ways -- well, just one way -- to do this, even in perl5.
:
:
things easy, out of the box?
: And if I want to be a masochist and have my code scrutinized like hell,
: using strict, -wT ?
:
: use strict 'hash';
: no strict 'hash';
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'
intuitive. If I were to write my own
keys function, it would behave like above no matter what. I would expect a
list, and return a list.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site}
ething like:
KeyOne
KeyTwo
Rather than that error.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig
Today around 2:04pm, Casey R. Tweten hammered out this masterpiece:
: Today around 10:45am, Steve Fink hammered out this masterpiece:
:
: : Ted Ashton wrote:
: :
: : all
: : dereferencing can be done
c qw/:all/;
because there would be a naming convention involved similar to:
Module RC File
-- ---
CGI.pm CGI.rc
Shell.pmShell.rc
File/Find.pmFile/Find.rc
And so on.
Just some thoughts.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PRO
Today around 7:17pm, Casey R. Tweten hammered out this masterpiece:
: Today around 2:34pm, Nathan Wiger hammered out this masterpiece:
:
: : Think on this:
: :
: : use perlrc qw/Resource1 Resource5/; # Import only named 'Resources'
: :
: : use perlrc qw/:all/;# Import all
40 matches
Mail list logo
