view release on metacpan or  search on metacpan

lib/Acme/PM/Barcelona/12x5_ca.pod  view on Meta::CPAN

=head3 Com està el canvi?

Es pot obtenir el canvi actualitzat de la moneda d'arreu del món.

=head3 Conversió de dòlars a euros

  use Finance::Quote 1.16;

  $quote = Finance::Quote->new();
  $ratio = $quote->currency('USD', 'EUR');

  print "10 USD = ", 10 * $ratio, " EUR\n";

=head3 Millorem la velocitat amb una còpia temporal

  use Cache::FileCache;
  use Finance::Quote 1.16;

  $cache = Cache::FileCache->new({
    default_expires_in => '1 day',
  });

  $ratio = $cache->get("USD:EUR");
  if ( !defined $ratio ) {
    $quote = Finance::Quote->new();
    $ratio = $quote->currency('USD', 'EUR')
    $cache->set("USD:EUR", $ratio);
  }

  print "10 USD = ", 10 * $ratio, " EUR\n";

=head2 Flickr::Upload

=head3 Teniu compte al Flickr?

Una eina que utilitza C<Flickr::API> per a publicar fotos a Flickr.

=head3 flickr_upload

La manera més fàcil d'utilitzar l'eina és amb
l'ordre C<flickr_upload> des de l'intèrpret d'ordres. Primer
heu de configurar l'accés al vostre compte de Flickr seguint
les instruccions que us indicarà aquesta ordre:

  $ flickr_upload --auth

I un cop ho haureu fet, ja podreu publicar les fotos que vulgueu:

  $ flickr_upload --progress --tag 'barcelona.pm' *.jpg

=head3 Programar amb Flickr::Upload

Però també es pot utilitzar des d'un programa que
permeti triar amb més flexibilitat com voleu etiquetar
les vostres fotos.

  use Flickr::Upload;

  $ua = Flickr::Upload->new({
    'key'    => $key,
    'secret' => $secret,
  });

  $ua->upload(
    'auth_token' => $auth_token,
    'photo'      => 'barcelona-pm.jpg',
    'tags'       => 'barcelona.pm',
    'is_public'  => 1,
    'is_friend'  => 1,
    'is_family'  => 1,
  );

=head2 Codis QR

=head3 Què són?

Els codis QR s'utilitzen per a codificar informació que pugui
ser llegida i utilitzada de forma ràpida des d'un dispositiu
lector.

Es tracta d'un invent japonès per tal que es pugui llegir
informació ràpidament des dels mòbils i
es pugui utilitzar d'immediat sense haver d'escriure res, per exemple
posant-ho en un anunci d'un diari o en una pancarta al carrer, etc.

=head3 Tipus de dades

S'assemblen als codis de barres però permeten emmagatzemar
tot tipus de dades:

=over 4

=item * numèriques

=item * alfanumèriques

=item * binàries

=item * kanji o kana

=back

=head3 Correcció d'errors

Una altra característica interessant dels codis QR és
que permeten fer correcció d'errors si el dibuix no es veu
del tot bé. N'hi ha de 4 nivells:

=over 4

=item * L recupera el 7%

=item * M recupera el 15%

=item * Q recupera el 25%

=item * H recupera el 30%

=back

=head3 GD::Barcode::QRcode

lib/Acme/PM/Barcelona/12x5_ca.pod  view on Meta::CPAN

      'Barcelona Perl Mongers',
      undef,
      20,
  );

=for ToBeUsedInTheFuture =head3 Obrir algunes pàgines web amb el Firefox (2)

  @webs = (
    'perl.org',
    'cpan.org',
  );

  foreach $url (@webs) {
    SendKeys('%(f)t');         # Alt-F, t
    sleep(1);
    SendKeys('^(l)');          # Ctrl-L
    SendKeys('http://www.');
    SendKeys($url);
    SendKeys('~');             # Intro
    sleep(2);
  }

=head3 Automatizació d'un editor de text

  use X11::GUITest qw/StartApp SendKeys/;

  StartApp('gedit');

  SendKeys('~~');
  SendKeys("Mireu, sense mans!!\n");
  sleep(2);
  SendKeys("~Amplio la finestra...\n");
  sleep(2);
  SendKeys('{F11}');
  sleep(2);
  SendKeys("~...i ara torno a reduir-la\n");
  SendKeys('{F11}');
  sleep(2);

=head2 Cultura Perl

=head3 Perl Golf

=over 4

=item * El Perl Golf és un divertiment.

=item * Consisteix en resoldre un cert problema en Perl usant el mínim
nombre de caràcters possible.

=item * El nom és una conya que ve de l'anglès. Es tracta d'usar el
mínim nombre de B<(key)strokes>. Seguint amb l'analogia, als
problemes en golf se'ls anomena B<holes>.

=item * Normalment es juga a golf en torneigs.

=back

=head3 Forat 1

Redueix un nombre enter al seu nombre secret:

  #!/usr/bin/perl -l
  print while+s/./hex($`%10+$&)%15/eg^s//pop/e

  $ forat1.pl 123456
  123456
  35792
  8372
  219
  31
  4

=head3 Forat 2

Troba tots els anagrames:

  #!/usr/bin/perl
  map!s/
  \b/ /|//||print,sort%%for map$%{o,sort/./g}.=$_,sort<>

  $ forat2.pl
  casa
  saca
  sosa
  ossa
  olla
  lola
  casa saca
  lola olla
  ossa sosa

=head3 Poesia Perl

=over 4

=item * Com que Perl té paraules clau i funcions que són paraules angleses,
i a més la sintaxi és bastant permissiva, hi ha gent que hi escriu poesies.

=item * Les poesies han de ser sintàcticament correctes, però es permet que
generin I<warnings>, i no es demana que facin res en particular.

=back

=head3 Poesia 1

  study, write, study,
  do review (each word) if time.
  close book. sleep? what's that?

=head3 Poesia 2

  no less can I say;
  require strict, close attention
  while you ... write haiku

=head3 JAPH

=over 4

=item * Un JAPH es un programa Perl que treu per pantalla la frase