New Year's Resolution - Learn Modern Perl

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/in/asolomon

Re: IO::Socket

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

Re: Script for auto conf

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 For additional commands, e-mail: beginners-h...@perl.org http

Re: Multi-line `find` commands

anyone know if this is doable? Thanks, Frank SurfShopCART -- 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: Looping regexes against a list

://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?

: 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

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' -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com

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

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: is faster a regexp with multiple choices or a single one with lower case?

: 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

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

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: ? getting appended to file name while writing o file

. it 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 and...@geekuni.com wrote: my $logFileName=log_ping_.`date +%d_%b_%y_%H_%M_%S`; should be followed by chomp($logFileName) otherwise there's

Re: Inhomogeneous data in a database

fashion? Thanks for your answers best regards, Alex 2015-04-10 21:51 GMT+02:00 Andrew Solomon and...@geekuni.com: Hi Alex Maybe you could give us a bit more info on the `html_contents` and `fancy_scripts` tables, because my inclination would be just to have a simple `contents` table

Re: Not working example - from Mastering Perl book

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

Re: Need explanation of code

-{'ERRMSG'} .= $DBI::errstr and return; } else { %{$self-{'DATA'}} = () } # else { $self-{'DATA'} = {} } # This does nothing } IDK where this is from, but I'd question the wisdom of running this code... -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http

Re: Need explanation of code

'} to refer to a different hash Andrew On Sun, Apr 12, 2015 at 9:05 AM, Shlomi Fish shlo...@shlomifish.org wrote: Hi Andrew, On Sun, 12 Apr 2015 07:25:55 +0100 Andrew Solomon and...@geekuni.com wrote: Hi Frank I found the first one rather obscure, but they are equivalent

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 shlo...@shlomifish.org wrote: On Sun, 12 Apr 2015 09:36:00 +0100 Andrew Solomon and...@geekuni.com wrote: Thank you very much Schlomi - I stand

Re: Need Advice on Perl learning

? 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: How to handle null elements inside an array

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: 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 and...@geekuni.com wrote: Hi Anirban I haven't completely solved the problem - only addressing the DEV field, but I hope this points you in the right direction

Re: How to handle null elements inside an array

to you can you please explain from line number 19-25. Specially the pattern matching sections and also the significance of unless and why u have used unless not any other. Best Regards Anirban. On Thu, Apr 2, 2015 at 9:15 PM, Andrew Solomon and...@geekuni.com wrote: Or more politely

Re: Inhomogeneous data in a database

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 standard approach for this kind of database table construct? A coding recommendation? Or am I doing it completely wrong? Best regards, Alex -- Andrew Solomon Mentor

Re: Strange

...@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: want to access single value in a hash

. 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]

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

Re: Fire and forget subs

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

Re: Yenc encoder performance

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

Re: Perl beginner

://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

CZn9SIwgOeeNZ22T5SbOitX5uhqyFGOln8Y8DOcHjTCKTD1uem//IclcqZUrXBU= =r+/T -END PGP SIGNATURE- -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Perl hash

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

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

: 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: To use signatures or not to use?

' -- 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: UnixDate export problem

t; > > > 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

quot;; # <--- > } > > $search->{$field} = $main::global->{form}->{'searchtext'}; > $searchparams++; > } > } > > > SurfShopCART 2 > http://www.surfshopcart.com/u/demo > > > -- > To unsubscribe, e-mail: beginners-

London FREE Perl Crash Course

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

Re: port details from the process id

en I manually issue the command 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

