Re: [announcements mailing list]

are the new > developments, when a new version of Perl will be available or released? It > would be nice and pleasant to know. Thank you and have a wonderful Friday > ahead! > > — > Best wishes, > Maxim > > Maxim Abalenkov \\ maxim.abalen...@gmail.com > +44 7 486 486 505 \

Re: lambda array

_o}, \($adminuser{fromJID}, $fromJID), "blah" ); becomes reply_multi( \$daemon{xmpp_o}, \$adminuser{fromJID}, \$fromJID, "blah" ); resulting in the error: "Too many arguments for subroutine 'main::reply_multi' (got 4; expected 3)". A On Sat, Jan 13, 2024 at 5

Re: lambda array

I think the line: reply_multi( \$daemon{xmpp_o}, \($adminuser{fromJID}, $fromJID), "blah" ); should have \(...) replaced with [ ... ] : reply_multi( \$daemon{xmpp_o}, [$adminuser{fromJID}, $fromJID], "blah" ); because \('foo', 'bar') evaluates to (\'foo', \'bar') Does that clarify this for

Re: [getting PAUSE account]

; >> >> On 12/25/23 22:05, William Torrez Corea wrote: >> >> >> I am a beginner, I am learning of the book Beginning Perl by Curtis >> "Ovid" Poe. I am learning subroutines. >> >> I want to develop a program or work in a project where the people use >> Perl but the majority of projects are developed in Java or C#. >> >> -- >> >> With kindest regards, William. >> >> ⢀⣴⠾⠻⢶⣦⠀ >> ⣾⠁⢠⠒⠀⣿⡁ Debian - The universal operating system >> ⢿⡄⠘⠷⠚⠋⠀ https://www.debian.org >> ⠈⠳⣄ >> >> >> >> -- Andrew Solomon Director, Geekuni <https://geekuni.com/> P: +44 7931 946 062 E: and...@geekuni.com

Re: Using qr// with substitution and group-interpolation in the substitution part

