view release on metacpan or  search on metacpan

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

  $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

Generar un codi QR és molt senzill:

  use GD::Barcode::QRcode;

  binmode(STDOUT);
  print GD::Barcode::QRcode->new('http://perl.cat/')
                           ->plot
                           ->png;

=head3 Image::DecodeQR

Llegir un codi QR és encara més senzill:

  use Image::DecodeQR;

  $url = Image::DecodeQR::decode('perl.cat_qr.png');

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

  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
"Just another Perl hacker,".

=item * Normalment els JAPH són molt originals, o molt
obfuscats.

=back

=head3 JAPH 1

  $_ = "wftedskaebjgdpjgidbsmnjgc";
  tr/a-z/oh, turtleneck Phrase Jar!/; print;

=head3 JAPH 2

=for latex \scriptsize

  $_=q;Barcelona Perl Mongers;,$/=y,gaudi,,,;map$,+=(split//)*(-1)**$|++
  ,(split)[.11_09,1.714];$.=''!~m~erce~;$"=y,catalunya,,,$;=y,rambles,,,
  $*=$/^$.;$:=$.+length,$@=$***$**$/**$*%$:,$%=$/*$"-$*;print+chr($_<0xA
  ?$.."$[$_":m:^$.:?$..$_:$_)for($**$**$/*$",$"*$@+$**$/,$**$,,$***$,,$/
  *$,,$;,$***$/,$,*$/,$.<<$,,$%-$*,$"+$/,$***$,,(($,*$*)**$*)-$/,$***$/,
  $@+$/,$:-($/**$*),$.,$:+$"+$*,$.<<$*,$,**$/-$:-$,,exp$:/$,,$",$.,$"*$*
  ,$***$,,log$.,$.,-$/+$"*$,,$/+$"*$;,$.,++$@,$***($/&=$/+Barcelona_pm))

=head2 Mòduls poc corrents del CPAN

=head3 Lingua::Romana::Perligata

Perl in Latin.

  use Lingua::Romana::Perligata;

  adnota Illud Cribrum Eratothenis

  maximum tum val inquementum tum biguttam tum stadium egresso scribe.
  vestibulo perlegementum da meo maximo .
  maximum tum novumversum egresso scribe.
  da II tum maximum conscribementa meis listis.
  dum damentum nexto listis decapitamentum fac sic
      lista sic hoc tum nextum recidementum cis vannementa da listis.
      next tum biguttam tum stadium tum nextum tum novumversum
          scribe egresso.
  cis

=head3 Don::Mendo

Modules for "La venganza de Don Mendo", Sir Mendo's revenge.

  use Don::Mendo;
  $don_mendo = Don::Mendo->new;

  # Acts in the play are "jornadas"
  $first_act = $don_mendo->jornadas(0);

  # Print the whole act
  $first_act->tell();

  # Just the lines for the main character
  print $first_act->lines_for_character('Mendo');

=head3 DateTime::Event::Klingon

Determine events of Klingon cultural significance.

  use DateTime;
  use DateTime::Event::Klingon qw/
      Heghlu'meH QaQ jajvam'a'
  /;

  $dt = DateTime->now;