Re: regex problem?

} > else { > 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

anggu <longjian...@gmail.com> > wrote: > >> >> >> Thanks! >> >> > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: Storing Output file.

;) or die "Can’t open $!\n"; > > while($line = ){ >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: Storing Output file.

se tell me how to fix it? >>>>>>> >>>>>>> The way to do this within a larger Perl program is to open a new >>>>>>> output file, copy all of the possibly-modified lines to this file. Then >>>>>>> you >>>>>>> can rename the new file to the same name as the old file, and perhaps >>>>>>> rename >>>>>>> the old file as well and keep it around as a backup. >>>>>>> >>>>>>> > >>>>>>> > open(FILE, "<filter.txt") or die "Can’t open $!\n”; >>>>>>> >>>>>>> The three-argument version of open is preferred here, and let’s put >>>>>>> the file name in a variable and use a lexical variable for the file >>>>>>> handle >>>>>>> (untested): >>>>>>> >>>>>>> my $filename = ‘filter.txt’; >>>>>>> open( my $in, ‘<‘, $filename ) or die(“Can’t open $filename for >>>>>>> reading: $!”); >>>>>>> >>>>>>> # create a new file >>>>>>> my $newfile = $filename . ‘.new’; >>>>>>> open( my $out, ‘>’, $newfile ) or die(“Can’t create $newfile: $!”); >>>>>>> >>>>>>> > >>>>>>> > while($line = ){ >>>>>>> >>>>>>> while( $line = <$in> ) { >>>>>>> >>>>>>> > >>>>>>> >print "Before substituting: ", $line ,"\n"; >>>>>>> > $line =~ s/Debug/Error/g; >>>>>>> > print "After substituting : ", $line , "\n”; >>>>>>> >>>>>>> print $out $line; >>>>>>> > >>>>>>> > } >>>>>>> > >>>>>>> > close(FILE); >>>>>>> >>>>>>> close($in); >>>>>>> close($out) or die(“Error writing to output file $newfile: $!”); >>>>>>> >>>>>>> # rename the old file >>>>>>> my $savefile = $filename . ‘.sav’; >>>>>>> rename $filename, $savefile; >>>>>>> >>>>>>> # rename the new file >>>>>>> rename $newfile, $filename; >>>>>>> >>>>>>> Jim Gibson >>>>>>> j...@gibson.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 -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

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

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

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

>> & 4th line is having only - END >> >> 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.pe

Re: A multi line pattern match question

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: A multi line pattern match question

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: Net::ISC::DHCPd or Net::DHCP::Info

where would I look 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 Ment

Re: interesting regex delimiters

Thanks Uri! On Thu, Feb 23, 2017 at 10:32 PM, Uri Guttman <u...@stemsystems.com> 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' ope

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

Re: interesting regex delimiters

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: OOP: a class using a class that is descended from it?

be, 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: OOP: a class using a class that is descended from it?

On Thu, Aug 3, 2017 at 8:48 PM, hw <h...@gc-24.de> 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

Re: debug perl package

> the flow of events. >> >> >> -- >> Asad Hasan >> +91 9582111698 <+91%2095821%2011698> >> > -- Andrew Solomon Mentor@Geekuni http://geekuni.com/ http://www.linkedin.com/in/asolomon

Re: "Information station" using Perl and Raspberry Pi

> 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: Confused with File::Find

Find::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: Confused with File::Find

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 <rea...@newsguy.com> wrote: > and...@geekuni.com (Andrew Solomon) writes: > > > Hi Harry

Re: alternative to feature 'signatures'?

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...@perl.or

Re: local and auto flush

plett > -- > 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: 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

Re: browser hang

> 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: 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: covert perl code to binary

e 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: covert perl code to binary

t; 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 type perlcc -o hello.exe hello.pl? >

Re: Data::Dumper Output

lly 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: Is there a definition of what is a string in perl, and what is it?

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: 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 should do the trick: >

Re: What are the environmental variables used by 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?

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: 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: perl's anaconda

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: 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: question about change text in frame

d_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

7 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: Problem with DBI and placeholders

> 20 or die "Can't connect to database: $DBI::errstr\n"; > 21 > 22 > 23my $sth = $dbh->prepare("SELECT * FROM test"); > 24$sth->execute() && say "OK 1"; > 25 > 26my $table="t

Re: Problem with DBI and placeholders

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, 1:57:25 PM GM

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

rds, 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: 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

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: 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: lambda array

}, $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:03 PM hw wrote: > On Sat, 20

Re: [getting PAUSE account]

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: 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: [announcements mailing list]

he 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 \\ www