How to check if a string contains more than 1 character?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to check if a string contains more than 1 character? by choroba (Cardinal) on May 02, 2013 at 12:33 UTC
`sub has_more_than_1_char { my $string = shift; return defined $string && 1 < length $string; }` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re: How to check if a string contains more than 1 character? by karlgoethebier (Abbot) on May 02, 2013 at 13:26 UTC
Update: `sub karls_has_more_than_1_char { ( shift =~ /.{2,}/ ) ? 1 : return; } sub karls_has_more_than_1_char_2 { ( shift =~ /(.{2,})/ ) ? $1 : return; }` [download] Regards, Karl «The Crux of the Biscuit is the Apostrophe»	[reply] [d/l]
Re: How to check if a string contains more than 1 character? by hdb (Monsignor) on May 02, 2013 at 12:37 UTC
Or do you mean two or more different characters? `use strict; use warnings; my @strings = qw/xxxx xxxyy/; for( @strings ) { print "$_\n" unless /^(.)\1*$/; }` [download]	[reply] [d/l]
Re: How to check if a string contains more than 1 character? by InfiniteSilence (Curate) on May 02, 2013 at 13:06 UTC
I liked the other responses. Here's another. `perl -e '$str = q\|abc\|; $str2=q\|a\|; for($str,$str2){m/\S{2,}/ && prin +t qq\|$_\|};'` [download] Celebrate Intellectual Diversity	[reply] [d/l]
Re^2: How to check if a string contains more than 1 character? by Lotus1 (Vicar) on May 02, 2013 at 18:04 UTC
You can also put a list of strings directly in the foreach loop. `perl -e "foreach(qw(abc a 00)){print qq($_\n) if m/\S{2,}/}"`	[reply] [d/l]
Re: How to check if a string contains more than 1 character? by graff (Chancellor) on May 03, 2013 at 01:50 UTC
I'm sorry, but I think the question is too vague. How do you define "1 character"? Would you consider ṩ to be one character? How about ẹ̇? (Note the presence of the dot marks above and below each letter.) According to the current Unicode Standard (v6.2), the former should be just one character, while the latter should be two characters. (Of course, both could be expressed using as many as three characters.)	[reply]
Re: How to check if a string contains more than 1 character? by Laurent_R (Canon) on May 02, 2013 at 15:33 UTC
How about this one? `$ perl -e '$string= "f"; $a=7; print "larger than 1 \n" if length $str +ing > ($a$a - ($a+1)($a-1));' $ perl -e '$string= "foo"; $a=7; print "larger than 1 \n" if length $s +tring > ($a$a - ($a+1)($a-1));' larger than 1 $` [download]	[reply] [d/l]
Re: How to check if a string contains more than 1 character? by karlgoethebier (Abbot) on May 02, 2013 at 16:24 UTC
OK...another (useless?) oneliner: `Karls-Mac-mini:monks karl$ export foo=b Karls-Mac-mini:monks karl$ echo ${foo} \| perl -ne '( /.{2,}/ ) ? exit +1 : exit 0;' Karls-Mac-mini:monks karl$ echo $? Karls-Mac-mini:monks karl$ export foo=bar Karls-Mac-mini:monks karl$ echo ${foo} \| perl -ne '( /.{2,}/ ) ? exit +1 : exit 0;' Karls-Mac-mini:monks karl$ echo $?` [download] Regards, Karl «The Crux of the Biscuit is the Apostrophe»	[reply] [d/l]