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

[Gautam Desai]

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

[Jim Gibson]

> 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

[Olivier]

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

[Jim Gibson]

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

[Mike]

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

[Jim Gibson]

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/

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

[Gautam Desai]

Do you guys have any pointers ?

Thanks

Gautam S Desai

kidsforchess.org

https://www.facebook.com/kidsforchess.suwanee.9

https://www.21stcenturyleaders.org/youth-ambassador-starts-nonprofit-donates-to-21cl/

RE: Hi

[Lou Pereira]

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; 
Subject: Re: Hi



Regards... /omps

On 14-Jan-2013, at 11:12 PM, "Lou Pereira"  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: 
> 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" 
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" 
> 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-
>>

Re: Hi

[Bill Stephenson]

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

[Torqued]

Regards... /omps

On 14-Jan-2013, at 11:12 PM, "Lou Pereira"  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: 
> 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"  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" 
> 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'

RE: Hi

[Lou Pereira]

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

Re: Hi

[Kristin Nielsen]

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"  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"  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

[Hal Wigoda]

--
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  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"  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

[Lou Pereira]

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"  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

[Shawn H Corey]

On Fri, 11 Jan 2013 09:46:20 +0800
Feng He  wrote:

> 于 2013-1-11 7:57, Shawn H Corey 写道:
> > On Thu, 10 Jan 2013 18:36:07 -0500
> > "Lou Pereira"  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

[Feng He]

于 2013-1-11 7:57, Shawn H Corey 写道:

On Thu, 10 Jan 2013 18:36:07 -0500
"Lou Pereira"  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/

Fwd: Hi

[Andy Bach]

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.

