Hi
Sorry for my misunderstanding.
password_prompt may not be your case.
Jeremy.l SR 於 2023年4月18日 週二 上午10:00寫道：
> Hi
>
> What is your password_prompt on your remote sftp server?
> ex:
> root@192.168.56.100's password:
>
> according the document, your script will hang at the login phase if the
>
Hi
What is your password_prompt on your remote sftp server?
ex:
root@192.168.56.100's password:
according the document, your script will hang at the login phase if the
wrong prompt is used.
Brent Wood via beginners 於 2023年4月18日 週二 上午7:54寫道：
> Thanks for that suggestion, it does provide mor
Hi,
Can you edit the constructor to include `more => [ -v ]` so we can get more
feedback from the SSH connection and send the output from that.
$sftp = Net::SFTP::Foreign->new($host,
user => $user,
password => $pass,
more => [
qw(
-v
Perl has a repository of user-submitted modules called Comprehensive Perl
Archive Network (CPAN). Net::SFTP::Foreign can be installed from there, and it
looks like a good candidate, as does Net::SFTP. The two modules use different
methods for invoking the SFTP protocol. I would try one and, if t
Hi Francisco,
2020-04-22 11:21:31 -0300 Francisco Acuña:
> Good day, I've been getting familiarized with Perl for the last couple of
> days due to a RT integration project I've been handed. I've also been doing
> a lot of research and a lot of asking around in forums for pointers on how
> to prope
Correction: we should use $res->is_success in the 'if' below, not
$ua->is_success.
2020-04-24 19:42:32 -0300 Gil Magno:
> if ($ua->is_success) {
signature.asc
Description: PGP signature
You might consider using Regexp::Common::net. It provides a convenient set
of functions for matching IP v4, v6 and mac addresses.
https://metacpan.org/pod/Regexp::Common::net
On Fri, 25 Oct 2019 at 19:43, John W. Krahn wrote:
> On 2019-10-25 3:23 a.m., Maggie Q Roth wrote:
> > Hello
>
> Hell
On 2019-10-25 3:23 a.m., Maggie Q Roth wrote:
Hello
Hello.
There are two primary types of lines in the log:
What are those two types? How do you define them?
60.191.38.xx/
42.120.161.xx /archives/1005
From my point of view those two lines have two fields, the first loo
/(?[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})\s+(?\/.*)/
To avoid the "leaning toothpick" problem, Perl lets use different match
delimiters, so the above is the same as:
m#(?[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})\s+(?/.*)#
I assume you want to capture the IP and the path, right?
if
That is a backslash followed by a forward slash. The backslash tells the
regex parser to treat the next character as a literal character. Useful for
matching periods, question marks, brackets, etc.
A period matches any character once and an asterisk matches the previous
character any number of time
my $n = '[0-9]{1,3}';
if ( =~ ( m[ (?:$n\.){3} $n \s+ \S+ ]x )
{
# match
}
On Fri, Oct 25, 2019 at 3:37 AM Maggie Q Roth wrote:
> what's V.*?
>
> Maggie
>
> On Fri, Oct 25, 2019 at 6:28 PM Илья Рассадин wrote:
>
>> For example, this regex
>>
>> /(?[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,
what's V.*?
Maggie
On Fri, Oct 25, 2019 at 6:28 PM Илья Рассадин wrote:
> For example, this regex
>
> /(?[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})\s+(?\/.*)/
>
> On 25.10.2019 13:23, Maggie Q Roth wrote:
> > Hello
> >
> > There are two primary types of lines in the log:
> >
> > 60.191.38.
For example, this regex
/(?[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})\s+(?\/.*)/
On 25.10.2019 13:23, Maggie Q Roth wrote:
Hello
There are two primary types of lines in the log:
60.191.38.xx /
42.120.161.xx /archives/1005
I know how to write regex to match each line, but do
the > I have this Perl 6 script from Rosetta, which I wanted to run on Perl 5
> (due to the Active Sate Perl and App version that I have).
If ActiveState have packaged https://metacpan.org/pod/Inline::Perl6
then please install and use that. (If they haven't, please ask them to
do so.)
> However
Oops, missed the ending.
loop with a parens argument is like a C for with
3 args, init, test, next.
The next bit is:
($t, @ABC) »+=« (.01, dABC($t, @ABC, .01))
The » and « opops (or metaops) pack a whole lot of power but
can also be used for relatively simple cases like this one in which
th
hello Rui,
> I have this Perl 6 script from Rosetta, which I wanted to run on Perl 5
> (due to the Active Sate Perl and App version that I have).
Perl6 and Perl5 are very different. you need to download a perl6
interpretor if you want to run perl6 code.
please check https://rakudo.org/.
regards
Yes, Perl 5 and Perl 6 are quite different in many ways. Some suggested that
Perl 6 be looked at as not the next iteration of Perl but a new language that
can be made backward compatible with Perl 5 (there are switches etc that let
you run P5 code unchanged) but it is not the case of P5 being a
Hi Rui, Have you considered just installing Perl 6 ?
https://rakudo.org
https://www.perl6.org
Spoiler alert: the Perl6 code you posted works with no errors on my
Perl6 install.
Best Regards, Bill.
On Thu, Aug 8, 2019 at 1:07 PM Rui Fernandes wrote:
>
> Greetings
>
> I have this Perl 6 script
[ Executive Summary: Install Perl 6; it will not disturb your Activestate Perl
5 : https://rakudo.org/files ]
> On Aug 8, 2019, at 3:07 PM, Rui Fernandes wrote:
>
> Greetings
Hi Rui!
>
> I have this Perl 6 script from Rosetta, which I wanted to run on Perl 5 (due
> to the Active Sate Perl
On 3/12/19 11:59 AM, Frank K. wrote:
Greeting,
In the infinite wisdom our company, without warning completely
uninstalled Active Perl on all of our Windows servers (I believe it
was v5.8).. They claimed it was a security risk, but I suspect new
licensing fees were the main incentive..
Regar
I think reading the official tutorial from begin is not that comfortable
to a newbie. I bought a book "Learning Perl, 6th Edition" for studying
step by step. thanks.
On 2018/7/18 星期三 AM 9:08, Uri Guttman wrote:
also i always recommend reading the entire perl FAQ as there are many
regex tips a
On 07/17/2018 08:57 PM, Lauren C. wrote:
I did read them, but got no deep impression unless I met the issue. :)
not sure what kind of deep impression you need! :)
a key thing with docs is rereading them. read them once quickly all the
way through to get a sense of the whole picture. read aga
I did read them, but got no deep impression unless I met the issue. :)
Uri Guttman 写道:
On 07/17/2018 08:46 PM, Lauren C. wrote:
Thanks Gil. I think i know the difference of "\w+" and "\w*" now.
lauren, did you read the perlretut document? if not, you should. it
covers quantifiers early on a
On 07/17/2018 08:46 PM, Lauren C. wrote:
Thanks Gil. I think i know the difference of "\w+" and "\w*" now.
lauren, did you read the perlretut document? if not, you should. it
covers quantifiers early on as they are one of the fundamental features
of regexes. a key thing to learn is the {m,n}
yeah you explain that well. thanks.
Andy Bach 写道:
> But it doesn't work for this case:
$ perl -le '$x="/path/"; print 1 if $x=~m{path/\w+}'
> it expects 1 returned.
Well, assuming you mean it shouldn't match as $x starts with a slash and
the RE doesn't - you're on the right path. The reas
Thanks Gil. I think i know the difference of "\w+" and "\w*" now.
Gil Magno 写道:
2018-07-17 19:56:59 +0800 Lauren C.:
Hello,
I want to match:
/path/
/path/123
/path/abc
but /path/?xxx should not be matched.
This works:
$ perl -le '$x="/path/abc"; print 1 if $x=~m{path/\w+}'
1
this works
> But it doesn't work for this case:
$ perl -le '$x="/path/"; print 1 if $x=~m{path/\w+}'
> it expects 1 returned.
Well, assuming you mean it shouldn't match as $x starts with a slash and
the RE doesn't - you're on the right path. The reason is, the match goes
anywhere, it is "unanchored" so Pe
2018-07-17 19:56:59 +0800 Lauren C.:
> Hello,
>
> I want to match:
>
> /path/
> /path/123
> /path/abc
>
> but /path/?xxx should not be matched.
>
> This works:
>
> $ perl -le '$x="/path/abc"; print 1 if $x=~m{path/\w+}'
> 1
>
>
> this works too:
>
> $ perl -le '$x="/path/?abc"; print 1 if
Hi!
I think, m{path/(\w+)?/?$} regex can solve your problem.
In general, to parse URL, you can use official regex from rfc3986 (see
Appendix B for rfc3986)
regex is
^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?
$2 is protocol
$4 is host
$5 is path
$7 is query
$9 is fragment.
Ano
On 07/12/2018 11:40 PM, Lauren C. wrote:
Hi Uri,
I was reading this page:
https://www.rexegg.com/regex-lookarounds.html
the content of "Mastering Lookahead and Lookbehind" make me confused.
(?=foo)
(?<=foo)
(?!foo)
(?i suggest you don't study lookarounds until you are stronger with basic
rege
Hi Uri,
I was reading this page:
https://www.rexegg.com/regex-lookarounds.html
the content of "Mastering Lookahead and Lookbehind" make me confused.
(?=foo)
(?<=foo)
(?!foo)
(?but seriously, regexes are a key feature in perl and most modern
languages. it is hard to do any text or data processi
On 07/12/2018 08:53 PM, Lauren C. wrote:
OK I see, thanks Gil.
I think the main problem is I don't know much about regex.
I will re-learn them this day.
heh, relearning regexes will take a lifetime, not just one day! :)
but seriously, regexes are a key feature in perl and most modern
languages
Thanks John.
Those symbols made me crazy entirely.
As what you explained, some are metadata of regex, some are regular
characters, it's not clear to me, due to my poor knowledge on regex.
Yes I will learn them more.
thanks.
On 2018/7/13 星期五 AM 2:23, John W. Krahn wrote:
On Thu, 2018-07-12 a
OK I see, thanks Gil.
I think the main problem is I don't know much about regex.
I will re-learn them this day.
On 2018/7/12 星期四 PM 10:02, Gil Magno wrote:
2018-07-12 20:50:22 +0800 Lauren C.:
thanks for the kind helps.
do you know what the expression in { } stands for?
^(\S+) - - \[(\S+).*\]
Thanks Jim. that explains clearly.
On 2018/7/12 星期四 PM 10:00, Jim Gibson wrote:
On Jul 12, 2018, at 5:50 AM, Lauren C. wrote:
thanks for the kind helps.
do you know what the expression in { } stands for?
^(\S+) - - \[(\S+).*\] \"GET (.*?/)\s+
Here is a breakdown:
^ Start lo
On Thu, 2018-07-12 at 19:35 +0800, Lauren C. wrote:
>
> My web is powered by Apache and PHP,its access log seems as blow,
>
> xx.xx.xx.xx - - [12/Jul/2018:19:29:43 +0800] "GET
> /2018/07/06/antique-internet/ HTTP/1.1" 200 5489 "https://miscnote.ne
> t/"
> "Mozilla/5.0 (Macintosh; Intel Mac OS X
> On Jul 12, 2018, at 5:50 AM, Lauren C. wrote:
>
> thanks for the kind helps.
> do you know what the expression in { } stands for?
>
> ^(\S+) - - \[(\S+).*\] \"GET (.*?/)\s+
Here is a breakdown:
^ Start looking for matches at beginning of string
(\S+) Match a consecutive seq
2018-07-12 20:50:22 +0800 Lauren C.:
> thanks for the kind helps.
> do you know what the expression in { } stands for?
>
> ^(\S+) - - \[(\S+).*\] \"GET (.*?/)\s+
Hi, Lauren
This is quickly explained in
http://perldoc.perl.org/perlrequick.html#Using-character-classes
\s (lowercase) stands for a
thanks for the kind helps.
do you know what the expression in { } stands for?
^(\S+) - - \[(\S+).*\] \"GET (.*?/)\s+
On 2018/7/12 星期四 PM 8:37, Илья Рассадин wrote:
"m{ pattern }" is regular expression to parse log string.
It's equal to just "/ pattern /". Using different delimiter is
conven
thanks Magno. i will check it.
On 2018/7/12 星期四 PM 8:13, Gil Magno wrote:
Hi, Lauren
The m{...} is a regular expression (regexp). If you not familiar with
regexps in Perl, I advise you to read these pages:
-http://perldoc.perl.org/perlintro.html#Regular-expressions
-http://perldoc.perl.org/per
2018-07-12 19:35:14 +0800 Lauren C.:
> Hello,
>
> My web is powered by Apache and PHP,its access log seems as blow,
>
> xx.xx.xx.xx - - [12/Jul/2018:19:29:43 +0800] "GET
> /2018/07/06/antique-internet/ HTTP/1.1" 200 5489 "https://miscnote.net/";
> "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_12_6)
Hi!
"m{ pattern }" is regular expression to parse log string.
It's equal to just "/ pattern /". Using different delimiter is
convenient here because usually symbol "/" must be escaped with
backslash "\", but if we use another delimiter - we can left "/" symbol
unescaped and reges is more read
On Monday, February 26, 2018 at 4:50 AM, Shlomi Fish" wrote...
> Hi jose,
>
> please see http://www.shlomifish.org/Files/files/code/bugzilla.patch for my
> patch against bugzilla 3.2 to get it to compile with recent perls.
Thanks.
josé
--
What if eternity is real? Where will you spend it? H
Hi jose,
please see http://www.shlomifish.org/Files/files/code/bugzilla.patch for my
patch against bugzilla 3.2 to get it to compile with recent perls.
On Mon, 26 Feb 2018 05:43:45 +0100
"jose cabrera" wrote:
> On Sunday, February 25, 2018 at 11:26 PM, "Uri Guttman" wrote...
> > >
> > > ==
On 02/25/2018 11:51 PM, jose cabrera wrote:
On Sunday, February 25, 2018 at 11:48 PM, "Uri Guttman" wrote...
Here is line 1085:
foreach my $type qw(dependson blocked) {
my @bug_ids = split(/[\s,]+/, $deps_in{$type});
put parens around the qw(). it used to be allowed as the ()
On Sunday, February 25, 2018 at 11:48 PM, "Uri Guttman" wrote...
> >>> Here is line 1085:
> >>> foreach my $type qw(dependson blocked) {
> >>> my @bug_ids = split(/[\s,]+/, $deps_in{$type});
> >> put parens around the qw(). it used to be allowed as the () in the for
> >> loop but no
On 02/25/2018 11:43 PM, jose cabrera wrote:
On Sunday, February 25, 2018 at 11:26 PM, "Uri Guttman" wrote...
syntax error at Bugzilla/Bug.pm line 1085, near "$type qw(dependson blocked)"
Here is line 1085:
foreach my $type qw(dependson blocked) {
On Sunday, February 25, 2018 at 11:26 PM, "Uri Guttman" wrote...
> >
> >
> > syntax error at Bugzilla/Bug.pm line 1085, near "$type qw(dependson
> > blocked)"
> >
> > Here is line 1085:
> > foreach my $type qw(dependson blocked) {
> > my @bug
On 02/25/2018 10:47 PM, jose cabrera wrote:
Greetings!
Long story, I had to install Bugzilla v3.2, which was in a WinNT 4. I have now
installed Bugzilla v3.2, in the Ubuntu 14.04 server, but I have perl (v5.22.1)
and I am getting lots of errors. Once I learn to fix one of these, I can work
On Sat, Apr 1, 2017 at 4:24 AM, K. Peng wrote:
> I don't know why the "ref" and "scalar" functions here can be used to
> validate if it's ASCII or UTF8 encoding.
>
>
> use constant ASCII => ref eval {
> require Encode;
> Encode::find_encoding('ascii');
> };
>
> use constant UTF8 =
Hi Nathalie.
Please, next time create gist with updated code, and send link to it. Now
your code is messy and its really hard to tell anything about it.
One more comment - you mix variable with computerish names and with names
from subject area. It's bad, you must always name your variables with
HI Shlomi,
Thanks for your comments about best practise which I have implemented, Any
ideas on why my hash of arrays of arrays is misbehaving?
Thanks
Nat
On 1 Jul 2015, at 15:42, Shlomi Fish wrote:
> Hi Nat,
>
> some comments about your code.
>
> On Wed, 1 Jul 2015 13:00:53 +0100
> nco...@ebi
Hi Nat,
some comments about your code.
On Wed, 1 Jul 2015 13:00:53 +0100
nco...@ebi.ac.uk wrote:
> Hi,
> I need some help with a hash of array of array.
> this is my input data structure:
> gene aal1 data1 data2 data9
> gene bal2 data3 data4 data10
> gene b
On 09/01/2014 09:55, Gary Stainburn wrote:
On Thursday 09 January 2014 09:53:35 Gary Stainburn wrote:
Oops, Missed a bit, try
s/^[0-9]+[a-c]{0,1}[-_]//;
/[a-c]{0,1}/ is normally written as /[a-c]?/
---
This email is free from viruses and malware because avast! Antivirus protection
is active
On Thu, 9 Jan 2014 09:55:45 +, Gary Stainburn wrote:
>On Thursday 09 January 2014 09:53:35 Gary Stainburn wrote:
>
>Oops, Missed a bit, try
>
>s/^[0-9]+[a-c]{0,1}[-_]//;
>
>
>Ringways Garages
>http://www.ringways.co.uk
>
Yes, this works & is probably more efficient than my RE.
Thanks
--
Peter
Hi,
On Thu, Jan 9, 2014 at 10:55 AM, Gary Stainburn <
gary.stainb...@ringways.co.uk> wrote:
> On Thursday 09 January 2014 09:53:35 Gary Stainburn wrote:
> > On Thursday 09 January 2014 02:01:55 timothy adigun wrote:
> > > Hi,
> > >
> > > On Thu, Jan 9, 2014 at 11:57 AM, Peter Gordon
> >
> > wrote
On Thursday 09 January 2014 09:53:35 Gary Stainburn wrote:
> On Thursday 09 January 2014 02:01:55 timothy adigun wrote:
> > Hi,
> >
> > On Thu, Jan 9, 2014 at 11:57 AM, Peter Gordon
>
> wrote:
> > > I'm trying do write a one line RE to strip sequence numbers off
> > > filenames.
> >
> > Something
On Thursday 09 January 2014 02:01:55 timothy adigun wrote:
> Hi,
>
> On Thu, Jan 9, 2014 at 11:57 AM, Peter Gordon
wrote:
> > I'm trying do write a one line RE to strip sequence numbers off
> > filenames.
>
> Something like this?
>
> s/^[0-9_-]+//;
Shouldn't that be
s/^[0-9]+[-_]//
--
Gar
On Thu, 9 Jan 2014 10:57:00 GMT, Peter Gordon wrote:
>I'm trying do write a one line RE to strip sequence numbers off
>filenames. The filename can may have:
>No sequence numbers
>or
>Start with a variable number of digits,
>Followed by an optional character between a and c
>Followed by a compulsor
Hi,
On Thu, Jan 9, 2014 at 11:57 AM, Peter Gordon wrote:
> I'm trying do write a one line RE to strip sequence numbers off
> filenames.
Something like this?
s/^[0-9_-]+//;
> The filename can may have:
> No sequence numbers
>or
> Start with a variable number of digits,
> Followed by
Hi all,
On Sun, 10 Nov 2013 19:14:22 -0500
Shawn Wilson wrote:
> File::Find also see find2perl
>
File::Find is OK for that and is a core module, but it has some severe
philosophical design limitations, and has a user-hostile interface. Here are
some alternatives:
http://perl-begin.org/topics
File::Find also see find2perl
Rahim Fakir wrote:
>Iam looking for a module or a script that when running the script.pl, I
>have to write the name of a file and it searches in my C: drive.
>Best regards
>Ray
>
>
>
>
>
>--
>*Nome: Rahim Gulamo Nabi Mussa Fakir*
>
>
>
>
>
>
>
>
>
>*Morada:Rua Gilb
From: "Ronald F. Guilmette"
>
> In message <7E7181F2497441C88988DD1F16E4A743@octavianf303f0>, you wrote:
>
>>From: "Janek Schleicher"
>>
>>> Am 24.10.2013 15:07, schrieb Shawn H Corey:
> my $email = Email::Simple->create(
> header => [
> From => $sender_addr
In message <20131024183255.3c233104@sage>, you wrote:
>On Thu, 24 Oct 2013 14:55:51 -0700
>"John W. Krahn" wrote:
>
>> stdin (and stdout) are part of a stream protocol and as such are not
>> about files and do not signal End-Of-File which is part of why emails
>> use the single period to signa
In message <52699767.2050...@shaw.ca>, you wrote:
>Ronald F. Guilmette wrote:
>> In message<5268663c.4040...@stemsystems.com>,
>> Uri Guttmanwrote:
>>
>>> i think a blank line with . will end input to smtp servers. try that too
>>> in the line after the from field.
>>
>> DING DING DING!!!
>>
>> G
On Thu, 24 Oct 2013 14:55:51 -0700
"John W. Krahn" wrote:
> stdin (and stdout) are part of a stream protocol and as such are not
> about files and do not signal End-Of-File which is part of why emails
> use the single period to signal the end of the message.
I thought that was from the old mai
Ronald F. Guilmette wrote:
In message<5268663c.4040...@stemsystems.com>,
Uri Guttmanwrote:
i think a blank line with . will end input to smtp servers. try that too
in the line after the from field.
DING DING DING!!!
Give that man a cupie doll, because he's the winner of today's
perplexing pu
On Oct 24, 2013, at 11:59 AM, Ronald F. Guilmette wrote:
> But, getting back to my original 2 questions...
>
> I want to stress that I did not ask how to formulate and/or send a
> properly formatted e-mail message. I can handle that part, even if
> perhaps only in my own clumsey way.
>
> What
In message <7E7181F2497441C88988DD1F16E4A743@octavianf303f0>, you wrote:
>From: "Janek Schleicher"
>
>> Am 24.10.2013 15:07, schrieb Shawn H Corey:
my $email = Email::Simple->create(
header => [
From => $sender_addr,
To => 'ad...@
From: "Janek Schleicher"
Am 24.10.2013 15:07, schrieb Shawn H Corey:
my $email = Email::Simple->create(
header => [
From => $sender_addr,
To => 'ad...@tristatelogic.com',
X-Server-Protocol => $server_protocol,
X-Http-User-Agent => $ht
Am 24.10.2013 15:07, schrieb Shawn H Corey:
my $email = Email::Simple->create(
header => [
From => $sender_addr,
To => 'ad...@tristatelogic.com',
X-Server-Protocol => $server_protocol,
X-Http-User-Agent => $http_user_agent,
X-Http-
On Thu, 24 Oct 2013 06:30:58 -0700
Jim Gibson wrote:
>
> On Oct 24, 2013, at 6:07 AM, Shawn H Corey wrote:
>
> > On Thu, 24 Oct 2013 13:52:51 +0200
> > Janek Schleicher wrote:
> >
> >> use Email::Simple;
> >>
> >> my $email = Email::Simple->create(
> >> header => [
> >> From
On Oct 24, 2013, at 6:07 AM, Shawn H Corey wrote:
> On Thu, 24 Oct 2013 13:52:51 +0200
> Janek Schleicher wrote:
>
>> use Email::Simple;
>>
>> my $email = Email::Simple->create(
>> header => [
>> From => $sender_addr,
>> To => 'ad...@tristatelogic.com',
On Thu, 24 Oct 2013 13:52:51 +0200
Janek Schleicher wrote:
> use Email::Simple;
>
> my $email = Email::Simple->create(
>header => [
> From => $sender_addr,
> To => 'ad...@tristatelogic.com',
> X-Server-Protocol => $server_protocol,
> X-Http-
Another way of handling is to use one of the availabe Email::* modules
on CPAN. This would have the advantages of (beside you don't have to
worry about details of string quoting):
- better code, as you write down what you intend to do instead of how
you do it
- better security, as those module
In message <40504.1382576...@server1.tristatelogic.com>, I wrote:
>>> Well, I added to the script some rudimentary filtering/validation of
>>> the input strings in question also.
>>
>>you need more than rudimentary filtering. make sure the from field is
>>one string, no newlines or anything but
In message <5268663c.4040...@stemsystems.com>,
Uri Guttman wrote:
>i think a blank line with . will end input to smtp servers. try that too
>in the line after the from field.
DING DING DING!!!
Give that man a cupie doll, because he's the winner of today's
perplexing puzzle test!
In short, ye
In message <20131023193228.38cf83e2@sage>, you wrote:
>On Wed, 23 Oct 2013 16:12:12 -0700
>"Ronald F. Guilmette" wrote:
>
>> I believe that you may be on to something here, but it is more than
>> just Postfix seeing a \n\n and believeing that it had encountered the
>> end of the headers. It is
On 10/23/2013 07:12 PM, Ronald F. Guilmette wrote:
In message <52684f18.2000...@stemsystems.com>, you wrote:
I _do_ know more than a little about mail servers, and while you are
basically correct, i.e. that Postfix would certainly view anything
past the first \n\n encountered as being *messag
On 2013-10-24 01:12, Ronald F. Guilmette wrote:
In message <52684f18.2000...@stemsystems.com>, you wrote:
On 10/23/2013 06:18 PM, Ronald F. Guilmette wrote:
...
print SM <
From: "$sender_name" <$sender_addr>
Subject: Your message to Tristatelogic.Com
X-Server-Protocol: $server_protocol
X-Http
On Wed, 23 Oct 2013 16:12:12 -0700
"Ronald F. Guilmette" wrote:
> I believe that you may be on to something here, but it is more than
> just Postfix seeing a \n\n and believeing that it had encountered the
> end of the headers. It is possible that something in the input
> stream I gave it signal
In message <52684f18.2000...@stemsystems.com>, you wrote:
>On 10/23/2013 06:18 PM, Ronald F. Guilmette wrote:
>
>> ...
>> print SM <> To: "Tristatelogic.Com Administrator"
>> From: "$sender_name" <$sender_addr>
>> Subject: Your message to Tristatelogic.Com
>> X-Server-Protocol: $server_protocol
On 10/23/2013 06:18 PM, Ronald F. Guilmette wrote:
...
print SM <
From: "$sender_name" <$sender_addr>
Subject: Your message to Tristatelogic.Com
X-Server-Protocol: $server_protocol
X-Http-User-Agent: $http_user_agent
X-Http-Referer: $http_referer
X-Remote-Addr: $remote_addr
X-Remote-Host: $remot
In message <39517.1382566...@server1.tristatelogic.com>, I wrote:
>About a day ago, some schmuck set about to try, hard, to exploit the
>personally written Perl code I have in place and that processes the
>input for the contact form on my web site...
I neglected to mention that this was obviousl
o God.
---
From: Andy Bach
To: Shaji Kalidasan
Sent: Friday, 4 October 2013 10:23 PM
Subject: Re: Help on exception handling (Try::Tiny)
On Fri, Oct 4, 2013 at 5:36 AM, Shaji Kali
On Oct 4, 2013, at 3:36 AM, Shaji Kalidasan wrote:
> Dear Perlers,
>
> I am trying to figure out the flow of a try catch block after executing the
> 'next' statement. In the try statement after illegal division by zero the
> program flow reaches catch block and then executes the 'next' stateme
On Mon, Sep 23, 2013 at 2:32 PM, Jing Yu wrote:
> Hi Luca,
>
> Doesn't it autovivify $hash_ref->{$key} when you push $new_value to it?
>
> At least when I tested the following code, it worked.
>
> push @{ $hash_ref->{$key} }, $new_value;
>
Correct! How did I not come to this?
Thanks,
Luca
--
T
Hi Luca,
Doesn't it autovivify $hash_ref->{$key} when you push $new_value to it?
At least when I tested the following code, it worked.
push @{ $hash_ref->{$key} }, $new_value;
Regards,
Jing
On 23 Sep 2013, at 20:12, Luca Ferrari wrote:
> Hi,
> in my applications often I end up with an hash re
Hi Rajesh,
On Thu, 19 Sep 2013 23:39:48 +0530
rajesh kumar wrote:
> Hi,
>
> I am reading a set of regex, separated by comma, from database, which is in
> string format and using eval to convert them in the array.
> For e.g.,
> String from database is 'qr/^abc .* $/,qr/xxx/'
>
> $string = 'qr/^
On 19/09/2013 20:09, rajesh kumar wrote:
Hi,
I am reading a set of regex, separated by comma, from database, which is
in string format and using eval to convert them in the array.
For e.g.,
String from database is'qr/^abc .* $/,qr/xxx/'
$string = 'qr/^abc .*$/,qr/xxx/'; # this $string comes fro
Yes, I agree.
Top answer!
Can also consider YAML if you wanted to do a lot of manual editing of data,
but probably JSON is best.
Dr Jimi C Wills
"David Precious" wrote in message news:20130913133147.0b88fbeb@columbia...
On Fri, 13 Sep 2013 19:10:58 +0800 (SGT)
*Shaji Kalidasan* wrote:
++Storable
On 14 September 2013 09:39, Shlomi Fish wrote:
> Hi Shaji,
>
> On Sat, 14 Sep 2013 16:19:26 +0800 (SGT)
> *Shaji Kalidasan* wrote:
>
> > Dear David,
> >
> > Thanks for throwing light on the topic by citing the security
> implications of
> > executing eval and also suggesting the ind
Hi Shaji,
On Sat, 14 Sep 2013 16:19:26 +0800 (SGT)
*Shaji Kalidasan* wrote:
> Dear David,
>
> Thanks for throwing light on the topic by citing the security implications of
> executing eval and also suggesting the industry standard 'JSON' for
> interoperability.
>
One should note that JSON is
est,
Shaji
---
Your talent is God's gift to you. What you do with it is your gift back to God.
---
From: David Precious
To: Perl Beginners
Sent: Friday, 13 September 2013 6:01
On Fri, Sep 13, 2013 at 01:31:47PM +0100, David Precious wrote:
> On Fri, 13 Sep 2013 19:10:58 +0800 (SGT)
> *Shaji Kalidasan* wrote:
> > I am saving the data structure to a file and retrieving it back
> > again, but, when I 'use strict' it is giving the following error
> > message
> >
> > Global
On Fri, 13 Sep 2013 19:10:58 +0800 (SGT)
*Shaji Kalidasan* wrote:
> I am saving the data structure to a file and retrieving it back
> again, but, when I 'use strict' it is giving the following error
> message
>
> Global symbol "%game" requires explicit package name
Others have pointed out that t
o God.
---
From: Dr Jimi-Carlo Bukowski-Wills
To: *Shaji Kalidasan*
Sent: Friday, 13 September 2013 5:12 PM
Subject: Re: Help on saving and retrieving data structures
Hi
It’s because the output file has no (my) in i
o God.
---
From: 'lesleyb'
To: beginners@perl.org
Sent: Friday, 13 September 2013 5:26 PM
Subject: Re: Help on saving and retrieving data structures
On Fri, Sep 13, 2013 at 07:10:58PM +0800, *Shaji Kalidasan
On Fri, Sep 13, 2013 at 07:10:58PM +0800, *Shaji Kalidasan* wrote:
> Dear Perlers,
>
> I am saving the data structure to a file and retrieving it back again, but,
> when I 'use strict' it is giving the following error message
>
> Global symbol "%game" requires explicit package name
This message
o God.
---
From: timothy adigun <2teezp...@gmail.com>
To: *Shaji Kalidasan*
Cc: "beginners@perl.org"
Sent: Thursday, 15 August 2013 1:41 PM
Subject: Re: Help on regex
Hi,
On Thu, Aug 15, 2013 at 6:29 AM, *Sh
1 - 100 of 2071 matches
Mail list logo
