This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Calling Gazelle HL7 v2.x validation web service | |
#Nikos Vaggalis | |
#http://www.i-programmer.info/programming/perl/9920-health-level-7-hl7-with-perl.html | |
#license:Artistic 1.0 | |
use XML::Compile::SOAP::Trace; | |
use XML::Compile::WSDL11; | |
use XML::Compile::SOAP11; | |
use XML::Compile::Transport::SOAPHTTP; | |
use XML::Compile::SOAP::Trace ; | |
use XML::LibXML; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Creating an HL7 v2.6 message | |
#Nikos Vaggalis, www.i-programmer.info | |
##http://www.i-programmer.info/programming/perl/9920-health-level-7-hl7-with-perl.html | |
#license:Artistic 1.0 | |
use Net::HL7::Message; | |
use Net::HL7::Segment; | |
use Net::HL7::Segments::MSH; | |
use Time::Piece; | |
use strict; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
##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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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(); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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" }); | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* | |
##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, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
##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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
##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"; |
OlderNewer