Sometimes the address can be tricky - the FAQ
http://learn.perl.org/faq/beginners.html
says:
Send mail to , and wait for a response.
Once you reply to the response, you'll be unsubscribed. If that doesn't
work, find the email address which you are subscribed from and send an
email like the following (let's assume your email is f...@bar.com):




-- 

a

Andy Bach,
afb...@gmail.com
608 658-1890 cell
608 261-5738 wk



-- 

a

Andy Bach,
afb...@gmail.com
608 658-1890 cell
608 261-5738 wk

Re: Hi

[Shawn H Corey]

On Thu, 10 Jan 2013 18:36:07 -0500
"Lou Pereira"  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

[Kristin Nielsen]

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"  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

[Lou Pereira]

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

[klamerus]

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

[David Precious]

On Fri, 11 Jan 2013 00:34:14 +0530
bhanu chaitanya abbaraju  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: 

Drop a blank email to that email address, and it should do the trick.

Cheers

Dave P


-- 
David Precious ("bigpresh") 
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/

Hi

[bhanu chaitanya abbaraju]

Please help me how can I stop perl emails

-- 
A.Bhanuchaitanya

Re: hi

[Francisco Rivas]

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 

> On Wed, Sep 14, 2011 at 12:35 PM, Brandon McCaig 
> 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  
> V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl.
> Castopulence Software  <
> 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

[Brandon McCaig]

On Wed, Sep 14, 2011 at 12:35 PM, Brandon McCaig  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  
V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl.
Castopulence Software  

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: hi

[Brandon McCaig]

On Tue, Sep 13, 2011 at 10:00 AM, pradeep  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  
V zrna gur orfg jvgu jung V fnl. Vg qbrfa'g nyjnlf fbhaq gung jnl.
Castopulence Software  

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: hi

[Paul Johnson]

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/

hi

[pradeep]

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


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Re: Hi all!

[Shlomi Fish]

On Tuesday 30 Mar 2010 20:02:54 Shawn H Corey wrote:
> On Tue, 30 Mar 2010 18:20:02 +0200
> 
> chew23  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 all!

[Shawn H Corey]

On Tue, 30 Mar 2010 18:20:02 +0200
chew23  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!

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


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!

[Shlomi Fish]

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/

Hi all!

[chew23]

Hi all guys,
 I'm new to PERL, I'm now to the list.

This is just for a presentation...

See you soon.
chew23


--
go ahead... be a heretic!

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

+Hi+

[garrett esperum]

---
  
_
Hotmail: Trusted email with powerful SPAM protection.
http://clk.atdmt.com/GBL/go/210850553/direct/01/

Re: HI

[Jyoti]

Thanks Jeff

On Wed, Sep 30, 2009 at 4:40 AM, Jeff Peng  wrote:

> 2009/9/30 Jyoti :
> > 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

[Jeff Peng]

2009/9/30 Jyoti :
> 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/

Fwd: HI

[Jyoti]

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.

line 18 is as follows:

print $q->header("text/html"),

HI

[Jyoti]

Hello,

Can anyone help me to explain how to call subroutines.
Also if possible, explain with example for running blast searches.

Many Thanks.

Re: Hi

[Jenn G.]

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

Hi

[John Somoza]

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

RE: Hi all

[Bob McConnell]

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/

Hi all

[Anusha Krishna chand]

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

Re: Hi... Help regarding chdir

[Chas. Owens]

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

[Paul Lalli]

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... Help regarding chdir

[Tom Phoenix]

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

[Chas. Owens]

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

[Tom Phoenix]

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

[Roberto Etcheverry]

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/

Hi... Help regarding chdir

[Ravindra Ugaji]

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

[David Moreno Garza]

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

[Neal Clark]

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

[John W. Krahn]

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

[Jeff Pang]

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/

Hi ....

[Chris E. Rempola]

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.


--
==
| Chris E. Rempola   ||Email: [EMAIL PROTECTED] fax#408.545.0549 |
| #408.545.0500 x719 ||Bay Area Internet Solutions   |
| Technical Support  ||Please visit us @ http://bayarea.net  |
==

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/

Re: Hi,, Regarding perl modules

[Andy Greenwood]

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/

Hi,, Regarding perl modules

[Vikas Kumar Choudhary]

  
Hi

I am vikas here, just getting in perl..
can anybody told me to create modules and how to use these in our scripts..

Thanks

Vikas Kumar Choudhary
Software Engineer
Bangalore-50078
Mobile:- 91-9886793145 

Hi all, can we read or delete multi-lines from Listbox widget?

[辉 王]

Hi all,
   
  Can we read or delete multi-lines from Listbox widget?
   
  If not, what widget can do it? Text?
   
  If it can, how to do it?
   
  Please help me. I waste a lot of time and can't figure it out.
   
  Thanks.
   
  Hui Wang.
   
   


-
 雅虎免费邮箱-3.5G容量，20M附件

Hi all, when click on an item which laied in a ListBox, can we let some strings print into a Text widget area.

[辉 王]

Hi all,

Hi all, when click on an item which laied in a ListBox, can we let some strings 
print 

into a Text widget area.

Below is my perl script which does not work properly.

use warnings;
use strict;
use Tk;
use URI;

my $mw = MainWindow->new;

my $text = $mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid 1
   -height 10 -width 20 -scrollbars se/);
$text->pack(qw/-expand yes -fill both/);

my $list = $mw->Scrolled(qw/Listbox -setgrid 1 -height 10 -width 20 -scrollbars 
se/);
$list->pack(qw/-side bottom -expand yes -fill both/);
$list->focus;
$list->bind('' => 
sub {
print "want to print an url's content to '\$text'\n";
},
);

my(@pl) = qw/-side top -pady 1 -anchor nw/;
open IN, "){
chomp;
next if $_ =~ /^\s*$/;
my $url = URI->new($_);
my $b1 = $list->Checkbutton(
-text => "$url",
  -relief   => 'flat'
)->pack(@pl);
}
close IN;
MainLoop;

Who can help me? thanks.

Hui Wang






-
 Mp3疯狂搜-新歌热歌高速下   

Re: Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.

[Jenda Krynicky]

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]
 

RE: Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.

[Charles K. Clarkson]

Hui Wang  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]
 

Re: Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.

[Robin Sheat]

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

Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.

[辉 王]

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(except anchor text). 
 
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 my own implemented perl module named 'chakrabarti.pm'.

