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
character, and the first character) are all efficient string
Where, oh where, did you find these? And why, oh why, haven't I found
them on CPAN already?
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kiski.net/~crt'};print "\n",'.'x(length(
as autoflush(1).
--
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
Today around 11:01am, Jonathan Scott Duff hammered out this masterpiece:
: On Tue, Aug 15, 2000 at 09:14:20AM -0400, Casey R. Tweten wrote:
: This, by the way (even as a test) was agravating to me because in order to
: get decent output I really had to do this:
:
: cat /etc/passwd | perl
at happens to function prototypes?
sub my_func($$$) {}
That isn't too helpful if you're using it like this:
myfunc( "Scalar", [ "Array", "Ref" ], { Hash = 'Ref' } );
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTED]',site=
'http://home.kisk
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
out 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 "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$sig-{$a}cmp$sig-{$b}}keys
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
join(',', ARRAY $hashref-{ary}), "\n";
:
--
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$s
!
: 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'};print "\n",'.'x(length($sig-{site})+6),"\n";
print map{$_.': '.$sig-{$_}."\n"}sort{$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",'
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-{$_}."
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
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
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
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",'
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 "
y to find *appropriate* places to ask
: your questions in the future.
:
:
: --
: Tad McClellan SGML consulting
: [EMAIL PROTECTED] Perl programming
: Fort Worth, Texas
:
--
print(join(' ', qw(Casey R. Tweten)));my $sig={mail='[EMAIL PROTECTE
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
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
23 matches
Mail list logo