view release on metacpan or  search on metacpan

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

    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
"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;
  print 'Today ', Heghlu'meH QaQ jajvam'a'($dt)
      ? 'is' : 'is not',
      " a good day to die!\n";

=head3 Acme::Code::Police

Enforce rigorous coding standards.