There are several scenarios when there is a difference: When array is on right side my @array = (‘a’, ‘b’, ‘c’); my $variable = @array; # 3 size of @array my ($variable) = @array; # ‘a’ $array[0] When list is on right side my $variable = qw/ a b c d /; # ‘d’ last … Read more
For portably getting the basename of a file given a full path, I’d recommend the File::Basename module, which is part of the core. To do heuristics on file extensions I’d go for a regular expression like (my $without_extension = $basename) =~ s/\.[^.]+$//;
From perldoc perltoot (about a quarter way through the document): Perl doesn’t impose restrictions on who gets to use which methods. The public-versus-private distinction is by convention, not syntax. (Well, unless you use the Alias module described below in “Data Members as Variables”.) Occasionally you’ll see method names beginning or ending with an underscore or … Read more
You need to pass it in as a reference: calc(\@array, $scalar) And then access it as: my @array = @{$_[0]};
@array = ( $string =~ m/../g ); The pattern-matching operator behaves in a special way in a list context in Perl. It processes the operation iteratively, matching the pattern against the remainder of the text after the previous match. Then the list is formed from all the text that matched during each application of the … Read more
I suggest that you get this person and his management to sign a legally enforceable agreement that forbids all forms of reverse engineering, and any other means of gaining access to the stuff you want to protect. Obfuscation cannot protect you against a determined attempt to reverse engineer. It is theoretically and practically impossible.
sighandler (found in mg.c) is the wrapper around the Perl signal handler sub. As you can see, it is capabable of sending the information you want to the Perl signal handler sub. #if defined(HAS_SIGACTION) && defined(SA_SIGINFO) { struct sigaction oact; if (sigaction(sig, 0, &oact) == 0 && oact.sa_flags & SA_SIGINFO) { if (sip) { HV … Read more
Try this \b(0*(?:[1-9][0-9]?|100))\b Explanation ” \b # Assert position at a word boundary ( # Match the regular expression below and capture its match into backreference number 1 0 # Match the character “0” literally * # Between zero and unlimited times, as many times as possible, giving back as needed (greedy) (?: # Match … Read more
The //= operator is the assignment operator version of the // or ‘logical defined-or’ operator. In the context of a my variable declaration, the variable is initially undefined so it is equivalent to assignment (and would be better written as my $i = ’08’;). In general, though, $i //= ’08’; is a shorthand for: $i … Read more