#perl5

[gslin]

Perl 6 的名字被拿出來談...

Perl 6 的名字被拿出來談…

在「Is Perl 6 Being Renamed?」這邊看到提到 Perl 6 名字的問題，主要是因為 Perl 6 跟現有 Perl 5 已經是不同的東西 (有點類似於當初 Python 2 到 Python 3 的計畫，但是差異比 Python 那邊多很多)，而導致被提出來討論是否還要繼續使用 Perl 這個名字了：「“Perl” in the name “Perl 6” is confusing and irritating」。

When Perl 6 was announced, it was seen the way that Perl 2, Perl 3, Perl 4, and Perl 5 were seen: replacements for “$VERSION – 1”. Over time, it became clear that though Perl 6…

View On WordPress

[bjonasn]

Nordic Perl Workshop 2012

Nordic Perl Workshop 2012

Just back from the Nordic Perl Workshop 2012 in Stockholm, Sweden.

It has been quite some time since I have attended a Perl community event, so it felt awesome to see old friends again and at the same time meeting new people.

The Nordic Perl Workshop 2012 was arranged by Claes Jakobsson, who always set up a nice 1 track setting, so you do not have the dilemma of choosing between tracks. You can…

View On WordPress

[beaconsco]

[Perl5] Simple IPC using pipe

I went out to Kichijoji.pm last night and there was a talk about redirection > and pipe |.

It's true that it is useful to have some sort of communication between parent and child processes but such occasion doesn't happen that frequent in my life.

Here's a very simple example of forking multiple child processes, and parent process gathering pipe input from it's children.

[nixcraft]

Want to increments all numbers in input.txt using perl?

perl -pe 's/(\d+)/ 1 + $1 /ge' input.txt

[perltaiwan]

Perl Maven 正體中文化

Perl IDE Padre 的作者 Gabor Szabo 最近非常積極的製作了 Perl 基礎教學網站 Perl Maven，並且尋求各種語言的翻譯者。正體中文也在其列。

Gabor 利用 Gtihub 來管理此專案 的文件寫作和翻譯協作，Perl 台灣社群與其協作的方式是將此專案建立一份分支，社群成員多半直接在此分支進行翻譯，完成後發送 pull request。

如您也有興趣參與此翻譯計畫，可以至 Perl 台灣的 Facebook Group 頁面提出，並提供您的 Github 帳號，我們將會提供此專案的存取權限給您。

[b4d17]

Macports, Irssi and Perl5 issues fix

[catlgrep-blog]

Cygwin paths and perlbrew

I've been messing around with perlbrew lately and decided to give it a whirl on Cygwin. Right off the bat I ran into a problem with my $PATH.

PATH=/usr/local/bin:/usr/bin:/usr/local/bin:/usr/bin:/cygdrive/c/Program Files/Common Files/Microsoft Shared/Windows Live:/cygdrive/c/Program Files (x86)/Common Files/Microsoft Shared/Windows Live:/cygdrive/c/Program Files (x86)/AMD APP/bin/x86_64:/cygdrive/c/Program Files (x86)/AMD APP/bin/x86:/cygdrive/c/Windows/system32:/cygdrive/c/Windows:/cygdrive/c/Windows/System32/Wbem:/cygdrive/c/Windows/System32/WindowsPowerShell/v1.0:/cygdrive/c/Program Files/Intel/WiFi/bin:/cygdrive/c/Program Files/Common Files/Intel/WirelessCommon:/cygdrive/c/Program Files (x86)/ATI Technologies/ATI.ACE/Core-Static:/cygdrive/c/Program Files (x86)/Intel/Services/IPT:/cygdrive/c/Program Files (x86)/Symantec/VIP Access Client:/cygdrive/c/Program Files (x86)/Sony/VAIO Startup Setting Tool:/cygdrive/c/Program Files (x86)/Common Files/Roxio Shared/10.0/DLLShared:/cygdrive/c/Program Files (x86)/Common Files/Roxio Shared/DLLShared:/cygdrive/c/Program Files (x86)/Windows Live/Shared

Spaces everywhere, which the perl installer did not take kindly to.

I had two options at this point:

Set $PATH to only include what was needed to install and be done with it

Spend a good chunk of time Googling how to convert the paths to something perl wouldn't complain about.

I of course, took option 2.

I wanted my default paths to work with whatever I needed to do. $PATH is given to Cygwin by Windows, so I'd like to keep it that way for consistency. The necessity of doing this can be debated.

I needed:

/cygdrive/c/Program Files/Common Files/Microsoft Shared/Windows Live

to become:

/cygdrive/c/PROGRA~1/COMMON~1/MICROS~1/WINDOW~1

cygpath

I found cygpath and thought it would be all I needed.

I was wrong.

The command has options to display unix style paths, windows style paths and short paths, but it does not allow you to combine the short style with the unix style.

Unix Style Path:

/cygdrive/c/Program Files/Common Files/Microsoft Shared/Windows Live

Mixed Style Path:

$ cygpath -m "/cygdrive/c/Program Files/Common Files/Microsoft Shared/Windows Live" C:/Program Files/Common Files/Microsoft Shared/Windows Live

Short Style Path:

$ cygpath -m -s "/cygdrive/c/Program Files/Common Files/Microsoft Shared/Windows Live" C:/PROGRA~1/COMMON~1/MICROS~1/WINDOW~1

Fixing $PATH

I would need to create a shell script to combine the mixed and short style paths into something I could use.

Gist

