tag:blogger.com,1999:blog-261452002026-07-24T12:55:44.234+07:00zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.comBlogger11125tag:blogger.com,1999:blog-26145200.post-61499411343978020262010-12-03T19:34:00.000+07:002010-12-03T19:34:15.445+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

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0tag:blogger.com,1999:blog-26145200.post-47793423056041598142010-04-05T23:18:00.001+07:002010-04-05T23:24:08.780+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

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0tag:blogger.com,1999:blog-26145200.post-25746092149621604872010-04-01T09:41:00.007+07:002010-04-01T10:32:17.744+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

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0tag:blogger.com,1999:blog-26145200.post-44615723181575677122009-08-21T10:40:00.008+07:002009-10-07T12:31:33.872+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

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0tag:blogger.com,1999:blog-26145200.post-39334551782247342272008-11-14T16:54:00.001+07:002010-04-06T08:34:20.724+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)

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0tag:blogger.com,1999:blog-26145200.post-39183269484648964512008-11-13T12:15:00.004+07:002008-11-13T12:28:48.448+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->

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0tag:blogger.com,1999:blog-26145200.post-70631140743682966582008-07-29T00:00:00.004+07:002008-07-29T02:00:06.266+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 '

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0tag:blogger.com,1999:blog-26145200.post-84368171808978355212008-07-26T20:56:00.008+07:002008-07-28T04:34:23.342+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

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0tag:blogger.com,1999:blog-26145200.post-53913484078968861882008-04-12T23:06:00.003+07:002008-07-28T23:31:46.691+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

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0tag:blogger.com,1999:blog-26145200.post-42734084749089989532008-04-11T13:11:00.001+07:002008-07-28T23:54:44.449+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])

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com1tag:blogger.com,1999:blog-26145200.post-81975400954616560002007-11-13T18:17:00.001+07:002008-07-29T01:58:32.130+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

zakhttp://www.blogger.com/profile/01139402800607788017noreply@blogger.com0