Ruby and Perl

Membandingkan struktur dari variabel

2010-12-03T19:34:00.000+07:00

Saya mempunyai beberapa array dan saya harus membandingkan array-array tersebut. Permasalahan muncul karena elemen dari array-array tersebut adalah berupa hash, satu menit kemudian saya sudah bersiap untuk membandingkan dengan memakai kode sendiri, namun seperti kebiasaan sebelumnya, pertama-tama, saya cari terlebih dahulu modul yang diperuntukan untuk keperluan ini di http://search.cpan.org dan

lib/webrat/adapters/mechanize.rb ignores http headers

2010-04-05T23:18:00.001+07:00

Looks webrat ignores http headers (when we tried to manually set http headers), for example def rating url_path = '/rating';# + id header "Accept", "text/xml" visit( @url + url_path, :post ) end So i take a look closer into lib/webrat/adapters/mechanize.rb, and i saw this line of code inside method 'post' @response = mechanize.post(url, post_data), i think this is the

Gracefully support HTTP errors

2010-04-01T09:41:00.007+07:00

require 'rubygems' require 'mechanize' a = Mechanize.new { |agent| agent.user_agent_alias = 'Mac Safari' } a.get(:url => 'http://example.com', :headers => {'Accept' => 'text/xml', 'Connection' =>'keep-live'} ) puts a.page.body If mechanize found error code '401' (for example) then mechanize will raise error message: /usr/lib/ruby/gems/1.8/gems/mechanize-1.0.0/lib/mechanize.rb:614:in

collect unique records from csv file

2009-08-21T10:40:00.008+07:00

Follow discussion about this post on http://tech.groups.yahoo.com/group/id-perl/message/1843#!/usr/bin/perluse strict;use warnings;use Data::Dumper;use Text::CSV;$Data::Dumper::Terse=1;$Data::Dumper::Indent=0;my $csv = Text::CSV->new({ binary => 1, eol => "\n", sep_char => ';' });#for

MyISAM vs InnoDB

2008-11-14T16:54:00.001+07:00

Ini pembicaraan saya dengan prof, tentang MyISAM dan InnoDB, mudah-mudahan bermanfaat (4:23:59 PM) doctor_moron: saya baca post nya prof tentang myisam vs innodb (4:24:08 PM) EP: di mana? (4:24:21 PM) doctor_moron: http://tech.groups.yahoo.com/group/id-mysql/message/450 (4:24:31 PM) EP: pasti udah lama (4:24:34 PM) doctor_moron: iya (4:25:02 PM) EP: makin tua makin males (4:25:19 PM)

Get tables & columns from MS Access

2008-11-13T12:15:00.004+07:00

#!/usr/bin/perl -wuse strict;#use Data::Dumper;use DBI;my $dsn = 'Driver=Microsoft Access Driver (*.mdb); DBQ=db.mdb';my $dbh = DBI->connect("DBI:ODBC:$dsn",'','', {RaiseError=>1}) or die $DBI::errstr;my $sth = $dbh->table_info('','','','TABLE');while( my ( undef, undef, $name ) = $sth->fetchrow_array() ) { print "$name: \n"; my $colsth = $dbh->

Dispatch Table Versus Big elsif

2008-07-29T00:00:00.004+07:00

Yang dimaksud dengan big elsif itu adalah baris kode yang seperti ini:use strict;use warnings;use feature qw/say/;my $input = <STDIN> ;chomp $input;if($input eq 'striker') { move_striker();} elsif($input eq 'winger') { move_winger();} elsif($input eq 'playmaker') { move_playmaker();} elsif($input eq 'stopper') { move_stopper();} else { unknown_player_type();}sub move_striker { say 'going to

Closure

2008-07-26T20:56:00.008+07:00

Mungkin, saya orang yang paling membenci istilah-istilah dalam dunia programming, mungkin saya sudah berpikiran rumit terlebih dahulu tentang istilah-istilah tersebut, misal object oriented, class, scaffolding dan lain sebagainya dan salah satunya adalah closure.Namun setelah melihat penjelasan sedikit dari bukunya Damian Conway, ternyata closure itu hanyalah sebuah subrutin yang bisa mengakses

Send SMS with Perl

2008-04-12T23:06:00.003+07:00

#!/usr/bin/perluse strict;use warnings;use Device::Gsm;my $port = $^O =~ /Win/ ? 'COM6' : '/dev/modem';my $myport;my $gsm = new Device::Gsm( port => $port, log => 'file,send.log' );die "cannot create Device::Gsm object!" unless $gsm;$gsm->send_sms( content => 'test', recipient => '+6281220xxxx', class => 'normal' # try `flash');You can find

Connect to GSM Modem - send raw AT commands

2008-04-11T13:11:00.001+07:00

#!/usr/bin/perluse Device::Modem;my $modem = new Device::Modem( port => '/dev/modem');if($modem->connect(baudrate => 9600)) { print "connected \n";} else { print "connect to modem is failed $! \n";}$modem->atsend('AT+CMGL="STO UNSENT"' . Device::Modem::CR);print $modem->answer();I just connect to modem and send AT+CMGL (Read SMS message, in this case STO UNSENT [message in unsent folder])

statistik raw log kannel

2007-11-13T18:17:00.001+07:00

Skrip ini saya bikin hanya sebagai pembanding saja dan selain dari itu memang kadang kita butuh skrip ini cuman buat mastiin kalo segala sesuatu nya ok dengan kannel.Kebanyakan log kannel itu 'sakit' (log bearerbox) dan memang seharusnya kalo mau parse jangan yang bb-access.log tapi (mungkin) bb.log atau sb.log, so saya bikin skrip ini hanya buat iseng isengan lagi dengan Perl.#!/usr/bin/perluse