Say Perl

open shift by Red Hat simplifies the development of open source applications for the cloud. This platform-as-a-Service provides an infrastructure for various programming languages ​​and web frameworks are available.

Red Hat is different between the product variants Express , Flex and Power .

The free Express version ( registration required ), including allowing the use of dynamic programming language Perl in version 5.10.1, the database MySQL in version 5.1 or SQLite version 3, and (most importantly) the installation of modules - modules .

The well-known and popular Perl web frameworks Dancer , Mojolicious and Catalyst can be used.

Step by step

This paper will first step through the installation, initialization, and configuration of open shift Express. After that, a decidedly simple but useful Perl program creates and shows how this comes in the Cloud (deployed) is.

Registration

To use an open shift Express is registering with a valid e-mail address REQUIRED. Alternatively, an existing RHN account to be used.

Installation of Client Tools

open shift work under Mac OSX, Linux and Windows - for this post, I use CentOS 6 (64-bit in its own virtual machine).

For the client tools, Red Hat has a own YUM repository, as follows installed is.

# Wget https://openshift.redhat.com/app/repo/openshift.repo
Openshift.repo # mv / etc / yum.repos.d

To ensure that all package dependencies are resolved, I had to get the EPEL - and Freshrpms repositories to add .

Now the client tools are installed:

# Yum install rhc

Initialization

All apps are installed by a user in its own name space (domain). Apps are then publicly after the scheme http:// $ app $ domain.rhcloud.com accessible. More on that.

The command rhc-create-domain creates a new namespace, the configuration file express.conf and SSH keys (libra_id_rsa) to Git authentication.

$ Rhc-create-domain-l-s yourdomain user@example.com
Password: <user password>

Generating Express Open Shift key to ssh / home / username / .ssh / libra_id_rsa
Generating public / private RSA key pair.
Created directory '/ home / username / .ssh'.
Enter passphrase (empty for no passphrase):
Enter same passphrase again:
Your identification has been saved in / home / username / .ssh / libra_id_rsa.
Your public key has been saved in / home / username / .ssh / libra_id_rsa.pub.
.
.
Contacting https://openshift.redhat.com
Rhlogin Adding to / home / username / .openshift / express.conf
Creation successful

You may now create an application. Please make note of your local config file
in / home / username / .openshift / express.conf Which has been created and populated for
you.

Now configure Git (minimal)

$ G

A summary of some lectures which the author saw as important http://www.heise.de/developer/artikel/developer_artikel_1380059.html

Perl:: Critic is a static source code analyzer for Perl , the compliance of Perl Best Practices - examines standards and Styles for Developing Maintainable Code.

Twit.tv has an interview with Jeffrey Thalhammer, the inventor of Perl: Critic: published.

The interview was conducted Randal Schwartz , along with Aaron Newcomb .

In the interesting video on the go, the three backgrounds and the history of Perl: A Critic, show examples of the use and find Perl:: Critic like a couple of bugs.

Enjoy!

Perl Critic try:

Who Perl:: Critic simply want to try out, a file containing Perl source code on the website http://www.perlcritic.org/ (Some Ways Are Better Than Others) can upload and check.

See also:

• Perl:: Critic
• http://www.perlcritic.org/
• Perl Best Practices Reference Card
• An introduction to PerlCritic
• Customizing and Extending PerlCritic
• Perl blog: own Perl:: Critic policies
• Damien Learns Perl: Write better Perl with Perl:: Critic

Via:

Perl news: FLOSS Weekly: Interview with Jeffrey Thalhammer - Perl:: Critic

Yaffas is a simple framework written in Perl administration of servers. On the 11/11/2011 version of the project was 1.0 = 197 & cHash = published 92f323410321f628e260bc7eaaf7ba99]. Linux server administration without any command-line knowledge - that allows the first final release of yaffas. The web-based administration interface makes it easy to monitor and manage services, configure the network and managing users and groups. Also can be managed via the included yaffas mail server with Postfix as a Mail Transfer Agent and configure also contained anti-spam and anti virus programs SpamAssassin and ClamAV. In groupware supports yaffas management including resource management of the integrated Zarafa groupware server (version 7), and backup and recovery elements of groupware such as e-mails and calendar.

