Recommend Me


Jeudi 11 juin 2009

Fin… et suite…

Voilà, le temps et venu. Je ferme définitivement ce blog pour me consacrer pleinement au suivant.

See you there.

• • •

Mardi 4 novembre 2008

Mixr et Perl

Classé dans : Mixr, Perl, Projets — greg @ 20:23

Allez, ce soir on fait du Perl

  1. use MixrClient;
  2.  
  3. $p = MixrClient->new( "localhost", 9900 );
  4.  
  5. print "Store key => value : ";
  6. if( $p->store( "key", "value" ) ) {
  7.   print "ok!\n";
  8. } else {
  9.   print "error!\n";
  10. }
  11.  
  12. print "Store cle => valeur : ";
  13. if( $p->store( "cle", "valeur" ) ) {
  14.   print "ok!\n";
  15. }   else {
  16.   print "error!\n";
  17. }
  18.  
  19. print "Get key = ";
  20. my $r = $p->get( "key" );
  21. print $r . "\n";
  22.  
  23. print "List of keys : \n";
  24. @keys = $p->keys();
  25. foreach $k ( @keys ) {
  26.   print "- $k\n";
  27. }
  28.  
  29. print "List of values : \n";
  30. @keys = $p->values();
  31. foreach $k ( @keys ) {
  32.   print "- $k\n";
  33. }
  34.  
  35. my %h = $p->to_hash();
  36. while(($k, $v) = each(%h)) {
  37.   print "$k => $v\n";
  38. }
  39.  
  40. print "Delete cle : ";
  41. print $p->delete( "cle" )."\n";
  42.  
  43. print "Is empty : ";
  44. if( $p->is_empty() ) {
  45.   print "yes!\n";
  46. } else {
  47.   print "no!\n";
  48. }
  49.  
  50. print "Has key ‘key’ : ";
  51. if( $p->has_key( "key" ) ) {
  52.   print "yes!\n";
  53. } else {
  54.   print "no!\n";
  55. }
  56.  
  57. print "Has key ‘cle’ : ";
  58. if( $p->has_key( "cle" ) ) {
  59.   print "yes!\n";
  60. } else {
  61.   print "no!\n";
  62. }
  63.  
  64. print "Clear !\n";
  65. $p->clear();
  66.  
  67. print "Is empty : ";
  68. if( $p->is_empty() ) {
  69.   print "yes!\n";
  70. } elsif( not $p->is_empty() ) {
  71.   print "no!\n";
  72. }
• • •
Powered by: WordPress • Template adapted from the Simple Green' Wench theme - RSS