burak

ml990045:hbase-client bgursoy$ perl -V:version
version='5.24.0';
ml990045:hbase-client bgursoy$ find . | grep pm$ | perl -anE 'chomp; say "perl -Ilib -wc $_"' | bash
./lib/HBase/Client/Cluster.pm syntax OK
Subroutine connect redefined at ./lib/HBase/Client/Connection/Closed.pm line 8.
Subroutine write redefined at ./lib/HBase/Client/Connection/Closed.pm line 10.
Subroutine close redefined at ./lib/HBase/Client/Connection/Closed.pm line 12.
./lib/HBase/Client/Connection/Closed.pm syntax OK
Subroutine _enter redefined at ./lib/HBase/Client/Connection/Connected.pm line 8.
Subroutine write redefined at ./lib/HBase/Client/Connection/Connected.pm line 26.

burak

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use subs qw( call );
use Cwd;
use File::Basename;

# git shortlog -sn
my $authors = <<"AUTHORS";

burak

vlc -I dummy --no-sout-video --sout-audio --no-sout-rtp-sap --no-sout-standard-sap --ttl=1 --sout-keep --sout='#transcode{acodec=flac,ab=512}:standard{mux=ogg,dst=/tmp/1.ogg,access=file}' cdda:///dev/rdisk4 --cdda-track=1 vlc://quit

burak

var f=document.forms[0].pause99_delete_files_FILE;for(i=0;i<f.length;i++)f[i].checked=1;

burak

perl -MData::Dumper -MDevice::CableModem::Motorola::SB4200 -MWin32::API -wle "Win32::API->Import("User32", "MessageBeep", "l", "V");while(1){my$m=Device::CableModem::Motorola::SB4200->new;system q(cls);my%s=$m->status;if($s{establish_ip_connectivity_using_dhcp} eq q(Done)){ for(1..5){MessageBeep(-1);sleep 1}print qq{Connected!\n};last;}print Dumper{%s};sleep 60}"

burak

perl -Mstrict -MMP3::M3U::Parser -wle 'my$t=0;while(<*.m3u>){$t+=@{MP3::M3U::Parser->new->parse($_)->result->[0]{data}}}print$t'

burak

perl -e "print q{a} x (1024**2*4)" > junk.txt && "C:\Program Files\7-Zip\7z.exe" -mx9 -t7z a junk.7z junk.txt 1>nul && perl -MFile::stat -wle "printf qq{txt: %.2f MB\n7z : %d byte\n}, stat(q{junk.txt})->size/1024**2, stat(q{junk.7z})->size"

burak

perl -e "print q{a} x (1024**2*4)" > junk.txt && "C:\Program Files\WinRAR\rar.exe" -m5 a junk.rar junk.txt 1>nul && perl -MFile::stat -wle "printf qq{txt: %.2f MB\nrar: %d byte\n}, stat(q{junk.txt})->size/1024**2, stat(q{junk.rar})->size"

burak

#!/usr/bin/perl -w
# Burak Gursoy <burak at cpan dot org>
use strict;
use warnings;

our $VERSION = '0.10';

BEGIN {
    use CGI::Carp qw(fatalsToBrowser);
}