nsidered for the Standard Distro, too.
--
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
g: 32 wallclock secs (31.15 usr + 0.08 sys = 31.23 CPU) @ 320170.76/s
(n=1000)
substr: 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
essage was intended as private, 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/~
ore. But that's just mho.
--
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
nough, no
doubt.
--
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
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. Twet
than
: specific 'you' here) A good working knowledge 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 PRO
?
No, and good luck 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=>
ation should 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
ldoc strict
:perldoc -f my
:
: do find out about the "use strict" part.
:
:
:
:
: Please try to find *appropriate* places to ask
: your questions in the future.
:
:
: --
: Tad McClellan SGML consulting
: [EMAIL PROTECTED] Per
rue.";
}
I'm only half joking because 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=>'
purely application servers. I don't want a minimum stripped down
: perl installation that will 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&q
ck' it into an
array and print in in a pretty manner.
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
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 C is
: > what they really want.
: >
: > Jus
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
I do 'blah blah' with JavaScript?
Hacker: You can't, it's a server 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
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
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
ut fast if no one
minds.
--
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
rfcnumber . '.pod' );
my $matched = $rfcpage =~ s/$string//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=>
&#
NG, PATTERN)
: 3 match(PATTERN, 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]
Today around 4:30pm, Tom Christiansen hammered out this masterpiece:
: print <'[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'; #'patche
x. Other issues?
Maybe all 3 of these are unnecessary - but at least 2 would
be darn useful.
=head1 REFERENCES
RFC 117: Perl syntax support for ranges
L (http://pdl.sourceforge.net/PDLdocs)
http://pdl.perl.org
Numerical Python:
http://starship.python.net/~da/numtut/
--
print(join(&#
=head1 REFERENCES
Class::Class useful for automatic creation of get/set methods
for variables on the basis of their names.
http://search.cpan.org/doc/BINKLEY/Class-Class-0.18/lib/Class/Class.pm
http://search.cpan.org/search?dist=Class-Class
File::Binary possibly useful for read/write of binar
enerating
a list or list iterator -- an implementation aspect we refer to as
I.
=head1 REFERENCES
L (http://pdl.sourceforge.net/PDLdocs)
http://pdl.perl.org
RFC 24: Semi-finite (lazy) lists
RFC 81: Lazily evaluated list generation functions
--
print(join(' ', qw(Casey R. Tweten)
signer, you have to stuff your brain with what you
*could* do before you can reasonably choose what you *will* do. At the
moment, I'm not only trying to follow along here; I'm also reading all
the books on computer languaes I can get my hands on--not just to look
for ideas to
x. Other issues?
Maybe all 3 of these are unnecessary - but at least 2 would
be darn useful.
=head1 REFERENCES
RFC 117: Perl syntax support for ranges
L (http://pdl.sourceforge.net/PDLdocs)
http://pdl.perl.org
Numerical Python:
http://starship.python.net/~da/numtut/
--
print(join(&#
d be able to print an array or hash depending
on type.
Similarly accesses such as C<$x[42]> or C<$x{Fred}> should function via
overloaded C<[]> and C<{}> operators.
$y = $x + 1
Ought to be able to execute appropriate code whether $x is a scalar, a Perl
array or a PDL a
erl.org
RFC 76: reduce
RFC 23: Higher-order functions
RFC 81: Lazily evaluated list generation functions
--
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
Lisp.
=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 "\
http://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->{sit
ears to be taking over a lot of C'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. Tweten)));my $sig={mail=>
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=>
with a fait accompli. "These are the recommendations
: >of perl6-data".
: >
: >Who is here anyway?
:
: I'm here... I thought the formation of perl6-language-data was to discuss
: the PDL RFCs anyway...
Let's get crackin Karl!
--
print(join(' ', qw(Casey R
d here.
--
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
Today around 4:07pm, John Porter hammered out this masterpiece:
: Casey R. Tweten wrote:
: >
: > Removing intermediate data structures is easy in Perl, but not this case,
:
: C, etc. must have data structures to work on. There's no "getting rid"
: of them.
Perl can crea
other people like me 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->{si
ou must use this syntax to
force that to work:
@array = keys %{{@array}};
''
Or something like that.
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
#x27;s not documented. Perhaps, at least for the current version
of Perl, this should be documented in perlfunc under keys(), values() and
each(). Also in perlfaq4, although I bet this is not a frequent question.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail=>'[EMAIL
ened to making easy 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 PROTECT
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
to be, then no. Why on earth would
anyone suggest such a thing? How obsurd!
: I don't see that flying.
No, in that case, I don't either.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail=>'[EMAIL PROTECTED]',site=>
'http://home.kiski.net/~crt'
k something like this:
sub keys {
my %hash = @_;
return keys %hash;
}
What is so hard about that? Besides, it's 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.
d. The above should yeild
something 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),&
SCALAR $hashref->{scl};
: print "\n";
: print join(',', ARRAY $hashref->{ary}), "\n";
:
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail=>'[EMAIL PROTECTED]',site=>
'http://home.kiski.net/~crt'};print "\n",&
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 c
agma ( attempted because as far as I know, neither of us has touched it in a
long while ) that degreases line noise in terms of punctuations, sorta. It's
more verbose anyhow, where:
@{ $hashref->{key} };
becomes:
ARRAY{ $hashref->{key} };
And the same holds true for SCALAR, HASH, CODE, GL
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'
: : >
:
think most of you get the idea. This way, you could still say in your
module:
use perlrc 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 o
more managable than a .perlrc that get's applied globaly
without asking for it.
* No, this doesn't exist right now. I know.
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail=>'[EMAIL PROTECTED]',site=>
'http://home.kiski.net/~crt'};print &qu
(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
51 matches
Mail list logo
