view release on metacpan or  search on metacpan

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

  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');

=head2 X11::GUITest

=head3 Automatització d'interfícies gràfiques a X11

C<X11::GUITest> permet interactuar amb interfícies gràfiques
d'usuari basades en X11.

Algunes funcions interessants d'aquest mòdul:

=over 4

=item * C<StartApp> executa l'aplicació i retorna el control al
programa Perl.

=item * C<SendKeys> simula l'ús del teclat tot enviant les
pulsacions a la finestra que estigui en primer pla.
Les teclas modificadores es codifiquen amb caràcters específics:

=over 4

=item ^ => CTRL

=item % => ALT

=item + => MAJ

=item ~ => ENTER

=back

=item * C<WaitWindowViewable> espera a que la finestra de l'aplicació
estigui visible.

=back

=head3 Obrir algunes pàgines web amb el Firefox

  use X11::GUITest qw/
      StartApp
      WaitWindowViewable
      SendKeys
  /;

  StartApp('firefox http://barcelona.pm.org/');

  ($main_win) = WaitWindowViewable(
      '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: