nikosvaggalis

##Author:Nikos Vaggalis
##Licensed under Artistic License 1.0
##Accompanying code of the "Connecting the database to the outside world with Perl and Database Events" 
##article on i-programmer.info
##https://www.i-programmer.info/programming/perl/12299-connecting-the-database-to-the-outside-world-with-perl-and-database-events.html

use DBI;
use Encode qw(:all);
use Net::HL7::Message;
use Net::HL7::Segment;

nikosvaggalis

##Author:Nikos Vaggalis
##Licensed under Artistic License 1.0
##Accompanying code of the "Connecting the database to the outside world with Perl and Database Events" 
##article on i-programmer.info
##https://www.i-programmer.info/programming/perl/12299-connecting-the-database-to-the-outside-world-with-perl-and-database-events.html

use strict;
use DBI;

my $dbh = DBI->connect ('DBI:IngresII:syntag::psnodb') || die "$DBI::errstr";

nikosvaggalis

/*
Author:Nikos Vaggalis
Licensed under Artistic License 1.0
Accompanying code of the "Connecting the database to the outside world with Perl and Database Events" 
article on i-programmer.info
https://www.i-programmer.info/programming/perl/12299-connecting-the-database-to-the-outside-world-with-perl-and-database-events.html
*/

insert into PatientAssignor
(universal_id,namespace_id,universal_id_type)

nikosvaggalis

/*
Author:Nikos Vaggalis
Licensed under Artistic License 1.0
Accompanying code of the "Connecting the database to the outside world with Perl and Database Events" 
article on i-programmer.info
https://www.i-programmer.info/programming/perl/12299-connecting-the-database-to-the-outside-world-with-perl-and-database-events.html
*/

create dbevent evn_insert_patientvisit;
grant register on dbevent evn_insert_patientvisit to user;

nikosvaggalis

/*
##Author:Nikos Vaggalis
##Licensed under Artistic License 1.0
##Accompanying code of the "Connecting the database to the outside world with Perl and Database Events" 
##article on i-programmer.info
https://www.i-programmer.info/programming/perl/12299-connecting-the-database-to-the-outside-world-with-perl-and-database-events.html
*/

create table patientassignor(
      universal_id  varchar(20) not null not default,

nikosvaggalis

use utf8;

# “ Unicode Character 'LEFT DOUBLE QUOTATION MARK' (U+201C) decimal 8220
# ” Unicode Character 'RIGHT DOUBLE QUOTATION MARK' (U+201D) decimal 8221

my $string="aaa“bbb”ccc";

%dispatch=(8220=>'X',8221=>'Y');

my $string1=$string=~ s/(.)(?{ if (ord $1 >127 ){$dispatch{ord($1)}} else {$1} })/$^R/gr;

nikosvaggalis

/* An attempt to work around the 
"Limitations of Database Procedures when used with Global Temporary Tables"
https://communities.actian.com/s/article/Limitations-of-Database-Procedures-when-used-with-Global-Temporary-Tables
*/

/* Successfully tested on II 9.2.0 (int.lnx/118)NPTL */
/* On II 10.0.1 (a64.lnx/100)NPTL   returns error
E_SC0206 An internal error prevents further processing of this query.
    Associated error messages which provide more detailed information about
    the problem can be found in the error log, II_CONFIG:errlog.log

nikosvaggalis

const puppeteer = require("puppeteer");

const url = "http://smadeseek.com/index.html";
const imgSelector = "#about > div > div.row > div img";

(async () => {
    const browser = await puppeteer.launch();
    const page = await browser.newPage();
    await page.goto(url, { waitUntil: "load" });
     

nikosvaggalis

const puppeteer = require("puppeteer");

const url = "http://smadeseek.com/smartphones";
const imgSelector = "#contentx > div > div img";
const tableSelector = "#masthead";
const tableSelector2 = "#masthead > div > div:nth-child(2) > div > div > div.col-md-6.col-sm-6 > table:nth-child(2)"; 

(async () => {
    const browser = await puppeteer.launch();
    const page = await browser.newPage();

nikosvaggalis

##Author:Nikos Vaggalis
##Licensed under Artistic License 1.0
##Accompanying code of the "Advanced Perl regular expressions - the pattern code express" 
##article on i-programmer.info
##URL to full article: http://bit.ly/1QnpfmX

use Win32;
use Win32::API;
use Cwd;
use File::Spec::Functions;