#!/usr/bin/perl
package chakrabarti;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/extract_url_and_text/;
use warnings;
use strict;
use HTML::TreeBuilder;
use URI;
use constant WIDTH => 5;

my @texts_arr = ();
my @anchor_index = ();

sub extract_url_and_text{
my($html_ref, $base_ref) = @_;
 my %text_hash;
 my $tree = HTML::TreeBuilder->new_from_content(${$html_ref});
 my $body_tag = $tree->find_by_tag_name('body');
 &process($body_tag);
 for (@anchor_index) {  
  my ($start_index, $end_index, $url) = ($_->[0], $_->[1], $_->[2]);
  $url = URI->new_abs($url, ${$base_ref});
  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;
 }
 $tree->delete;
 return [\%text_hash];
}
sub process {
my $tag = shift;
my ($start_index, $end_index, $url);
  if ($tag->tag eq 'a') {
   $start_index = @texts_arr;
$url = $tag->attr('href');
  }
  foreach my $kid ($tag->content_list) {
   if (ref $kid) {
 &process($kid);
  } else {
  push @texts_arr, $kid;
}
  }
  if ($tag->tag eq 'a') {
 $end_index = @texts_arr - 1;
 push @anchor_index, [$start_index, $end_index, $url];
  }
}
1;

Then, in my perl program, I can invoke this module. Below is a working
example:
   
use warnings;
use strict;
use LWP::UserAgent;
use chakrabarti;
  
my $ua = LWP::UserAgent->new;
my $res = $ua->get('http://www.cpan.org/');
if($res->is_success){
 my $url_text_ref = extract_url_and_text($res->content_ref, $res->base);
 for(keys %{$url_text_ref->[0]}){
 print $_, "\n", ${$url_text_ref->[0]}{$_}, "\n\n";
}
}
   
Below is the Chakrabarti's article:
http://www.cs.berkeley.edu/~soumen/doc/www2002m/p336-chakrabarti.pdf
   
Good luck!
   
Hui Wang


-
抢注雅虎免费邮箱-3.5G容量，20M附件！ 

Hi, how to extract five texts on each side of an URI? I post my own perl script and its use.

[辉 王]

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(except anchor text). 
 
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 my own implemented perl module named 'chakrabarti.pm'.
   
  #!/usr/bin/perl
package chakrabarti;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/extract_url_and_text/;
use warnings;
use strict;
use HTML::TreeBuilder;
use URI;
use constant WIDTH => 5;
  my @texts_arr = ();
my @anchor_index = ();
  sub extract_url_and_text{
 my($html_ref, $base_ref) = @_;
 my %text_hash;
 my $tree = HTML::TreeBuilder->new_from_content(${$html_ref});
 my $body_tag = $tree->find_by_tag_name('body');
 &process($body_tag);
 for (@anchor_index) {  
   my ($start_index, $end_index, $url) = ($_->[0], $_->[1], $_->[2]);
   $url = URI->new_abs($url, ${$base_ref});
  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;
 }
 $tree->delete;
 return [\%text_hash];
}
sub process {
 my $tag = shift;
  my ($start_index, $end_index, $url);
  if ($tag->tag eq 'a') {
   $start_index = @texts_arr;
$url = $tag->attr('href');
  }
  foreach my $kid ($tag->content_list) {
   if (ref $kid) {
 &process($kid);
  } else {
   push @texts_arr, $kid;
}
  }
  if ($tag->tag eq 'a') {
 $end_index = @texts_arr - 1;
 push @anchor_index, [$start_index, $end_index, $url];
  }
}
1;

  Then, in my perl program, I can invoke this module. Below is a working 
   
  example:
   
  use warnings;
use strict;
use LWP::UserAgent;
use chakrabarti;
  my $ua = LWP::UserAgent->new;
my $res = $ua->get('http://www.cpan.org/');
if($res->is_success){
 my $url_text_ref = extract_url_and_text($res->content_ref, $res->base);
 for(keys %{$url_text_ref->[0]}){
  print $_, "\n", ${$url_text_ref->[0]}{$_}, "\n\n";
 }
}
   
  Below is the Chakrabarti's article:
