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

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»

In Section Seekers of Perl Wisdom