Perl, ganesh vignesh has invited you to open a Gmail account
I've been using Gmail and thought you might like to try it out. Here's an invitation to create an account. You're Invited to Gmail! ganesh vignesh has invited you to open a Gmail account. Gmail is Google's free email service, built on the idea that email can be intuitive, efficient, and fun. Gmail has: *Less spam* Keep unwanted messages out of your inbox with Google's innovative technology. *Lots of space* Enough storage so that you'll never have to delete another message. *Built-in chat* Text or video chat with ganesh vignesh and other friends in real time. *Mobile access* Get your email anywhere with Gmail on your mobile phone. You can even import your contacts and email from Yahoo!, Hotmail, AOL, or any other web mail or POP accounts. Once you create your account, ganesh vignesh will be notified of your new Gmail address so you can stay in touch. Learn morehttp://mail.google.com/mail/help/intl/en/about.htmlor get startedhttp://mail.google.com/mail/a-fbf359ab65-dfe1468f56-chWAs0wqm2tiX8M1FrfwT_UcKUo ! Sign uphttp://mail.google.com/mail/a-fbf359ab65-dfe1468f56-chWAs0wqm2tiX8M1FrfwT_UcKUo Google Inc. | 1600 Ampitheatre Parkway | Mountain View, California 94043
Stop sent the mail to me
Stop the mail
On 10/7/11, Marc sono...@fannullone.us wrote:
On Sep 8, 2011, at 10:13 AM, Rob Dixon wrote:
my $string = 'The Kcl Group';
$string =~ s/\b([aeiouy]{3,4}|[^aeiouy]{3,4})\b/\U$1/ig;
print $string, \n;
I'd like to revisit this, if I could. I've modified the above regex so
as
not to capitalize ordinal numbers, however I've noticed that it produces
incorrect output if the word has an apostrophe. Given:
my $string = rex's chicken on 51st st. at lkj;
$string =~ s/\b([aeiouy]{3,4}|[^aeiouy0123456789]{3,4})\b/uc($1)/eg;
the output is:
Rex'S Chicken on 51st ST. at LKJ
It should be:
Rex's Chicken on 51st St. at LKJ
I Googled and tried everything I'd found, but I can't fix it. Again,
that
line should capitalize 3 and 4 letter words that have either all vowels or
all capitals. The code I found below works great for capitalization except
for that one regex which throws a wrench into it.
Thanks,
Marc
---
# http://daringfireball.net/2008/08/title_case_update
use strict;
use warnings;
use utf8;
use open qw( :encoding(UTF-8) :std );
my @small_words = qw( (?!q)a an and as at(?!t) but by en for if in of on
or the to v[.]? via vs[.]? );
my $small_re = join '|', @small_words;
my $apos = qr/ (?: ['’] [[:lower:]]* )? /x;
my $string = rex's chicken on 51st st at lkj;
$string =~
s{
\b (_*) (?:
( [-_[:alpha:]]+ [@.:/] [-_[:alpha:]@.:/]+ $apos ) #
URL, domain, or
email
|
( (?i: $small_re ) $apos ) # or
small word
(case-insensitive)
|
( [[:alpha:]] [[:lower:]'’()\[\]{}]* $apos ) # or
word w/o internal
caps
|
( [[:alpha:]] [[:alpha:]'’()\[\]{}]* $apos ) # or
some other word
) (_*) \b
}{
$1 . (
defined $2 ? $2 # preserve URL, domain, or email
: defined $3 ? \L$3 # lowercase small word
: defined $4 ? \u\L$4 # capitalize word w/o internal caps
: $5 # preserve other kinds of word
) . $6
}exgo;
$string =~
# exceptions for small words: capitalize at start and end of title
s{
( \A [[:punct:]]* # start of title...
| [:.;?!][ ]+ # or of subsentence...
| [ ]['“‘(\[][ ]* ) # or of inserted subphrase...
( $small_re ) \b # ... followed by small word
}{
$1\u\L$2
}xigo;
$string =~
s{
\b ( $small_re ) # small word...
(?= [[:punct:]]* \Z # ... at the end of the title...
| ['’†)\]] [ ] ) # ... or of an inserted subphrase?
}{
\u\L$1
}xigo;
$string =~ s/\b([aeiouy]{3,4}|[^aeiouy0123456789]{3,4})\b/uc($1)/eg;
print $string \n;
print $string \n;
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
--
Sent from my mobile device
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
Stop the mail to me
Stop mail
On 10/6/11, Chris Stinemetz chrisstinem...@gmail.com wrote:
trying to learn smart matching in an exercise.
Why does this program output odd when I input an even number?
Thank you,
Chris
#!/usr/bin/perl
use warnings;
use strict;
use 5.010;
say Checking the number $ARGV[0];
my $favorite = 62;
given( $ARGV[0] ) {
when( ! /^\d+$/ ) { say Not a number! }
my @divisors = divisors( $ARGV[0] );
when( @divisors ~~ 2 ) { # 2 is in @divisors
say $_ is even;
continue;
}
when( !( @divisors ~~ 2 ) ) { # 2 isn't in @divisors
say $_ is odd!;
continue;
}
when( @divisors ~~ $favorite ) {
say $_ is divisible by my favorite number;
continue;
}
when( $favorite ) { # $_ ~~ $favorite
say $_ is my favorite number;
continue;
}
my @empty;
when( @divisors ~~ @empty ) { say Number is prime }
default { say $_ is divisible by @divisors }
}
sub divisors {
my $number = shift;
my @divisors = ();
foreach my $divisor ( 2 .. ($ARGV[0]/2 + 1) ) {
push @divisors, $divisor unless $number % $divisor;
}
return @divisors;
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
--
Sent from my mobile device
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
