Re: Setting Conditional Variable Based on Partial Match

[ccn]

First of all: use  use strict; and use warnings;. That will save a lot of time for you.

It will be good to put backslash before * in regexp if you want to match an asterisk. (see perldoc perlre about metacharacters)

Yes $type must be declared outside of condition block. But rather before if clause than after it. And seems you want to use = instead of eq when assigning a value to $type

my $type = ($B1 =~ m/^\*/ or $B2 =~ m/^\*/) ? 'S' : 'I';

[Osiris1975]

Thanks for the response. I actually do use strict and warnings, I just left them out of the code that I pasted here. I'll include everything in my program in the future. The backslash tells perl to recognize the character "as is" and not as a special character, correct?

[ccn]

> The backslash tells perl to recognize the character "as is" and not as a special character, correct?

Yes with some exceptions:

    \t		tab             (HT, TAB)
    \n		newline         (NL)
    \r		return          (CR)
    \f		form feed       (FF)
    \b		backspace       (BS)
    \a		alarm (bell)    (BEL)
    \e		escape          (ESC)
    \033	octal char	(example: ESC)
    \x1b	hex char	(example: ESC)
    \x{263a}	wide hex char	(example: SMILEY)
    \c[		control char    (example: ESC)
    \N{name}	named Unicode character


    \l		lowercase next char
    \u		uppercase next char
    \L		lowercase till \E
    \U		uppercase till \E
    \E		end case modification
    \Q		quote non-word characters till \E

see: perldoc perlop (Quote and Quote-like Operators)