are at this year's Google Code in both the Perl Foundation and the Parrot Foundation were accepted as an organization. In the Google Code is aimed at students aged 13 to 17 years. The Perl Foundation has collected some ideas that can be implemented by the students. For a completed task for the students there are a T-shirt. If multiple tasks are completed, there are up to $ 500. To attend the event may require the student to a Google Account. More information is available at # http://www.google-melange.com/gci/document/show/gci_program/google/gci2011/faq claim

In recent weeks, there was a lively discussion in the Perl community, what impact have bad Perl tutorials. Of these, there are more than enough in the network. In the discussion it was also about how Perl beginners can find good Perl tutorials. On the website http://perl-tutorial.org be collected links to tutorials and assessed. Support is needed here also. For more information, visit http://perl-tutorial.org/about/

In the file from the module Encode Unicode.xs that comes with the Perl core, there are up to and including version 2.43 a security hole. Attacker could cause a heap overflow and cause a denial of service. With version 2.44 of the module this gap is closed.

In the module Digest, there are up to and including version 1.16 a vulnerability, the attacker can execute malicious code. The method "new" module filters the input is not properly before they are handed over to a string eval. In this string-eval modules are loaded. A detailed description of the "'use' in string eval" issue in the blog is read by Michael G. Schwern.

In the 189th Issue of FLOSS Weekly Randal Schwartz and talk with Jeffrey Thalhammer Aaron Newcomb, the creator of Perl:: Critic.

In the November issue of free magazine is the third part of the Perl tutorials published. In this issue shows Herbert Breunung dealing with hashes, loops and subroutines.

Carl Mäsaks application has been accepted to a Hague Grant. The aim of the grants is to implement macros in Rakudo. The application is available at http://news.perlfoundation.org/2011/09/hague-grant-application-implem.html.

Nicholas Clark has worked in the second month of the Grants mainly on bisect tool. During the work he has encountered a bug on Solaris / SPARC, he has also fixed. Clark has a total aufgewändet 92 hours.

In the 20th Month of the Grant Dave Mitchell has over 64 hours working on bug fixing. His focus was on Bugs in regular expressions when code is integrated ("(?{})").

There is a new pumpking for Perl: Ricardo Signes. Jesse Vincent has resigned after two years as a pumpking. During this period, the release pattern of Perl changed and presented ideas for future versions of Perl. Ricardo Signes has been active in the Perl 5 Porters. And the first actions in his time as the pumpking releases of Perl 5.15.5 and 5.15.6 and Perl 5.14.3 will be.

blogs.perl.org a central blogging platform for Perl developers should be. Unfortunately, it has some faults and weaknesses. So far, the platform from Six Apart, Dave Cross and Aaron Crane was looked after. Now, more supporters are looking for, working to fix or provide a plan for migration to another platform.

Alberto Simões has started writing a book about the most used modules / frameworks on CPAN. Currently he has too little time to actively work to continue working. The sources for the book are on GitHub, so that everyone can easily participate in the book.

This year, the Perl Foundation would like to participate in the Google code in. With this program, Google wants to introduce students to the topic of Open Source. Until Tuesday, 11/01/2011, the organizations such as the Perl Foundation 40 ideas will be compiled into eight categories. The Perl Foundation collects the ideas on this page: http://wiki.enlightenedperl.org/gci2011/gci2011/ideas

On 18 December 2011 held in St. Petersburg (Russia), the third Edition of "Saint Perl" instead. Attendance at the event is free. Anyone who wishes to submit a paper, can do so via the website.

Carp:: Always - Warns and dies noisily with stack backtraces by Adriano Ferreira easier to debug Perl programs.

