How to make this case insenstive

[Daniel]

I am checking to see if the name is the same name as in $row[1] but
should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])
do
error message

....
..

Is this possible?

Thank you!

 

[Tony Curtis]

I am checking to see if the name is the same name as in $row[1] but
should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])
do
error message

That's easy, canonicalize both of them: e.g. lc() or uc(), q.v.

hth
t

 

[Sisyphus]

I am checking to see if the name is the same name as in $row[1] but
should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])
do
error message

my $line = DBI::neat_list(\@row, 70, ',');
if (lc($name) ne lc($row[1]))
do
error message

Cheers,
Rob

 

[it_says_BALLS_on_your forehead]

I am checking to see if the name is the same name as in $row[1] but
should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])
do
error message

...
.

an alternative to the lc() or uc() solution is to use a regex
(although this is probably less efficient).

if ( $name =~ m/$row[1]/i ) {
do {
blah

 

[Jürgen Exner]

I am checking to see if the name is the same name as in $row[1] but
should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])

Is this possible?

Use normal forms, i.e. convert both to all lower or all upper case:
if (lc($name) ne lc($row[1])) {
If you loop through @row again and again it might be faster to store the
text in normal form.

Or you can use pattern matching with the /i option, but you need to be
careful to anchor the pattern at both ends and to block RE special
characters from being interpreted as such.

jue

 

[it_says_BALLS_on_your forehead]

I am checking to see if the name is the same name as in $row[1] but
should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])
Is this possible?

Use normal forms, i.e. convert both to all lower or all upper case:
if (lc($name) ne lc($row[1])) {
If you loop through @row again and again it might be faster to store the
text in normal form.

Or you can use pattern matching with the /i option, but you need to be
careful to anchor the pattern at both ends and to block RE special
characters from being interpreted as such.

gah! i was thinking about anchoring, but completely forgot to include
them in my post. thanks jue. i forgot about the escapes too, so double
thanks.

 

[Dr.Ruud]

it_says_BALLS_on_your forehead schreef:

Daniel:

I am checking to see if the name is the same name as in $row[1] but
should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])
do
error message

an alternative to the lc() or uc() solution is to use a regex
(although this is probably less efficient).

if ( $name =~ m/$row[1]/i ) {
do {
blah

Missing: quotemeta.

 

[Josef Moellers]

I am checking to see if the name is the same name as in $row[1] but
should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])
do
error message

...
.

an alternative to the lc() or uc() solution is to use a regex
(although this is probably less efficient).

if ( $name =~ m/$row[1]/i ) {
do {
blah

$name = "ThisIsALongFilename";
would match
$row[1] = "Filename";

You should anchor your pattern:

$name =~ m/^$row[1]$/i;

 

[Uri Guttman]

R> it_says_BALLS_on_your forehead schreef:

Daniel:

I am checking to see if the name is the same name as in $row[1] but
should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])
do
error message

an alternative to the lc() or uc() solution is to use a regex
(although this is probably less efficient).

if ( $name =~ m/$row[1]/i ) {
do {
blah

R> Missing: quotemeta.

also missing regex anchors which are needed since he did 'ne'.

uri

 

[Dr.Ruud]

Uri Guttman schreef:

Ruud:

it_says_BALLS_on_your forehead:

Daniel:
I am checking to see if the name is the same name as in $row[1]
but should be case insensitive.

my $line = DBI::neat_list(\@row, 70, ',');
if ($name ne $row[1])
do
error message

an alternative to the lc() or uc() solution is to use a regex
(although this is probably less efficient).

if ( $name =~ m/$row[1]/i ) {
do {
blah

Missing: quotemeta.

also missing regex anchors which are needed since he did 'ne'.

ACK.

He did mention "the name in $var" though, which can be read as that $var
can contain more than just the name.