A piggy bank of commands, fixes, succinct reviews, some mini articles and technical opinions from a (mostly) Perl developer.
MySQL date time conversion functions:
Examples:
select name, from_unixtime(time_added, '%Y-%m-%d %h:%i')
from company
order by date_added desc
limit 10; -- list the most recently added companies
You may also omit the '%Y-%m-%d %h:%i' format string, to get the default format YYYY-MM-DD HH:MM:SS, e.g. `2023-09-07 09:43:51`
| rule | explanation | notes |
|---|---|---|
-i=4 | 4 column indent | A lot of the legacy code has 2 column indent. |
-pt=2 | "horizontal tightness" 2 - no space for parenthesis tokens | if ( ( my $len_tab = length( $tabstr ) ) > 0 ) { # -pt=0
if ( ( my $len_tab = length($tabstr) ) > 0 ) { # -pt=1 (default)
if ((my $len_tab = length($tabstr)) > 0) { # -pt=2
(docs) |
-wls='=>' | ensure there's always space to the left of => | |
-wrs='=>' | ...and always to the right of => | |
-vtc=0 | always break before a closing token (default) | i.e. non-block curly braces, parentheses, and square brackets docs |
-l=79 | Lines should be no more than 79 characters wide | |
-nolc | no "outdenting" for long comments - indent them properly | By default, full-line (block) comments longer than the value maximum-line-length will have their indentation removed ("outdented"). This rule prevents that. docs |
-nolq | no "outdenting" for long quotes/strings | docs |
-sot | stack opening tokens - same as -sop -sohb -sosb | Put opening parentheses, braces, etc. on the same line docs |
-sct | stack closing tokens | Put closing parentheses, braces, etc. on the same line docs |
| rule | explanation | notes |
|---|---|---|
-lp | line up parentheses | See docs |
-vt=2 | define opening vertical tightness | Put opening parentheses, braces, etc. on the same line. Related to -lp docs |
-vt=0 | always break a line after opening token | docs |
-st -se | use as a filter | Instructions to the parser docs |
-nsfs | 'for' loop semicolon spaces | The default is to place a space before a semicolon in a for statement, like this:
for ( @a = @$ap, $u = shift @a ; @a ; $u = $v ) { # -sfs (default)
If you prefer no such space, like this:
for ( @a = @$ap, $u = shift @a; @a; $u = $v ) { # -nsfs
then use nsfs.
|
-nbbc | No blanks before comments | By default, a blank line will be introduced before a full-line comment. This rule prevents that. |
# Format number with up to 8 leading zeroes
$result = sprintf("%08d", $number);
# Round number to 3 digits after decimal point
$rounded = sprintf("%.3f", $number);
Perl's sprintf permits the following universally-known conversions:
%% a percent sign
%c a character with the given number
%s a string
%d a signed integer, in decimal
%u an unsigned integer, in decimal
%o an unsigned integer, in octal
%x an unsigned integer, in hexadecimal
%e a floating-point number, in scientific notation
%f a floating-point number, in fixed decimal notation
%g a floating-point number, in %e or %f notation
Posts
