Re: return just a match from an array without changing the array

2014-03-08 Thread Janek Schleicher
Am 04.03.2014 00:35, schrieb shawn wilson: So, when I do this: my $src = (grep {/.*(ARIN|APNIC).*(\n)?/; $1} @ret)[0]; I get a full line and not just the capture: # ARIN WHOIS data and services are subject to the Terms of Use When I do this: my $src = (grep {s/.*(ARIN|APNIC).*(\n)?/$1/}

RegExp

2014-03-08 Thread rakesh sharma
Hi all, how do you get all words starting with letter 'r' in a string. thanks,rakesh

Re: RegExp

2014-03-08 Thread Shawn H Corey
On Sat, 8 Mar 2014 18:20:48 +0530 rakesh sharma rakeshsharm...@hotmail.com wrote: Hi all, how do you get all words starting with letter 'r' in a string. thanks,rakesh /\br/ -- Don't stop where the ink does. Shawn -- To unsubscribe,

Re: RegExp

2014-03-08 Thread Shlomi Fish
Hello Rakesh, On Sat, 8 Mar 2014 18:20:48 +0530 rakesh sharma rakeshsharm...@hotmail.com wrote: Hi all, how do you get all words starting with letter 'r' in a string. thanks,rakesh 1. Find all words in the sentence. Your idea of what is a word will

Re: RegExp

2014-03-08 Thread Janek Schleicher
Am 08.03.2014 13:50, schrieb rakesh sharma: how do you get all words starting with letter 'r' in a string. What have you tried so far? Greetings, Janek -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: RegExp

2014-03-08 Thread Jim Gibson
On Mar 8, 2014, at 4:50 AM, rakesh sharma rakeshsharm...@hotmail.com wrote: Hi all, how do you get all words starting with letter 'r' in a string. Try my @rwords = $string =~ /\br\w*?\b/g; -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail:

Invoking a script in Windows 7

2014-03-08 Thread Alek Trishan
Hi, I have installed perl via cygwin on my Windows 7 computer and have a perl script that I would like to execute simply by double-clicking on its name from a Windows filemanager window. (That is, I do not want to use the command line at all.) Eg, myscript.pl I tried using this

TEST-Please Ignore

2014-03-08 Thread Alek Trishan
I posted to perl.beginners and since it hasn't shown up here, I thought I had better see if everything was OK with my connection to the mailing list. My apologies. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org

Re: Invoking a script in Windows 7

2014-03-08 Thread Yonghua Peng
You may want to install ActivePerl instead, when installing it changes the windows registry etc. -- looking for cloud developers: http://www.nsbeta.info/jobs Saturday, March 8, 2014 3:29 PM -05:00 from Alek Trishan alek.tris...@gmail.com: Hi, I have installed perl via cygwin on my Windows

Re: Invoking a script in Windows 7

2014-03-08 Thread Matt McAdory
This isn't a perl programming issue, but a cygwin/windoze environmental execution issue. Please use the appropriate list to seek further assistance. http://cygwin.com/lists.html http://cygwin.com/ml/cygwin/2004-07/msg00163.html On Sat, Mar 8, 2014 at 6:25 PM, Yonghua Peng sys...@mail2000.us

Re: regexp puzzle

2014-03-08 Thread Bill McCormick
On 3/8/2014 12:05 AM, Bill McCormick wrote: I have the following string I want to extract from: my $str = foo (3 bar): baz; and I want to to extract to end up with $p1 = foo; $p2 = 3; $p3 = baz; the complication is that the \s(\d\s.+) is optional, so in then $p2 may not be set. getting

Delete key-value pair in perl

2014-03-08 Thread Alex Chiang
Hi all, I'm a perl beginner, and when I tries to practice delete built-in, I find it's not working as I supposed to. 44 my %employ_list = (e10220 = Du, e10250 = Vic); 45 # iterate thru with each 46 while ( my ($k, $v) = each %employ_list ) { 47 print before: key:$k = value:$v

Re: Delete key-value pair in perl

2014-03-08 Thread Uri Guttman
On 03/09/2014 12:40 AM, Alex Chiang wrote: Hi all, I'm a perl beginner, and when I tries to practice delete built-in, I find it's not working as I supposed to. 44 my %employ_list = (e10220 = Du, e10250 = Vic); 45 # iterate thru with each 46 while ( my ($k, $v) = each %employ_list

Re: Delete key-value pair in perl

2014-03-08 Thread Uri Guttman
On 03/09/2014 12:57 AM, Alex Chiang wrote: Oh, yes, How stupid I am. I comment out the undef sentence, it works. Thanks for your help, you are my life saver, Uri :) you are welcome. but please reply to the list (as i did). i don't want private conversations off this list. uri -- Uri