Best general purpose – Especially short arrays (1000 items or less) and coders that are unsure of what optimizations best suit their needs. # $value can be any regex. be safe if ( grep( /^$value$/, @array ) ) { print “found it”; } It has been mentioned that grep passes through all values even if … Read more
In order of appearance, the languages are sed, awk, perl, python. The sed program is a stream editor and is designed to apply the actions from a script to each line (or, more generally, to specified ranges of lines) of the input file or files. Its language is based on ed, the Unix editor, and … Read more
You can use the perl debugger on a trivial program, like so: perl -de1 Alternatively there’s Alexis Sukrieh‘s Perl Console application, but I haven’t used it.
If you don’t want add the /s regex modifier (perhaps you still want . to retain its original meaning elsewhere in the regex), you may also use a character class. One possibility: [\S\s] a character which is not a space or is a space. In other words, any character. You can also change modifiers locally … Read more
Oh, I found it. You use last instead of break for my $entry (@array){ if ($string eq “text”){ last; } }
There are a couple of differences that I can think of; just thoughtstreaming here, in no particular order: Python & Co. are designed to be good at scripting. Bash & Co. are designed to be only good at scripting, with absolutely no compromise. IOW: Python is designed to be good both at scripting and non-scripting, … Read more
Use a double-negative: /[^\S\r\n]/ That is, not-not-whitespace (the capital S complements) or not-carriage-return or not-newline. Distributing the outer not (i.e., the complementing ^ in the character class) with De Morgan’s law, this is equivalent to βwhitespace but not carriage return or newline.β Including both \r and \n in the pattern correctly handles all of Unix … Read more
Perl has a syntax called “indirect method notation”. It allows Foo->new($bar) to be written as new Foo $bar So that means Syntax error ! exit 0; is the same as error->Syntax(! exit 0); or error->Syntax(!exit(0)); Not only is it valid syntax, it doesn’t result in a run-time error because the first thing executed is exit(0).
πππ’π₯π‘ππ¨π© β: π πΏππ¨ππ§ππ©π ππππ€π’π’ππ£πππ©ππ€π£π¨ Set your PERL_UNICODE envariable to AS. This makes all Perl scripts decode @ARGV as UTFβ8 strings, and sets the encoding of all three of stdin, stdout, and stderr to UTFβ8. Both these are global effects, not lexical ones. At the top of your source file (program, module, library, dohickey), prominently … Read more
Here is how to solve it on MacΒ OSΒ X v10.7 (Lion) or Cygwin (Windows 10): Add the following lines to your bashrc or bash_profile file on the host machine: # Setting for the new UTF-8 terminal support in Lion export LC_CTYPE=en_US.UTF-8 export LC_ALL=en_US.UTF-8 If you are using Z shell (zsh), edit file zshrc: # Setting for … Read more