Instead of throwing too much trouble to the debugger, is Carp:: Always simply called without modification of the program on the command line.

$ Perl-MCarp: Always programm.pl

Example:

The following sample program tries to call a non-existent website on.

# / Usr / bin / perl
use strict;
use warnings;

use WWW:: Mechanize;

my $ mech = WWW:: Mechanize -> new ();

my $ url = 'http://example.tld';

$ Mech -> get ($ url);

The program produces the following output:

Geting http://example.tld Error: Can not connect to example.tld: 80 (Bad hostname 'example.tld') at line 11 mech.pl

Carp:: Always be invoked from the command line

$ / Opt/perl-5.12.3/bin/perl-MCarp: Always mech.pl

and generates the following stack backtrace (which I have here a little wrap):

Geting http://example.tld Error: Can not connect to example.tld: 80 (Bad
hostname) at / opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm
line 2747
        WWW:: Mechanize:: _the ('Error', 'GET', 'ing'
        'URI:: http = SCALAR (0xa1f2db0)', ':', 'Can \' t
        connect to example.tld: 80 (Bad hostname) ') called at
        / Opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2734

        WWW:: Mechanize:: die ('WWW:: Mechanize = HASH (0xa11cf98)',
        'Error', 'GET', 'ing', 'URI:: http = SCALAR (0xa1f2db0)', ':',
        'Can \' t connect to example.tld: 80 (Bad hostname) ') called at
        / Opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2381

        WWW:: Mechanize:: _update_page ('WWW:: Mechanize = HASH (0xa11cf98)',
        'HTTP:: Request = HASH (0xa211690)', 'HTTP:: Response = HASH (0xa15f480)')
        called at / opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm
        line 2213

        WWW:: Mechanize:: request ('WWW:: Mechanize = HASH (0xa11cf98)',
        'HTTP:: Request = HASH (0xa211690)') called at
        / Opt/perl-5.12.3/lib/site_perl/5.12.3/LWP/UserAgent.pm line 411

        LWP:: UserAgent:: get ('WWW:: Mechanize = HASH (0xa11cf98)',
        'Http://example.tld') called at
        / Opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 407

        WWW:: Mechanize:: get ('WWW:: Mechanize = HASH (0xa11cf98)',
        'Http://example.tld') called at
        / Opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2747

        WWW:: Mechanize:: _the ('Error', 'GET', 'ing'
        'URI:: http = SCALAR (0xa1f2db0)', ':', 'Can \' t
        connect to example.tld: 80 (Bad hostname) ') called at
        / Opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2734

        WWW:: Mechanize:: die ('WWW:: Mechanize = HASH (0xa11cf98)',
        'Error', 'GET', 'ing', 'URI:: http = SCALAR (0xa1f2db0)', ':',
        'Can \' t connect to example.tld: 80 (Bad hostname) ') called at
        / Opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm line 2381

        WWW:: Mechanize:: _update_page ('WWW:: Mechanize = HASH (0xa11cf98)',
        'HTTP:: Request = HASH (0xa211690)', 'HTTP:: Response = HASH (0xa15f480)')
        called at / opt/perl-5.12.3/lib/site_perl/5.12.3/WWW/Mechanize.pm
        line 2213

        WWW:: Mechanize:: request ('WWW:: Mechanize = HASH (0xa11cf98)',
        'HTTP:: Request = HASH (0xa211690)') called at
        / Opt/perl-5.12.3/lib/site_perl/5.12.3/LWP/UserAgent.pm line 411

        LWP:: UserAgent:: get ('WWW:: Mechanize = HASH (0xa11cf98)',
        'Http://example.

Pavel Titov has for the helpdesk system OTRS an Android App [url = https://market.android.com/details?id=com.ptitov.megaticket] published. The app supports the basic functions such as the dashboard alerts for new tickets, ticket different views and functions for all tickets.

At YAPC:: Asia 2011 was presented PrePAN, can be discussed on the modules before they are uploaded to CPAN. So get all module authors - or those who would want to be - the opportunity to interact with other developers. Are there already similar modules? How can I best implement what you want? or should look like the module for CPAN? are only three possible questions that can be answered here.

Perl Newspaper Issue # 14 is from 1 November for purchase. Click here for Table of Contents: http://perl-zeitung.at Best regards, Gernot Havranek

The 13th German Perl Workshop is still in full swing (report follows) and the next events are already in sight. One is the OpenRheinRuhr ! We are there also have a Perl stand - right next to the state of OTRS - community .

For me it is the first OpenRheinRuhr and I'm curious what I experience there as anything. In view of the next YAPC:: Europe , I look now at more events with different eyes.

Back to OpenRheinRuhr. We are there not only have a Perl stand, it is also a $ foo type bar ;-) The idea of the name of the Perl magazine and the famous "foobar" was to make something of the ORR Orgas and I was immediately enthusiastic.

There is also a lecture by Gerd Pokorra: Introduction to Perl 6 .

I'm looking forward to the event and to meet many people there.

OTRS OTRS AG has released new versions. In the 2.4.x branch - and thus in 2.4.11 - there is only one change, a lot has changed in 3.0.11: http://otrs.org/releases/3.0.11

The first monthly report by Nicholas Clark's Grant is because Nick has worked on POSIX modules, so this crash no longer ithreads, still he has written a script, find the one after the commit may have fit the specific error. Clark has worked on other things that can be found in the blog entry at the Perl Foundation. A total of Nicholas Clark has worked in September, over 144 hours on the Grant.

The Perl Foundation Grant Dave Mitchell has extended. He gets another $ 20,000 for his work. This renewal grant will be paid out of the Perl 5 source of donations.

In September, Dave Mitchell has worked on further bugfixing in regular expressions. There it is possible to execute code with "(?{...})". There are some problems. During the last month Mitchell nearly 29 hours has been working on these bugs.

The Perl Foundation again calls on people to submit grant proposals. To 15 November 2011, proposals may be submitted. In this quarter, proposals are sought that have a value of $ 500-2000 U.S.. Grants must promote the purposes, projects that support the Perl community.

Two more small improvements Plus2Blog script:
* The title is generated now optionally clipped from the text so that it does not appear again at the beginning of the text
* The minimum length for positive items that are copied into the blog has been increased to 300 characters. (Although one could safely assume there again even more. But for a blog article depending on how you want to run the blog, 300 characters for a little, enough for one another ...)

If necessary. I should have the optional hard-coded HTML tags make (s). For example, it is then in the attachments instead of a div then the HTML tag might use <aside>.

This article was first published on G + .

From 18 to 20 November 2011 in Geneva at CERN, the Foswiki Camp 2011. On 19 November is actually carried out the Annual General Meeting of the Association Foswiki at the camp. On the Foswiki Camp, various projects in so-called sprint to be addressed. Was proposed as Foswiki PSGI-compliant.

In his latest Perl snapshot shows Michael Schilli, as with the help of WWW:: Scripter and other Perl modules for the execution of JavaScript in different information from its routers reads.

Harlan Lieberman-Berg Crypt of a vulnerability in the module:: DSA attention: On systems where there is no "/ dev / random" is present, use the module Data:: Random, the however, provides no cryptographic secure random numbers. This affects versions 1.17 and older of Crypt:: DSA.

In FastCGI FCGI module is available in versions 0.70 to 0.73 a security hole: CVE-2011-2766th If the old API was used, it could happen, that information was used from an earlier request in the new request. Thus it is possible, for example, the authentication of Web applications over HTTP header prepared to handle. In version 0.74 the bug was fixed.

The results of the survey on YAPC:: Europe 2011 were published. Particularly striking is the large number of YAPC newcomers - with 39 of 270 participants. Further analysis of the data has not been made. Barbie in the coming days, a PDF file with an analysis.

The current Perl pumpking, Jesse Vincent, has initiated a discussion of whether the support for EBCDIC to be removed from Perl or not. The starting point of discussion is that none of the current Perl 5 Porters have access to a machine with the EBCDIC character set. This would be necessary to change to Perl 5 can also test with this character set. Who still wants EBCDIC support in Perl should contact the Perl 5 Porters.

As reported yesterday, Grant is the "core Perl5 Fixing bugs" shortly before the completion of Dave Mitchell. Since he would like to continue to work on Perl5 core, he has applied for renewal of grants made. This extension has a value of $ 20,000.

In the 10/2011 issue of the magazine LinuxUser an article by Frank Hoffmann on "Image Processing with Perl and Python" appeared. The article is also under to find.

The Belgian Perl Workshop 2011 will take place on 15 Held in October in "The Hub" in Brussels. As in previous years, admission is free. For more information on the event, visit http://conferences.yapceurope.org/bpw2011/.

Gabor Szabo has launched a survey to find out how other people relate their information to Perl news. The survey can be found at http://perlpolls.com/perl-news. Gabor Szabo brings out the weekly newsletter PerlWeekly in which he summarizes the most current and interssantesten messages from the Perl world.

In August Dave Mitchell has over 65 hours working on his grant. The month was dominated by work on this bug in the code associated with the evaluation in regular expressions (/(?{...})/). The bug, which serves as a clearinghouse for all bugs in this context is to see [# 34 161]. With the hours of August, Dave Mitchell has now over 864 hours working on his grant - stay for 36 hours.

Florian Ragwitz has released version 5.14.2 of Perl. In this version, two security fixes were recorded: first, the function bsd_glob from the module File:: Glob fixed, could result in the flag GLOB_ALTDIRFUNC to a "denial of service" or to execute arbitrary code. Furthermore, Encode has been fixed, where it could function in the decode_xs come with certain inputs to a heap overflow. In addition, this release includes numerous bug fixes that are in perldelta read.

The Plus2Blog script.

From now on my Plus2Blog script available for download:
https://github.com/xwolfde/Plus2Blog

The script does nothing else than the public G + Stream to read a person and send them to a blog via the XML-RPC interface.

Currently the script is present in a rudimentary form, in which the configuration must be changed in the script itself. Which variables and values ​​can be altered is said to be sufficient.

Why?
The idea behind the whole thing is really quite simple: Some of the articles I write here, are developing as I have formulated it, to longer texts. Texts that I otherwise would have actually posted on my blog.

Only because of the daily flow of news, I'm more here than in the dashboard of my blog. And when I'm here, then the input window is just a click away. The result is then that message from me rather just here, but deserted my blog.
People follow me or get my blog feed, nothing to do with it when I write something here.

Another reason is that I'm on my own blog, data sovereignty. If at some point G + is not, then I will still have saved the text.

The script is now of course only a first version here. I can think of several ideas at once, where you could improve it. For example, an automatic category detection would be useful because you can set in G + still no categories for articles. Another idea would be to link with Twitter. With my script feed2twitter ( https://github.com/xwolfde/feed2twitter ) times I've already written a script which messages from the feed of a blog ausließt, generates a short title and a link and then tweeting this.
Why not add the script Plus2Blog addition to the compound to a blog and an output point for Twitter?
Since I have in Plus2Blog anyway already installed a news threshold, whereby only those entries are done onto blog, which are longer than 200 characters, one that could indeed vice versa use for tweets: What just 140 characters or less, is tweeting in addition, while the texts are longer be blogged.

I am aware that there are a lot of browser add-ons that allow the same functionality. But I do not want to use these addons: For this I am much too frequently and sometimes simultaneously with multiple devices in the network, which then have different browser. I do not want to chase the technology with continuing updates to keep all my systems are on the same date. Since it is chasing the technology rather please my streams / feeds / tweets and aggregate these:)

This is hopefully my last test message to my Plus2Blog script.

If this all works as it should, then this article will also automatically appear immediately on my blog. And even with this one image that I upload here only.

With my script I read the stream of public API + API from Google about me, format the content that complements any attachments and then send it to the blog via XMLRPC.
I recognize the only kind of posts here that have a minimum length and are in the public circle.

Of course all this is done with Perl.

Last night was the OTRS community meeting in Frankfurt instead. But before that, I've yet to Alexander Hall of OTRS Community Board taken to various things such as Perl or OTRS stand at OpenRheinRuhr to discuss. We have our MoschMosch , the hangout of the Frankfurt Perlmongers made.

After delicious fried noodles and two hours of conversation we walked towards the "House of Youth". Overall, we were six at the meeting may, in future, come a little more quiet participants.

At first we did a very extensive round of introductions, where everyone has something to tell his background and his OTRS installation. I was fascinated by the numbers of a particular participant, who reported 2.5 million tickets to over 6 million articles. Now that's bold ne installation. It's only a 1200faches greater than my own instance.

Among the major installations are of course many efforts made to keep the system performing. About these efforts, we have also talked for a while - very interesting. Since it was such a full-text search with Sphinx .

Then I have a lecture with a brief introduction of OPAR and the presentation of 5 of my extensions maintained. In the ensuing discussion has found out that most of the participants knew nothing about the creation of OPM packages. OPM is the XML format for OTRS packages.

We have therefore agreed that I think early next year a little "hackathon", is shown in which, as you can pack your own OTRS packages.

Alexander then presented nor his work for the OTRS community, and explains how the future of the (not yet founded) association and the community could OTRS.

For some time I use it for a couple of feeds a Perl script which allows me to link to feeds from a blog on Twitter. The original script called then as well feed2twitter.pl. The script is invoked from the shell by hand or via cron.

A sample call might look like this:

 ./feed2twitter.pl - twitter = xwolf - feed = http://blog.xwolf.de/tag/piraten/feed/ - pirate hashtag = - quiet 

The script reads initially the feed of my blog in the category of "pirate" one. Then it takes the title of each article and the URL to create a Twitter message from it. The message is then posted to my Twitter account.

If articles and URL are longer than 140 characters, which is part of the title is shortened optional. To prevent that are tweeting in several successive calls to the same article again about cron, the script stores from an index of all articles previously sent.

The script can be downloaded now at github: https://github.com/xwolfde/feed2twitter

Very likely to use the re-installation of Perl modules is Net:: Twitter:: Lite needed. Also you must own the copy of the script at https://dev.twitter.com/ register to get an API key to get a key consumer and the consumer key.

It is possible to use different feeds and different Twitter accounts. One possible application of the script example would therefore also the one article to multiple blogs or using RSS published retrieve messages and to promote a common Twitter account.

The Perl Foundation has announced that LiquidWeb are 10,000 U.S. $ for the Perl 5 source of donations. LiquidWeb is a hosting company that has programmed many of his own tools with Perl and want to return a part in making this donation to the Perl community. With the Perl 5 developers like Core Maintenance Fund and Nicholas Clark, Dave Mitchell will be paid to wait for the Perl 5 core and expand. Only recently a grant application approved by Nicholas Clark

In version 2.2 of the project Zentyal it numerous innovations. These include an audit logging, logging all the changes in the configuration. Also, IPsec and PPTP are now supported. The complete changelog can be found on the website of the project. Zentyal is a Small Business Server as a gateway, Office Server, etc. can serve Infrastructure Manager. It is the successor of eBox.

We call for Papers and Workshops for the twin-city Perlworkshop 2011, on the 4th-5th Held November in Vienna, and Bratislava. We want to hear your issues on the Perl language family and thus connected. The deadline for this is the 15th October. See our website in order to submit a proposal and for further details. Please subscribe to the feed for future notifications. The Orga

Renee Baker, the lecture program of the 13th German Perl Workshop (19/10/2011 to 10/21/2011) online.