view release on metacpan or  search on metacpan

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

=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:

  #!/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