ke(20).each do |s| puts "#{s[0]} -> #{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
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 wor
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 'g
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:
>
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
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 com
me = 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&
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
2018, 13:39 Peng Yu 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 unsubscribe, e-mail: beginner
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
ge, you will have an
unsatisfying 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 unsubscri
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 wrote:
>
> > On Mon, Mar 27, 2017 at 04:04:22PM +0200, Luca Ferrari wrote:
> > > Hi all,
> > > I've to run a very old
launch 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.semicom
ears). 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/
f
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 encapsulate as much of th
sts/perl5-porters/2008-08/msg00390.html
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 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 wrote:
> >>
> >&g
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 wrote:
>
> > Paul Johnson writes:
> > >
> > > In scalar context the comma operator evaluates its left-hand side,
> > >
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
efore it is brought out of experimental status.
But there might be larger changes that wouldn't 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 stic
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 presen
program doesn't require any input, you will need to
run it multiple times with varying input to get proper coverage
information.
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:/
t; etc.
Or, if you can't be bothered writing all that code:
$ perl -E 'push @{$pos{$_}}, $i++ for map split, ; say "$_: @{$pos{$_}}"
for @ARGV' bccd sdcch < data
bccd: 8 98 188 278 368 458 548 638 728 818 908 998 1088 1178 1268 1358
sdcch: 81 171 261 351 441 53
ror. So something is still going on somewhere
> else.
That may well be, but the semi-colon 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 -c
his at every match.
>
> ignoring bad 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
"'/>>/'&quo
is done in
the perl core.
You would normally 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
at is the case then you need to add the /s flag so that . will also
match a newline.
And for style, you can pull out the duplicated parts of the regex and
use another delimiter to avoid Leaning Toothpick Syndrome.
Putting it together you get:
my $start = qr!mailto:|ldap:///!;
while ($str =~ /$
On Tue, Sep 16, 2014 at 02:43:28PM -0500, Andy Bach wrote:
> On Tue, Sep 16, 2014 at 1:45 PM, Paul Johnson wrote:
>
> > The comma operator evaluates its LHS, throws it away, evaluates its RHS
> > and returns that. The comma operator is left associative (see perlop).
> &
3 :)
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
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
scalar context.
In scalar context the comma operator evaluates its left-hand side,
throws it away and returns the right-hand side.
This means that the value of (1, 2, 3) in scalar context is 3, and this
is what gets assigned to $list.
What is not happening at all is the creation of a list of n
y opinion, because it does exactly what
you want. The second does 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
res 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/
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
> Ca
erl -nale 'print $F[-1]' < original_file.txt > just_email.txt
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-mai
1.31 in CPAN distribute.
As I write this, the latest version seems to be 1.38:
https://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
;
>
> I would expect the output match three of them, however, it only matches:
> --
> 'okay i know now'
> "from time to time"
>
> ---
> leaving '
erating over it using each(), because this may confuse Perl:
This is true in general, but the documentation explicitly states that it
is safe to use delete on the key most recently returned from each, as
Alex is doing here. This is good because, as we see here, it can
reasonably be expected to wo
nd = $project =~ m|$$_|;
> $dump = 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
7}[a-f0-9]{2})\b/ ? "$1\n" : $_' < file
You should probably 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} split(" ", $params->{direction});
> }
> elsif (ref($params->{direction}) eq 'ARRAY')
> {
> %hDirection = 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/
($bar);' which just
> doesn't seem like 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: beginne
le.
Also, you'll want to delete the semicolon on the package 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 ht
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
"^\w+\s+\d{1,2
your understanding
of your requirements, don't let anyone without that understanding tell
you otherwise.
--
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 Sat, Jan 25, 2014 at 06:41:00PM +0100, Luca Ferrari wrote:
> On Sat, Jan 25, 2014 at 4:12 PM, Paul Johnson 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://perl
nto account something special?
Yes, 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
tively, you could call a method 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/
h Perl will make you a
better developer.
--
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/
until you encounter the '__DATA__' line. Then start reading the data
> lines.
The first choice is the correct one.
Ideally, you should use the SEEK_SET constant from Fcntl. perldoc 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/
n PERL; however, 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
htt
'say $|-- for 1 .. 5'
0
1
0
1
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/
e simple solution is good enough.
--
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/
rom thousand to millions 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
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 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 instance on
> /etc/prof
han sufficient for most purposes.
It's probably also more than sufficient 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 wrote:
> freinds,
>
> what is the advice just for obfuscating code? platform is solari
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 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 works:
>
> $test_data
> Any better suggestion ?
Depends on how you define better, but perhaps
$ perl -ne 'print if /BEGIN$/ .. /END$/' < file > /tmp/a
$ perl -ne 'print if /BEGINDL$/ .. /ENDDL$/' < file > /tmp/b
--
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/e;
> }
>
> Can anybody think of a straightforward way to do this?
This is a situation where string eval is warranted:
eval "\$s =~ s/\$rx/$r/";
Three points:
- make sure you trust your input
- be sure to check $@
- there's no need to check if the pattern matche
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 =~ /
d. The only reason I can see for doing that would
be to find out in which order you found the items.
In any case, the easiest way to find out whether two substrings appear
in the same same string is to program the way you define the problem:
if (/WebMail/ && /POP/) { ... }
--
Paul John
lso prints the text between the two instances, right?
> Any suggestions ?
You need a non greedy match .*? instead of the greedy match .* that you
are using. Then you'll need to use while instead of if.
Or perhaps you'd prefer:
$ perl -ne 'print if /BEGIN:VCARD/ .. /END:VCARD/' <
* David Christensen [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 examples also
> >how
nna
> update it. I heard that we'll use 5.12 in the next update of our product
> though.
>
>
> On Thu, Nov 22, 2012 at 3:32 PM, Paul Johnson wrote:
>
> > On Thu, Nov 22, 2012 at 11:37:15AM +0530, Chankey Pathak wrote:
> > > In our company we were using this co
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...@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/
between... I believe that the ".*",
> combined with the "s" modifier, in the regex is causing this match to be
> made.
>
> What I'm not sure how to do is tell Perl to search from START to the next
> END and then start the search pattern over again with the nex
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.
[ '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 uninitialize
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
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. I
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 wrote:
>
> (I am not sure exactly what rand(0) returns).
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.o
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 wrote:
>
> On Sep 12, 2012, at 5:59 AM, Paul Anderson wrote:
>
>> Install PDE from CPAN and it'
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 wrote:
> Hi,
>
> Today I wrote a script for validate a dns record from the specified DNS
> server, the s
run perltidy on the entire buffer.
I 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 wrote:
> On Sep
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 wrote:
> I'd like to hear some recommendations from this list for customizations to
> emacs for coding Perl.
>
> One se
I smell homework:p
Paul Anderson -- VE3HOP
On 2012-08-29, at 12:46 PM, Ashwin Rao T 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 le
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 wrote:
> On 08/30/2012 12:20 PM, Paul Anderson wrote:
>> It looks like 2*10^-13 miles is about twice the inter atomic di
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 wrote:
>>
>>
>> Because floating-point arithmetic as done by limited precision computers is
>> always an ap
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 wrote:
>
> On Aug 29, 2012, at 5:53 PM, Chris Stinemetz wrote:
>
>&
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 wrote:
> Hi Shomi,
>
> Appreciate your comments.Thanks
>
> I find it difficult to understand, if i convert into has. i.e keys and
> corresponding values. if my keys
Well, now I feel sufficiently stupid:) Thanks!
On 2012-08-14, at 6:19 PM, Jim Gibson 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 using a whil
o "that " . $foo, and the warning 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
#
hat leafnode basically does everything you're trying to
write, right?
----
Paul Anderson -- VE3HOP
On 2012-08-11, at 5:21 PM, Chris Knipe wrote:
> Hi Paul,
>
> I will be inclined to disagree - it depends on whether or not the content
> was encoded to begin with (perhaps I sho
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 cach
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 wrote:
> Hi Shlomi,
>
> Thanks
Silly question: Does submit_now.pl have its execute bit set?
Paul Anderson -- VE3HOP
On 2012-08-09, at 3:17 AM, venki neeli 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-2 is n
On Sun, Jul 22, 2012 at 11:09:10PM +0200, Jenda Krynicky wrote:
> From: Paul Johnson
> > 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:$_",
;";
> foreach my $folder ( @folders )
> {
> $query = join "and" "not in:$folder" "$query";
> }
>
> but still same result and this time extra "and" in beginning.
>
> Any idea how to do this ?
You need a mixture of the two approaches: map to p
at) you can see the basis
for a solution.
So, to match either three or five "a"s 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: beg
hank you,
>
> Chris
>
> sub site_offAir {
> for (values %{$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 w
ver perl you've "switch"ed to? If you are, I
don't think you really want that (some important programs on your system
may stop working). If not, what are you asking?
Are you actually looking for this?
$ perlbrew exec perl my_snazzy_program.pl
--
Paul Johnson - p...@pj
Sent from my LG phone
Jim Gibson 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 unlikely to be t
sessment correctly?
Please don't care about this until your code is running correctly 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/
nds like something that Mason could do. And I expect there are
a number of other modules on CPAN that could also manage 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/
f you run "perlbrew" or "perlbrew help" you'll see the main commands.
The one you want is "perlbrew self-upgrade". Just run that and it'll do
the rest.
--
Paul Johnson - p...@pjcj.net
http://www.pjcj.net
--
To unsubscribe, e-mail: beginners-unsubs
1 - 100 of 2538 matches
Mail list logo
