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

[Anonymous Monk]

Hi Monks, I have a very basic doubt on the count of characters in a string. I want to do a function if the string contains more than 1 character. So kindly can you give a suggestion on how to check if a string contains more than 1 character. Thanks in advance.

[choroba]

sub has_more_than_1_char {
    my $string = shift;
    return defined $string && 1 < length $string;
}

[karlgoethebier]

Update:

sub karls_has_more_than_1_char {
    ( shift =~ /.{2,}/ ) ? 1 : return;
}

sub karls_has_more_than_1_char_2 {
    ( shift =~ /(.{2,})/ ) ? $1 : return;
}

Regards, Karl

[hdb]

Or do you mean two or more different characters?

use strict;
use warnings;
my @strings = qw/xxxx xxxyy/;
for( @strings ) {
        print "$_\n" unless /^(.)\1*$/;
}

[InfiniteSilence]

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|$_|};'

[Lotus1]

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,}/}"

[graff]

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

[Laurent_R]

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
$

[karlgoethebier]

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

Regards, Karl