Perl Programming Fundamentals

Running a Perl script with the -d command-line switch starts the script under the interactive Perl debugger, allowing you to step through code, set breakpoints, and inspect variables.

In Unix and Linux shell scripting, the file test operator -S is specifically used to check if a given file is a socket. The operator -s checks if a file has a size greater than zero, while -l checks for a symbolic link.

Perl offers multiple ways to include code from other files. The #include preprocessor command works like C-style includes, and adding the file's directory to @INC then using require is the dynamic Perl approach. Both methods are valid for code inclusion in different contexts.

Perl's default sort order is ASCII (standard string comparison), where uppercase letters come before lowercase and numbers sort differently than letters. This differs from pure alphabetic or numeric sorting, making understanding ASCII order crucial for predictable sorting behavior.

printf is preferred over print in Perl when precise formatting control is needed, allowing specifiers for field width, precision, and alignment. The format operator provides similar capabilities but printf is more commonly used for formatted output. Options C and D are not standard Perl formatting commands.

rindex searches for the last occurrence of a substring, optionally limited to a position. In 'abcdefghijiklmdef', the last 'def' ending at or before position 11 is at position 3 (0-indexed). The function returns the starting position of 'def' found in the first half of the string, not the later occurrence.

The keys of %hash are sorted alphabetically: 'large', 'medium', 'small'. The loop iterates through these keys and prints their corresponding values: hash{large} (32oz), hash{medium} (16oz), and hash{small} (8oz), resulting in '32oz 16oz 8oz'.

In Perl, subroutines can be called using the ampersand (&) prefix followed by the subroutine name, such as &mom. Although modern Perl allows calling subroutines without the ampersand, &mom remains a valid syntax.

The 'my' operator in Perl creates private (lexically scoped) variables within a subroutine or block. These variables are only accessible within their declared scope and are destroyed when the scope ends. Options A, B, and D are not valid Perl variable declaration keywords.

In Perl, the next operator jumps to the end of the current loop iteration and continues with the next iteration, but does not exit the loop entirely. The last operator exits the loop completely, while redo restarts the current iteration without advancing. leave is not a valid Perl loop operator.

In Perl, the localtime function converts a epoch timestamp (such as that returned by time) into a list of values or a readable date/time string representing the local time zone, making it highly readable for users.

In Perl, variables have the special value undef before their first assignment. This is different from null in other languages - undef means undefined or uninitialized. Variables are not automatically set to 0 or any other default value.

In Perl, the built-in rename function is used to change the name of a file. It takes two arguments: the old filename and the new filename, returning true on success and false on failure.

The correct Perl syntax is open KAREN, ">sw"; which opens filehandle KAREN for writing to existing file sw. The > mode opens for writing, and the comma separates the filehandle from the filename string. Option A is missing the comma separator, while C and D have incorrect argument order.

The correct Perl syntax to close a filehandle is close KAREN; - just the close keyword followed by the filehandle name. Options A incorrectly includes a filename argument, B has wrong word order, and D incorrectly uses & prefix which is for subroutine calls.

In Perl, the index() function searches for a substring within a string and returns the position of the first occurrence (or -1 if not found). The find function does not exist in Perl, and locate/allocate are not string search functions.

In Perl, the stat function returns a 13-element list giving status information about a file, including its device, inode, mode, number of links, UID, GID, size, access time, modification time, and change time (ctime).

In Perl regular expressions, the i modifier makes the match case-insensitive. For example, /pattern/i will match regardless of letter case. The s, v, and c are not valid case-insensitivity modifiers in Perl regex.

The split() function in Perl breaks a string into multiple parts based on a separator pattern and returns a list. For example, split /,/, "a,b,c" returns ("a", "b", "c"). chop removes the last character, while divide and parse are not built-in Perl functions.