Re: perl and pattern

2012-02-22 Thread Rob Dixon
On 22/02/2012 20:48, Igor Dovgiy wrote: TL;DR: the core of your program may be rewritten as... print 'Please, enter an integer number, as I really need it: '; chomp (my $user_input =); if ($user_input =~ /^-?\d+$/) { print "My hero! You've actually entered<$user_input>, which is an integer!

Re: stopping global substituion under MACOSX

2012-02-22 Thread John W. Krahn
s...@missionstclare.com wrote: I am changing entire files. I maintain missionstclare.com. I can create the daily files from Perl scripts (and I do). Example at http://www.missionstclare.com/english/March/morning/01m.html But, to create the stripped-down versions of the same files (example at h

Re: stopping global substituion under MACOSX

2012-02-22 Thread sb
Quoting timothy adigun <2teezp...@gmail.com>: Hi, On Wed, Feb 22, 2012 at 4:45 PM, Jim Gibson wrote: At 9:02 AM +0100 2/22/12, timothy adigun wrote: On Wed, Feb 22, 2012 at 3:43 AM, John W. Krahn wrote: > s...@missionstclare.com wrote: > The line $text=~s/george/tim/; causes a

Re: perl and pattern

2012-02-22 Thread Igor Dovgiy
...Well, there were no 'only latin number symbols are allowed in user input' clauses, so \d seems to be more suitable than mere [0-9]. And for most of my cases \d was sufficient yet shorter than [0-9] - and more readable, somewhat ironically... There goes 'why' part. ) And we both, I suppose, may

Re: perl and pattern

2012-02-22 Thread Dr.Ruud
On 2012-02-22 21:48, Igor Dovgiy wrote: Anyway, if you're looking for integers only, as assumed previously, the corresponding check should be made of this: *match the beginning of the line marker, then, optionally, a minus sign, then any number of digits, then the end of the line marker*, or jus

Re: perl and pattern

2012-02-22 Thread Igor Dovgiy
What a pleasant thread we've got here. ) Suppose a bit of my ranting won't spoil it much, will it? )) 2012/2/21 Vyacheslav > I'm new in perl and have many questions. > And there's a place to ask them, believe me. ) > This my first programm. > Going straight to the point, I see... Good. But i

Re: stopping global substituion under MACOSX

2012-02-22 Thread timothy adigun
Hi, On Wed, Feb 22, 2012 at 4:45 PM, Jim Gibson wrote: > At 9:02 AM +0100 2/22/12, timothy adigun wrote: > >> On Wed, Feb 22, 2012 at 3:43 AM, John W. Krahn wrote: >> > s...@missionstclare.com wrote: >> > >> >>> The line >>> $text=~s/george/tim/; causes a global substit

Re: stopping global substituion under MACOSX

2012-02-22 Thread Uri Guttman
On 02/22/2012 03:02 AM, timothy adigun wrote: So, if John suggestion doesn't work as it should, then you may have to enable slurp mode like this: $/=undef or local $/; So your code could read: { . $/=undef; ## or use local $/; those are not equivilent. the first i

Re: stopping global substituion under MACOSX

2012-02-22 Thread Jim Gibson
At 9:02 AM +0100 2/22/12, timothy adigun wrote: On Wed, Feb 22, 2012 at 3:43 AM, John W. Krahn wrote: > s...@missionstclare.com wrote: > The line $text=~s/george/tim/; causes a global substituion of "george" with "tim" How can I limit the substituion to the first instance only? Glo

Re: PDF::Table

2012-02-22 Thread washide
On 22 Lut, 08:57, artur.ad...@gmail.com (washide) wrote: > I look for metod or variable which can give me information about > position of the bottom corner of the table. > I want to put text after table object in PDF. Rows in Table are > creataind in dynamic way so i do not konw how many i will hav

PDF::Table

2012-02-22 Thread washide
I look for metod or variable which can give me information about position of the bottom corner of the table. I want to put text after table object in PDF. Rows in Table are creataind in dynamic way so i do not konw how many i will have. -- washide -- To unsubscribe, e-mail: beginners-unsubscr...

Re: perl and pattern

2012-02-22 Thread Vyacheslav
Hello there. Thank you. Deal with all 22.02.2012 05:11, John W. Krahn пишет: Shlomi Fish wrote: On Tue, 21 Feb 2012 23:47:39 +0400 Vyacheslav wrote: I'm new in perl and have many questions. This my first programm. #!/usr/bin/perl use strict; use warnings; That's good. my $number = 0;

Re: stopping global substituion under MACOSX

2012-02-22 Thread timothy adigun
Hi, On Wed, Feb 22, 2012 at 3:43 AM, John W. Krahn wrote: > s...@missionstclare.com wrote: > >> I'm running PERL under the MACOSX. >> > > It is spelled Perl, not PERL. :-) > > > > The line >> >> $text=~s/george/tim/; >> >> causes a global substituion of "george" with "tim" >> >> How can I lim