# First we need to split $PATH # on ':' and put each line into # an array OLD_IFS=$IFS IFS=$'\n' paths=(`echo $PATH | tr -s ":" "\n"`) IFS=$OLD_IFS # The paths supplied from Windows # may not actually exist. These # paths will cause cygpath to error # so we will skip them and only # process actual directories. valid_paths=(); for path in "${paths[@]}"; do if [ -d "${path}" ]; then # Save the cygdrive we are parsing cygdrive_save=$(echo $path | grep -oEi "/cygdrive/[a-z]+") if [[ $cygdrive_save ]]; then # Get the short version of the path from cygpath # We can't have ':' in our path so only grab the # path following C: (or other drive letter) no_space_path=$(cygpath -a -m -s "${path}" | cut -d : -f 2); # Use the saved cygdrive from above and # prepend it to the short path valid_paths=("${valid_paths[@]}" "${cygdrive_save}${no_space_path}") else valid_paths=("${valid_paths[@]}" $path) fi fi done # Join the valid_paths array with ':' # and set $PATH OLD_IFS=$IFS IFS=":" PATH="${valid_paths[*]}" IFS=$OLD_IFS

Add to .bash_profile and now my $PATH looks like this:

$ printenv PATH /home/Kevin/perl5/perlbrew/bin:/usr/local/bin:/usr/bin:/usr/local/bin:/usr/bin:/cygdrive/c/PROGRA~1/COMMON~1/MICROS~1/WINDOW~1:/cygdrive/c/PROGRA~2/COMMON~1/MICROS~1/WINDOW~1:/cygdrive/c/PROGRA~2/AMDAPP~1/bin/x86_64:/cygdrive/c/Windows/system32:/cygdrive/c/Windows:/cygdrive/c/Windows/System32/Wbem:/cygdrive/c/Windows/System32/WINDOW~1/v1.0:/cygdrive/c/PROGRA~1/Intel/WiFi/bin:/cygdrive/c/PROGRA~1/COMMON~1/Intel/WIRELE~1:/cygdrive/c/PROGRA~2/ATITEC~1/ATI.ACE/CORE-S~1:/cygdrive/c/PROGRA~2/Intel/Services/IPT:/cygdrive/c/PROGRA~2/Symantec/VIPACC~1:/cygdrive/c/PROGRA~2/Sony/VAIOST~1:/cygdrive/c/PROGRA~2/COMMON~1/ROXIOS~1/10.0/DLLSHA~1:/cygdrive/c/PROGRA~2/COMMON~1/ROXIOS~1/DLLSHA~1:/cygdrive/c/PROGRA~2/WIC4A1~1/Shared

Now the Perl install (and anything else that is space sensitive) works:

$ perlbrew list perl-5.14.2 $ perlbrew exec perl -v perl-5.14.2 ========== This is perl 5, version 14, subversion 2 (v5.14.2) built for cygwin-thread-multi-64int Copyright 1987-2011, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page.

Shell scripting is not my strong suit. I'm guessing there is a better and possibly more efficient solution to this problem. I welcome any suggestions to clean it up.

[simplicity-is-divine-blog]

Installing bugzilla, notes

> Bugzilla is server software designed to help you manage software development. I made this short notes based on my experience on installing [bugzilla](http://www.bugzilla.org/). If you follow this notes, you need to have '*mysql-server*' installed and '*apache2*'. Also for compiling some modules you need basic development tools, in [*debian*](http://www.debian.org) you can install them with following meta package '*build-essential*'. If you use *mysql* then you need'*mysql-dev*' package so *mysql* module can compile. If you want graphs you need to install '*gd*' library and devs packages for it. First we make http folder where you will put your http apps, you can choose any directory that you like. If your distribution use some other group for running apache change '*http*' to follow that. $ sudo mkdir /home/http $ sudo chown your_username.http /home/http Download bugzilla in appropriate folder. $ cd /home/http $ wget http://ftp.mozilla.org/pub/mozilla.org/webtools/bugzilla-4.0.2.tar.gz $ tar xzf bugzilla-4.0.2.tar.gz $ rm bugzilla-4.0.2.tar.gz $ mv bugzilla-4.0.2 bugzilla $ cd bugzilla Install needed modules, note that if you installed local::lib or cpanm, then disable them before you do this step with: *'eval $(perl -Mlocal::lib=--deactivate)'*. By default *install-module.pl* command installs all modules in *'./lib'* folder of local bugzilla directory. I really liked that, because I always prefer to mantain clean perl5 and to use something like [*cpanm*](https://metacpan.org/module/App::cpanminus) to install all extra modules. $ ./install-module.pl --all You can now change some parameters of your bugzilla app like dbname... I changed this in my localconfig file, please don't use empty password. # localconfig file, '...' are not part of content ... $db_name = 'bugzilladb'; $db_user = 'bugzilla'; $db_pass = ''; ... After that you need to setup mysql so your bugzilla app can work with it. $ mysql -u root -p CREATE DATABASE bugzilladb; CREATE USER 'bugzilla'@'localhost' IDENTIFIED BY ''; GRANT ALL ON bugzilladb.* TO 'bugzilla'@'localhost'; Edit you apache2 conf, for my distro([Arch](http://www.archlinux.org/)) it is file: '*/etc/httpd/conf/httpd.conf*'. Alias /bugzilla /home/http/bugzilla/ # so we can just type http://localhost/bugzilla/ # and not http://localhost/bugzilla/index.cgi DirectoryIndex index.cgi index.html # Allow executing CGI in this directory Options +ExecCGI # What files are executable *.cgi & *.pl AddHandler cgi-script .cgi .pl # Lots of distros just disables viewing everything outside DocumentRoot # directory. This option allows viewing this directory from apache Order allow,deny Allow from all After that just open in your browser 'http://localhost/bugzilla/'. There can be couple modules missing, if that is a case then just install them with '*install-module.pl*' command.