]} -> #{s[1]}" end
On Sat, Jan 15, 2022 at 3:48 AM Paul Procacci wrote:
> Hey John,
>
> On Sat, Jan 15, 2022 at 3:04 AM Jon Smart wrote:
>
>>
>> Hello Paul
>>
>> Do you mean by undef $/ and with <$fh> we can read the file into memory
>>
Hey Jon,
The most glaringly obvious thing I could recommend is that at least in your
perl routine (and probably the other languages) most of your time is
context switching reading from the disk.
Now, my perl version is indeed faster, but one has to ask themselves, was
.015193256 seconds really
Hey John,
On Sat, Jan 15, 2022 at 3:04 AM Jon Smart wrote:
>
> Hello Paul
>
> Do you mean by undef $/ and with <$fh> we can read the file into memory
> at one time?
>
In most cases the short answer is yes.
I have problems with your wording however given the 'geek'
Sorry, it's 5:00am here and needless to say it's wy past my bedtime and
I'm making mistakes.
The comparison should have been between both ruby versions ugh.
I'll let you play though. Have a great night.
On Sat, Jan 15, 2022 at 4:57 AM Paul Procacci wrote:
> Hey John,
>
>
On Sat, Jan 15, 2022 at 5:03 AM Jon Smart wrote:
>
> Thanks Paul. I am surprised that mmap has that huge IO advantages
> comparing to the classic way. So ruby take more benefit from this mmap
> calling. Just get learned from your case.
>
> Regards
>
>
It's not always bene
3)'
67
$
> for example, says() is alias to
> print().
This is not possible. Though it is with some core functions.
See https://perldoc.perl.org/CORE.html for details.
--
Paul Johnson - p...@pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail:
shift;
> >$name ||= 'Anonymous Person';
>
> Which is usually written as:
>
>sub hello {
>my $name = shift || 'Anonymous Person';
Or, nowadays, and if your perl version(s) support it, as:
sub hello ($name = "Anonymous Person") {
--
Paul Johnso
On Mon, Aug 18, 2014 at 06:07:59AM -0700, John SJ Anderson wrote:
On Mon, Aug 18, 2014 at 1:38 AM, Paul Johnson wrote:
> On Mon, Aug 18, 2014 at 04:17:53PM +0800, Ken Peng wrote:
>> which one is the better way to return the list content? And if the
>> method is an instance metho
13:39 Peng Yu <pengyu...@gmail.com> wrote:
>
> > Hi,
> >
> > For the following two expressions, are they of the same speed or one
> > of them is faster?
> >
> > `$#array` vs `scalar @array`
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To
On Fri, Aug 04, 2017 at 05:45:08PM +0200, hw wrote:
> Paul Johnson wrote:
> > On Thu, Aug 03, 2017 at 08:44:45PM +0200, hw wrote:
> > >
> > > Hi,
> > >
> > > suppose I have a class FOO and a class BAR. The parent of BAR is FOO.
> > >
&g
ally called
traits in other languages. You can use roles within Moose or Moo, or by
using other CPAN modules. You can read more about roles/traits at
https://en.wikipedia.org/wiki/Trait_(computer_programming)
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beg
ing experience. The trick is to work with the language. Then
programming becomes productive and enjoyable, the sun shines, ponies
frolic through meadows, and unicorns graze contentedly beneath rainbows.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr
ule which will
probably do what you want: PPI. See https://metacpan.org/pod/PPI
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
I have a hosts entry that points to a specific IP address. It does not appear
that DBI:Sybase:server uses the /etc/hosts file? Is this correct?Ping works
fine in shell.How would I point a server name to different IP addresses
locally?What does DBI use for name resolution?
Thanks!
But they're all fast enough. Or none of them are. So choose the
solution which is the clearest.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Tue, Mar 28, 2017 at 12:20:29AM +0300, Shlomi Fish wrote:
> Hi Paul!
>
> On Mon, 27 Mar 2017 22:21:06 +0200
> Paul Johnson <p...@pjcj.net> wrote:
>
> > On Mon, Mar 27, 2017 at 04:04:22PM +0200, Luca Ferrari wrote:
> > > Hi all,
> > > I've to run
the application with a file name, do a couple
> of menu interactions and exit, then do it again for a hundred or so
> files.
> Is there any kind of "app-mechanize" similar to www::mechanize?
Nothing to do with perl, but you could try xdotool
http://www.semicomplete.com/proje
of years). As you note, the correct way to get
this behaviour nowadays is to use the "state" keyword.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
t;utf8" and a lot of
the problems go away.
> Also, this answer on StackOverflow by tchrist (Tom Christiansen, who I
> would say knows the most about the intersection of Perl and Unicode)
> is a good resource: http://stackoverflow.com/a/6163129/78259
Quite. And utf8::all tries to
You'll notice that I disagree with Uri. You should follow the coding
guidelines of any existing project you are working on, and make up your
own mind about what to do when you get to decide the guidelines.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Mon, Jan 25, 2016 at 12:24:04AM +0100, lee wrote:
> Paul Johnson <p...@pjcj.net> writes:
>
> > On Sun, Jan 24, 2016 at 05:44:14PM +0200, Shlomi Fish wrote:
> >> Hi lee,
> >>
> >> On Sun, 24 Jan 2016 13:11:37 +0100
> >> lee <l...@yag
On Sun, Jan 24, 2016 at 05:44:14PM +0200, Shlomi Fish wrote:
> Hi lee,
>
> On Sun, 24 Jan 2016 13:11:37 +0100
> lee <l...@yagibdah.de> wrote:
>
> > Paul Johnson <p...@pjcj.net> writes:
> > >
> > > In scalar context the comma operator evaluates i
you're working far too hard!
my @array = qw(11 2 3 4 55 4 3 2);
my %seen;
my @unique = grep !$seen{$_}++, @array;
This method is mentioned in the Perl Cookbook that was linked to earlier
in the thread. But I doubt that link should have been online, so get
hold of a legal copy if this is usef
be completely backwards
compatible. Or the feature may be completely scrapped. That's the risk
you take with experimental features. But there is certainly a will to
make this feature stick.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr
On Wed, Jul 22, 2015 at 08:17:18PM +0530, Piyush Verma wrote:
Thanks Paul, this solved me some part of problem. I was using Devel::Cover
in wrong place of .pl file.
Now putting this on start of .pl script works for me but not completely.
There are 20 .pm modules present in my project
.
And the way to do this is also in the synopsis that Shlomi pointed you
to.
Coverage without tests is hard though.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http
1071 1161 1251 1341 1431
$
Thinking about it, there is (at least) one bug in there. But with the
data provided it may not be important.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h
is an error, and the only one we
can see in the code you have posted.
$ perl -ce 'find ( sub {}, $tdir; )'
syntax error at -e line 1, near $tdir;
-e had compilation errors
$ perl -ce 'find ( sub {}, $tdir )'
-e syntax OK
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e
Prompt argument '//': missing opening delimiter of match
operator at linux_diagnostics.pl line 189
Guessing:
You are using Net::Telnet and your prompt should be // rather than
'//'
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
take the substr from the original string before
splitting it, unless you wanted to taint $foo even if its source wasn't
tainted.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
Syndrome.
Putting it together you get:
my $start = qr!mailto:|ldap:///!;
while ($str =~ /$start(.*?)(?=,$start|$)/sg) {
print first = $1\n;
}
Or you could avoid the messing about with the while condition and use
split:
say for split $start, $str;
--
Paul Johnson - p
) is:
(1, 2, 3) - ((1, 2), 3) - (2, 3) - 3
And this is why $one_var gets the value 3 - not because there are three
elements in a list on the RHS.
This all becomes easier to understand if you don't use the values 1, 2
and 3 :)
See also perldoc -q 'difference between a list and an array'
--
Paul
On Tue, Sep 16, 2014 at 02:43:28PM -0500, Andy Bach wrote:
On Tue, Sep 16, 2014 at 1:45 PM, Paul Johnson p...@pjcj.net wrote:
The comma operator evaluates its LHS, throws it away, evaluates its RHS
and returns that. The comma operator is left associative (see perlop).
So the result
assigned to $list.
What is not happening at all is the creation of a list of numbers and a
calculation of its length.
See also perldoc -q 'difference between a list and an array'
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
extra work and might cause someone to wonder
why you haven't just returned a reference to the array.
The second version is necessary when the array might persist between
subroutine calls and you effectively need to return a copy.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
lines which differ only in case.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
perldoc perlrun if you want to see why that works. Take a look at the
-a option. The -1 index into @F says use the last element of the array.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h
On Sun, Jul 13, 2014 at 06:44:18PM -0400, ESChamp wrote:
Paul Johnson has written on 7/13/2014 5:00 PM:
perl -nale 'print $F[-1]' original_file.txt just_email.txt
e:\Docs\perl -nale 'print $F[-1]' 4sam.txt just_email.txt
Can't find string terminator ' anywhere before EOF at -e line 1
://metacpan.org/pod/List::Util
Depending on the distribution you are using you might have a tool to
automate the process of recursively installing dependencies.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands
---
leaving 'let us go' unmatched.
I don't know how to describe this problem, Can anyone help me with this ?
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http
, as
Alex is doing here. This is good because, as we see here, it can
reasonably be expected to work.
perldoc -f each
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http
= Data::Dumper-Dump([$_, $project, $$_, $found]);
$logger-trace(qq(dump=$dump));
}
I can't explain why $found is not true on the 3rd pass. Does this
have something to do with the way I'm dereferencing the blessed
object?
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
try and understand it before trusting it.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
= map {$_ = 1} @{$params-{direction}}; # -- HERE
}
else
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
the right thing to do to figure out why a test is
failing?
Perhaps you are looking for Test::Differences ?
https://metacpan.org/pod/Test::Differences
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail
declaration
line. What you have currently is an old-style package declaration and
then an ordinary block, meaning that anything after the block is also in
package Hello.
Finally, 1 is a boring value to return. Be creative!
See http://returnvalues.useperl.at/values.html
--
Paul Johnson - p...@pjcj.net
Hi, I am attempting to write a regex but it is giving me a headache.
I have two log entries
1. Feb 3 12:54:28 cdrtva01a1005 [12: 54:27,532] ERROR
[org.apache.commons.logging.impl.Log4JLogger]
2. Feb 3 12:54:28 cdrtva01a1005 [12: 54:27,532] ERROR [STDERR]
I am using the following
done, and a whole bunch of other considerations.
In some cases shelling out to ls is exactly the correct thing to do, and
when you have decided where your line lies based on your understanding
of your requirements, don't let anyone without that understanding tell
you otherwise.
--
Paul Johnson
, this is possible. You need to use qr// to construct your RE:
$ perl -E '$h = { a = qr/y/ }; say $_ =~ $h-{a} for qw(x y z)'
1
$
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
On Sat, Jan 25, 2014 at 06:41:00PM +0100, Luca Ferrari wrote:
On Sat, Jan 25, 2014 at 4:12 PM, Paul Johnson p...@pjcj.net wrote:
$ perl -E '$h = { a = qr/y/ }; say $_ =~ $h-{a} for qw(x y z)'
Thanks, but then another doubt: having a look at
http://perldoc.perl.org/perlop.html#Regexp-Quote
on the FileHandle:
REPORT-format_lines_per_page(10);
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
if the
edition is old. The reason for that is that it isn't a book to use to
learn Perl - the preface explicitly states that. It is a book from
which to learn algorithms if you already know Perl.
So if that's you, reading Mastering Algorithms with Perl will make you a
better developer.
--
Paul
Fcntl
for details.
And for your third approach, you need C $. = 0;
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
, is seems
not to work. It always returns The file $file_seqs does not exist!!!.
Do you know where I am making a mistake?
I don't know. How are you calling your program? Because it seems to
work correctly for me.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail
0
[ If it's not obvious, my tongue was in my cheek for half of this post. ]
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
of lines.
If I use perl in-built function substr() to data extraction, it has huge
impact on performance.
Compared to what?
Is there any alternative for this?
Perhaps unpack() or regular expressions, but I doubt either would be
much faster, if at all.
--
Paul Johnson - p...@pjcj.net
http
Odds are good that the original poster needs to use .bash_profile instead.
Sent from my iPhone
On 2013-02-18, at 2:24 AM, Luca Ferrari fluca1...@infinito.it wrote:
I suspect this has something to do with the PATH variable and alike.
And it could have been set up at system wide level, for
for this list.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Simple, step by step directions:
1. Obtain large gun.
2. Load with ammunition.
3. Fire squarely into foot.
4. Reload if necessary and repeat.
Sent from my iPhone
On 2013-02-12, at 12:01 PM, Rajeev Prasad rp.ne...@yahoo.com wrote:
freinds,
what is the advice just for obfuscating code?
I'm thinking {2,}\w to match two or more words after north.
Sent from my iPhone
On 2013-01-28, at 2:57 PM, Angela Barone ang...@italian-getaways.com wrote:
Hello,
I'm trying to abbreviate ordinals(?) that occur only in the middle of an
address and I'm having a problem. The line below
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
=~ s/\$rx/$r/;
Three points:
- make sure you trust your input
- be sure to check $@
- there's no need to check if the pattern matches first, just attempt
the substitution
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
On Mon, Dec 24, 2012 at 08:01:11PM +, Rob Dixon wrote:
On 24/12/2012 13:08, Paul Johnson wrote:
On Sun, Dec 23, 2012 at 06:57:38PM +0530, punit jain wrote:
I am seeing which lines have both POP and Webmail as below :-
if( $line =~ /AccessModes\s*=\s*.*(WebMail)*.*(POP).*(WebMail
substrings appear
in the same same string is to program the way you define the problem:
if (/WebMail/ /POP/) { ... }
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http
/' in out
See perldoc perlrun for the switches and Range Operators from perdoc
perlop for ..
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
* David Christensen dpchr...@holgerdanske.com [2012-12-04 18:36:13 -0800]:
On 12/04/12 14:56, Asad wrote:
Would you guidance to start develop logic for perl programming .
Also I am looking for a book to start with .
Which explains the basic of perl programming with
if you update your perl version I would stay away from given/when
for now.
And you should update your perl version. It's unsuported, buggy and I'm
sure it has security problems which have been fixed in the last eight
years. (That's always a good case to make to management folk.)
--
Paul Johnson - p
product
though.
On Thu, Nov 22, 2012 at 3:32 PM, Paul Johnson p...@pjcj.net wrote:
On Thu, Nov 22, 2012 at 11:37:15AM +0530, Chankey Pathak wrote:
In our company we were using this code (given at the end) for about 10
years and it worked fine.
Some days ago we faced some issues
to search from START to the next
END and then start the search pattern over again with the next START-END
match.
How might I go about achieving this?
perl -ne 'print if /# START block #/ .. /# END block #/'
file.txt
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
On Mon, Oct 29, 2012 at 12:48:33PM +0100, Hermann Norpois wrote:
But still: What is wrong with $/=^\s+$ ?
From perldoc perlvar:
Remember: the value of $/ is a string, not a regex. awk has to be
better for something. :-)
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
[ 'lesleyb' wrote on Sat 22.Sep'12 at 9:22:09 +0100 ]
On Sat, Sep 22, 2012 at 09:45:08AM +0200, Anne Wainwright wrote:
Hi,
this is the output.
Use of uninitialized value $9 in concatenation (.) or string at
pg_delim2htm_01.pl line 89, line 1.
Use of uninitialized value $9 in
On 2012-09-15, at 11:25 PM, jmrhide-p...@yahoo.com wrote:
It would be WONDERFUL to get an email every time it glitched! Does anybody
have
a
sub written for that?
Just bear in mind that you need to add logic to the while(1) loops to determine
that they are running too long. If it gets
On 2012-09-14, at 1:56 AM, jmrhide-p...@yahoo.com wrote:
I can see from the responses so far that I was unclear in the way I phrased
my
question, so please let me emphasize the following: MY SCRIPT, THOUGH COMPLEX
(500 LINES), PRODUCES EXACTLY THE OUTPUT I EXPECT EVERY TIME I RUN IT. In
Just checked on my machine, looks like it produces a floating point number
between 0 and 1.
Paul Anderson -- VE3HOP
On 2012-09-13, at 8:07 PM, Jim Gibson jimsgib...@gmail.com wrote:
(I am not sure exactly what rand(0) returns).
--
To unsubscribe, e-mail: beginners-unsubscr
Install PDE from CPAN and it'll work alright. It works fine for me on 5.16.1.
Paul Anderson -- VE3HOP
On 2012-09-12, at 12:08 AM, Vic Sage vic.s...@me.com wrote:
I'd like to hear some recommendations from this list for customizations to
emacs for coding Perl.
One seemingly
recommend editing the templates that PDE uses with vi, it has stuff that
emacs interprets. Created something of a nuisance when I tried using emacs to
edit them.
Paul Anderson -- VE3HOP
On 2012-09-12, at 9:42 AM, Vic Sage vic.s...@me.com wrote:
On Sep 11, 2012, at 11:45 PM, Shlomi Fish
Did you copy and paste that code? Do you know that when calling can() you are
using $ojb instead of $obj?
Paul Anderson -- VE3HOP
On 2012-09-12, at 9:17 AM, pangj pa...@riseup.net wrote:
Hi,
Today I wrote a script for validate a dns record from the specified DNS
server
I haven't had any trouble. I think IIRC it may be confused a little by
given/when, but not badly.
Paul Anderson -- VE3HOP
On 2012-09-12, at 12:20 PM, Vic Sage vic.s...@me.com wrote:
On Sep 12, 2012, at 5:59 AM, Paul Anderson wackyvor...@me.com wrote:
Install PDE from CPAN
I smell homework:p
Paul Anderson -- VE3HOP
On 2012-08-29, at 12:46 PM, Ashwin Rao T ashwin...@gmail.com wrote:
1)Check if IP address is in the range 172.125.1.0 and 172.125.25.0 using only
return functions regular expressions in Perl.
2)Check if the name is valid (has atleast 3
It looks like 2*10^-13 miles is about twice the inter atomic distance in
diamond:)
Paul Anderson -- VE3HOP
On 2012-08-30, at 4:22 AM, Chris Stinemetz chrisstinem...@gmail.com wrote:
Because floating-point arithmetic as done by limited precision computers is
always
Works great until you start using a coordinate system that places points on a
sphere:)
Paul Anderson -- VE3HOP
On 2012-08-30, at 2:31 PM, Uri Guttman u...@stemsystems.com wrote:
On 08/30/2012 12:20 PM, Paul Anderson wrote:
It looks like 2*10^-13 miles is about twice the inter atomic
That is 99.99780441116897988% error. 16 9's is better than any
measuring instrument in existence. I think it'll do:)
Paul Anderson -- VE3HOP
On 2012-08-30, at 1:29 AM, Jim Gibson jimsgib...@gmail.com wrote:
On Aug 29, 2012, at 5:53 PM, Chris Stinemetz wrote:
Just one
Isn't this basically the format of YAML? Couldn't a YAML CPAN module handle
this data?
On 2012-08-17, at 10:10 AM, jet speed speedj...@googlemail.com wrote:
Hi Shomi,
Appreciate your comments.Thanks
I find it difficult to understand, if i convert into has. i.e keys and
corresponding
will refer to the
concatenation (.) operator, even though there is no . in
your program.
I've copied and pasted the code below, for those who don't want to trek over to
github:
#!/usr/bin/myperl -w
# euler8.pl --- Euler Problem 8
# Author: Paul Anderson wackyvorlon@paul-andersons-macbook
Well, now I feel sufficiently stupid:) Thanks!
On 2012-08-14, at 6:19 PM, Jim Gibson jimsgib...@gmail.com wrote:
Have you tried printing out the values of ($1,$2,$3,$4,$5), $cur, and pos
$numb for each iteration? I think you will find it most informative to do so.
Hint: you should be
that leafnode basically does everything you're trying to
write, right?
Paul Anderson -- VE3HOP
On 2012-08-11, at 5:21 PM, Chris Knipe sav...@savage.za.org wrote:
Hi Paul,
I will be inclined to disagree - it depends on whether or not the content
was encoded to begin with (perhaps I should
Umm... Are you aware that binary attachments on usenet aren't actually *in*
binary? They're encoded in ASCII using one of a number of different methods.
They're just text, until decoded on the receiving end.
I recommend looking into File::Slurp and CHI. CHI basically implements the
entire
Silly question: Does submit_now.pl have its execute bit set?
Paul Anderson -- VE3HOP
On 2012-08-09, at 3:17 AM, venki neeli venki_neeli...@yahoo.com wrote:
hi Midhun/Hal
Shebang lines of Script-1 and Script-2 and perl location are same.
Where as Script one is executing and Script
Per the message by Mr. Adigun, using a single quote instead of double quotes
tells perl not to interpolate the string. That will prevent it from eating all
those backslashes.
Paul Anderson -- VE3HOP
On 2012-08-09, at 8:53 AM, Sandip Karale sandipkar...@gmail.com wrote:
Hi Shlomi
On Sun, Jul 22, 2012 at 11:09:10PM +0200, Jenda Krynicky wrote:
From: Paul Johnson p...@pjcj.net
You need a mixture of the two approaches: map to prepend not in: and
join to join them.
my $query = join and , map not in:$_, @folders;
@folders = ('one', 'two');
my $query
and in beginning.
Any idea how to do this ?
You need a mixture of the two approaches: map to prepend not in: and
join to join them.
my $query = join and , map not in:$_, @folders;
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr
as for example, you could do this:
/^(?:a{3}|a{5})$/
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Tue, Jun 12, 2012 at 07:11:57PM +0300, Shlomi Fish wrote:
OK. For Windows there is now http://dwimperl.com/ which is open-source and is
considered better than Activestate Perl.
[citation needed]
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners
%{$href-{$_[0]}}) {
return 1 if $_ eq 'ND'; #need to test all values are eq to 'ND'
}
return '';
}
I would imagine it to be much easier to look at it from the other way.
Return 0 any time you find a value that does not equal NO. Then
return 1 at the end.
--
Paul Johnson - p
). If not, what are you asking?
Are you actually looking for this?
$ perlbrew exec perl my_snazzy_program.pl
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http
Sent from my LG phone
Jim Gibson jimsgib...@gmail.com wrote:
On May 26, 2012, at 5:51 AM, pa...@fsmail.net wrote:
split is slower than the correct regex matching.
Did you know that split uses a regular expression to find the separators on
which to split the string? So your claim is
but
too slowly and profiling has determined that this is the bottleneck.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
that. But take
a look at https://metacpan.org/module/Mason
Good luck,
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
... it
says @words, not @word.)
This has now been fixed by
http://perl5.git.perl.org/perl.git/commitdiff/5a0c7e9d45ff6da450098635b233527990112d8a?hp=68cd360812f9eaa2d34c45c501e2fef87c44ccde
and will be in the upcoming 5.16.0 release.
Thanks for mentioning it.
--
Paul Johnson - p...@pjcj.net
http
1 - 100 of 2364 matches
Mail list logo
