Sig: Repaso: Control de Versiones Sup: Ejecucion de Programas Ant: Práctica: Introducción a los
use 5.008004?
use strict?
use warnings y perl -w?
use Carp?
¿Que diferencia hay entre croak y die?
package nombredepaquete?
our?
¿En que ámbito es visible una variable declarada con our?
¿Cuál es el nombre completo de una variable de paquete?
local?
%h de clave k?
@a de índice 7?
¿Que lugar ocupa ese elemento en el array?
my ($input) = @_; |
my $input = @_; |
=>?.
@a = undef;
if (@a) { &tutu(); }
¿Se ejecuta &tutu? Explique su respuesta
eval {
my ($a, $b) = (10, 0);
my $c = $a / $b;
};
print "$@" if $@;
lhp@nereida:~/Lperl/src$ cat -n privacy.pl
1 #!/usr/bin/perl -w
2 use strict;
3 package tutu;
4 my $a = 10;
5
6 package titi;
7
8 if (defined($tutu::a)) { print "$tutu::a\n" }
9 else { print "No esta definida \$tutu::a\n"};
10 print "\$a = $a\n";
BEGIN?
perl -e 's/nereida\.deioc\.ull\.es/miranda.deioc.ull.es/gi' -p -i.bak *.html
Indique como saldrá formateada la salida del siguiente código:
my @items = qw(un dos tres);
my $format = "Los items son:\n".("%10s\n"x @items);
printf $format, @items;
@text?
DB<1> @text = (1, 2, 3, 4, 5) DB<2> @text[@text] = 0 DB<3> x 0+@text 0 6
Makefile.PL? ¿Cuál es su función?
¿Que secuencia de comandos conocida como
mantra de instalación es necesario ejecutar para
instalar un módulo?
¿Que significa la frase looks good?
MANIFEST?
¿Cuál es la función de MANIFEST.SKIP?
¿Que hace make manifest?
Makefile generado a partir de
Makefile.PL ¿Que debo hacer?
-I?
$/?
=head1 Texto =over número =item stuff =back =cut =pod
pod:
C<$a E<lt>=E<gt> $b>
use Modulo::Interesante qw(one two);
package Trivial::Tutu; our @EXPORT = qw(uno dos); our @EXPORT_OK = qw(tres cuatro cinco); use Exporter; our @ISA = qw(Exporter);
Indique que es importado y que no cuando se usan las siguientes declaraciones: la exportación:
use Trivial::Tutu;
use Trivial::Tutu qw(uno dos)
use Trivial::Tutu qw(tres cinco)
use Trivial::Tutu();
use Trivial::Tutu(siete);
use Este::Modulo;¿Donde busca el fichero
Modulo.pm?
Tutu.pm?
MANIFEST?
Makefile para trabajar en la plataforma
actual?
use y require?
our @ISA = qw(Exporter)?.
our @EXPORT = qw( compile compile_from_file)?
EXPORT Y EXPORT_OK?.
BEGIN?
o conf de cpan?
makepl_arg?
h, a, d, i, r, !,
de cpan?
upgrade, ls, look de cpan?
use_ok
,
diag
,
ok
,
is
,
isnt
,
like
,
unlike
,
can_ok
,
isa_ok
e
is_deeply
Test::More el número de pruebas a realizar?
¿Cómo se le indica a Test::More que no conocemos el número de pruebas a realizar?
Test::Exception, Test::Pod, etc.
que no forman parte de la distribución núcleo de Perl. ¿Como deben ser diseñadas dichas pruebas de cara a
no entorpecer la correcta distribución de su módulo?
if?
$N > 0 and $R > 0 and $N == int $N and $R == int $R
ok?
is?
$@?
like?
use_ok es llamada dentro de un BEGIN?
SKIP?
TODO?
pod_file_ok?
¿A que módulo pertenece?
use Test::More qw(no_plan);?
can_ok? ¿Qué argumentos tiene?
is_deeply e is?
throws_ok?
¿En que módulo se encuentra?
HARNESS_PERL_SWITCHES=-MDevel::Cover make test?
lives_ok? ¿En que módulo está?
trunk, branches y tags?
svn commit?
¿Que hace svn update?
¿Que hace svn log?
svn -vu satus? ¿Que significan las opciones usadas?
-p1 en
$ patch -p1 < ../newknap.patch
svn update?
svn commit -m 'changed this and that'?
gvim -d file1 file2?
diffupdate?
]c?
[c?
8]c?
do?
dp?
:diffg?
:12,20diffg?
:buffers?
:buffer 2?
:diffg 3?
:diffg batch.mine?
:diffput?
:12,20diffput?
zo?
zO?
zc?
zO?
:vnew?
CTRL-W v?
:set foldmethod=manual?
zf}?
:diffthis?
:diffsplit filename?
:windo ?
vim:
:1,5yank a :6,10yank b :tabedit | put a | vnew | put b :windo diffthis
vimdiff?
patch? ¿Cómo se crea un patch?
:diffpatch filename?
:vert diffpatch filename?
$ svn diff modulos.tex -r PREV:HEAD > patch
$ vi
:.!svn cat modulos.tex -r PREV
:vert diffpatch patch
~/.ssh/authorized_keys
¿Cómo se pinene comentarios en dicho fichero?
¿que ocurre con las líneas en blanco?
from="!enemy.my_isp.net,*.my_isp.net,home.example.com"
svnserve?
svn+ssh si no tenemos privilegios de administrador?
--tunnel-user=user de svnserve?
command="/usr/bin/svnserve -t -r /home/casiano/repository --tunnel-user=lgforte",no-port-forwarding ssh-dss ....
system con uno o con varios argumentos?
system con o sin redirección, pipes, background, etc.?
system y exec?
I require some assistance. I am writing a CGI script in Perl on Solaris that needs to run external commands using the 'system' operator. These commands are part of a larger package that needs the system initialized (via a command) properly before execution, or else each individual command cannot interact with the other, like the following. 1: system "/PATH/initialize_system"; # init the environment 2: system "/PATH/skew.k ARG_FOR_FRAME_NUMBER"; # create image 3: system "/PATH/savegif.k FRAME_NUMBER"; # save image off 4: system "exit"; # exit the environment created with initialize_system When running a command using 'system', the environment appears to only lasts until the next line of Perl code, so line 2 can't talk to line 3 because the environment required for them to communicate isn't there which is initialized by line 1. The above code snippet would the way it is run from a command line. Any help would be appreciated. Thanks.
¿Cuál es su respuesta?
$ set | grep "^[A-Z]" |wc
$ perl -e 'print "$_ = $ENV{$_}\n" for sort keys %ENV;' | wc
¿A que se debe la diferencia?.
Consulte el módulo
Env::Bash
.
Discuta su funcionalidad.
system 'echo $PATH'y
system "echo $PATH"
system('echo','hola','>','juan.txt');
*a = *b?
*a = \$b?
*a = \&Paquete::Con::Un::Largo::Nombre::resuelve?
*a = \*STDOUT?
DB<1> *a = \*STDOUT DB<2> print a "hola"
%ENV?
qx?
tee?
$? == -1?
$? & 127?
$? & 128?
$? >> 8?
bc implementa una calculadora).
Explique la secuencia
de eventos:
pp2@nereida:~/alu$ perl -wde 0 main::(-e:1): 0 DB<1> open $F, "|bc" DB<2> print $F "4*3\n" DB<3> print $F "5*2\n" DB<4> close($F) 12 10 DB<5>
DB<6> $F->autoflush(1) DB<7> open $F, "|bc" DB<8> print $F "4*3\n" 12 DB<9> print $F "5*2\n" 10
bc y alimente la calculadora usando syswrite.
¿Que diferencias observa?
$/?
lhp@nereida:~/Lperl/src/perl_networking/ch2$ cat -n pipe2none 1 #!/usr/bin/perl -w 2 use strict; 3 4 open(FH, "|doesnotexist") or die "Can't open pipe: $!\n"; 5 print FH "Hi!\n" or die "Can't write to doesnotexist!: $!\n"; 6 close(FH) or die "Can't close doesnotexist!: $!\n. Status: $?";Al ejecutar este programa tenemos la salida:
lhp@nereida:~/Lperl/src/perl_networking/ch2$ perl -v This is perl, v5.8.7 built for i486-linux-gnu-thread-multi ... lhp@nereida:~/Lperl/src/perl_networking/ch2$ ./pipe2none Can't exec "doesnotexist": No existe el fichero o el directorio at ./pipe2none line 4. Can't open pipe: No existe el fichero o el directorio
lhp@nereida:~/Lperl/src/perl_networking/ch2$ cat -n pipe2none2 1 #!/usr/bin/perl -w 2 use strict; 3 4 my $pid = open(FH, "| doesnotexist > tutu") or die "Can't open pipe: $!\n"; 5 print "PID: $pid\n"; 6 print FH "Hi!\n" or die "Can't write to doesnotexist!: $!\n"; 7 close(FH) or die "Can't close doesnotexist!: $!\n. Status: $?";Al ejecutar produce la salida:
lhp@nereida:~/Lperl/src/perl_networking/ch2$ pipe2none2 PID: 18909 sh: doesnotexist: command not found Can't close doesnotexist!: . Status: 32512 at ./pipe2none2 line 7.
STDOUT sean redirigidas a un determinado fichero?
%SIG?
PIPE? ¿Cuándo se genera una señal PIPE?
