Recently I’ve playd aroung with wc which is not a water closet actually :). This is a Linux utility which can count bytes, words and newlines for some file. And additionally it counts a total lines for more than one file is specified. So, I’ve decided to count lines for Billing System (I work with that project three years!). Billing System is pure Perl application […]
Star Wars Mania
Personally, I don’t like new parts of Star Wars. Last Suturday I and Maria wen to Rio cinema and watched last part. It was boring exept final. But many people like Star Wars and have a fun !
Have a fun with nucleus comments
Today mornig when I came to the office I decided to clean spam comments from my blog. I already wrote a simple script which deletes comments by specific user name like ‘poker’, ‘online poker’ etc. But I made small changes in SQL query and made an error. As result I recovered all blog comments during two hours. It was good idea to print all messages […]
How to recursively add files and directories in GNU Arch
Last week we moved from Subverion to GNU Arch. Why? I’ll try to explain in next posts. So, we needed to import our project (it contains many files and directories) in the new Arch repository. Leonid created a shell script to do that. But I’ve found easier (IMHO) way to do that. tla inventory –source –names | xargs tla add P.S. If you have some […]
The glance on PHP through Perl
One month ago I started to customize SugarCRM for our company. This is a very good, hight quality software. But it ‘s based on PHP but I’ve developed on Perl during last four years. I’m not going to say “PHP is shit, Perl forever!”. I’d like just to share my impression of PHP as Perl developer. And sometimes I’m a little bit confused about PHP. […]
dbf2rdbm
Recently I’ve needed to transfer data from application based on DBF files to the MYSQL database. I’ve created a simple Per script to do it. So, I hope it’ll be useful for somebody to get it and modify if needed. To run script you need to have on your computer installed Perl module XBase and DBI. dbf2rdbm.pl
New Limassol theaters schedule
Updated Limassol cinema schedule from 27th May to 2 June. There are two new movies: thriller “Hostage” with Bruce Willis and Greek social drama “Mi Fevgis” in the Limassol theatres. You can still enjoy last part of “Start Wars” – “Star Wars: Episode III – Revenge of the Sith”, fabulous historical action “Kingdom of Heaven” and political thriller “The Interpreter”. Enjoy!
How to use constants in regexp.
When it needs to create various choises according to someone variable it’s reasonable to build a shitch block: sub test { my $var = shift; SWITCH: for($var) { /^1$/ && do { do something for case 1 … ; last SWITCH;}; /^2$/ && do { do something for case 2 … ; last SWITCH;}; /^3$/ && do { do something for case 3 … ; […]