http://www.cs.berkeley.edu/~soumen/doc/www2002m/p336-chakrabarti.pdf
   
 Good luck!
   
 Hui Wang

   
  
 


-
抢注雅虎免费邮箱-3.5G容量，20M附件！ 

RE: Hi everyone, how to extract five texts on each side of an URI? I post my own perl script this time.

[Charles K. Clarkson]

Hui Wang  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]
 

Hi everyone, how to extract five texts on each side of an URI? I post my own perl script this time.

[辉 王]

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(except anchor text). 
 
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 my own implemented perl script, but it runs slowly.

#!/usr/bin/perl
package chakrabarti;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/extract_url_and_text/;
use warnings;
use strict;
use HTML::TreeBuilder;
use URI;
use constant WIDTH => 5;

my @texts_arr = ();
my @anchor_index = ();

sub extract_url_and_text{
 my($html_ref, $base_ref) = @_;
 my %text_hash;
 my $tree = HTML::TreeBuilder->new_from_content(${$html_ref});
 my $body_tag = $tree->find_by_tag_name('body');
 &process($body_tag);
 for (@anchor_index) {
my ($start_index, $end_index, $url) = ($_->[0], $_->[1], $_->[2]);
$url = URI->new_abs($url, ${$base_ref});
  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;
 }
 $tree->delete;
 return [\%text_hash];
}
sub process {
 my $tag = shift;
 my ($start_index, $end_index, $url);
 if ($tag->tag eq 'a') {
$start_index = @texts_arr;
$url = $tag->attr('href');
 }
 foreach my $kid ($tag->content_list) {
if (ref $kid) {
&process($kid);
 } else {
   push @texts_arr, $kid;
 }
  }
  if ($tag->tag eq 'a') {
 $end_index = @texts_arr - 1;
 push @anchor_index, [$start_index, $end_index, $url];
  }
}
1;


   
Below is the Chakrabarti's article:
http://www.cs.berkeley.edu/~soumen/doc/www2002m/p336-chakrabarti.pdf
   
  Good luck!
   
  Hui Wang


-
抢注雅虎免费邮箱-3.5G容量，20M附件！ 

Re: Hi everyone, who can tell me how to extract five texts on each side of an URI? Thanks

[Bjørge Solli]

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]
 

Re: Hi everyone, who can tell me how to extract five texts on each side of an URI? Thanks

[Jeff Pang]

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

Hi everyone, who can tell me how to extract five texts on each side of an URI? Thanks

[辉 王]

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
   
  Good luck!
   
  Hui Wang



-
 Mp3疯狂搜-新歌热歌高速下   

Re: Hi, Everyone, I can't install perl modules correctly using CPAN, why?

[Jen Spinney]

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?

[Jeff Pang]

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

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. The error message 

is listed below:

===

CPAN: Storable loaded ok
Going to read /home/wanghui/.cpan/Metadata
  Database was generated on Mon, 30 Oct 2006 21:24:24 GMT
CPAN: LWP::UserAgent loaded ok
Fetching with LWP:
  ftp://mirrors.hknet.com/CPAN/authors/01mailrc.txt.gz
LWP failed with code[500] message[read timeout]
CPAN: Net::FTP loaded ok
Fetching with Net::FTP:
  ftp://mirrors.hknet.com/CPAN/authors/01mailrc.txt.gz
  Could not connect to host 'mirrors.hknet.com' with Net::FTP
Fetching with LWP:
  http://cpan.linuxforum.net/authors/01mailrc.txt.gz
Going to read /home/wanghui/.cpan/sources/authors/01mailrc.txt.gz
Fetching with LWP:
  ftp://mirrors.hknet.com/CPAN/modules/02packages.details.txt.gz
Going to read /home/wanghui/.cpan/sources/modules/02packages.details.txt.gz
  Database was generated on Wed, 01 Nov 2006 15:24:03 GMT
Fetching with LWP:
  ftp://mirrors.hknet.com/CPAN/modules/03modlist.data.gz
