Author:
erics, July 8th, 2020
|
|
my $stamp = strftime "%Y%m%d%H%M%S", gmtime time; ## in-place update for the file our $^I = ".$stamp"; local @ARGV = ($fullpath); while ( <ARGV> ) { if (/$regex/) { next; } # this print is the critical part to write the line back to the file print; } $^I = undef; |
Categories: How-To's, Technology Tags: Change, Edit, Edit In Place, howto, in place, Inline, modify, perl, Place, Script, tips
| 
No comments
Author:
erics, July 8th, 2020
|
|
my $stamp = strftime "%Y%m%d%H%M%S", gmtime time; my $stamp = strftime "%Y%m%d%H%M%S", localtime time; |
Categories: How-To's, Technology Tags: Date, datetime, gmtime, howto, localtime, perl, Stamp, strftime, time, timedate, Timestamp, tips
| No comments
Author:
erics, March 23rd, 2020
Using PERL, we can easily do a search and replace across multiple files. perl -ni -w -e ‘print unless m/^gdb\d+/;’ yourFileSpec
Categories: How-To's, Technology Tags: Batch, Delete, Edit, Edit In Place, howto, in place, perl, search, tips
| No comments
Author:
erics, December 11th, 2019
When using Perl’s exec() call, the best way to invoke it is as follows:
|
|
exec("$dir/myprog.sh",@ARGV); |
This syntax does some important things: – passes a scalar value as the first argument which exec interprets as PROGRAM – passes an array as the second argument which exec will use as the arguments to pass into PROGRAM Note […]
Categories: How-To's, Technology Tags: Arg, Args, Argument, Arguments, bash, Exec, Execute, perl, Program, sh, Shell, System
| No comments
Author:
erics, October 9th, 2019
Use Case: Export Apple Reminders from MacOS application to cleaned plain text, i.e. remove unwanted spaces, blank lines and square brackets PROCEDURE Click on a single item in the MacOS Reminders app list Select All (either Command-a or use Edit->Select All) Copy (either Command-c or use Edit->Copy) Open Terminal Run cleanme Paste the copied reminders […]
Categories: How-To's, Technology Tags: apple, array, input, List, MacOS, Multi, Multi-line, Multiline, Multiple, perl, Plain, Plaintext, Read, Reminders, STDIN, Terminal, text()
| No comments
Author:
erics, August 4th, 2019
I wanted to call a sub-routine based on a variable in Perl, like this:
|
|
our $role = 'master'; &$role; |
but it failed because of use strict:
|
|
Can't use string ("master") as a subroutine ref while "strict refs" in use at /opt/continuent/tungsten/tools/tungsten_find_orphaned line 213. |
To enable using a variable as a reference, simply specify that to Perl:
|
|
use strict no strict "refs"; |
Categories: How-To's, Technology Tags: de-reference, dereference, howto, no strict, perl, Reference, Strict, Subroutine, tips, Variable
| No comments
Author:
erics, June 12th, 2019
The Problem Tried to install the latest version of cpan and got stuck. Tracked it down to the dependency module Mac::SystemDirectory which was failing to build:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
cpan[1]> install Mac::SystemDirectory Reading '/var/root/.cpan/Metadata' Database was generated on Sun, 09 Jun 2019 07:17:02 GMT Running install for module 'Mac::SystemDirectory' Running make for E/ET/ETHER/Mac-SystemDirectory-0.10.tar.gz Checksum for /var/root/.cpan/sources/authors/id/E/ET/ETHER/Mac-SystemDirectory-0.10.tar.gz ok Scanning cache /var/root/.cpan/build for sizes ............................................................................DONE CPAN.pm: Building E/ET/ETHER/Mac-SystemDirectory-0.10.tar.gz HASCOMPILEREZFt/TESTUSSI.c:2:10: fatal error: 'EXTERN.h' file not found #include "EXTERN.h" ^~~~~~~~~~ 1 error generated. Couldn't execute cc -g -pipe -fno-common -DPERL_DARWIN -fno-strict-aliasing -fstack-protector -Os "-I/System/Library/Perl/5.18/darwin-thread-multi-2level/CORE" -c HASCOMPILEREZFt/TESTUSSI.c -o HASCOMPILEREZFt/TESTUSSI.o: Inappropriate ioctl for device at Makefile.PL line 14. Requires a compiler Warning: No success on command[/usr/bin/perl Makefile.PL INC=-I/Library/Developer/CommandLineTools/SDKs/MacOSX.sdk/System/Library/Perl/5.18/darwin-thread-multi-2level/CORE] ETHER/Mac-SystemDirectory-0.10.tar.gz /usr/bin/perl Makefile.PL INC=-I/Library/Developer/CommandLineTools/SDKs/MacOSX.sdk/System/Library/Perl/5.18/darwin-thread-multi-2level/CORE -- NOT OK Running make test Make had some problems, won't test Running make install Make had some problems, won't install Failed during this command: ETHER/Mac-SystemDirectory-0.10.tar.gz : writemakefile NO '/usr/bin/perl Makefile.PL INC=-I/Library/Developer/CommandLineTools/SDKs/MacOSX.sdk/System/Library/Perl/5.18/darwin-thread-multi-2level/CORE' returned status 6400 |
The Solution Use the MacOS installer command to deploy the needed files:
|
|
xcode-select --install sudo installer -pkg /Library/Developer/CommandLineTools/Packages/macOS_SDK_headers_for_macOS_10.14.pkg -target / installer: Package name is macOS_SDK_headers_for_macOS_10.14 installer: Installing at base path / installer: The install was successful. |
The, rerunning the cpan install works:
|
|
cpan[1]> install Mac::SystemDirectory ... Running make install Files found in blib/arch: installing files in blib/lib into architecture dependent library tree Installing /Library/Perl/5.18/darwin-thread-multi-2level/auto/Mac/SystemDirectory/SystemDirectory.bs Installing /Library/Perl/5.18/darwin-thread-multi-2level/auto/Mac/SystemDirectory/SystemDirectory.bundle Installing /Library/Perl/5.18/darwin-thread-multi-2level/Mac/SystemDirectory.pm Installing /usr/local/share/man/man3/Mac::SystemDirectory.3pm Appending installation info to /Library/Perl/Updates/5.18.2/darwin-thread-multi-2level/perllocal.pod ETHER/Mac-SystemDirectory-0.10.tar.gz /usr/bin/make install -- OK |
Categories: How-To's, Technology Tags: 10.14, CPAN, Error, extern.h, Fatal, Fatal Error, File not found, Header, headers, howto, Install, installer, Libraries, Library, MacOS, Mojave, not found, Package, perl, pkg, System, tips, update, upgrade, XCode
| No comments
Author:
erics, May 31st, 2019
I have a task in Perl to list specific files based on pattern match, those with and those without the string “_from_”. There are two files in the directory to filter: static-east.properties static-east_from_west.properties To capture the files with the _from_ string was easy:
|
|
/^static-(.*?)_from_(.*?)\.properties$/ |
To capture the files WITHOUT the _from_ string was not quite […]
Categories: How-To's, Technology Tags: exclude, howto, Lookahead, Negative, Negative Lookahead, perl, Regex, tips, without
| No comments
Author:
erics, January 11th, 2019
In the normal vim mode, typing gg=G will reindent the entire file. == will re-indent just the current line. http://vim.wikia.com/wiki/Fix_indentation
Categories: How-To's, Technology Tags: Auto-indent, Format, howto, Indent, perl, re-indent, Reformat, tips, vi, vim
| No comments
Author:
erics, September 18th, 2017
|
|
my $created_at = '2017-09-18T13:43:40Z'; my $marker = DateCalc('today','30 days ago'); my $cmp = Date_Cmp($created_at,$marker); if ($cmp < 0) { print "Older than marker!\n"; } else { print "Same date or later than marker\n"; } |
Categories: How-To's, Technology Tags: Calc, Date, Date::Manip, Delta, howto, perl, tips
| No comments
