A348 WWW - Assignments - #1 Solution

Perl Shell - A Solution

`s/^\s;\s// || ! s/^\s:\s// && $s`

This entire expression is true if (a) the command begins with a semicolon, or (b) the command doesn't begin with a colon and the -s switch was given. These are precisely the conditions under which we'll accept the command as a Unix command. And, under all other conditions, we'll accept it as a Perl command.

Adding in parentheses, which happen to be optional in this case, we see that the first logical connective to be concerned with is the "or" (||):

    s/^\s*;\s*//    ||    ((! s/^\s*:\s*//) && $s)

Note:

If the left side of the || is true, we do not evaluate the right side.
Due to the ordering of the components of this expression, if the command begins with a colon and the -s switch wasn't given, the colon still will be stripped off.

Perl Shell - A Solution

s/^\s*;\s*// || ! s/^\s*:\s*// && $s

`s/^\s;\s// || ! s/^\s:\s// && $s`