Re: Hi Folks : I'm trying to create a regular expression for finding a # wishing a dataset for only a number that is a multiple of 5
Thanks a lot
Gautam S Desai
On Sun, Sep 8, 2019 at 6:39 PM Mike wrote:
>
> It's probably best if you write a short script
> that reads a __DATA__ section of data.
> Then tell us what it does and what you expected
> it to do.
>
> Off hand I don't see anything wrong with your regex,
> but I don't know what you expect it to do.
>
>
> Mike
>
>
> On 9/8/2019 4:34 PM, Jim Gibson wrote:
> > On Sep 8, 2019, at 1:30 PM, Gautam Desai
> wrote:
> >> Do you guys have any pointers ?
> > $t =~ m{
> > ( # capture matched number in $1
> > \d* # match zero or more decimal digits
> > [05] # followed by a '0' or '5'
> > ) # end of capture
> > (?: # followed by either:
> > \D# a non-digit
> > | # or
> > $ # the end of the string
> > )
> > }x
> >
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
Re: Hi Folks : I'm trying to create a regular expression for finding a # wishing a dataset for only a number that is a multiple of 5
> On Sep 8, 2019, at 6:36 PM, Olivier wrote:
>
> Jim Gibson writes:
>
>> On Sep 8, 2019, at 3:39 PM, Mike wrote:
>>>
>>>
>>> It's probably best if you write a short script
>>> that reads a __DATA__ section of data.
>>> Then tell us what it does and what you expected
>>> it to do.
>>>
>>> Off hand I don't see anything wrong with your regex,
>>> but I don't know what you expect it to do.
>>>
>>
>> I expect it to return a positive value if $t contains a number anywhere
>> within it and put that number in the $1 capture variable.
>
> Well, that is not what is in your regex: you look for a decimal number
> ending with 0 or 5, and it must be the last number of the line.
>
> What about something simple like:
>
>/(\d*[05])\D*$/
I prefer the explicit (?:…|…) structure that tells the reader that an alternate
expression is being used. Also, the “zero or more” * operator can be very slow
for long strings.
>
> The Regex Coach is your friend (and works well under wine).
>
> It alsways help to present with some sample data.
If you want to use this regex, then you should test it yourself. I did.
>
> Best regards,
>
> Olivier
>
>>>
>>> Mike
>>>
>>>
>>> On 9/8/2019 4:34 PM, Jim Gibson wrote:
On Sep 8, 2019, at 1:30 PM, Gautam Desai
wrote:
> Do you guys have any pointers ?
$t =~ m{
( # capture matched number in $1
\d* # match zero or more decimal digits
[05] # followed by a '0' or '5'
) # end of capture
(?: # followed by either:
\D# a non-digit
| # or
$ # the end of the string
)
}x
>>>
>>> --
>>> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
>>> For additional commands, e-mail: beginners-h...@perl.org
>>> http://learn.perl.org/
>>>
>>>
>>
>> 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/
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/
Re: Hi Folks : I'm trying to create a regular expression for finding a # wishing a dataset for only a number that is a multiple of 5
Jim Gibson writes:
> On Sep 8, 2019, at 3:39 PM, Mike wrote:
>>
>>
>> It's probably best if you write a short script
>> that reads a __DATA__ section of data.
>> Then tell us what it does and what you expected
>> it to do.
>>
>> Off hand I don't see anything wrong with your regex,
>> but I don't know what you expect it to do.
>>
>
> I expect it to return a positive value if $t contains a number anywhere
> within it and put that number in the $1 capture variable.
Well, that is not what is in your regex: you look for a decimal number
ending with 0 or 5, and it must be the last number of the line.
What about something simple like:
/(\d*[05])\D*$/
The Regex Coach is your friend (and works well under wine).
It alsways help to present with some sample data.
Best regards,
Olivier
>>
>> Mike
>>
>>
>> On 9/8/2019 4:34 PM, Jim Gibson wrote:
>>> On Sep 8, 2019, at 1:30 PM, Gautam Desai
>>> wrote:
Do you guys have any pointers ?
>>> $t =~ m{
>>> ( # capture matched number in $1
>>> \d* # match zero or more decimal digits
>>> [05] # followed by a '0' or '5'
>>> ) # end of capture
>>> (?: # followed by either:
>>> \D# a non-digit
>>> | # or
>>> $ # the end of the string
>>> )
>>> }x
>>>
>>
>> --
>> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
>> For additional commands, e-mail: beginners-h...@perl.org
>> http://learn.perl.org/
>>
>>
>
> 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/
Re: Hi Folks : I'm trying to create a regular expression for finding a # wishing a dataset for only a number that is a multiple of 5
On Sep 8, 2019, at 3:39 PM, Mike wrote:
>
>
> It's probably best if you write a short script
> that reads a __DATA__ section of data.
> Then tell us what it does and what you expected
> it to do.
>
> Off hand I don't see anything wrong with your regex,
> but I don't know what you expect it to do.
>
I expect it to return a positive value if $t contains a number anywhere within
it and put that number in the $1 capture variable.
>
> Mike
>
>
> On 9/8/2019 4:34 PM, Jim Gibson wrote:
>> On Sep 8, 2019, at 1:30 PM, Gautam Desai
>> wrote:
>>> Do you guys have any pointers ?
>> $t =~ m{
>> ( # capture matched number in $1
>>\d* # match zero or more decimal digits
>>[05] # followed by a '0' or '5'
>> ) # end of capture
>> (?: # followed by either:
>>\D# a non-digit
>> | # or
>>$ # the end of the string
>> )
>> }x
>>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
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/
Re: Hi Folks : I'm trying to create a regular expression for finding a # wishing a dataset for only a number that is a multiple of 5
It's probably best if you write a short script
that reads a __DATA__ section of data.
Then tell us what it does and what you expected
it to do.
Off hand I don't see anything wrong with your regex,
but I don't know what you expect it to do.
Mike
On 9/8/2019 4:34 PM, Jim Gibson wrote:
On Sep 8, 2019, at 1:30 PM, Gautam Desai wrote:
Do you guys have any pointers ?
$t =~ m{
( # capture matched number in $1
\d* # match zero or more decimal digits
[05] # followed by a '0' or '5'
) # end of capture
(?: # followed by either:
\D# a non-digit
| # or
$ # the end of the string
)
}x
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Re: Hi Folks : I'm trying to create a regular expression for finding a # wishing a dataset for only a number that is a multiple of 5
On Sep 8, 2019, at 1:30 PM, Gautam Desai wrote:
>
> Do you guys have any pointers ?
$t =~ m{
( # capture matched number in $1
\d* # match zero or more decimal digits
[05] # followed by a '0' or '5'
) # end of capture
(?: # followed by either:
\D# a non-digit
| # or
$ # the end of the string
)
}x
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
RE: Hi
WOW!! I think it worked, I just received an e-mail confirming the removal of my e-mail!! Good by everyone :) Regards; -Original Message- From: Torqued [mailto:torque.in...@gmail.com] Sent: Monday, January 14, 2013 8:45 PM To: Lou Pereira Cc: Kristin Nielsen; beginners@perl.org Subject: Re: Hi Regards... /omps On 14-Jan-2013, at 11:12 PM, Lou Pereira louis.pere...@ptalc.com wrote: OK, So I performed you step 3 again last Thursday, but I am still receiving e-mails??? Any more suggestions? May be the group doesn't want you to leave. ;) Regards; Lou Pereira C: (973) 670-6821 mailto:louis.pere...@ptalc.com -Original Message- From: Kristin Nielsen [mailto:justkris...@gmail.com] On Behalf Of Kristin Nielsen Sent: Friday, January 11, 2013 9:14 AM To: Lou Pereira Cc: beginners@perl.org Subject: Re: Hi If you do not give data for troubleshooting, there is no good way to help. See step 3: 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. I am, c. Kristin Sent while galavanting. On Jan 11, 2013, at 3:23 AM, Lou Pereira louis.pere...@ptalc.com wrote: For the past year I have exhausted all options of e-mail format to opt out, including your recommendations to no avail. I must say that over 10 years I have been involved with different e-mail lists and tech groups, but never had such as poor service as this group. Any other ideas would be appreciated? Regards; Lou Pereira C: (973) 670-6821 mailto:louis.pere...@ptalc.com -Original Message- From: Kristin Nielsen [mailto:kris...@justkristin.com] Sent: Thursday, January 10, 2013 6:50 PM To: Lou Pereira Cc: beginners@perl.org Subject: Re: Hi Lou - Klamerus' frustration is not completely unwarranted. I answered that question in my reply to the list - did you read it? If not, there are three steps to take - fewer if you are successful. 1. Start an email from the account with which you subscribed to the list. You MUST send your unsubscribe request from the email address by which list mail is being rec'd. 2. Send a simple blank email from the account mentioned in step #1 to beginners-unsubscr...@perl.org 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. There you go. I am, c., Kristin P. S. I take quite to heart the belittling attitude found on so many tech lists. Bad attitude doesn't work from either direction, and yes, delivery matters. This is supposed to be a cooperative educational community, is it not? Sure, we should all RTFM, but some of us who have been forced to learn-or-get-laid-off simply lack the formal training to know which term to use in our search, or even to know which PERLDOC to read, have been shamed into silence by cruel responses. I am far beyond that now, but I remember it well. Furthermore, this list contains quite a few for whom English is not a first language. I am grateful to everyone here for being on the list and helping those who come to it for assistance. We all get frustrated with simplistic or repetitive questions, and people who don't even try should be told to try first, but very little besides a bully's ego is helped by mean replies. No? Thanks again, all of you, really. On Jan 10, 2013, at 3:36 PM, Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? -Original Message- From: klamerus [mailto:klame...@earthlink.net] Sent: Thursday, January 10, 2013 4:10 PM To: 'bhanu chaitanya abbaraju'; beginners@perl.org Subject: RE: Hi Since you clearly don't know how mailing lists work I'm afraid that's not possible. -Original Message- From: bhanu chaitanya abbaraju [mailto:bhanu.cha...@gmail.com] Sent: Thursday, January 10, 2013 2:04 PM To: beginners@perl.org Subject: Hi Please help me how can I stop perl emails -- A.Bhanuchaitanya -- 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
RE: Hi
OK, So I performed you step 3 again last Thursday, but I am still receiving e-mails??? Any more suggestions? Regards; Lou Pereira C: (973) 670-6821 mailto:louis.pere...@ptalc.com -Original Message- From: Kristin Nielsen [mailto:justkris...@gmail.com] On Behalf Of Kristin Nielsen Sent: Friday, January 11, 2013 9:14 AM To: Lou Pereira Cc: beginners@perl.org Subject: Re: Hi If you do not give data for troubleshooting, there is no good way to help. See step 3: 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. I am, c. Kristin Sent while galavanting. On Jan 11, 2013, at 3:23 AM, Lou Pereira louis.pere...@ptalc.com wrote: For the past year I have exhausted all options of e-mail format to opt out, including your recommendations to no avail. I must say that over 10 years I have been involved with different e-mail lists and tech groups, but never had such as poor service as this group. Any other ideas would be appreciated? Regards; Lou Pereira C: (973) 670-6821 mailto:louis.pere...@ptalc.com -Original Message- From: Kristin Nielsen [mailto:kris...@justkristin.com] Sent: Thursday, January 10, 2013 6:50 PM To: Lou Pereira Cc: beginners@perl.org Subject: Re: Hi Lou - Klamerus' frustration is not completely unwarranted. I answered that question in my reply to the list - did you read it? If not, there are three steps to take - fewer if you are successful. 1. Start an email from the account with which you subscribed to the list. You MUST send your unsubscribe request from the email address by which list mail is being rec'd. 2. Send a simple blank email from the account mentioned in step #1 to beginners-unsubscr...@perl.org 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. There you go. I am, c., Kristin P. S. I take quite to heart the belittling attitude found on so many tech lists. Bad attitude doesn't work from either direction, and yes, delivery matters. This is supposed to be a cooperative educational community, is it not? Sure, we should all RTFM, but some of us who have been forced to learn-or-get-laid-off simply lack the formal training to know which term to use in our search, or even to know which PERLDOC to read, have been shamed into silence by cruel responses. I am far beyond that now, but I remember it well. Furthermore, this list contains quite a few for whom English is not a first language. I am grateful to everyone here for being on the list and helping those who come to it for assistance. We all get frustrated with simplistic or repetitive questions, and people who don't even try should be told to try first, but very little besides a bully's ego is helped by mean replies. No? Thanks again, all of you, really. On Jan 10, 2013, at 3:36 PM, Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? -Original Message- From: klamerus [mailto:klame...@earthlink.net] Sent: Thursday, January 10, 2013 4:10 PM To: 'bhanu chaitanya abbaraju'; beginners@perl.org Subject: RE: Hi Since you clearly don't know how mailing lists work I'm afraid that's not possible. -Original Message- From: bhanu chaitanya abbaraju [mailto:bhanu.cha...@gmail.com] Sent: Thursday, January 10, 2013 2:04 PM To: beginners@perl.org Subject: Hi Please help me how can I stop perl emails -- A.Bhanuchaitanya -- 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/ -- 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/ -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi
Regards... /omps On 14-Jan-2013, at 11:12 PM, Lou Pereira louis.pere...@ptalc.com wrote: OK, So I performed you step 3 again last Thursday, but I am still receiving e-mails??? Any more suggestions? May be the group doesn't want you to leave. ;) Regards; Lou Pereira C: (973) 670-6821 mailto:louis.pere...@ptalc.com -Original Message- From: Kristin Nielsen [mailto:justkris...@gmail.com] On Behalf Of Kristin Nielsen Sent: Friday, January 11, 2013 9:14 AM To: Lou Pereira Cc: beginners@perl.org Subject: Re: Hi If you do not give data for troubleshooting, there is no good way to help. See step 3: 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. I am, c. Kristin Sent while galavanting. On Jan 11, 2013, at 3:23 AM, Lou Pereira louis.pere...@ptalc.com wrote: For the past year I have exhausted all options of e-mail format to opt out, including your recommendations to no avail. I must say that over 10 years I have been involved with different e-mail lists and tech groups, but never had such as poor service as this group. Any other ideas would be appreciated? Regards; Lou Pereira C: (973) 670-6821 mailto:louis.pere...@ptalc.com -Original Message- From: Kristin Nielsen [mailto:kris...@justkristin.com] Sent: Thursday, January 10, 2013 6:50 PM To: Lou Pereira Cc: beginners@perl.org Subject: Re: Hi Lou - Klamerus' frustration is not completely unwarranted. I answered that question in my reply to the list - did you read it? If not, there are three steps to take - fewer if you are successful. 1. Start an email from the account with which you subscribed to the list. You MUST send your unsubscribe request from the email address by which list mail is being rec'd. 2. Send a simple blank email from the account mentioned in step #1 to beginners-unsubscr...@perl.org 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. There you go. I am, c., Kristin P. S. I take quite to heart the belittling attitude found on so many tech lists. Bad attitude doesn't work from either direction, and yes, delivery matters. This is supposed to be a cooperative educational community, is it not? Sure, we should all RTFM, but some of us who have been forced to learn-or-get-laid-off simply lack the formal training to know which term to use in our search, or even to know which PERLDOC to read, have been shamed into silence by cruel responses. I am far beyond that now, but I remember it well. Furthermore, this list contains quite a few for whom English is not a first language. I am grateful to everyone here for being on the list and helping those who come to it for assistance. We all get frustrated with simplistic or repetitive questions, and people who don't even try should be told to try first, but very little besides a bully's ego is helped by mean replies. No? Thanks again, all of you, really. On Jan 10, 2013, at 3:36 PM, Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? -Original Message- From: klamerus [mailto:klame...@earthlink.net] Sent: Thursday, January 10, 2013 4:10 PM To: 'bhanu chaitanya abbaraju'; beginners@perl.org Subject: RE: Hi Since you clearly don't know how mailing lists work I'm afraid that's not possible. -Original Message- From: bhanu chaitanya abbaraju [mailto:bhanu.cha...@gmail.com] Sent: Thursday, January 10, 2013 2:04 PM To: beginners@perl.org Subject: Hi Please help me how can I stop perl emails -- A.Bhanuchaitanya -- 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/ -- 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
Re: Hi
Hi Lou, You might want to make sure you're sending your email in plain text. Check your settings, if you're using Rich Text or HTML to format the email it might screw the pooch for you. That's a real old problem, but this might be real old software running this list. Also, I found this on the faq page for this list: Who owns this list? Who do I complain to? John SJ Anderson owns the beginners list. You can contact him at geneh...@genehack.org. http://learn.perl.org/faq/beginners.html#owner Hopefully contacting them will help. If not, let us all know and I'll try and help you track down a solution to the problem. Kindest Regards, Bill Stephenson -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
RE: Hi
For the past year I have exhausted all options of e-mail format to opt out, including your recommendations to no avail. I must say that over 10 years I have been involved with different e-mail lists and tech groups, but never had such as poor service as this group. Any other ideas would be appreciated? Regards; Lou Pereira C: (973) 670-6821 mailto:louis.pere...@ptalc.com -Original Message- From: Kristin Nielsen [mailto:kris...@justkristin.com] Sent: Thursday, January 10, 2013 6:50 PM To: Lou Pereira Cc: beginners@perl.org Subject: Re: Hi Lou - Klamerus' frustration is not completely unwarranted. I answered that question in my reply to the list - did you read it? If not, there are three steps to take - fewer if you are successful. 1. Start an email from the account with which you subscribed to the list. You MUST send your unsubscribe request from the email address by which list mail is being rec'd. 2. Send a simple blank email from the account mentioned in step #1 to beginners-unsubscr...@perl.org 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. There you go. I am, c., Kristin P. S. I take quite to heart the belittling attitude found on so many tech lists. Bad attitude doesn't work from either direction, and yes, delivery matters. This is supposed to be a cooperative educational community, is it not? Sure, we should all RTFM, but some of us who have been forced to learn-or-get-laid-off simply lack the formal training to know which term to use in our search, or even to know which PERLDOC to read, have been shamed into silence by cruel responses. I am far beyond that now, but I remember it well. Furthermore, this list contains quite a few for whom English is not a first language. I am grateful to everyone here for being on the list and helping those who come to it for assistance. We all get frustrated with simplistic or repetitive questions, and people who don't even try should be told to try first, but very little besides a bully's ego is helped by mean replies. No? Thanks again, all of you, really. On Jan 10, 2013, at 3:36 PM, Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? -Original Message- From: klamerus [mailto:klame...@earthlink.net] Sent: Thursday, January 10, 2013 4:10 PM To: 'bhanu chaitanya abbaraju'; beginners@perl.org Subject: RE: Hi Since you clearly don't know how mailing lists work I'm afraid that's not possible. -Original Message- From: bhanu chaitanya abbaraju [mailto:bhanu.cha...@gmail.com] Sent: Thursday, January 10, 2013 2:04 PM To: beginners@perl.org Subject: Hi Please help me how can I stop perl emails -- A.Bhanuchaitanya -- 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/ -- 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/
Re: Hi
-- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/ On Fri, Jan 11, 2013 at 5:23 AM, Lou Pereira louis.pere...@ptalc.com wrote: For the past year I have exhausted all options of e-mail format to opt out, including your recommendations to no avail. I must say that over 10 years I have been involved with different e-mail lists and tech groups, but never had such as poor service as this group. Any other ideas would be appreciated? Regards; Lou Pereira C: (973) 670-6821 mailto:louis.pere...@ptalc.com -Original Message- From: Kristin Nielsen [mailto:kris...@justkristin.com] Sent: Thursday, January 10, 2013 6:50 PM To: Lou Pereira Cc: beginners@perl.org Subject: Re: Hi Lou - Klamerus' frustration is not completely unwarranted. I answered that question in my reply to the list - did you read it? If not, there are three steps to take - fewer if you are successful. 1. Start an email from the account with which you subscribed to the list. You MUST send your unsubscribe request from the email address by which list mail is being rec'd. 2. Send a simple blank email from the account mentioned in step #1 to beginners-unsubscr...@perl.org 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. There you go. I am, c., Kristin P. S. I take quite to heart the belittling attitude found on so many tech lists. Bad attitude doesn't work from either direction, and yes, delivery matters. This is supposed to be a cooperative educational community, is it not? Sure, we should all RTFM, but some of us who have been forced to learn-or-get-laid-off simply lack the formal training to know which term to use in our search, or even to know which PERLDOC to read, have been shamed into silence by cruel responses. I am far beyond that now, but I remember it well. Furthermore, this list contains quite a few for whom English is not a first language. I am grateful to everyone here for being on the list and helping those who come to it for assistance. We all get frustrated with simplistic or repetitive questions, and people who don't even try should be told to try first, but very little besides a bully's ego is helped by mean replies. No? Thanks again, all of you, really. On Jan 10, 2013, at 3:36 PM, Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? -Original Message- From: klamerus [mailto:klame...@earthlink.net] Sent: Thursday, January 10, 2013 4:10 PM To: 'bhanu chaitanya abbaraju'; beginners@perl.org Subject: RE: Hi Since you clearly don't know how mailing lists work I'm afraid that's not possible. -Original Message- From: bhanu chaitanya abbaraju [mailto:bhanu.cha...@gmail.com] Sent: Thursday, January 10, 2013 2:04 PM To: beginners@perl.org Subject: Hi Please help me how can I stop perl emails -- A.Bhanuchaitanya -- 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/ -- 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/ -- - Chicago Hal Wigoda -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi
If you do not give data for troubleshooting, there is no good way to help. See step 3: 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. I am, c. Kristin Sent while galavanting. On Jan 11, 2013, at 3:23 AM, Lou Pereira louis.pere...@ptalc.com wrote: For the past year I have exhausted all options of e-mail format to opt out, including your recommendations to no avail. I must say that over 10 years I have been involved with different e-mail lists and tech groups, but never had such as poor service as this group. Any other ideas would be appreciated? Regards; Lou Pereira C: (973) 670-6821 mailto:louis.pere...@ptalc.com -Original Message- From: Kristin Nielsen [mailto:kris...@justkristin.com] Sent: Thursday, January 10, 2013 6:50 PM To: Lou Pereira Cc: beginners@perl.org Subject: Re: Hi Lou - Klamerus' frustration is not completely unwarranted. I answered that question in my reply to the list - did you read it? If not, there are three steps to take - fewer if you are successful. 1. Start an email from the account with which you subscribed to the list. You MUST send your unsubscribe request from the email address by which list mail is being rec'd. 2. Send a simple blank email from the account mentioned in step #1 to beginners-unsubscr...@perl.org 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. There you go. I am, c., Kristin P. S. I take quite to heart the belittling attitude found on so many tech lists. Bad attitude doesn't work from either direction, and yes, delivery matters. This is supposed to be a cooperative educational community, is it not? Sure, we should all RTFM, but some of us who have been forced to learn-or-get-laid-off simply lack the formal training to know which term to use in our search, or even to know which PERLDOC to read, have been shamed into silence by cruel responses. I am far beyond that now, but I remember it well. Furthermore, this list contains quite a few for whom English is not a first language. I am grateful to everyone here for being on the list and helping those who come to it for assistance. We all get frustrated with simplistic or repetitive questions, and people who don't even try should be told to try first, but very little besides a bully's ego is helped by mean replies. No? Thanks again, all of you, really. On Jan 10, 2013, at 3:36 PM, Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? -Original Message- From: klamerus [mailto:klame...@earthlink.net] Sent: Thursday, January 10, 2013 4:10 PM To: 'bhanu chaitanya abbaraju'; beginners@perl.org Subject: RE: Hi Since you clearly don't know how mailing lists work I'm afraid that's not possible. -Original Message- From: bhanu chaitanya abbaraju [mailto:bhanu.cha...@gmail.com] Sent: Thursday, January 10, 2013 2:04 PM To: beginners@perl.org Subject: Hi Please help me how can I stop perl emails -- A.Bhanuchaitanya -- 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/ -- 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/
Re: Hi
On Fri, 11 Jan 2013 00:34:14 +0530 bhanu chaitanya abbaraju bhanu.cha...@gmail.com wrote: Please help me how can I stop perl emails stop perl emails? Taking a guess that you mean you want to unsubscribe from this mailing list, each post from the list contains the following header: List-Unsubscribe: mailto:beginners-unsubscr...@perl.org Drop a blank email to that email address, and it should do the trick. Cheers Dave P -- David Precious (bigpresh) dav...@preshweb.co.uk http://www.preshweb.co.uk/ www.preshweb.co.uk/twitter www.preshweb.co.uk/linkedinwww.preshweb.co.uk/facebook www.preshweb.co.uk/cpanwww.preshweb.co.uk/github -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
RE: Hi
Since you clearly don't know how mailing lists work I'm afraid that's not possible. -Original Message- From: bhanu chaitanya abbaraju [mailto:bhanu.cha...@gmail.com] Sent: Thursday, January 10, 2013 2:04 PM To: beginners@perl.org Subject: Hi Please help me how can I stop perl emails -- A.Bhanuchaitanya -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
RE: Hi
I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? -Original Message- From: klamerus [mailto:klame...@earthlink.net] Sent: Thursday, January 10, 2013 4:10 PM To: 'bhanu chaitanya abbaraju'; beginners@perl.org Subject: RE: Hi Since you clearly don't know how mailing lists work I'm afraid that's not possible. -Original Message- From: bhanu chaitanya abbaraju [mailto:bhanu.cha...@gmail.com] Sent: Thursday, January 10, 2013 2:04 PM To: beginners@perl.org Subject: Hi Please help me how can I stop perl emails -- A.Bhanuchaitanya -- 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/
Re: Hi
Lou - Klamerus' frustration is not completely unwarranted. I answered that question in my reply to the list - did you read it? If not, there are three steps to take - fewer if you are successful. 1. Start an email from the account with which you subscribed to the list. You MUST send your unsubscribe request from the email address by which list mail is being rec'd. 2. Send a simple blank email from the account mentioned in step #1 to beginners-unsubscr...@perl.org 3. If you are not unsubscribed, please add in your requests for further help (as simply saying it doesn't work does not help people troubleshoot, as we all know too well): a. the email - including headers - that you sent to beginners-unsubscr...@perl.org b. any replies you may have rec'd from the list server, especially if they contain denials or errors. There you go. I am, c., Kristin P. S. I take quite to heart the belittling attitude found on so many tech lists. Bad attitude doesn't work from either direction, and yes, delivery matters. This is supposed to be a cooperative educational community, is it not? Sure, we should all RTFM, but some of us who have been forced to learn-or-get-laid-off simply lack the formal training to know which term to use in our search, or even to know which PERLDOC to read, have been shamed into silence by cruel responses. I am far beyond that now, but I remember it well. Furthermore, this list contains quite a few for whom English is not a first language. I am grateful to everyone here for being on the list and helping those who come to it for assistance. We all get frustrated with simplistic or repetitive questions, and people who don't even try should be told to try first, but very little besides a bully's ego is helped by mean replies. No? Thanks again, all of you, really. On Jan 10, 2013, at 3:36 PM, Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? -Original Message- From: klamerus [mailto:klame...@earthlink.net] Sent: Thursday, January 10, 2013 4:10 PM To: 'bhanu chaitanya abbaraju'; beginners@perl.org Subject: RE: Hi Since you clearly don't know how mailing lists work I'm afraid that's not possible. -Original Message- From: bhanu chaitanya abbaraju [mailto:bhanu.cha...@gmail.com] Sent: Thursday, January 10, 2013 2:04 PM To: beginners@perl.org Subject: Hi Please help me how can I stop perl emails -- A.Bhanuchaitanya -- 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/ -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi
On Thu, 10 Jan 2013 18:36:07 -0500 Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? Send a email to: beginners-unsubscr...@perl.org You will get a confirmation reply. Press Reply and Send. You will get a final message saying good-bye. -- 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/
Re: Hi
于 2013-1-11 7:57, Shawn H Corey 写道: On Thu, 10 Jan 2013 18:36:07 -0500 Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? Send a email to: beginners-unsubscr...@perl.org You will get a confirmation reply. Press Reply and Send. You will get a final message saying good-bye. every replying messages have the foot info which includes the unsubscribing way: 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/
Re: Hi
On Fri, 11 Jan 2013 09:46:20 +0800 Feng He fen...@nsbeta.info wrote: 于 2013-1-11 7:57, Shawn H Corey 写道: On Thu, 10 Jan 2013 18:36:07 -0500 Lou Pereira louis.pere...@ptalc.com wrote: I beg to differ regarding your comment. I have been trying to be removed from this list for over a year to no avail. So, all knowledge one, how do we remove ourselves from this mail list? Send a email to: beginners-unsubscr...@perl.org You will get a confirmation reply. Press Reply and Send. You will get a final message saying good-bye. every replying messages have the foot info which includes the unsubscribing way: To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/ Yes but if you don't send the confirmation back, you don't get unsubscribed. -- 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/
Re: hi
There is a pm called Math::Combinatorics ( http://search.cpan.org/~allenday/Math-Combinatorics-0.09/lib/Math/Combinatorics.pm ) It is really helpful to get the combinations without repetition. Then you just need to process the results to get the output you need, I mean with the , and -. I hope this can help you. 2011/9/14 Brandon McCaig bamcc...@gmail.com On Wed, Sep 14, 2011 at 12:35 PM, Brandon McCaig bamcc...@gmail.com wrote: #/usr/bin/perl Silly me, I forgot the bang. --- a Wed Sep 14 12:38:40 2011 +++ b Wed Sep 14 12:38:46 2011 @@ -1,4 +1,4 @@ -#/usr/bin/perl +#!/usr/bin/perl use strict; use warnings; -- Brandon McCaig http://www.bamccaig.com/ bamcc...@gmail.com V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl. Castopulence Software http://www.castopulence.org/ bamcc...@castopulence.org -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: hi
On Tue, Sep 13, 2011 at 07:00:42AM -0700, pradeep wrote: Hi, I do have a doubt , Input: 1,2,3,4,5,6 output: 1-2,3-4,5-6 1-2,3-5,4-6 1-2,3-6,4-5 1-3,2-4,5-6 1-3,2-5,4-6 1-3,2-6,4-5 1-4,2-3,5-6 1-4,2-5,3-6 1-4,2-6,3-5 1-5,2-3,4-6 1-5,2-4,3-6 1-5,2-6,3-4 1-6,2-3,4-5 1-6,2-4,3-5 1-6,2-5,3-4 Can anyone help me in this Unlikely, unless you are a bit more specific about what you are trying to do. And even then, it's hard to help you to improve your code if you don't show 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/
Re: hi
On Tue, Sep 13, 2011 at 10:00 AM, pradeep epradeep.kumar1...@gmail.com wrote:
Can anyone help me in this
Of course we can!
#/usr/bin/perl
use strict;
use warnings;
my $input = ;
chomp $input;
if($input eq '1,2,3,4,5,6')
{
print 'EOF';
1-2,3-4,5-6
1-2,3-5,4-6
1-2,3-6,4-5
1-3,2-4,5-6
1-3,2-5,4-6
1-3,2-6,4-5
1-4,2-3,5-6
1-4,2-5,3-6
1-4,2-6,3-5
1-5,2-3,4-6
1-5,2-4,3-6
1-5,2-6,3-4
1-6,2-3,4-5
1-6,2-4,3-5
1-6,2-5,3-4
EOF
}
__END__
You're welcome. _
Regards,
--
Brandon McCaig http://www.bamccaig.com/ bamcc...@gmail.com
V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl.
Castopulence Software http://www.castopulence.org/ bamcc...@castopulence.org
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Re: hi
On Wed, Sep 14, 2011 at 12:35 PM, Brandon McCaig bamcc...@gmail.com wrote: #/usr/bin/perl Silly me, I forgot the bang. --- a Wed Sep 14 12:38:40 2011 +++ b Wed Sep 14 12:38:46 2011 @@ -1,4 +1,4 @@ -#/usr/bin/perl +#!/usr/bin/perl use strict; use warnings; -- Brandon McCaig http://www.bamccaig.com/ bamcc...@gmail.com V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl. Castopulence Software http://www.castopulence.org/ bamcc...@castopulence.org -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi all!
On Tuesday 30 Mar 2010 13:38:12 chew23 wrote: Hi all guys, I'm new to PERL, I'm now to the list. This is just for a presentation... Hi chew23! Welcome to the Perl world , Perl community and this list. You can find many resources and links to resources for Perl beginners on the Perl Beginners' Site: http://perl-begin.org/ I hope you're going to like Perl 5 and will use it for years to come. [P6] Just a note - it's either Perl or perl but never PERL: http://perl.org.il/misc.html#pl_vs_pl Regards, Shlomi Fish [P6] - Perl 6 is entirely different, and as good as it may eventually be, still does not have a production-ready implementation, nor does it intend to completely eliminate Perl 5. See you soon. chew23 -- - Shlomi Fish http://www.shlomifish.org/ Why I Love Perl - http://shlom.in/joy-of-perl Deletionists delete Wikipedia articles that they consider lame. Chuck Norris deletes deletionists whom he considers lame. 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/
Re: Hi all!
Welcome to the Perl world , Perl community and this list. You can find many resources and links to resources for Perl beginners on the Perl Beginners' Site: http://perl-begin.org/ Many thanks for this! I hope you're going to like Perl 5 and will use it for years to come. [P6] Just a note - it's either Perl or perl but never PERL: http://perl.org.il/misc.html#pl_vs_pl I apologize to the list, but I was not aware of this. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi all!
On Tue, 30 Mar 2010 18:20:02 +0200 chew23 johnvoo...@hotmail.it wrote: I hope you're going to like Perl 5 and will use it for years to come. [P6] Just a note - it's either Perl or perl but never PERL: http://perl.org.il/misc.html#pl_vs_pl I apologize to the list, but I was not aware of this. Few non-Perl mongers are. (It's just that some mongers get really antsy if you get it wrong.) FYI: Perl is used for the language and anything related to it. perl is the name of the program that runs Perl scripts. If in doubt, use Perl. Also, Perl mongers are advocates for Perl. See http://www.pm.org/ to find mongers near you. -- Just my 0.0002 million dollars worth, Shawn Programming is as much about organization and communication as it is about coding. I like Perl; it's the only language where you can bless your thingy. Eliminate software piracy: use only FLOSS. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: Hi all!
On Tuesday 30 Mar 2010 20:02:54 Shawn H Corey wrote: On Tue, 30 Mar 2010 18:20:02 +0200 chew23 johnvoo...@hotmail.it wrote: I hope you're going to like Perl 5 and will use it for years to come. [P6] Just a note - it's either Perl or perl but never PERL: http://perl.org.il/misc.html#pl_vs_pl I apologize to the list, but I was not aware of this. Few non-Perl mongers are. (It's just that some mongers get really antsy if you get it wrong.) Well, you can blame the ghosts of the ancient Greek for thinking that introducing two parallel sets of letters - the uppercase and the lowercase ones was a good idea. Some alphabets such as the Hebrew Alphabet or the Arabic Alphabet only have one set of letters, and they work fine. That put aside, I still try to write in proper-case English and prefer to read properly- capitalised English text, because I find it easier. FYI: Perl is used for the language and anything related to it. perl is the name of the program that runs Perl scripts. If in doubt, use Perl. My link explained that. Also, Perl mongers are advocates for Perl. See http://www.pm.org/ to find mongers near you. Another thing - the word monger. Compare: 1. Fish monger. 2. Perl monger. 3. Hate monger. In Hebrew 1 would be Mokher, 2 would be Shocher and 3 would be Mecharcher. If we called ourselves Mokhrey HaPerl or Mecharcherey HaPerl people will get the wrong idea. Regards, Shlomi Fish -- - Shlomi Fish http://www.shlomifish.org/ Stop Using MSIE - http://www.shlomifish.org/no-ie/ Deletionists delete Wikipedia articles that they consider lame. Chuck Norris deletes deletionists whom he considers lame. 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/
Re: HI
2009/9/30 Jyoti jcutiep...@gmail.com: Thanks for reply Rajiv. Will go through.Also can you explain me what this error means: Odd number of elements in anonymous hash at /usr/lib/cgi-bin/websubroutine.pl line 18. That may mean, you passed wrong arguments to the method in a class. The method expects a hash, should have even number of elements. line 18 is as follows: print $q-header(text/html), Maybe you got wrong in other location. This statement has no problem for me: # perl -MCGI -e '$q=CGI-new;print $q-header(text/html)' Content-Type: text/html; charset=ISO-8859-1 Jeff. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
Re: HI
Thanks Jeff On Wed, Sep 30, 2009 at 4:40 AM, Jeff Peng jeff.p...@freenet.de wrote: 2009/9/30 Jyoti jcutiep...@gmail.com: Thanks for reply Rajiv. Will go through.Also can you explain me what this error means: Odd number of elements in anonymous hash at /usr/lib/cgi-bin/websubroutine.pl line 18. That may mean, you passed wrong arguments to the method in a class. The method expects a hash, should have even number of elements. line 18 is as follows: print $q-header(text/html), Maybe you got wrong in other location. This statement has no problem for me: # perl -MCGI -e '$q=CGI-new;print $q-header(text/html)' Content-Type: text/html; charset=ISO-8859-1 Jeff.
Re: Hi
Hi, You may want Expect: http://search.cpan.org/~rgiersig/Expect-1.21/Expect.pod On Fri, Jul 10, 2009 at 3:00 PM, John Somozajohn.som...@gmail.com wrote: I have a general perl question. I'm on OSX running a program from the command line. That program asks a series of questions, which I interactively answer. I would like to use perl to run the program (this part is not the problem) and answer the questions (this is the part I need help with). I have seen this type of thing done with a shell script (I think you can use the ECHO command in the bourne shell) but how would I do this in perl? Thanks, John -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
RE: Hi all
From: Anusha Krishna chand I have to make my back button of the browser disable ... can any one help me in doing that using perl script... Thanks in advance Anusha Krishnachand The quickest way to do that in most browsers is right click on the toolbar, select customize and remove the button from the bar. If you mean disable it on browsers used to view your pages, you can't do that and shouldn't even try. That button is a basic feature of the browser and should always be available. I do know there is a javascript trick that works on some browsers, but I consider that a bug that should have been fixed long ago. I also file bug reports on any site that I notice interfering with the use of back and forward buttons. Another option is to add 'target=_blank' attribute to the anchor to open the page in a new tab or window. Bob McConnell -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi... Help regarding chdir
On Dec 19, 2007 2:05 PM, Tom Phoenix [EMAIL PROTECTED] wrote: On 12/19/07, Chas. Owens [EMAIL PROTECTED] wrote: On Dec 19, 2007 2:29 AM, Ravindra Ugaji [EMAIL PROTECTED] wrote: chdir ( '/opt/application') || die (Can't change directory: $!\n); tried this also chdir /opt/application || die Can't change directory: $!\n; In addition to what others have already said, never do the second*. The || operator has a higher precedence than function calls, so func string || die oops; is really saying func(string || die(oops)); Since string is truthy, the die will never occur. You have the right idea about functions in general; but chdir() is a named unary operator, so it has higher precedence than the || operator: chdir /any/wrong/path || die This will indeed die: $!; That means that the OP's code isn't so wrong as it may seem, even though there's surely a better way to write it. snip That is the reason I used func instead of chdir. The don't use || in that way, use or instead is more of a general warning not to use the construct (because it will bite you). -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi... Help regarding chdir
It should work unless the user you are using to run the script doesn't have the rights to chdir to that directory. Ravindra Ugaji wrote: Hi Monks, I am trying the following code to change the directory chdir ( '/opt/application') || die (Can't change directory: $!\n); tried this also chdir /opt/application || die Can't change directory: $!\n; But i am unable to change the directory to /opt/application from present working directory I am using perl 5.6.1 built for sun4-solaris-64int and it wont support File::chdir can any one suggest the alternative solution for this problem? :-) -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi... Help regarding chdir
On 12/18/07, Ravindra Ugaji [EMAIL PROTECTED] wrote: Hi Monks, The Perl Monks are two doors down, on the left. But maybe we can help you here. I am trying the following code to change the directory chdir ( '/opt/application') || die (Can't change directory: $!\n); But i am unable to change the directory to /opt/application from present working directory Do you get an error message? What does it say? If there is no error message, perhaps you mean that, after the program has finished running, you find that the shell is still using the original working directory. That's a feature of your operating system, not a bug. You can't change the working directory of another program without that program's knowledge and consent, else programs would unexpectedly find themselves working in the wrong directories and wreaking havoc. This is covered in the Unix FAQ, question 2.8, among other places; but the answer is about the same in principle on any other OS. http://www.faqs.org/faqs/unix-faq/faq/part2/ http://packetstormsecurity.org/unix-humor/awesome.unix.chdir.program.html Check the documentation for your shell program, too, because it may have a suggestion on how you can do what you want. Hope this helps! --Tom Phoenix Stonehenge Perl Training -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi... Help regarding chdir
On Dec 19, 2007 2:29 AM, Ravindra Ugaji [EMAIL PROTECTED] wrote: Hi Monks, I am trying the following code to change the directory chdir ( '/opt/application') || die (Can't change directory: $!\n); tried this also chdir /opt/application || die Can't change directory: $!\n; snip In addition to what others have already said, never do the second*. The || operator has a higher precedence than function calls, so func string || die oops; is really saying func(string || die(oops)); Since string is truthy, the die will never occur. If you want to avoid the use of parenthesis you can use the lower precedence or: func string or die oops; * unless, of course, it is what you really mean -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi... Help regarding chdir
On 12/19/07, Chas. Owens [EMAIL PROTECTED] wrote: On Dec 19, 2007 2:29 AM, Ravindra Ugaji [EMAIL PROTECTED] wrote: chdir ( '/opt/application') || die (Can't change directory: $!\n); tried this also chdir /opt/application || die Can't change directory: $!\n; In addition to what others have already said, never do the second*. The || operator has a higher precedence than function calls, so func string || die oops; is really saying func(string || die(oops)); Since string is truthy, the die will never occur. You have the right idea about functions in general; but chdir() is a named unary operator, so it has higher precedence than the || operator: chdir /any/wrong/path || die This will indeed die: $!; That means that the OP's code isn't so wrong as it may seem, even though there's surely a better way to write it. Cheers! --Tom Phoenix Stonehenge Perl Training -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi... Help regarding chdir
On Dec 19, 2:29 am, [EMAIL PROTECTED] (Ravindra Ugaji) wrote:
I am trying the following code to change the directory
chdir ( '/opt/application') || die (Can't change directory: $!\n);
tried this also
chdir /opt/application || die Can't change directory: $!\n;
But i am unable to change the directory to /opt/application from
present working directory
What is your indication of that? How do you know the directory has
not changed? Do you get an error message, and if so, what is it? Do
you have some code below this later that proves you're not in /opt/
application?
Or do you mean that when your program exits, you are back where you
started the program from? That is, you are in /home/jsmith, you run
this program, and when the program exits, you're still in /home/
jsmith. If that's the error you're talking about, please read:
perldoc -q directory
Found in /usr/lib/perl5/5.8/pods/perlfaq8.pod
I {changed directory, modified my environment} in a perl
script. How
come the change disappeared when I exited the script? How do I
get my
changes to be visible?
Paul Lalli
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Re: Hi ....
Welcome. But,would you maybe never send a test message to this list? It would trouble most of the people on this list. :) -Original Message- From: Chris E. Rempola [EMAIL PROTECTED] Sent: Mar 9, 2007 11:33 AM To: beginners@perl.org Subject: Hi Hi All: Just sending a test email to see if this works. I started reading the archives saw that this is a very friendly community. I'm a PERL beginner I've already learned some things reading the archives. Glad I found you guys! Thanks. -- http://home.arcor.de/jeffpang/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi ....
Chris E. Rempola wrote: Hi All: Hello, Just sending a test email to see if this works. I started reading the archives saw that this is a very friendly community. I'm a PERL http://perldoc.perl.org/perlfaq1.html#What's-the-difference-between-%22perl%22-and-%22Perl%22%3f :-) John -- Perl isn't a toolbox, but a small machine shop where you can special-order certain sorts of tools at low cost and in short order. -- Larry Wall -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi ....
-BEGIN PGP SIGNED MESSAGE- Hash: SHA1 (from the link) But never write PERL, because perl is not an acronym, apocryphal folklore and post-facto expansions notwithstanding. I always thought it was an acronym, for Pratical Extraction and Report Language. Is that untrue, just one of those post-facto expansions? On Mar 9, 2007, at 11:31 AM, John W. Krahn wrote: Chris E. Rempola wrote: Hi All: Hello, Just sending a test email to see if this works. I started reading the archives saw that this is a very friendly community. I'm a PERL http://perldoc.perl.org/perlfaq1.html#What's-the-difference-between- %22perl%22-and-%22Perl%22%3f :-) John -- Perl isn't a toolbox, but a small machine shop where you can special-order certain sorts of tools at low cost and in short order. -- Larry Wall -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ -BEGIN PGP SIGNATURE- Version: GnuPG v1.4.3 (Darwin) iD8DBQFF8cBvuT/QpFTX5YIRAm9pAKDFXOb/66EJQVCea/Fh7NhFELbFjACgq/IG ancDeR0+a7rXobtE3AApPz4= =Anpl -END PGP SIGNATURE- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi ....
Neal Clark wrote: I always thought it was an acronym, for Pratical Extraction and Report Language. Is that untrue, just one of those post-facto expansions? Indeed, just as Pathologically Eclectic Rubbish Lister. -- David Moreno Garza [EMAIL PROTECTED] | http://www.damog.net/ Si tienes quién te quiera, entonces eres millonario. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi,, Regarding perl modules
On 10 Jan 2007 09:21:55 -, Vikas Kumar Choudhary [EMAIL PROTECTED] wrote: Hi I am vikas here, just getting in perl.. can anybody told me to create modules and how to use these in our scripts.. $ perldoc perlmod should get you started. To use modules you've created, just put this at the top of your program. use yourMod; Thanks Vikas Kumar Choudhary Software Engineer Bangalore-50078 Mobile:- 91-9886793145 -- I'm nerdy in the extreme and whiter than sour cream -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
Re: Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.
From: ťÔ Íő [EMAIL PROTECTED]
my $text;
for my $left_index (1..WIDTH) {
last if $start_index $left_index;
$text .= $texts_arr[$start_index - $left_index] . ' ';
}
$text .= join( , @texts_arr[$start_index..$end_index]) . ' ';
for my $right_index (1..WIDTH) {
last if $end_index + $right_index $#texts_arr;
$text .= $texts_arr[$end_index + $right_index] . ' ';
}
$text_hash{$url} = $text;
As far as I can tell this could easily be rewriten with no loops. If
I understand it correctly you want to get all the texts from
$start_index-WIDTH to $end_index+WIDTH so something like:
my $left_index = $start_index - WIDTH;
$left_index = 0 if $left_index 0;
my $right_index = $end_index + WIDTH;
$right_index = $#texts_arr if $right_index $#texts_arr;
my $text = join( , @texts_arr[$left_index .. $right_index]);
should do what you are after. There are probable other things, but
this caught my eyes.
Jenda
= [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.
On Sunday 12 November 2006 13:17, 辉 王 wrote: I can make my program do its job at last, but it runs slowly. Can anybody tell me how to improve the running speed of this program? Thanks. Have you had a look with the Perl profiler to see which bits are going slow. That way you know to look at make them run faster. See perldoc Devel::DProf for more information. -- Robin [EMAIL PROTECTED] JabberID: [EMAIL PROTECTED] Hostes alienigeni me abduxerunt. Qui annus est? PGP Key 0xA99CEB6D = 5957 6D23 8B16 EFAB FEF8 7175 14D3 6485 A99C EB6D pgpIhJEoay9Ke.pgp Description: PGP signature
RE: Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.
Hui Wang mailto:[EMAIL PROTECTED] wrote: : Can anybody tell me how to improve the running speed of this : program? Thanks. I don't know if this is faster, but it is a more accurate solution. Your submitted code failed under some untested circumstances. I created another page similar to the CPAN page you used and fed it more complicated tests. Chakrabarti placed relevance on distance from the link. I changed your report to reflect this relevance. Instead of squashing all text together, it now shows a report of text token relevance. This change allowed me to test more thoroughly as well. Here is the sample report for one link with multiple texts inside the anchor. http://www.clarksonenergyhomes.com/scripts/index.html -5: 3401 MB 280 mirrors -4: 5501 authors 10789 modules -3: Welcome to CPAN! Here you will find All Things Perl. -2: Browsing -1: Perl modules 0: Perl 0: scripts +1: Perl binary distributions (ports) +2: Perl source code +3: Perl recent arrivals +4: recent +5: Perl modules You can find the modified code here (for a short time): Script: http://www.clarksonenergyhomes.com/chakrabarti.txt Module: http://www.clarksonenergyhomes.com/chakrabarti.pm HTH, Charles K. Clarkson -- Mobile Homes Specialist Free Market Advocate Web Programmer 254 968-8328 http://www.clarksonenergyhomes.com/ Don't tread on my bandwidth. Trim your posts. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Hi everyone, how to extract five texts on each side of an URI? I post my own perl script this time.
Hui Wang mailto:[EMAIL PROTECTED] wrote: : I can make my program do its job at last, but it runs : slowly. Can anybody tell me how to improve the running : speed of this program? You only provided the module. Can you supply a working example? Something we can actually run? HTH, Charles K. Clarkson -- Mobile Homes Specialist Free Market Advocate Web Programmer 254 968-8328 http://www.clarksonenergyhomes.com/ Don't tread on my bandwidth. Trim your posts. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi everyone, who can tell me how to extract five texts on each side of an URI? Thanks
Recently, when I want to implement Chakrabarti's algorithm using Perl, I found it difficult for me to extract five texts on each side of an URL. No one can give helps unless he also know this special algorithm. -- Books below translated by me to Chinese. Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/ Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi everyone, who can tell me how to extract five texts on each side of an URI? Thanks
On Thursday 09 November 2006 01:33, 辉 王 wrote: Hello, everyone, Recently, when I want to implement Chakrabarti's algorithm using Perl, I found it difficult for me to extract five texts on each side of an URL. I can make my program do its job at last, but it runs slowly. Can anybody tell me how to improve the running speed of this program? Thanks. Below is the Chakrabarti's article: http://www.cs.berkeley.edu/~soumen/doc/www2002m/p336-chakrabarti.pdf If you give an example input url, the desired output of that url, and your slow but working code people might be able to help you. -- Bjørge Solli - Office:+47 55205847 Mohn-Sverdrupsenteret, Nansensenteret, Høyteknologisenteret T47 Thormöhlensgate 47, 5006 Bergen, Norway - www.nersc.no Google Earth: www.nersc.no/GE - TOPAZ: topaz.nersc.no -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi, Everyone, I can't install perl modules correctly using CPAN, why?
On 11/3/06, Jeff Pang [EMAIL PROTECTED] wrote: Hi, everyone, When I want to install perl module WWW::Yahoo::KeywordExtractor in my Ubuntu damper 6.06 OS, it doesn't work properly. Looks like something with XML is wrong. Give a try to install XML::SAX::Expat and XML::Simple at first. Did you see this? Fatal error: Your default XML parser (XML::SAX::PurePerl) is broken. There are known bugs in the PurePerl parser included with version 0.13 and 0.14 of XML::SAX. The XML::Simple tests will fail with this parser. One way to avoid the problem is to install XML::SAX::Expat - it will install itself as the system default XML parser and then you will be able to install XML::Simple successfully. XML::SAX::Expat is also much faster than XML::SAX::PurePerl so you probably want it anyway. I'd install XML::SAX::Expat, then try again. Good luck! - Jen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi, Everyone, I can't install perl modules correctly using CPAN, why?
Hi, everyone, When I want to install perl module WWW::Yahoo::KeywordExtractor in my Ubuntu damper 6.06 OS, it doesn't work properly. Looks like something with XML is wrong. Give a try to install XML::SAX::Expat and XML::Simple at first. -- Books below translated by me to Chinese. Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/ Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi
--- Kaushal Shriyan [EMAIL PROTECTED] wrote: Hi All I am a novice to perl,I would like to learn perl in a systematic way, Whats the best way to start with,I dont have any experience of programming Language, But I came to know that perl is a Good Programming Language Try Learning Perl, Fourth Edition (Paperback) by Randal L. Schwartz, Tom Phoenix, brian d foy. Here's one of many links: http://www.amazon.com/gp/product/0596101058/sr=8-2/qid=1147704150/ref=pd_bbs_2/103-0184362-2216600?%5Fencoding=UTF8 Ron Smith Thanks Kaushal -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi
I am a novice to perl,I would like to learn perl in a systematic way, Whats the best way to start with,I dont have any experience of programming Language, But I came to know that perl is a Good Programming Language Whether or not you do choose to use a book or not, remember: always try doing some excersizes. You *cannot* just read, you have to try it firsthand. This is as simple as writing your first program that just prints out ``Hello World'' to testing out the ugliest regular expressions (you will eventually learn what these are). Remember, you are just learning, and so you are free to experiment. Good Luck! -- Leonid Grinberg [EMAIL PROTECTED] http://www.lgrinberg.org -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: hi,how to get the correct statistic
Joodhawk Lin wrote:
: hi all,
:
: i copy source from
:
http://www.planet-source-code.com/vb/scripts/ShowCodeAsText.asp?txtCodeId=48
1lngWId=6,
: the piece source aims to merges 2 or more text files into one more
: manageable file. and it also remove the duplicates and comments
: (start with #).
[snip]
:
: it is the incorrect result. as we excepted, such as in the
: a.txt, we know 2 duplicates apparently.
Not necessarily. One of the duplicate words in a.txt is
the last line of the file. Does that line end with a new
line character? Many text files do not. If it doesn't, this
script will chop() the 'c' of the end of the word which
will not match the previous line with a 'c' because on that
line the line ending was chopped off. ('c' != '')
Also, we cannot tell from your example that there is no
stray white space in the files. The dated code you are using
does not check for line endings (it uses chop()) and it does
not strip for white space characters. The very fact that you
didn't mention white space characters in your message leads me
to believe they may be there.
: how to correct it ?
Rewrite it.
The script was probably written as a utility for a very
short term solution and was unlikely meant to be publicly
used or traded. The author does not verify I/O operations,
uses chop() where chomp() is more appropriate, has no error
checking, is not using lexical variables, and seems a little
unorganized.
My advice would be to check your data files first to be
certain your perceived errors are real errors and to stay
away from this script if you are planning to put this into a
production environment. Write your own script which follows
more modern perl standards and checks for stray white space
characters and missing last line line endings.
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Re: hi please clarify my doubts
On 2/13/06, DEVARAJA AP [EMAIL PROTECTED] wrote:
i wrote a perlscript to generate a verilog code with instantiations .in
this
after instantiation, the ports getting as eg
module_name name(.a(a),.b(b),...)
but for connection sakeif want to connect a to some k and b to some
p (say).here we wanted to change those names manually. is ther any way
to do trhis automatically in the instantiation part of the perl script itself.
Almost certainly, what you want is possible. Perl is very versatile.
Unfortunately, I cannot understand what you are asking about. It may
help if you include the Perl code that you're talking about. If
another language is better for you than English, feel free to try that
one.
At a guess, maybe you want something like this code. Or maybe not...
if ($alternate_site) {
$port = 'k';
} else {
$port = 'a';
}
Good luck with it!
--Tom Phoenix
Stonehenge Perl Training
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Re: hi please clarify my doubts
Devaraja,
Is this a question about vperl?
You speak of generating verilog code. Is the instantiation you speak
of the instantiation of your block that is defined in verilog?
What do you mean by the instantiation part of the perl script?
--Marilyn
Tom Phoenix wrote On 02/14/06 09:49,:
On 2/13/06, DEVARAJA AP [EMAIL PROTECTED] wrote:
i wrote a perlscript to generate a verilog code with instantiations .in
this
after instantiation, the ports getting as eg
module_name name(.a(a),.b(b),...)
but for connection sakeif want to connect a to some k and b to some
p (say).here we wanted to change those names manually. is ther any way
to do trhis automatically in the instantiation part of the perl script itself.
Almost certainly, what you want is possible. Perl is very versatile.
Unfortunately, I cannot understand what you are asking about. It may
help if you include the Perl code that you're talking about. If
another language is better for you than English, feel free to try that
one.
At a guess, maybe you want something like this code. Or maybe not...
if ($alternate_site) {
$port = 'k';
} else {
$port = 'a';
}
Good luck with it!
--Tom Phoenix
Stonehenge Perl Training
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
Marilyn E. Sander[EMAIL PROTECTED]
Database (CM) Engineer Phone (408)616-5651
internal 45651
~
NOTICE: This email message is for the sole use of the intended
recipient(s) and may contain confidential and privileged
information. Any unauthorized review, use, disclosure or
distribution is prohibited. If you are not the intended recipient,
please contact the sender by reply email and destroy all copies
of the original message.
~
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi, strange problem on calculation
On Wed, 7 Dec 2005 [EMAIL PROTECTED] wrote:
Hi,
I don't know why the result of my calculation doesn't make sense!
foreach('0.43','-0.12','-0.08','-0.17','-0.06') {
$value = $value + ($_);
}
print $value . br;
Value = -2.77555756156289e-17
Should be 0.00
What is the difference between -2.77555756156289e-17 and 0.00?
It's all to do with the way numbers are represented in computers.
Do a perldoc -f sprintf and have a read.
Owen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi All
Randal L. Schwartz wrote: Hridyesh == Hridyesh Pant [EMAIL PROTECTED] writes: Hridyesh Check this site http://perldoc.perl.org/ Why refer someone to a website that replicates everything that is on their own disk anyway? It boggles my mind every time I see this! Because searching perldoc really, really sucks. The only search available is `perldoc -q keyword` and it only searches the FAQs and then, only their questions. That's right, only the questions; the answers are skipped! If you want to make perldoc useful, why don't you organize a project to go thru its PODs and add X... where appropriate? -- Just my 0.0002 million dollars worth, --- Shawn Probability is now one. Any problems that are left are your own. SS Heart of Gold, _The Hitchhiker's Guide to the Galaxy_ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi All
On Wed, 16 Nov 2005, Shawn Corey wrote: Date: Wed, 16 Nov 2005 08:34:16 -0500 From: Shawn Corey [EMAIL PROTECTED] To: beginners@perl.org Subject: Re: Hi All Randal L. Schwartz wrote: Hridyesh == Hridyesh Pant [EMAIL PROTECTED] writes: Hridyesh Check this site http://perldoc.perl.org/ Why refer someone to a website that replicates everything that is on their own disk anyway? It boggles my mind every time I see this! Because searching perldoc really, really sucks. The only search available is `perldoc -q keyword` and it only searches the FAQs and then, only their questions. That's right, only the questions; the answers are skipped! If you want to make perldoc useful, why don't you organize a project to go thru its PODs and add X... where appropriate? I agree. Perldoc is of little use to the beginning student of perl. It needs a function similar to man -k then it would be really useful. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Hi All
But why no one has done something to make Perldoc more helpful for all? Armando Gomez Guajardo Process Engineer Work Ph 956 547 6438 Beeper956 768 4070 -Original Message- From: Dennis G. Wicks [mailto:[EMAIL PROTECTED] Sent: Wednesday, November 16, 2005 8:05 AM To: beginners@perl.org Subject: Re: Hi All On Wed, 16 Nov 2005, Shawn Corey wrote: Date: Wed, 16 Nov 2005 08:34:16 -0500 From: Shawn Corey [EMAIL PROTECTED] To: beginners@perl.org Subject: Re: Hi All Randal L. Schwartz wrote: Hridyesh == Hridyesh Pant [EMAIL PROTECTED] writes: Hridyesh Check this site http://perldoc.perl.org/ Why refer someone to a website that replicates everything that is on their own disk anyway? It boggles my mind every time I see this! Because searching perldoc really, really sucks. The only search available is `perldoc -q keyword` and it only searches the FAQs and then, only their questions. That's right, only the questions; the answers are skipped! If you want to make perldoc useful, why don't you organize a project to go thru its PODs and add X... where appropriate? I agree. Perldoc is of little use to the beginning student of perl. It needs a function similar to man -k then it would be really useful. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi All
Shawn Corey wrote: ...searching perldoc really, really sucks. The only search available is `perldoc -q keyword` and it only searches the FAQs and then, only their questions. That's right, only the questions; the answers are skipped! Here's a 3-line shell script I use to grep through the core documentation. #!/bin/sh poddir=$(dirname $(perldoc -l perl)) grep -r $@ $poddir/*.pod Example (on FreeBSD 5.4): $ podgrep -iwl gethostbyname /usr/local/lib/perl5/5.8.7/pod/perlfaq9.pod /usr/local/lib/perl5/5.8.7/pod/perlfunc.pod /usr/local/lib/perl5/5.8.7/pod/perlipc.pod /usr/local/lib/perl5/5.8.7/pod/perlos390.pod /usr/local/lib/perl5/5.8.7/pod/perlport.pod /usr/local/lib/perl5/5.8.7/pod/perltoc.pod /usr/local/lib/perl5/5.8.7/pod/perltoot.pod /usr/local/lib/perl5/5.8.7/pod/perlvms.pod But I agree that a Google search like gethostbyname site:perldoc.perl.org is superior. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi All
On Wed, Nov 16, 2005 at 08:28:39AM -0600, Gomez, Juan wrote: But why no one has done something to make Perldoc more helpful for all? Who are you expecting to do that? Perl is developed by volunteers. And the number of active developers is vanishingly small compared to the number of people who use Perl every day. Volunteers generally work on what they find interesting or stimulating or challenging. This is not always the case of course, people have their own motives. Maybe you are sufficiently motivated to work on improving perldoc? It would appear that most people aren't. Since Perl is open source, you have the usual options if you want something done: 1. Do it yourself. 2. Get someone else to do it. 3. Wait. Often the best way to get someone else to do something for you is to pay them. Yes, this is all a little simplistic, but the principles hold. -- Paul Johnson - [EMAIL PROTECTED] http://www.pjcj.net -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi All
On Tue, 15 Nov 2005, Santosh Reddy wrote: This is my first mail to this mailing list. I am just starting to learn Perl. Please help me in getting the basics cleared. Here's some basics: http://learn.perl.org/ Here's another: This list responds best to direct questions about specific problems. If you want open-ended help with something that you haven't yet taken any time to research for yourself, stop right there, fire up your web browser (or get out your O'Reilly books), and spend some time studying up on the copious material that is already available for people that are just learning, as you are. Once you get your feet wet, and are working on specific tasks that you need help with, feel free to send specific questions -- along the lines of why doesn't this code work? or why doesn't this line do what I think it should or how can I complete the following subroutine? -- and we will be happy to help you out. But i you just want to open-endedly get the basics cleared, then this list is utterly the wrong place to ask. Start with a web search. Start with an excellent site like learn.perl.org. Start with some independent reading and practicing. And then come back to us once you're ready for the next step. -- Chris Devers ©957ðV Ó -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: hi
Please respond to the list. I'm not always available to answer questions. Now for your questions, loosely numbered: 1,3) You probably either included use strict or perhaps included some other code that used strict. That enforces the requirement to lexically scope your variables, among other things. 2) Lexically scoping your variables does not affect your ability to use your variables at all. It just means that they automatically get created at the 'my' statement and destroyed at the end of the code block. If you do need a variable to exist throughout the entire script, you can declare it at the top of your script or use 'our' instead of 'my'. And finally, the question you didn't ask, but I'll answer anyway. I would seriously recommend adding 'use strict' and 'use warnings' in all of your scripts. It can be a real pain at first when you're not used to using it, but it can save you a lot of time in the long run. Keep an eye on the list and you can get a lot of good examples. This question comes up a lot with people who are self-taught. I had to go back and learn to use strict after coding for about a year, and I really wish I had started sooner. A few examples of how adding 'use strict' can possibly save you time: 1. You're looping through an array, using a variable inside the loop. Something fails and the variable doesn't get updated. You don't realize until hours later that all of your output is worthless because half of the loops were just repeating the same value as the loop before it. By declaring the variable using 'my' inside the loop, you can avoid this because the variable will be automatically reinitialized each time. 2. You can't figure out why your program isn't generating the expected output. You spend an hour putting debug statements throughout your script, only to find that you misspelled the name of the variable in your print statement. Perl was happy to oblige you by creating a new, empty variable with that name and printing it for you. By adding 'use strict' to the top of your script, you can avoid this because Perl will complain about the variable not being declared. Check out 'perldoc strict' for more detailed info. -Original Message- From: ZHAO, BING [mailto:[EMAIL PROTECTED] Sent: Monday, October 10, 2005 4:20 PM To: Timothy Johnson Subject: Re: hi why do I need to specify $,%,@ using 'my', sometime I do need them to be global so that I can use their property, like scalar @shrimp to get a #, and I have beening programming for a while, and I seldom use my, and this is the 1st time unix has generated such kind of warning, why? thank you very much. bing -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: hi
You need to declare each variable (scalar, array, or hash) with my
before you use them. This lets Perl know what scope they should have.
Example:
my @shrimp;
foreach(@shrimp){
my $prawn = 1;
do something...
}
-Original Message-
From: ZHAO, BING [mailto:[EMAIL PROTECTED]
Sent: Monday, October 10, 2005 3:35 PM
To: Perl Beginners List
Subject: hi
Hi,
I am doing this simple enough script, but somehow it
generates error:
snip
Global symbol @shrimp requires explicit package name at
./pdbReadbrk2000.pl line 19.
syntax error at ./pdbReadbrk2000.pl line 21, near foreach @shrimp
Global symbol $to requires explicit package name at
./pdbReadbrk2000.pl line 21.
snip
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Re: hi
Bing == Bing Zhao [EMAIL PROTECTED] writes: Bing system \rm dali.lock; #ignore this part But I can't. Why do you want to run a program named CR-m? As in \x0Am. As in, return followed by m. That's what \rm means. -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 merlyn@stonehenge.com URL:http://www.stonehenge.com/merlyn/ Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: hi
ZHAO, BING mailto:[EMAIL PROTECTED] wrote:
: I am doing this simple enough script, but somehow
: it generates error:
:
: open COO, 1898.inf or die Cannot open file 1898.inf:$!;
: @shrimp=COO;
:
: foreach @shrimp{
: $squid=substr($_,0,4);
: $shark=$_..pdb;
:
: Global symbol @shrimp requires explicit package name at
: ./pdbReadbrk2000.pl line 19.
Declare your variables in the smallest scope possible.
Read http://perl.plover.com/FAQs/Namespaces.html
my @shrimp = COO;
Since you are probably finished with the file now, it is a
good time to close it.
my @shrimp = COO;
close COO;
Without knowing more about your data, I would probably chomp
the line endings too.
chomp( my @shrimp = COO );
close COO;
: syntax error at ./pdbReadbrk2000.pl line 21, near
: foreach @shrimp
The list or array goes in parenthesis.
foreach ( @shrimp ) {
Or, more likely:
foreach ( @shrimp ) {
my $squid = substr( $_, 0, 4 );
my $shark = $_.pdb;
: Global symbol $to requires explicit package name at
: ./pdbReadbrk2000.pl line 21.
This error did not originate from the given code. This happens
a lot when you are trying to debug and write a message at the same
time. Get a good programmer's editor. It will allow you to quickly
test code and cut and paste errors just before you post it to the
group.
Add the following to the top of your script. It will give you
more detailed error messages.
use diagnostics;
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Re: hi
Hi,
Can you post the whole script. Possibly you have declared 'use strict'
in your code or it has been set default.
The problem is that the compiler is demanding explicit declaration of
the variables that you have used.
declaring @shrimp as :
my @shrimp = COO;
and
foreach my $tuna (@shrimp)
{
squid=substr($tuna,0,4);
...and so on
}
will eliminate the error.
Regards,
Suvajit
ZHAO, BING wrote:
Hi,
I am doing this simple enough script, but somehow it
generates error:
open COO, 1898.inf or die Cannot open file 1898.inf:$!;
@shrimp=COO;
foreach @shrimp{
$squid=substr($_,0,4);
$shark=$_..pdb;
system \rm dali.lock; #ignore this part
system dalilite ~readbrk pdb1898/$shark $squid; #ignore this part
}
Global symbol @shrimp requires explicit package name at
./pdbReadbrk2000.pl line 19.
syntax error at ./pdbReadbrk2000.pl line 21, near foreach @shrimp
Global symbol $to requires explicit package name at
./pdbReadbrk2000.pl line 21.
thank you all, what did I do wrong?
best,
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
RE: hi
ZHAO, BING [EMAIL PROTECTED] asked:
How do you INPUT the output( of a file) to the
designated file? To be specific, if the file being output
generates a score/number which needs to be subsequently input
into another file, how to you set up the output and input?
Thannks a lot.
I'm not entirely sure I understood your question, but most
likely you're looking for a pipe open, i.e.
if( open( OUT, '|/some/command' ) ){
print OUT text is send to command;
} else {
die open failed: $!
}
This is a complicated subject that is best explained by the
perlipc and perlopen manual pages.
HTH,
Thomas
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Re: hi
On Sep 26, 2005, at 22:20, ZHAO, BING wrote: Hi, How do you INPUT the output( of a file) to the designated file? To be specific, if the file being output generates a score/number which needs to be subsequently input into another file, how to you set up the output and input? Let me try to reword it. Do you have a Perl script that prints something to stdout and you want to redirect that output to some archive on disk instead of the console? If that's a right interpretation, do you want to do it from within the script or from the shell prompt? -- fxn -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
postgresql questions, was Re: Hi
On Tue, 2 Aug 2005, Anish Kumar K wrote: I want to retreive from postgres database by removing the dos characters and the spaces from a perl file. It is like in the DB side there is and dos charcters in the table itself. So when I am doing a select query as it is checking in the table, the correct match is not obtained. I have TRIED after removing in the PERL side with substitution and all and confirmed this . Please give me some tips as what function I can use in the query to remove the space as well as DOS characters Show us your code. You have been on this list for quite a while by now. You should know that the best way to get help is to show what you've already attempted to do, and explain how it didn't do what you wanted. Also, please use descriptive subject lines. Hi is the same subject that a good fraction of the spam I get uses, and it does nothing to clarify what the problem at hand might be. Make it easy for people to help you, and you just might get the help you need. -- Chris Devers -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Hi
Anish Kumar K. wrote: Hi Welcome. I am Beginner in perl..Can any one sugges some sample programs of PERL where I can build the skills. Please let me know at the earliest. Thanks Start at http://learn.perl.org -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: hi!!
In a message dated 3/5/2004 6:11:53 PM Eastern Standard Time, [EMAIL PROTECTED] writes: i have downloaded cygwin and perl 5.0 comes along with it. How can i access perl from cygwin. My purpose is only to be able to write a script in perl and run it using cygwin. Can anyone help me with this.. regards aalok To be specific, I think perl 5.8.2 comes with cygwin :-) You access perl through cygwin like normal. Just run cygwin and run, 'perl /path/to/script.pl'. Or, if you put the path (#/usr/local/bin/perl on cygwin) you can run it as /path/to/script.pl (Remember though, if you're in the directory of the perl script, it isn't script.pl it is ./script.pl) If you have already been coding Perl on a Windows system (just assumed your on a Windows system because you got cygwin) it doesn't take too much getting use to since you've had to learn Perl for Unix and then figure out to exceptions for Windows. cygwin is a relief after you've been fumbling with mc and ActiveState. -will (the above message is double rot13 encoded for security reasons) Most Useful Perl Modules -strict -warnings -Devel::DProf -Benchmark -B::Deparse -Data::Dumper -Clone (a Godsend) -Perl::Tidy -Beautifier
Re: hi!!
This is off topic, but is cygwin just the ports of GNU software for windows, or is it an actual command line interface that simulates linux? Joel -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: hi..
Ajey Kulkarni wrote:
happy new year to all,..
i've a qn.,:)
i want to 'insert' an escape character for every '[' ']'
i will find in a variable..
Suppose $temp has a word which might contain [ and/or ].
Eg: if $temp has hello]
the modified temp should have hello\]
if $value has [hello] i want the result to be \[hello\].
Is there a quick one line regex to do this?
i'm able to match the presence of [ ]
if( (/\[/)|(/\]/) ){
my $value = $_;
$value =~ s/\[/\\\[/;
$value =~ s/\]/\\\]/;
print $value;
}
Kinda doing the stuff,but i just checkign out a 1 liner reg-ex.
Won't a two-liner do? You've already written it if so, except
that square brackets in the replacement string don't need
escaping; a one-liner is possible but much less efficient. Also
you don't need the 'if'. Does the code below help? I've also
changed the s/// delimiters to brackets to avoid the mess that
the slashes and backslashes make.
my $value = '[hello]';
for ($value) {
s(\[)(\\[)g;
s(\])(\\])g;
}
print $value, \n;
**OUTPUT
\[hello\]
Alternatively, if it's OK to escape all non-alphanumeric characters
then 'quotemeta' is what you want.
my $value = '[hello]';
$value = quotemeta $value;
print $value, \n;
**OUTPUT
\[hello\]
Cheers,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
RE: hi..
Ajey Kulkarni [EMAIL PROTECTED] wrote:
: Subject: hi..
sarcasm
Great subject. So much better than Need help with regex
or Need to escape []. Always keep us guessing.
/sarcasm
: i want to 'insert' an escape character for every '[' ']'
: i will find in a variable..
:
: Suppose $temp has a word which might contain [ and/or ].
: Eg: if $temp has hello]
: the modified temp should have hello\]
:
: if $value has [hello] i want the result to be \[hello\].
:
: Is there a quick one line regex to do this?
: i'm able to match the presence of [ ]
: if( (/\[/)|(/\]/) ){
: my $value = $_;
: $value =~ s/\[/\\\[/;
: $value =~ s/\]/\\\]/;
: print $value;
: }
A one-liner is not necessarily better. You might want
to test. The substitution operator has a pattern on the
left side and a replacement string on the other. According
to 'perlop' it takes this form:
s/PATTERN/REPLACEMENT/egimosx
Let's take a look at your phrase:
s/\[/\\\[/
The PATTERN is '\[' and the REPLACEMENT is \\\[. I
put the REPLACEMENT in double quotes because that is how
it is most commonly interpolated. To print '\[' we need
\\[ on the REPLACEMENT side.
The PATTERN side views '[', and ']' as special
characters. So we need to escape them or we need to use
some other means to describe them. To look for more than
one we can place them in a character class: [\[\]] or as
[\][] then capture the one we match: ([\][]).
s/([\][])/\\$1/
We could also avoid the character class and use:
s/(\]|\[)/\\$1/
To capture multiple instances in the line we add 'g'.
s/([\][])/\\$1/g
And to make it easier to read we add x:
$value =~
s/ # start substitution
( # capture match in $1
[\][] # character class for [ and ]
) # end capture
/\\$1/gx; # replace with \[ or \] globally
Having said all this. I would still prefer Rob's
solution with two separate regexes in a 'foreach'.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
RE: hi..
thanks Charles.I will give the ryt subject next time.
On Fri, 2 Jan 2004, Charles K. Clarkson wrote:
Ajey Kulkarni [EMAIL PROTECTED] wrote:
: Subject: hi..
sarcasm
Great subject. So much better than Need help with regex
or Need to escape []. Always keep us guessing.
/sarcasm
: i want to 'insert' an escape character for every '[' ']'
: i will find in a variable..
:
: Suppose $temp has a word which might contain [ and/or ].
: Eg: if $temp has hello]
: the modified temp should have hello\]
:
: if $value has [hello] i want the result to be \[hello\].
:
: Is there a quick one line regex to do this?
: i'm able to match the presence of [ ]
: if( (/\[/)|(/\]/) ){
: my $value = $_;
: $value =~ s/\[/\\\[/;
: $value =~ s/\]/\\\]/;
: print $value;
: }
A one-liner is not necessarily better. You might want
to test. The substitution operator has a pattern on the
left side and a replacement string on the other. According
to 'perlop' it takes this form:
s/PATTERN/REPLACEMENT/egimosx
Let's take a look at your phrase:
s/\[/\\\[/
The PATTERN is '\[' and the REPLACEMENT is \\\[. I
put the REPLACEMENT in double quotes because that is how
it is most commonly interpolated. To print '\[' we need
\\[ on the REPLACEMENT side.
The PATTERN side views '[', and ']' as special
characters. So we need to escape them or we need to use
some other means to describe them. To look for more than
one we can place them in a character class: [\[\]] or as
[\][] then capture the one we match: ([\][]).
s/([\][])/\\$1/
We could also avoid the character class and use:
s/(\]|\[)/\\$1/
To capture multiple instances in the line we add 'g'.
s/([\][])/\\$1/g
And to make it easier to read we add x:
$value =~
s/ # start substitution
( # capture match in $1
[\][] # character class for [ and ]
) # end capture
/\\$1/gx; # replace with \[ or \] globally
Having said all this. I would still prefer Rob's
solution with two separate regexes in a 'foreach'.
HTH,
Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi a question
Daniel, For only 4 variables, I thought it was overkill to have an ini file. However as I continue to mess around with my code, I'm adding more and more externalized variables. Use of an ini is becoming more appealing. Thanks for your thoughts! On Sun, 28 Dec 2003, Daniel Staal wrote: Personal opinion: A cfg file is much easier to update/maintain then environment variables, and a command line is easier to use for 'variable' setups. For a case like this I would probably want to use a combined commandline/config file setup. Luckily, that only requires *one* CPAN module: AppConfig. It will handle both, in either order. Daniel T. Staal -- Maranatha! John McKown -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi a question
On Dec 31, 2003, at 8:28 AM, John McKown wrote: For only 4 variables, I thought it was overkill to have an ini file. However as I continue to mess around with my code, I'm adding more and more externalized variables. Use of an ini is becoming more appealing. john, for what it is worth - cf: http://www.wetware.com/drieux/PR/blog2/Code/200312.html#id3155628391 in it I have references to two pieces of demonstration code that you might want to think about as tactics in this type of problem. ciao drieux --- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi a question
On Dec 26, 2003, at 9:37 AM, John McKown wrote: [..] E.g. export DIR1=... export DIR2=... export IPADDR=... export IPPORT=... perl-script.perl or perl-script.perl DIR1 DIR2 IPADDR IPPORT [..] Thanks for the seasonal ranting option: http://www.wetware.com/drieux/PR/blog2/Code/200312.html#id3155542177 I must confess that I find it rather ironic that you started with environmental variables rather than positional arguments. I would of course recommend that you start with perldoc Getopt::Long One of my more demented variants is up at: http://www.wetware.com/drieux/pbl/perlTrick/CommandLine/ do_get_opt_long.txt But what I think you will really want to get in touch with is the idea of a configuration file, either as a 'default preference' file, if this is really going to be an application layer programme - or in the more traditional set of issues related to writing daemons and configuration files for them. ciao drieux --- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi a question
--As off Friday, December 26, 2003 3:16 PM -0600, John McKown is alleged to have said: Actually, I considered an ini or cfg file, but rejected it. I was wanting something more standalone in this case. First, it seemed a bit much for only 4 parms. Second, I didn't want to maintain a separate file. Third, I didn't want to parse an ini file, although there is likely a CPAN module around to do that. And I already use LWP::UserAgent and HTTP::Request::Common, so requiring another CPAN modules is not really a big deal. I really appreciate CPAN! --As for the rest, it is mine. Personal opinion: A cfg file is much easier to update/maintain then environment variables, and a command line is easier to use for 'variable' setups. For a case like this I would probably want to use a combined commandline/config file setup. Luckily, that only requires *one* CPAN module: AppConfig. It will handle both, in either order. Daniel T. Staal --- This email copyright the author. Unless otherwise noted, you are expressly allowed to retransmit, quote, or otherwise use the contents for non-commercial purposes. This copyright will expire 5 years after the author's death, or in 30 years, whichever is longer, unless such a period is in excess of local copyright law. --- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Hi a question
hey !!! do you celebrate only perl even in the christmas vacation !!! Take a break !! Have a kit kat christmas cake. Merry Christmas to this perl group Rajeev -Original Message- From: John McKown [mailto:[EMAIL PROTECTED] Sent: Friday, December 26, 2003 11:08 PM To: Perl Beginners Mailing List Subject: Hi a question I'm new here and a very novice Perl coder. And I have a question, of course grin. Is it more Perl-like to get information from the shell via UNIX Environment Variables or via the command line? For an example, I have writing a Perl program which reacts to messages sent to it. It has four input parameters. The current program gets this information, which is two distinct subdirectories, a port number, and an IP address, via four different environment variables. My question is should I do it that way or should I pass this information in via the command line. E.g. export DIR1=... export DIR2=... export IPADDR=... export IPPORT=... perl-script.perl or perl-script.perl DIR1 DIR2 IPADDR IPPORT Although my current code uses the first way, I'm beginning to think that the second is preferrable because it would be more portable to non-UNIX environments. I hope everybody is having a good holiday. -- Maranatha! John McKown -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Hi a question
Why not just make DIR1, DIR2, IPADDR AND IPPORT global variables within the script, rather then requiring user to set env variables, which can become a pain in the ass. Your best bet would be to set them to some default variable, and then if the user needs to, she can override the default values by passing the new values as parameters. Hope that helps. Steven Kreuzer Linux Systems Administrator Etagon, Inc W: 646.728.0656 F: 646.728.0607 E: [EMAIL PROTECTED] -Original Message- From: John McKown [mailto:[EMAIL PROTECTED] Sent: Friday, December 26, 2003 12:38 PM To: Perl Beginners Mailing List Subject: Hi a question I'm new here and a very novice Perl coder. And I have a question, of course grin. Is it more Perl-like to get information from the shell via UNIX Environment Variables or via the command line? For an example, I have writing a Perl program which reacts to messages sent to it. It has four input parameters. The current program gets this information, which is two distinct subdirectories, a port number, and an IP address, via four different environment variables. My question is should I do it that way or should I pass this information in via the command line. E.g. export DIR1=... export DIR2=... export IPADDR=... export IPPORT=... perl-script.perl or perl-script.perl DIR1 DIR2 IPADDR IPPORT Although my current code uses the first way, I'm beginning to think that the second is preferrable because it would be more portable to non-UNIX environments. I hope everybody is having a good holiday. -- Maranatha! John McKown -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Hi a question
I'm not a 'perl' pro, but I am a pro at using different shells, programs and so on in different environments. It depends on the environment in which you're running. For example, running on some type of *NIX at a command line, you might very well want command line options so that people and scripts can easily change the arguments (it is a pain to change environment variables ... more typing and saving and exporting and what not). However, if your perl script is called from other perl scripts (since people aren't typing it), you may want to change the environment. Of course, you may want to hide the arguments, in which case, variables in a file readable by the script would be the choice, so that no one could see the arguments (*NIX ps -elf) or the environment (*NIX ps axe). IMHO, it really depends on what the best use is ... how much a pain ... what's the protection ... do different people need different environments but NEVER change it once they have that environment (the case for Environment variables) ... etc. I don't run much under M$ Windows, but that may very well point you in a particular direction, based on what's easily available. Bruce T. Harvey Legg Mason Wood Walker, Inc. Corporate Technology - UNIX Admin. Red Run 2nd Floor - Owings Mills, MD (410) 580-7383 - [EMAIL PROTECTED] --- -Original Message- From: John McKown [mailto:[EMAIL PROTECTED] Sent: Friday, December 26, 2003 12:38 PM To: Perl Beginners Mailing List Subject: Hi a question I'm new here and a very novice Perl coder. And I have a question, of course grin. Is it more Perl-like to get information from the shell via UNIX Environment Variables or via the command line? For an example, I have writing a Perl program which reacts to messages sent to it. It has four input parameters. The current program gets this information, which is two distinct subdirectories, a port number, and an IP address, via four different environment variables. My question is should I do it that way or should I pass this information in via the command line. E.g. export DIR1=... export DIR2=... export IPADDR=... export IPPORT=... perl-script.perl or perl-script.perl DIR1 DIR2 IPADDR IPPORT Although my current code uses the first way, I'm beginning to think that the second is preferrable because it would be more portable to non-UNIX environments. I hope everybody is having a good holiday. -- Maranatha! John McKown IMPORTANT: The security of electronic mail sent through the Internet is not guaranteed. Legg Mason therefore recommends that you do not send confidential information to us via electronic mail, including social security numbers, account numbers, and personal identification numbers. Delivery, and timely delivery, of electronic mail is also not guaranteed. Legg Mason therefore recommends that you do not send time-sensitive or action-oriented messages to us via electronic mail, including authorization to buy or sell a security or instructions to conduct any other financial transaction. Such requests, orders or instructions will not be processed until Legg Mason can confirm your instructions or obtain appropriate written documentation where necessary. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi a question
Pandey Rajeev-A19514 wrote: hey !!! do you celebrate only perl even in the christmas vacation !!! Take a break !! Have a kit kat christmas cake. Merry Christmas to this perl group Rajeev I might remind you--not everyone even celbrates that particular holiday. I join my family in the celebration, and finds that it works fine that way as a celebration of the solstice. I cetainly don't feel, though, that I have to stop creative engagements, to celbrate a holiday. Joseph -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi a question
John McKown wrote: I'm new here and a very novice Perl coder. And I have a question, of course grin. Is it more Perl-like to get information from the shell via UNIX Environment Variables or via the command line? For an example, I have writing a Perl program which reacts to messages sent to it. It has four input parameters. The current program gets this information, which is two distinct subdirectories, a port number, and an IP address, via four different environment variables. My question is should I do it that way or should I pass this information in via the command line. E.g. export DIR1=... export DIR2=... export IPADDR=... export IPPORT=... perl-script.perl or perl-script.perl DIR1 DIR2 IPADDR IPPORT Although my current code uses the first way, I'm beginning to think that the second is preferrable because it would be more portable to non-UNIX environments. I hope everybody is having a good holiday. -- Maranatha! John McKown Hi John, I'd suggest that both approaches can be somewhat lacking in portability. The command line is something of a kludge, IMHO, as it still depends largely on users typing in the correct parameters. I think ini files would be portable across a much wider variety of systems. Just write the ini file per installation configuration. Joseph -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Re: Hi a question
On Fri, 26 Dec 2003, R. Joseph Newton wrote: Hi John, I'd suggest that both approaches can be somewhat lacking in portability. The command line is something of a kludge, IMHO, as it still depends largely on users typing in the correct parameters. I think ini files would be portable across a much wider variety of systems. Just write the ini file per installation configuration. Joseph Actually, I considered an ini or cfg file, but rejected it. I was wanting something more standalone in this case. First, it seemed a bit much for only 4 parms. Second, I didn't want to maintain a separate file. Third, I didn't want to parse an ini file, although there is likely a CPAN module around to do that. And I already use LWP::UserAgent and HTTP::Request::Common, so requiring another CPAN modules is not really a big deal. I really appreciate CPAN! -- Maranatha! John McKown -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Hi
am having a problem with my perl scripts in that the news items are not being displayed when i execute the wed pages on Where do these news items come from? which perl is expected to display the news titles. i have How does perl get the news titles and how are you having it display them? checked the path were perl is being executed from (checked both in the Apache httpd.conf file and in the scripts) as shown below. am using windows advanced server active perl 5.6 apache1.3 #!d:/intranet/usr/local/perl/bin/perl # Define Variables require config.cgi; require np-lib.cgi; ## # # # DO NOT EDIT BELOW THIS LINE # # # ## This doen't tell us anything really, how is it getting the data and what is it you're trying to get it to do with thte data and how are oyu trying to do it? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: Hi
Gayatri wrote: Thanks I got a solution. Please reply in the original thread that you started. I was doing a silly mistake. chdir I was executing thro' system command like cd. When you do that system creates a new process and any changes you make in that process do not affect your currently running program. John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: hi, this is just a test
hi everybody, Howdy! I'm new to the list. I'm testing now. Cool, welcome. have fun! We will, you too. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: Hi guys! How do I export a bash variable into bash environment?
On Wed, 12 Feb 2003 13:08:41 -0600, Chris Ward [EMAIL PROTECTED] wrote:
Very simple i would think, like system('export
CVSROOT=/path/to/repository') Or so i would I guess; what i just wrote does
not work for me.
I'm needing this for a CVS repository selection script. Does this make sense?
All of the repositories are on a single server. Here's my logic.
# Open the CVS root directory (Where all the repositories will be stored
under) and show a menu to the user of all repositories available.
# Give user a choice of each directory (repository) to select as their own
CVSROOT
# Export that path to bash environmental variable CVSROOT
Cool? Probably not, but i'd still like to know how to export a variable in
bash through perl. I've tried a few things like creating a bash script *.sh
and the sourcing it through system('source whatever.sh'), but it always
claims that source isn't a correct command. Cool?
This has been asked before and I am not sure a good answer was ever found. Just a
couple of thoughts, exporting the variable in one 'system' call and then doing another
'system' call does the system calls in two different instances of the shell (which may
or may not be bash) in which case it is not visible from one session to the next.
'source' is a builtin in the shell, and may or may not be available in the shell that
'system' uses, for instance Perl I believe will default to /bin/sh which may or may
not be bash on your particular OS, or even on your particular instance of that OS (say
if you setup a symbolic link from /bin/sh to /usr/local/bin/bash, though don't do that
unless you know what you are doing) and may or may not implement 'source'.
So where does that leave you? I suppose trying something like this (which I suggested
before but never heard back on):
system('export CVSROOT=/path/to/cvsroot; /bin/othercommands');
However if you want to just have a script that sets these types of things, you are
probably better left at using plain old shell script rather than using the overhead of
Perl to do non-Perl stuff.
Make sense anyone?
http://danconia.org
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Hi guys! How do I export a bash variable into bash environmen t?
Chris Ward wrote:
Very simple i would think, like system('export
CVSROOT=/path/to/repository') Or so i would I guess; what i just
wrote does not work for me.
I'm needing this for a CVS repository selection script. Does this
make sense? All of the repositories are on a single server. Here's my
logic.
# Open the CVS root directory (Where all the repositories will be
stored under) and show a menu to the user of all repositories
available. # Give user a choice of each directory (repository) to
select as their own CVSROOT
# Export that path to bash environmental variable CVSROOT
I'm not a CVS expert, but I don't think CVSROOT works that way.
Cool? Probably not, but i'd still like to know how to export a
variable in bash through perl. I've tried a few things like creating
a bash script *.sh and the sourcing it through system('source
whatever.sh'), but it always claims that source isn't a correct
command. Cool?
source is a csh thing. For Bourne-type shells you use a dot:
. whatever.sh
There's really no way to set the environment of the parent process from the
child. You can do something cutesy like the following:
File: menu
--
perl menu.pl . /tmp/menu.out
File: menu.pl
-
#!/usr/bin/perl
...code to figure out cvs root...
open TEMP /tmp/menu.out or die $!
print TEMP CVSROOT=$cvsroot; export CVSROOT\n;
close TEMP
Now you can call your menu as:
. menu
If you don't use the dot it won't work. You could use an alias.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Hi all, question about caracter detection
Hi All,
thankx for the help (Sudarshan Raghavan and Beau E.
Cox), i have found a generic solution
here is the sample script...
#
#!/usr/bin/perl -wT
##
# modules
##
use strict ;
##
# Global Variables
##
#
# will recive a string are check agains a list of
allowed values
# Will return : 0 if only allowed chars were found
# 1 if at least one invalid char is
found
sub check_string {
unless ( $_[0] =~ m/[^a-zA-Z0-9]/ ) {
return 0;
}
return 1;
}
##
# Main
##
my $STRING = askdnj\nasj;
print \n(0 is ok, 1 means invalid chars) : ;
print check_string($STRING);
print \n;
###
Stay well all
Miguel Angelo
--- Sudarshan Raghavan [EMAIL PROTECTED] wrote:
On Mon, 18 Nov 2002, Beau E. Cox wrote:
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative,
I guess you meant ^, not ~
the s makes
the regex examine new lines, and g means global.
You need an /s when you want . to match newlines
(which it
normally doesn't). In this case since you are not
using a
.., /s is not needed.
$STRING =~ s/[^a-zA-Z0-9]//g;
The above will work just fine
You can also use tr/// for this
$STRING =~ tr/a-zA-Z0-9//cd;
If the OP just wants to check not replace either of
these should
do
unless ($STRING =~ m/[^a-zA-Z0-9]/) {
# Valid STRING
}
or
unless ($STRING =~ tr/a-zA-Z0-9//c) {
# Valid STRING
}
--
To unsubscribe, e-mail:
[EMAIL PROTECTED]
For additional commands, e-mail:
[EMAIL PROTECTED]
=
*
* Miguel Angelo *
* E-mail: [EMAIL PROTECTED] *
* Domain: http://migas.mine.nu *
*
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: Hi all, question about caracter detection
You could also use
return $_[0] !~ m/[^a-zA-Z0-9]/;
or
return $_[0] =~ m/^[a-zA-Z0-9]+\Z/;
the last one is clearer to me because you eliminate all of the negatives.
- Original Message -
From: Miguel Angelo [EMAIL PROTECTED]
To: Perl beginners [EMAIL PROTECTED]
Sent: Friday, November 22, 2002 3:34 PM
Subject: RE: Hi all, question about caracter detection
Hi All,
thankx for the help (Sudarshan Raghavan and Beau E.
Cox), i have found a generic solution
here is the sample script...
#
#!/usr/bin/perl -wT
##
# modules
##
use strict ;
##
# Global Variables
##
#
# will recive a string are check agains a list of
allowed values
# Will return : 0 if only allowed chars were found
# 1 if at least one invalid char is
found
sub check_string {
unless ( $_[0] =~ m/[^a-zA-Z0-9]/ ) {
return 0;
}
return 1;
}
##
# Main
##
my $STRING = askdnj\nasj;
print \n(0 is ok, 1 means invalid chars) : ;
print check_string($STRING);
print \n;
###
Stay well all
Miguel Angelo
--- Sudarshan Raghavan [EMAIL PROTECTED] wrote:
On Mon, 18 Nov 2002, Beau E. Cox wrote:
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative,
I guess you meant ^, not ~
the s makes
the regex examine new lines, and g means global.
You need an /s when you want . to match newlines
(which it
normally doesn't). In this case since you are not
using a
.., /s is not needed.
$STRING =~ s/[^a-zA-Z0-9]//g;
The above will work just fine
You can also use tr/// for this
$STRING =~ tr/a-zA-Z0-9//cd;
If the OP just wants to check not replace either of
these should
do
unless ($STRING =~ m/[^a-zA-Z0-9]/) {
# Valid STRING
}
or
unless ($STRING =~ tr/a-zA-Z0-9//c) {
# Valid STRING
}
--
To unsubscribe, e-mail:
[EMAIL PROTECTED]
For additional commands, e-mail:
[EMAIL PROTECTED]
=
*
* Miguel Angelo *
* E-mail: [EMAIL PROTECTED] *
* Domain: http://migas.mine.nu *
*
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Hi all, question about caracter detection
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative, the s makes
the regex examine new lines, and g means global.
Aloha - Beau.
-Original Message-
From: Miguel Angelo [mailto:[EMAIL PROTECTED]]
Sent: Monday, November 18, 2002 2:31 AM
To: [EMAIL PROTECTED]
Subject: Hi all, question about caracter detection
Hi All,
Thankx for reading this.
I have a very newbie question...
i'm working on a CGI and i want only to permit some
caracters by the user...
imagine
my $STRING = kjsh234Sd\nki;
# now i want to check if there is any invalid caracter
# in this case a-z ; A-Z and 0-9
there for /[a-zA-Z0-9]/ but i am unable to find a
valid command for that, the \n always passes, i
definity do not want to use execption on what o do not
allow, i want only to allow some caracters
invalidating all others...
here what i have tried
if ( $STRING =~ /[a-zA-Z0-9]/ ) { etc }
my $count = ( $STRING =~ tr /a-zA-Z0-9// );
all failed...
please help me :)
=
*
* Miguel Angelo *
* E-mail: [EMAIL PROTECTED] *
* Domain: http://migas.mine.nu *
*
__
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Hi all, question about caracter detection
On Mon, 18 Nov 2002, Beau E. Cox wrote:
Hi -
This will 'strip' all but a-zA-Z0-9:
#!/usr/bin/perl
use strict;
use warnings;
my $STRING = kjsh234Sd\nki;
$STRING =~ s/[^a-zA-Z0-9]//sg;
print $STRING\n;
the ~ makes the character class negative,
I guess you meant ^, not ~
the s makes
the regex examine new lines, and g means global.
You need an /s when you want . to match newlines (which it
normally doesn't). In this case since you are not using a
.., /s is not needed.
$STRING =~ s/[^a-zA-Z0-9]//g;
The above will work just fine
You can also use tr/// for this
$STRING =~ tr/a-zA-Z0-9//cd;
If the OP just wants to check not replace either of these should
do
unless ($STRING =~ m/[^a-zA-Z0-9]/) {
# Valid STRING
}
or
unless ($STRING =~ tr/a-zA-Z0-9//c) {
# Valid STRING
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: hi,everyone,help me
-Original Message-
From: alex chen [mailto:cg;gddc.com.cn]
Sent: Sunday, November 03, 2002 6:05 AM
To: [EMAIL PROTECTED]
Subject: hi,everyone,help me
hi,all!
today,i have write such a program
#!usr/local/bin/perl5.6.1
#middle machine version 1.0
use IO::Socket;
$SIG{CHLD} = sub {wait()};
$main_sock = new IO::Socket::INET(LocalHost ='192.168.1.2',
LocalPort = 34561,
Listen= 5,
Proto = 'tcp',
Reuse = 1,
);
die main Socket could not be created.Reason: $!\n unless
($main_sock);
while ($new_sock = $main_sock-accept()){
$pid = fork();
die Cannot fork : $! unless defined ($pid);
if ($pid ==0){
while (defined ($buf = $new_sock)){
print $buf;
send_message();}
exit(0);
}
}
close ($main_sock);
sub send_message{
$send_sock = new IO::Socket::INET(PeerAddr ='192.168.1.3',
PeerPort =34562,
Proto='tcp'
);
die Socket Could not be created.Reason:$!\n unless $send_sock;
print $send_sock $buf;
$send_sock -flush();
close ($send_sock);
}
the problem is the socket $send_sock could not establish with the host
192.168.1.3 while i run this program
the hos 192.168.1.3 just a simple program to recieve the
message from this
program.
how to resolve this problem,please help me ,thanks!!! :-)
You bind the server socket $to 192.168.1.2, but your client attempts to
connect to 192.168.1.3
Does the server have two interfaces or is 192.168.1.2 the client's IP? If
the former, then change your client to connect to 1.2. If the latter, change
your server to bind to 1.3 (or leave off LocalHost altogether, to bind to
all interfaces).
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: HI Can u help me
On Sun, 6 Oct 2002 14:18:53 -0300, [EMAIL PROTECTED] ([EMAIL PROTECTED]) wrote: Hello Is there a function to test if a given.jpg file is a valid jpg file? thanks You can use the ping method of Image:Majick and test whether it gives an error. ## #!/usr/bin/perl -w use Image::Magick; my $x = $ARGV[0]; my $image; $image = Image::Magick-new; ($width, $height, $size, $format) = $image-Ping($x); print $width,\n, $height,\n ,$size,\n, $format,\n; # -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: HI Can u help me
[EMAIL PROTECTED] wrote:
Hello Is there a function to test if a given.jpg file is a valid jpg file?
thanks
if you don't want to install/load another module, try:
#!/usr/bin/perl -w
use strict;
if(is_jpeg('your file')){
print it's a valie jpeg\n;
}else{
print doesn't look like a jpeg\n;
}
sub is_jpeg{
my $jpeg_file = shift;
my $id = undef;
open(JPEG,$jpeg_file) || croak(Unable to open $jpeg_file: $!);
sysread(JPEG,$id,6);
sysread(JPEG,$id,5);
my($j,$p,$e,$g,$z) = unpack(C,$id);
close(JPEG);
return $j == 74 $p == 70 $e == 73 $g == 70 $z == 0;
}
__END__
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
RE: Hi
declare %flavors, ie my %flavors. this is what use strict is for. read up
on scoping
-Original Message-
From: Mark Schouten [mailto:[EMAIL PROTECTED]]
Sent: Thursday, September 26, 2002 11:47 AM
To: [EMAIL PROTECTED]
Subject: Hi
Hi,
I'm a complete newbie, so have some patience. :)
Im walking through the book 'Learning Perl' by O'Reilly and
I'm allready
in a small problem.
I'm trying to compile the following:
#!/usr/bin/perl -w
## cgi-bin/ice_cream: program to answer and generate ice cream
## order form (version 4)
use strict; # enforce variable declarations and quoting
use CGI qw(:standard);
print header, start_html(Ice Cream Stand), h1(Ice Cream Stand);
if (param()) { # the form has already been filled out
my $who = param(name);
my $flavor = param(flavor);
my $scoops = param(scoops);
my $taxrate = 1.0743;
my $cost = sprintf(%.2f, $taxrate * (1.00 + $scoops * 0.25));
print p(Ok, $who, have $scoops scoops of $flavor for \$$cost.);
} else { # first time through, so present clean form
print hr(); # draw a horizontal rule before the form
print start_form();
print p(What's your name? , textfield(name));
# FOR EXPLANATION OF FOLLOWING TWO LINES, SEE NEXT SECTION
print p(What flavor: , popup_menu(flavor,
['mint','cherry','mocha']));
print p(How many scoops? , popup_menu(scoops, [ 1..3 ]));
##Problem started here
%flavors = (
mint= Mighty Mint,
chocolate = Cherished Chocolate,
cherry = Cheery Cherry,
vanilla = Very Vanilla,
peach = Perfectly Peachy,
);
print scrolling_list(
-NAME = flavors,
-LABELS = \%flavors,
-VALUES = [ keys %flavors ],
-SIZE = 3,
-MULTIPLE = 0, # 1 for true, 0 for false
);
##End of problem
print p(submit(order), reset(clear));
print end_form(), hr();
}
print end_html;
(Indeed, it is the example program. :))
It all worked fine untill I pasted the ## Problem part ##. In
my logs I
see the following message:
Global symbol %flavors requires explicit package name at
dhcptest.cgi
line 22.
Global symbol %flavors requires explicit package name at
dhcptest.cgi
line 31.
Global symbol %flavors requires explicit package name at
dhcptest.cgi
line 32.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