That's a fun question, Josef! I don't think you can pass a replacement phrase around, so this is all I came up with: sub substitute_lines { my ($contents, $subst) = @_; $contents = $subst->($contents); return $contents; } my $data = "foo whatever bar"; print(substitute_lines($data, sub { $

Re: storage types for big file

I haven't done this myself, but my first attempt would be with https://metacpan.org/pod/Path::Tiny using the spew_raw method. On Tue, May 30, 2023 at 1:28 PM wrote: > > Hello > > I have a big file after making changes in ram I need to write it back to > disk. > I know for text file store it's

Re: Roadmap Perl

ap will show when the previous > system will sunset and when the new one will be implemented. > > On Sun, Mar 19, 2023 at 12:49 AM Andrew Solomon > wrote: > >> Hi William, >> >> I don't understand what you mean by the "roadmap". Could you clarify? >

Re: Roadmap Perl

Hi William, I don't understand what you mean by the "roadmap". Could you clarify? Thanks, Andrew On Sun, Mar 19, 2023 at 6:26 AM William Torrez Corea wrote: > Can someone share the roadmap of Perl? > > -- > > With kindest regards, William. > > ⢀⣴⠾⠻⢶⣦⠀ > ⣾⠁⢠⠒⠀⣿⡁ Debian - The universal operatin

Re: Can't call method "Convolve" on unblessed reference at gifaninmation.pl line 47.

ndest regards, William. > > ⢀⣴⠾⠻⢶⣦⠀ > ⣾⠁⢠⠒⠀⣿⡁ Debian - The universal operating system > ⢿⡄⠘⠷⠚⠋⠀ https://www.debian.org > ⠈⠳⣄ > > -- Andrew Solomon Director, Geekuni <https://geekuni.com/> P: +44 7931 946 062 E: and...@geekuni.com

Re: Problem with DBI and placeholders

; > > On Friday, April 9, 2021, 2:12:01 PM GMT+2, mailing lists via beginners < > beginners@perl.org> wrote: > > > thanks Andrew > > I need to insert millions of rows so I need to have a good performance > using placeholders > > > On Friday, April 9, 2021

Re: Problem with DBI and placeholders

{'password'}, > 18{ AutoCommit => 1, }, > 19 ) > 20 or die "Can't connect to database: $DBI::errstr\n"; > 21 > 22 > 23my $sth = $dbh->prepare(&quo

Re: question about change text in frame

s > $labeled_frame2->configure (-text=>"BaoBABB"); > $mw->update(); > > but if is a simple label like this : > $mw->Label(-text => 'ciao')->pack(-anchor => 'nw'); > work but in frame not anyone has an idea ?? thanks in advice at all > ciao > -- Andrew Solomon Director, Geekuni <https://geekuni.com/> P: +44 7931 946 062 E: and...@geekuni.com

Re: Varnish module configuration

w( secret => $secret ); >> -- >> >> #2 >> -- >> # A 107 response on connection means the Varnish CLI expects >> authentication >> if( $self->last_status() == 107 ){ >> if( not $self->secret() ){ >> croak( "Connection failed: authentication required, but no >> secret given\n" ); >> } >> >> my $challenge = substr( $self->last_lines()->[0], 0, 32 ); >> my $auth = sha256_hex( $challenge . "\n" . $self->secret() . >> $challenge . "\n" ); >> $self->send( "auth $auth" ); >> if( $self->last_status != 200 ){ >> croak( "Authentication failed!\n" ); >> } >> } >> -- >> ... >> > -- Andrew Solomon Director, Geekuni <https://geekuni.com/> P: +44 7931 946 062 E: and...@geekuni.com

Re: how to catch die in a module

; >> -- >> To unsubscribe, e-mail: beginners-unsubscr...@perl.org >> For additional commands, e-mail: beginners-h...@perl.org >> http://learn.perl.org/ >> >> >> -- Andrew Solomon Director P: +44 7931 946 062 E: and...@geekuni.com

Re: perl's anaconda

To unsubscribe, e-mail: beginners-unsubscr...@perl.org > >> <mailto:beginners-unsubscr...@perl.org> > >> > <mailto:beginners-unsubscr...@perl.org > >> <mailto:beginners-unsubscr...@perl.org>> > >> > For additional commands, e-mail: beginners-h...@perl.org > >> <mailto:beginners-h...@perl.org> > >> > <mailto:beginners-h...@perl.org > >> <mailto:beginners-h...@perl.org>> > >> > http://learn.perl.org/ > >> > > >> > > >> > > > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Director P: +44 7931 946 062 E: and...@geekuni.com

Re: trouble

> > > > Mike > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Director P: +44 7931 946 062 E: and...@geekuni.com

Re: What are the environmental variables used by Perl?

Assuming you're on a Linux box the command 'env' should tell you that. Is that what you're looking for? On Thu, May 30, 2019 at 2:58 PM Jeffrey Walton wrote: > > > On Thu, May 30, 2019 at 9:19 AM Andrew Solomon wrote: > >> In that case I think this shou

Re: What are the environmental variables used by Perl?

> Perl). > >> > >> Which section of the manual can I find a list of environmental > >> variables used by Perl? Is there even a section that covers it? > >> > >> Or, what are the environmental variables used by Perl? > >> > >> Thanks in advance. > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Director P: +44 7931 946 062 E: and...@geekuni.com

Re: What are the environmental variables used by Perl?

a section that covers it? > > Or, what are the environmental variables used by Perl? > > Thanks in advance. > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Director P: +44 7931 946 062 E: and...@geekuni.com

Re: Is there a definition of what is a string in perl, and what is it?

n of what is a string in perl, and what is it? > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Director P: +44 7931 946 062 E: and...@geekuni.com

Re: Data::Dumper Output

through. This is totally foreign to me. > > Could anybody shed some light on it please and possibly suggesthow I can > get to the "stuff"? > > My suspicion is that it contains some sort of XML that I'm going to have > to "crawl" along to get to what I want. > > Thanks, > James > > > -- Andrew Solomon Perl Trainer, Geekuni http://geekuni.com/ and...@geekuni.com // +44 7931 946 062

Re: covert perl code to binary

l script, but instead perlcc uses it. > > Is perlcc also a module? > Or is that an executable? > I think I see that it is composed of 5 files: > assemble > cc_harness > disassemble > perlcc.PL > pl2exe.pl > > After installing perlcc, do I just open a command > prompt and ty

Re: covert perl code to binary

ake the perl code binary but here the user can see > the code which gets created in tmp. > > Need help if anybody knows kindly reply > > With regards > Uday V G > -- Andrew Solomon Perl Trainer, Geekuni http://geekuni.com/ and...@geekuni.com // +44 7931 946 062

Re: Test

ners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Perl Trainer, Geekuni http://geekuni.com/ and...@geekuni.com // +44 7931 946 062

Re: browser hang

ile); > next; # Skip to next $course_file if any > } > > } > die "got to line 85"; > # serve registration status to browser > report_registrations( $reg_exists, > $reg_unknown, > $reg_yes, > $reg_no, > ); > > exit; > > -- Andrew Solomon Perl Trainer, Geekuni http://geekuni.com/ and...@geekuni.com // +44 7931 946 062

Re: data structure for Template Toolkit

Hi Rick, The bug is that you're calling my %list = (list => \@courses); when you should be calling my %list = (courses => \@courses); If only there were 'strict' and 'warnings' for Template! :-) Andrew On Sun, Oct 28, 2018 at 8:52 PM Rick T wrote: > As a novice in perl I realize that it’s

Re: local and auto flush

; > Many thanks! > Rick Triplett > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Perl Trainer, Geekuni http://geekuni.com/ and...@geekuni.com // +44 7931 946 062

Re: alternative to feature 'signatures'?

tion may be undef itself, and I need to be able to distinguish > between the parameter having been passed (and is undef) and the > parameter not having been passed at all. > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@p

Re: OOP: a class using a class that is descended from it?

On Thu, Aug 3, 2017 at 8:48 PM, hw wrote: > Andrew Solomon wrote: > >> My instinct before trying this would be to move the methods which FOO >> needs back into FOO (removing them from BAR). >> >> Is there a reason this won't work for you? >> > > Hmm

Re: OOP: a class using a class that is descended from it?

ail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: "Information station" using Perl and Raspberry Pi

ay the > text onscreen. Would this require a GUI, such as Tk? > > Has anyone done anything like this before? Am I on the right > track with my ideas or is there a better way of doing this? > > Thanks, > Frank > -- > To unsubscribe, e-mail: beginners-unsubscr...@pe

Re: debug perl package

t; I am new to perl , I a have a abc.pl script and abc.pm module >> . I want to understand when I execute abc.pl hw to get to a debug state >> to identify what values does it take . Any GUI interface available to see >> the flow of events. >> >> >> -- >

Re: Confused with File::Find

itting in `/three` it was only called on a non-directory (`three/tst.pl`) and therefore didn't report that it was in directory `/three`. Does that clarify things for you? Andrew On Sat, Jun 24, 2017 at 9:58 PM, Harry Putnam wrote: > and...@geekuni.com (Andrew Solomon) writes: > > > Hi

Re: Confused with File::Find

d::dir<./one> > $File::Find::dir<./one> > $File::Find::dir<./one/two> > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: interesting regex delimiters

til reset is called: > > #!/usr/bin/perl > > use v5.18; > use warnings; > > for ("fo", "foo", "fooo", "f") { > my ($match) = ?(fo+)?; > say $match // "no match"; > if (/fooo/) { >

Re: interesting regex delimiters

Thanks Uri! On Thu, Feb 23, 2017 at 10:32 PM, Uri Guttman wrote: > On 02/23/2017 05:19 PM, Andrew Solomon wrote: > >> Running Perl 18.2 I was surprised to discover that I can use single and >> double quotes as regex delimiters without the 'm' operator. >>

interesting regex delimiters

Running Perl 18.2 I was surprised to discover that I can use single and double quotes as regex delimiters without the 'm' operator. For example, instead of writing "/usr/bin/perl" =~ m"/perl" I can just write "/usr/bin/perl" =~ "/perl" Can anyone point me to the documentation indicatin

Re: Net::ISC::DHCPd or Net::DHCP::Info

ook for empirical evidence of that > guess? > > Regards, > Lars > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > -- Andrew Solomon Mentor@Geekuni http://

Re: A multi line pattern match question

tern.edu> wrote: > I settled for an set of stacked if statements, saving the previous line if > needed etc... > > Thanks for the help. > > Darryl Baker > PMOET -DAPS > X76674 > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: A multi line pattern match question

p. > > Darryl Baker > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: grep - block with start & end text

t;> >> so I want to grep all four lines with above match . >> >> > If you are looking for a command line that works like grep: > > perl -lne 'print if /retr_test asm1/ .. /END/;' input_file > > http://perldoc.perl.org/perlop.html#Range-Operators &

useful blogs

>From time to time a student asks me a question and answering it turns into a blog post. It just occurred to me that these answers might be useful to some of the people on this list. http://blog.geekuni.com/2016/03/perl-flip-flop.html http://blog.geekuni.com/2016/01/vim-tt-html-highlighting-and-ta

Re: Perl sort for reverse numeric if numbers and text are in a string, numbers first

rse sort and > just does it. > > The "$b <=> $a" option to sort seems to complain about the strings > in the data, but the output is correct. > > Thanks, > Ken Wolcott > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additi

Re: Storing Output file.

rror message but how to save the output with new changes. >>>>>>> > Could you >>>>>>> > please tell me how to fix it? >>>>>>> >>>>>>> The way to do this within a larger Perl program is to open a new >>>>&

Re: Storing Output file.

>print "Before substituting: ", $line ,"\n"; > $line =~ s/Debug/Error/g; > print "After substituting : ", $line , "\n"; > } > > close(FILE); > > > -Franky > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: port details from the process id