Going to read /home/wanghui/.cpan/sources/modules/03modlist.data.gz
Going to write /home/wanghui/.cpan/Metadata
Running install for module WWW::Yahoo::KeywordExtractor
Running make for S/SO/SOCK/WWW-Yahoo-KeywordExtractor-0.04.tar.gz
cpan> install WWW::Yahoo::KeywordExtractorCPAN: Digest::SHA loaded ok
Checksum for 
/home/wanghui/.cpan/sources/authors/id/S/SO/SOCK/WWW-Yahoo-KeywordExtractor-0.04.tar.gz
 ok
Scanning cache /home/wanghui/.cpan/build for sizes
WWW-Yahoo-KeywordExtractor-0.04/
WWW-Yahoo-KeywordExtractor-0.04/Build.PL
WWW-Yahoo-KeywordExtractor-0.04/Changes
WWW-Yahoo-KeywordExtractor-0.04/lib/
WWW-Yahoo-KeywordExtractor-0.04/lib/WWW/
WWW-Yahoo-KeywordExtractor-0.04/lib/WWW/Yahoo/
WWW-Yahoo-KeywordExtractor-0.04/lib/WWW/Yahoo/KeywordExtractor.pm
WWW-Yahoo-KeywordExtractor-0.04/MANIFEST
WWW-Yahoo-KeywordExtractor-0.04/META.yml
WWW-Yahoo-KeywordExtractor-0.04/README
WWW-Yahoo-KeywordExtractor-0.04/t/
WWW-Yahoo-KeywordExtractor-0.04/t/02-pod.t
WWW-Yahoo-KeywordExtractor-0.04/t/03-pod_coverage.t
WWW-Yahoo-KeywordExtractor-0.04/t/04-perl_critic.t
WWW-Yahoo-KeywordExtractor-0.04/t/11-compile.t
Removing previously used 
/home/wanghui/.cpan/build/WWW-Yahoo-KeywordExtractor-0.04

  CPAN.pm: Going to build S/SO/SOCK/WWW-Yahoo-KeywordExtractor-0.04.tar.gz

Checking whether your kit is complete...
Looks good

Checking prerequisites...
 - ERROR: XML::Simple is not installed

ERRORS/WARNINGS FOUND IN PREREQUISITES.  You may wish to install the versions
of the modules indicated above before proceeding with this installation

Creating new 'Build' script for 'WWW-Yahoo-KeywordExtractor' version '0.04'
CPAN: YAML loaded ok
CPAN: Module::Build loaded ok
  Warning: CPAN.pm discovered Module::Build as undeclared prerequisite.
  Adding it now as such.
 Unsatisfied dependencies detected during 
[S/SO/SOCK/WWW-Yahoo-KeywordExtractor-0.04.tar.gz] -
XML::Simple
Shall I follow them and prepend them to the queue
of modules we are processing right now? [yes]
Running Build test
  Delayed until after prerequisites
Running Build install
  Delayed until after prerequisites
Running install for module XML::Simple
Running make for G/GR/GRANTM/XML-Simple-2.16.tar.gz
Checksum for 
/home/wanghui/.cpan/sources/authors/id/G/GR/GRANTM/XML-Simple-2.16.tar.gz ok
XML-Simple-2.16/
XML-Simple-2.16/t/
XML-Simple-2.16/t/1_XMLin.xml
XML-Simple-2.16/t/lib/
XML-Simple-2.16/t/lib/TagsToUpper.pm
XML-Simple-2.16/t/B_Hooks.t
XML-Simple-2.16/t/6_ObjIntf.t
XML-Simple-2.16/t/1_XMLin.t
XML-Simple-2.16/t/srt.xml
XML-Simple-2.16/t/4_MemShare.t
XML-Simple-2.16/t/3_Storable.t
XML-Simple-2.16/t/7_SaxStuff.t
XML-Simple-2.16/t/A_XMLParser.t
XML-Simple-2.16/t/0_Config.t
XML-Simple-2.16/t/subdir/
XML-Simple-2.16/t/subdir/test2.xml
XML-Simple-2.16/t/2_XMLout.t
XML-Simple-2.16/t/5_MemCopy.t
XML-Simple-2.16/t/8_Namespaces.t
XML-Simple-2.16/t/test1.xml
XML-Simple-2.16/t/desertnet.src
XML-Simple-2.16/t/9_Strict.t
XML-Simple-2.16/Changes
XML-Simple-2.16/MANIFEST
XML-Simple-2.16/lib/
XML-Simple-2.16/lib/XML/
XML-Simple-2.16/lib/XML/Simple/
XML-Simple-2.16/lib/XML/Simple/FAQ.pod
XML-Simple-2.16/lib/XML/Simple.pm
XML-Simple-2.16/META.yml
XML-Simple-2.16/maketest
XML-Simple-2.16/README
XML-Simple-2.16/Makefile.PL
Removing previously used /home/wanghui/.cpan/build/XML-Simple-2.16

  CPAN.pm: Going to build G/GR/GRANTM/XML-Simple-2.16.tar.gz

