/www.bamccaig.com/>
perl -E '$_=q{V zrna gur orfg jvgu jung V fnl. }.
q{Vg qbrfa'\''g nyjnlf fbhaq gung jnl.};
tr/A-Ma-mN-Zn-z/N-Zn-zA-Ma-m/;say'
signature.asc
Description: Digital signature
On Mon, Jan 5, 2015 at 12:53 PM, Brandon McCaig wrote:
>
> > Just like "print", but implicitly appends a newline. "say LIST"
> > is simply an abbreviation for "{ local $\ = "\n"; print LIST
> > }".
>
> print() already uses $\
On Mon, Jan 05, 2015 at 02:25:15PM +0100, Hans Ginzel wrote:
> Hello!
Hello,
> Is correct that say() uses "n"? Why it does not use $\
> (http://perldoc.perl.org/perlvar.htm#$OUTPUT_RECORD_SEPARATOR)?
> See http://perldoc.perl.org/functions/say.html. Consider Perl6::Say -
Hello!
Is correct that say() uses "n"? Why it does not use $\
(http://perldoc.perl.org/perlvar.htm#$OUTPUT_RECORD_SEPARATOR)?
See http://perldoc.perl.org/functions/say.html. Consider Perl6::Say -
http://rpm.pbone.net/index.php3/stat/45/idpl/1146707/numer/3/nazwa/Perl6::Say#lbAE.
What
On Fri, Nov 16, 2012 at 12:44 PM, Brandon McCaig wrote:
> On Fri, Nov 16, 2012 at 10:10:14AM -0600, boB Stepp wrote:
>> However, I am still puzzled why if I run the script from the
>> command line (not Padre) with Strawberry 5.16, say works
>> without a hitch without the
On Fri, Nov 16, 2012 at 10:10:14AM -0600, boB Stepp wrote:
> However, I am still puzzled why if I run the script from the
> command line (not Padre) with Strawberry 5.16, say works
> without a hitch without the need for a use pragma.
If you are using -E instead of -e then that would e
On Fri, Nov 16, 2012 at 9:19 AM, timothy adigun <2teezp...@gmail.com> wrote:
>
>Please also check this http://perldoc.perl.org/functions/say.html
>>
This makes sense now. However, I am still puzzled why if I run the
script from the command line (not Padre) with Strawber
Hello boB,
On Fri, Nov 16, 2012 at 4:58 AM, boB Stepp wrote:
> I am using Win7Pro-64bit.
>
> say "Another Hello World!";
>
> if run from Padre v. 0.94 yields:
>
> String found where operator expected at HelloWorld.plx line 4, near "say
> "Anothe
Hi Bob,
On Thu, 15 Nov 2012 21:58:38 -0600
boB Stepp wrote:
> I am using Win7Pro-64bit.
>
> say "Another Hello World!";
>
> if run from Padre v. 0.94 yields:
>
> String found where operator expected at HelloWorld.plx line 4, near "say
> "Anoth
I am using Win7Pro-64bit.
say "Another Hello World!";
if run from Padre v. 0.94 yields:
String found where operator expected at HelloWorld.plx line 4, near "say "Anothe
r Hello World!""
(Do you need to predeclare say?)
syntax error at HelloWorld.plx li
On Jun 8, 2011, at 10:25 AM, Jim Gibson wrote:
> Because Perl is smart! It treats arrays differently depending upon the
> context.
On Jun 8, 2011, at 10:22 AM, Octavian Rasnita wrote:
> When you quote an array, the elements of that array will be separated by the
> content of variable $".
others have given you answers for each case. but no one has clarified an
important misconception you seem to have. say has nothing to do with the
results you are seeing. it is all about context in expressions. if you
don't understand context, then you can't code perl well as context i
On 6/8/11 Wed Jun 8, 2011 10:08 AM, "sono...@fannullone.us"
scribbled:
> I ran across something interesting today. I'm getting different results for
> an array depending on how it's used, as follows:
>
>
> say @fieldnames;
> prints
> UIDGr
From:
I ran across something interesting today. I'm getting different results for an
array depending on how it's used, as follows:
say @fieldnames;
prints
UIDGroupNamelastmodcategoryhtmlhidettsortorder
-
say "fieldnames = " . @fieldnames;
prints
fieldnames = 7
--
I ran across something interesting today. I'm getting different
results for an array depending on how it's used, as follows:
say @fieldnames;
prints
UIDGroupNamelastmodcategoryhtmlhidettsortorder
-
say "fieldnames = " . @fieldnames;
prints
fieldnames = 7
--
On Thu, May 26, 2011 at 10:18:51 -0700 , PetePDX wrote:
>
>
> I want to update a rrd database file, I'm using RRDTool::OO the data
> is coming out of a database table.
> each row in the database has in it two columns that are the dsname and
> the associated value.
Pete, perhaps the reason that y
I want to update a rrd database file, I'm using RRDTool::OO the data
is coming out of a database table.
each row in the database has in it two columns that are the dsname and
the associated value.
to insert a record using RRDTool::OO one does
$rrd->update(time => $time, values => [$val1, $val2,
On Sunday 09 May 2010 14:30:06 Owen wrote:
> I have perl v5.10.0 on an up to date Ubuntu-9.04
> perldoc -f say=====
> say FILEHANDLE LIST
> say LIST
> say Just like "print", but implicitly appends a newline.
> "say LI
I have perl v5.10.0 on an up to date Ubuntu-9.04
perldoc -f say=
say FILEHANDLE LIST
say LIST
say Just like "print", but implicitly appends a newline.
"say LIST" is simply an abbreviation for "{ local $\ = "\n&quo
On 3/10/06, tom arnall <[EMAIL PROTECTED]> wrote:
> the following script is intended to uppercase every character preceded by [?.]
> and one or two spaces:
>
> ($f,$g)=/([?.] {1,2})([a-z])/s;
> $h = uc $g;
> s/$f$g/$f$h/s;
>
> in the third line however perl interprets the [.?] in $f as a metacharac
tom arnall wrote:
> the following script is intended to uppercase every character preceded by
> [?.]
> and one or two spaces:
>
> ($f,$g)=/([?.] {1,2})([a-z])/s;
> $h = uc $g;
> s/$f$g/$f$h/s;
>
> in the third line however perl interprets the [.?] in $f as a metacharacter.
> is there any way
Tom Phoenix wrote:
On 3/10/06, tom arnall <[EMAIL PROTECTED]> wrote:
is there any way to get perl to interpret the contents of $f as a literal?
I think you're looking for the quotemeta() function. Hope this helps!
--Tom Phoenix
Stonehenge Perl Training
You can also use the \Q meta-charact
On 3/10/06, tom arnall <[EMAIL PROTECTED]> wrote:
> is there any way to get perl to interpret the contents of $f as a literal?
I think you're looking for the quotemeta() function. Hope this helps!
--Tom Phoenix
Stonehenge Perl Training
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
the following script is intended to uppercase every character preceded by [?.]
and one or two spaces:
($f,$g)=/([?.] {1,2})([a-z])/s;
$h = uc $g;
s/$f$g/$f$h/s;
in the third line however perl interprets the [.?] in $f as a metacharacter.
is there any way to get perl to interpret the contents o
* Bill Gradwohl <[EMAIL PROTECTED]> [2006-01-11T10:07:10]
> On Wed, 2006-01-11 at 09:25 -0500, Ricardo SIGNES wrote:
> > @{ $children{$v} } means:
> > get the scalar stored in $children{$v} (which is an entry in
> > %children) and dereference it as an array
> > In other words:
> > my $entry =
Bill Gradwohl wrote:
I think I might be on to an explanation for the following line of code:
push( @{ $children{$f} }, $c );
If someone would be so kind as to verify this for me, I'd appreciate it.
1) push $c onto the array specified by @{$children{$f}}.
Yes.
2) $children{$f} mus
I think I might be on to an explanation for the following line of code:
push( @{ $children{$f} }, $c );
If someone would be so kind as to verify this for me, I'd appreciate it.
1) push $c onto the array specified by @{$children{$f}}.
2) $children{$f} must return a scalar array reference
On Wed, 2006-01-11 at 13:02 -0500, Shawn Corey wrote:
> To see what's inside a complex data structure, use Data::Dumper. In
> this
> case, add the lines:
>
>use Data::Dumper;
>print Dumper \%children;
>
> See `perldoc Data::Dumper` for details.
>
I hadn't gotten to that chapter yet, but
Bill Gradwohl wrote:
I'll study that one after I TOTALLY understand my original problem.
Thank you for another eye opener & head scratcher.
To see what's inside a complex data structure, use Data::Dumper. In this
case, add the lines:
use Data::Dumper;
print Dumper \%children;
See `perl
On Wed, 2006-01-11 at 09:25 -0500, Ricardo SIGNES wrote:
> @{ $children{$v} } means:
> get the scalar stored in $children{$v} (which is an entry in
> %children) and dereference it as an array
>
> In other words:
>
> my $entry = $children{$v};
> @$entry;
>
First, Thank You for your repl
Ricardo SIGNES wrote:
* Bill Gradwohl <[EMAIL PROTECTED]> [2006-01-11T09:08:15]
while ( ($k,$v) = each %father ) {
push( @{ $children{$v} }, $k );
}
It's the push line I'm having difficulty with. Here's what I understand:
The outermost {} can be removed to simplify it to :
push( @$chi
Hello Bill,
%father = ( 'Cain' => 'Adam',
'Abel' => 'Adam',
'Seth' => 'Adam',
'Enoch' => 'Cain',
'Irad' => 'Enoch',
'Mehujael' => 'Irad',
'Methusael' => 'Mehujael',
'Lamech'=> 'Methus
* Bill Gradwohl <[EMAIL PROTECTED]> [2006-01-11T09:08:15]
> while ( ($k,$v) = each %father ) {
> push( @{ $children{$v} }, $k );
> }
>
> It's the push line I'm having difficulty with. Here's what I understand:
>
> The outermost {} can be removed to simplify it to :
> push( @$children{$
I'm reading "The PERL Cookbook" and can't get past a particular line of
code. I'm trying to dissect it so I can understand exactly what's going
on.
%father = ( 'Cain' => 'Adam',
'Abel' => 'Adam',
'Seth' => 'Adam',
'Enoch' => 'Cain',
s about how to use perl module to do
> > Z-scores test (Say, Wilcoxon).?
>
> 1. Find the module.
>
> 2. Look up the Perldoc that describes how to use it.
>
> 3. Use it.
>
>
> I'll be glad to help you a bit with step #1 there.
>
>
> A search fo
On Tue, 7 Jun 2005, Frank Lee wrote:
> Can anybody give me some ideas about how to use perl module to do
> Z-scores test (Say, Wilcoxon).?
1. Find the module.
2. Look up the Perldoc that describes how to use it.
3. Use it.
I'll be glad to help you a bit with step #1 there.
A s
Can anybody give me some ideas about how to use perl module to do
Z-scores test (Say, Wilcoxon).?
Thanks very much!
--
Do not guess who I am. I am not Bush in BlackHouse
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.
--On Sunday, August 17, 2003 5:08 PM +0100 Rob Dixon
<[EMAIL PROTECTED]> wrote:
Glad you're on track, but I'd prefer no 'F's. RTM is fine :)
What does Robert T. Morris have to do with it? :-)
One thing that makes life easier for us people on windoze to use perldoc is
to grab a copy of less t
8 hours of RTFM even I can find many of my own mistakes.
> I quess I just got impatent and wanted something to work without doing the
> work need.
> however I did learn alot from everyone who answered my call for help.
> as you say in perl "there is more than one way to skin a cat
.
I quess I just got impatent and wanted something to work without doing the
work need.
however I did learn alot from everyone who answered my call for help.
as you say in perl "there is more than one way to skin a cat"
"Tassilo Von Parseval" <[EMAIL PROTECTED]> wr
Robert wrote:
>
> Please don't say RTFM
I don't think we've ever said that. But we often say
Please RTM /here/
> Please be gentle with me ..
We will. There are a few things that don't go down too
well: usually doing other people's work for them. But
if you&
Robert --
...and then Robert Mark White said...
%
% Dear Gentle Readers,
%
% Please be gentle with me as this is only my first day trying to learn perl.
Hey, we've all been there :-)
I can't recommend highly enough the "Learning Perl" and "Programming
Perl" books. I read "Learning" to get sta
On Aug 16, Ramprasad said:
>open IN , $inputfile || die "COuldnot open in file\n";
A see many things unfavorable here. Because you're using the || operator,
the only time die() will be called is if $inputfile is a false value. You
haven't included the filename nor $! in the error message, and I
probably the best book you
can get to set you on your way.
-Original Message-
From: Robert Mark White [mailto:[EMAIL PROTECTED]
Sent: 16 August 2003 06:44
To: [EMAIL PROTECTED]
Subject: Please don't say RTFM
Dear Gentle Readers,
Please be gentle with me as this is only my firs
Robert Mark White wrote:
Dear Gentle Readers,
Please be gentle with me as this is only my first day trying to learn perl.
I am using an online tutorial, however it must be written for *nix and I am
trying to use it on win32.
man perl does not even work.
I have already found some other differences.
On Fri, Aug 15, 2003 at 11:44:04PM -0600 Robert Mark White wrote:
> Please be gentle with me as this is only my first day trying to learn perl.
> I am using an online tutorial, however it must be written for *nix and I am
> trying to use it on win32.
> man perl does not even work.
We'll come to t
Dear Gentle Readers,
Please be gentle with me as this is only my first day trying to learn perl.
I am using an online tutorial, however it must be written for *nix and I am
trying to use it on win32.
man perl does not even work.
I have already found some other differences. For example, the tutori
E: Substitution: How do I say ...
Hi, Daryl, thanks for writing.
Wouldn't this substitute for tabs which DO have a 454354 after them? I
was asking how to sub for tabs which do NOT.
-Kevin
>>> "Daryl J. Hoyt" <[EMAIL PROTECTED]> 03/29/02 12:32PM >>>
> er...
> s/\t(?!454354)//g;
> >
> > s/\t454354//g;
> >
> > replace every \t (tab character) which is NOT
> > immediately proceeded
> > by '454354' with ''?
> >
> > Thanks. I suspect this is any easy one, but I've been staring
> > at it for
> > an hour, and I can't figure it out. Brain
t
Performance Engineer
Geodesic Systems
312-832-2010
<http://www.geodesic.com>
<mailto:[EMAIL PROTECTED]>
-Original Message-
From: KEVIN ZEMBOWER [mailto:[EMAIL PROTECTED]]
Sent: Friday, March 29, 2002 10:58 AM
To: [EMAIL PROTECTED]
Subject: Substitution: How do I say ...
er...
s/\t(?!454354)//g;
> -Original Message-
> From: Daryl J. Hoyt [mailto:[EMAIL PROTECTED]]
> Sent: Friday, March 29, 2002 12:33 PM
> To: KEVIN ZEMBOWER; [EMAIL PROTECTED]
> Subject: RE: Substitution: How do I say ...
>
>
> s/\t454354//g;
>
>
TED]
Subject: Substitution: How do I say ...
replace every \t (tab character) which is NOT immediately proceeded
by '454354' with ''?
Thanks. I suspect this is any easy one, but I've been staring at it for
an hour, and I can't figure it out. Brain not working we
... replace every \t (tab character) which is NOT immediately proceeded
by '454354' with ''?
Thanks. I suspect this is any easy one, but I've been staring at it for
an hour, and I can't figure it out. Brain not working well today.
-Kevin Zembower
-
E. Kevin Zembower
Unix Administrator
Johns
From: Jeff 'japhy' Pinyan <[EMAIL PROTECTED]>
> Prototypes can be avoided by prepending a & to the function call --
> that's just the way it goes. That way, you can say:
>
> $avg = &average([]);
>
> if you really wanted to. I
On Jan 27, Pozsar Balazs said:
>Thank for clarification. But one little drak spot:
>
>> Thus, accessing constants via &CONST is slower than, and not the same
>> process as, accessing it via CONST (or +CONST or CONST()).
>
>Is there any difference between CONST and CONST()?
Since CONST is defined
Thank for clarification. But one little drak spot:
> &FOO is NOT a bareword. Moreso, &FOO supercedes the empty prototype.
>
> Thus, accessing constants via &CONST is slower than, and not the same
> process as, accessing it via CONST (or +CONST or CONST()).
Is there any difference between CONST
;ll bark at you: "foo() called
too early for prototype" or somesuch.
If you define the function beforehand, or at least declare it:
sub average (\@);
then when you call it, Perl will know to work its prototype magic on the
argument list.
Prototypes can be avoided by prepending a &am
From: Jeff 'japhy' Pinyan <[EMAIL PROTECTED]>
> On Jan 27, Jenda Krynicky said:
>
> >> use constant TEMPLATE => '/usr/lib/templates/foo.html';
> >> use File::Copy;
> >> copy TEMPLATE => $destination;
> >
> >I usualy write constants with the &. So that when I make a
On Jan 27, Jenda Krynicky said:
>> use constant TEMPLATE => '/usr/lib/templates/foo.html';
>> use File::Copy;
>> copy TEMPLATE => $destination;
>
>I usualy write constants with the &. So that when I make a typo I
>get the more understandeable
That kills the constant-ness of them. T
> "Jenda" == Jenda Krynicky <[EMAIL PROTECTED]> writes:
>> So, in general, I actively discourage the use of fatarrow as a funny
>> comma, unless that use is to explicitly quote the left argument.
Jenda> One has to know the implications.
Exactly. So it's one of those trickier things, that w
From: [EMAIL PROTECTED] (Randal L. Schwartz)
> > "Jenda" == Jenda Krynicky <[EMAIL PROTECTED]> writes:
>
> Jenda> I think the nicest example is
>
> Jenda>use File::Copy;
> Jenda>copy $source => $destination;
> [edited slightly]
>
> The big problem with using the big arrow t
> "Jenda" == Jenda Krynicky <[EMAIL PROTECTED]> writes:
Jenda> I think the nicest example is
Jenda> use File::Copy;
Jenda> copy $source => $destination;
[edited slightly]
The big problem with using the big arrow there is when you have
constants:
use constant TEMPLATE => '/usr/lib/tem
On Jul 24, shweta shah said:
>is there something in perl through which i can get
>date previous to some specified days ,say 20 days befores date
>i need to know only dd-mm-yy and not time
>is there any module function for it
Apart from what others have said, you can't JUST t
time() and locatime() functions are all you need, plus you need to figure
out the number of seconds in 20 days :-)
On Tue, 24 Jul 2001, shweta shah wrote:
> hello,
> is there something in perl through which i can get
> date previous to some specified days ,say 20 days befores date
&g
>hello,
>is there something in perl through which i can get
>date previous to some specified days ,say 20 days befores date
>i need to know only dd-mm-yy and not time
>is there any module function for it
>thanks
>shweta
I have seen several people mention Date::Calc, I bel
Date::Calc has functions to make that very easy.
Steve H.
-Original Message-
From: shweta shah [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, July 24, 2001 6:24 AM
To: [EMAIL PROTECTED]
Subject: how to get date before say 20 days ?
hello,
is there something in perl through which i can get
t;shweta shah" <[EMAIL PROTECTED]>
>An: <[EMAIL PROTECTED]>
>Betreff: how to get date before say 20 days ?
>Datum: Die, 24. Jul 2001 13:24 Uhr
>
> hello,
> is there something in perl through which i can get
> date previous to some specified days ,say 20 days b
hello,
is there something in perl through which i can get
date previous to some specified days ,say 20 days befores date
i need to know only dd-mm-yy and not time
is there any module function for it
thanks
shweta
Hi Jim,
All you should need to do is install the DBI module, and the
appropriate DBD module from CPAN.
The documentation for these modules is excelent. Although I haven't
used your specific setup, I stick to Linux/PostgreSQL I find the setup
works great.
Gary
On Thursday 03 May 2001 7:32
EMAIL PROTECTED]
Subject: DBD::ODBC (say what?)
I have a little experience with perl. 99.999% of it is on Unix.
My boss came up with a project involving an NT server, Microsoft SQL Server,
and MS-Access datbases.
I'm fairly confident that I can figure out perl and NT. I have read postings
that m
I have a little experience with perl. 99.999% of it is on Unix.
My boss came up with a project involving an NT server, Microsoft SQL Server,
and MS-Access datbases.
I'm fairly confident that I can figure out perl and NT. I have read postings
that mention DBI,DBD::ODBC etc.
I need some guidance as
71 matches
Mail list logo