ommand with the pid, it yields the output. > Will you please suggest/correct me.Thanks. > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

London FREE Perl Crash Course

ndrew -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: regex problem?

die "Bad general form for student_id: $student_id" > }; > > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Please remove me from this mailing list

>> >> >> Thanks! >> >> > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: UnixDate export problem

happening here. > > > > BTW, I'm using perl5 version 20 subversion 2 on Ubuntu 15.10 > > > > -- > > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > > For additional commands, e-mail: beginners-h...@perl.org > > http://learn.perl.org/ > > > > > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Prepending an equals sign to a numeric value returns empty result

ig}->{'useDBM'} eq 'sql') > { > $main::global->{form}->{'searchtext'} = > "=$main::global->{form}->{'searchtext'}"; # <--- > } > > $se

Re: Looking for introductory to advanced examples of RESTful programming in Perl

web app that > interfaced with an XML-based API, but I've never done JSON or RESTful > with Perl. > > Thanks, > Ken > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Yenc encoder performance

> if ($column>= $YENC_NNTP_LINESIZE ) { > > you can merge thos two lines: > > if( ++$column >= $YENC_NNTP_LINESIZE ) { > > >$column=0; > > >$content = $content."\r\n"; > > .= again. see how common its usage is? because

Re: Perl hash

perl.org > >> For additional commands, e-mail: beginners-h...@perl.org > >> http://learn.perl.org/ > >> > >> > >> > > > > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Perl beginner

gt; — http://en.wikiquote.org/wiki/Larry_Wall > > Please reply to list if it's a mailing list post - http://shlom.in/reply . > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Yenc encoder performance

} > > } > > return $content; > } > > > > -BEGIN PGP SIGNATURE- > Version: GnuPG v2 > > iQEcBAEBCAAGBQJVuoW/AAoJEJ/OLjwuDYzKvMcH/2Q2B1p3L+Q/iPvjfeTNoQfX > V+MsLkSelzjl/rKKRnYgYerHacaTpWxy6sKKnSlTQy2c2XXIXOLLxKZxHjw869bA > hwnlKrl2UnABekJF270J7wIk0K6+zw1BTjHjcPlibfBPTCX6lOoaO0PHy5cHycXC > XQ3+Pjo3e7Ux7dx16vFJq/XJl70LmV5CFShvQoLRtSV3fxvOEE25uGzRm6zCEVSd > cEISGgLXBHwzvpU5+ma4SIuXDcYWDpfNOUukPF7zLHtn+WEjr/CImcM75MvnjUtg > CZn9SIwgOeeNZ22T5SbOitX5uhqyFGOln8Y8DOcHjTCKTD1uem//IclcqZUrXBU= > =r+/T > -END PGP SIGNATURE- > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: To use signatures or not to use?