Checking installed modules ...
=

  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 successfu

Re: Hi

[Leonid Grinberg]

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]
 

Re: Hi

[Ron Smith]

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

Hi

[Kaushal Shriyan]

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

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>

Re: hi please clarify my doubts

[Marilyn Sander]

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

-- 

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]
 

Re: hi please clarify my doubts

[Tom Phoenix]

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]
 

hi please clarify my doubts

[DEVARAJA AP]

HI
   
   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.please 
help me.
   

 Advance Thanks

  devaraja


-
 
 What are the most popular cars? Find out at Yahoo! Autos 

Re: Hi All

[Paul Johnson]

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]
 

Re: Hi All

[Bob Showalter]

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]
 

RE: Hi All

[Gomez, Juan]

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

[Dennis G. Wicks]

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

[Shawn Corey]

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]
 

RE: Hi All

[Pant, Hridyesh]

For merlyn:
I don't know about your mind functionality and even don't want to
know.but I am sorry if it boggles ur mind.
For perl User:
Any way I just sent the link which might be useful to somebody.

Thanks
Hridyesh

-Original Message-
From: merlyn@stonehenge.com [mailto:[EMAIL PROTECTED] 
Sent: 16 November 2005 15:06
To: beginners@perl.org
Subject: Re: Hi All


>>>>> "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!

Learn to use the "perldoc" command.

As for sites, check the resources of http://learn.perl.org/

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777
0095
 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>


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

> "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!

Learn to use the "perldoc" command.

As for sites, check the resources of http://learn.perl.org/

-- 
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
 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]
 

RE: Hi All

[Pant, Hridyesh]

Check this site http://perldoc.perl.org/

Regards
Hridyesh

-Original Message-
From: Santosh Reddy [mailto:[EMAIL PROTECTED] 
Sent: 15 November 2005 12:10
To: beginners@perl.org
Subject: Hi All


Hi All,

 

This is my first mail to this mailing list. I am just starting to learn
Perl.

Please help me in getting the basics cleared.

 

Thanks

Santosh

 

 

 


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

[Chris Devers]

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]
 

Hi All

[Santosh Reddy]

Hi All,

 

This is my first mail to this mailing list. I am just starting to learn
Perl.

Please help me in getting the basics cleared.

 

Thanks

Santosh

 

 

 

RE: hi

[Timothy Johnson]

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

[Suvajit Sengupta]

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

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

[Charles K. Clarkson]

ZHAO, BING  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=;
:
: 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 = ;

Since you are probably finished with the file now, it is a
good time to close it.

my @shrimp = ;
close COO;

Without knowing more about your data, I would probably chomp
the line endings too.

chomp( my @shrimp =  );
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]
 

Re: hi

[Randal L. Schwartz]

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

RE: hi

[Timothy Johnson]

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:



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.






--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

hi

[ZHAO, BING]

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

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

[Xavier Noria]

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>

RE: hi

[Thomas Bätzler]

 
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]
 

hi

[ZHAO, BING]

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?

Thannks a lot.

bz

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

[Chris Devers]

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>

Hi

[Anish Kumar K]

Hi 

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 

thanks
Anish

RE: Hi

[Bob Showalter]

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>

Hi

[Anish Kumar K.]

Hi

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

Anish