> > -- > Brandon McCaig > Castopulence Software <https://www.castopulence.org/> > Blog <http://www.bambams.ca/> > 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' > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Fire and forget subs

a module in perl, in a > non blocking mode, preferably without forking or using threads. > I may have to run the sub a few times to determine the approx delay for it > to run, so i suppose i need a blocking mode for it too. But afterwards, it > can run in non blocking mode. > >

Re: want to access single value in a hash

27;max-file-size' => 0}}, >'scsitrace_dump' => > {'param_val'=>{}, > 'scsitrace_show' => {'log-to-disk'=> 'false', > 'enabled'=> 'false', > 'max-chain-size' => 16, > 'max-file-size' => 0}}, >}; > > How can I access single value from this hash without using loop ? > > I tried to print like : > print > "%{$cmd_param_show}->{'scsitrace_start_log_to_disk_true'}->{'param_val'}\n"; > > It failed . > Please help me to get this. > > Thanks > Sunita > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Perl Beginners class at the annual Perl Conference [Advertisement]

seeing you there! -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Strange

erl.org > > For additional commands, e-mail: beginners-h...@perl.org > > http://learn.perl.org/ > > > > > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Not working example - from Mastering Perl book

Perl 5.16 and > > 5.14 and it gave the following result: > > > > I'm from package main > > My name is glob > > I'm from package main > > My name is glob > > > > So it doesn't print the original name of the typeglob (foo or bar). > > Is the code above working for you as wrote in the book? > > > > --Octavian > > > > > > -- > Vincent Lequertier > s...@riseup.net > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Need Advice on Perl learning

need to try more programs, could somebody recommend a website or a > portal where such problem statements might be provided? Also, is there any > book or website dedicated to any Perl design methodologies? > > Any other skill building advice for a beginner related to Perl is welcome. > > Thank you. > > *Regards* > Manpreet Singh > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Need explanation of code

Eeeks, Sorry Shlomi, I can't help thinking my German lessons have been counter-productive... A On Sun, Apr 12, 2015 at 10:37 AM, Shlomi Fish wrote: > On Sun, 12 Apr 2015 09:36:00 +0100 > Andrew Solomon wrote: > > > Thank you very much Schlomi - I stand corrected! &g

Re: Need explanation of code

gt;{'DATA'} = { foo => 'bar' }; means "change $self->{'DATA'} to refer to a different hash" Andrew On Sun, Apr 12, 2015 at 9:05 AM, Shlomi Fish wrote: > Hi Andrew, > > On Sun, 12 Apr 2015 07:25:55 +0100 > Andrew Solomon wrote: > >

Re: Need explanation of code

n't, so they must be different. Here's the context: > > > > > > > > sub empty_db { > > my $self = shift; > > if ($self->{'USEDBM'} eq 'sql') { > > $self->{'SQL&

Re: Inhomogeneous data in a database

ly work with larger databases and more complex > data models, so this might be a little overkill in your case. But anyway, > this what I consider good practice. Others may have different opinions. > > Hope this helps! > > Best regards, > Tommi > ---------

Re: Inhomogeneous data in a database

ally make the column > target_it a foreign key that really is a reference to one of those tables > (scripts or HTML). > I usually always do it that way. I even normalize the target_type so that > I have an extra table for target_types with a target type ID and an ident. > > Is there a stan

Re: How to handle null elements inside an array

...)(.)/$1NULL/; > 25 } > 26 print $line."\n"; > 27 > 28 #} > 29 } > 30 } > 31 close($RFH); > > My Request to you can you please explain from line number 19-25. Specially &g

Re: How to handle null elements inside an array

Or more politely... :) https://gist.github.com/anonymous/2ebb0441bcdec4a94e48 On Thu, Apr 2, 2015 at 4:43 PM, Andrew Solomon wrote: > Hi Anirban > > I haven't completely solved the problem - only addressing the DEV field, > but I hope this points you in the right dire

Re: How to handle null elements inside an array

> @elements = split(/\s+/,$line); > in $element[2] entire blank space is coming upto NUMDEV1. so while > printing I am not getting the proper output. > > How to resolve this problem? > > Best Regards > Anirban. > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: ? getting appended to file name while writing o file

is all good now. > > Could you please tell how new line ended up as ? in the file name > > Thanks, > Satya > > > On 19 March 2015 at 12:53, Andrew Solomon wrote: > >> my $logFileName="log_ping_".`date +"%d_%b_%y_%H_%M_%S"`; >> >> s

Re: ? getting appended to file name while writing o file

ckets received, 0% packet loss"; > my $index=3+$numberOfPingPackets; > if(index($pingResults[$index],$succesString) >= 0) > { > print "\nPing to host $host ip $ip is successful"; > print $logFile "\nPing to host $host ip $ip is successful"; > } > else > { > print "\nPing to host $host ip $ip is failure"; > print $logFile "\nPing to host $host ip $ip is failure"; > } > } > close $logFile; > > > -- > Satya Prasad > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Submitting a form with Mechanize -- Can't find form

tell me why I'm receiving this error? > > Thanks. > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: should this old forumulation still work?

. "\n"; > > Of course it changed nothing. The file was still printed with all > newlines in place. > > Should I be seeing a file with no newlines being printed as a very > long line? > > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For

Re: Looping regexes against a list

ss to something he is not trained >> to understand? >> >> >> -- >> Don't stop where the ink does. >> Shawn >> >> -- >> To unsubscribe, e-mail: beginners-unsubscr...@perl.org >> For additional commands, e-mail: beginners-h...@perl.org >> http://learn.perl.org/ >> >> > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: Looping regexes against a list

to it. This sounds a bit like an XY problem[1], but you'll likely >> want to solve the problem with a more ideal algorithm and that >> might require a more ideal data structure. Not that I'm any >> authority on this problem. :\ >> >> [1] http://meta.stackexchange.com

Re: is faster a regexp with multiple choices or a single one with lower case?

? > > Thanks, > Luca > > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon -- To u

Re: Multi-line `find` commands

s have turned up nothing. Using returns, commas, > backslashes, or concatenation breaks the find. Does anyone know if this is > doable? > > Thanks, > Frank > SurfShopCART > -- > To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands

Re: Script for auto conf

e test > the value .. if it is not .. add to some_file.conf ... I think it should be > easy ... right ?? > > Thanks for any help .. > > ;) -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org

Re: IO::Socket

> To unsubscribe, e-mail: beginners-unsubscr...@perl.org > For additional commands, e-mail: beginners-h...@perl.org > http://learn.perl.org/ > > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon -- To unsubscribe, e-mail: beginners-unsub

New Year's Resolution - Learn Modern Perl

the coupon code NYR2015 for a 3-day free trial and a 30% discount off the first month's fee. I look forward to seeing you in class! Andrew Click here to create your account https://geekuni.com/create-account -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com